[Koha-cvs] CVS: koha/C4/Interface AccountsCDK.pm,1.4,1.5

[Andrew Arensburger]

Update of /cvsroot/koha/koha/C4/Interface
In directory usw-pr-cvs1:/tmp/cvs-serv15281

Modified Files:
        AccountsCDK.pm 
Log Message:
Deleted unused variables.
Removed trailing whitespace.


Index: AccountsCDK.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Interface/AccountsCDK.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** AccountsCDK.pm      11 Oct 2002 12:38:06 -0000      1.4
--- AccountsCDK.pm      13 Oct 2002 08:31:59 -0000      1.5
***************
*** 29,74 ****
  require Exporter;
  use DBI;
! use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
!   
  # set the version for version checking
  $VERSION = 0.01;
-     
  @ISA = qw(Exporter);
  @EXPORT = qw(&accountsdialog);
- %EXPORT_TAGS = ( );     # eg: TAG => [ qw!name1 name2! ],
-                 
- # your exported package globals go here,
- # as well as any optionally exported functions
- 
- @EXPORT_OK   = qw($Var1 %Hashit);
- # non-exported package globals go here
- use vars qw(@more $stuff);
-       
- # initalize package globals, first exported ones
- 
- my $Var1   = '';
- my %Hashit = ();
-                   
- # then the others (which are still accessible as $Some::Module::stuff)
- my $stuff  = '';
- my @more   = ();
-       
- # all file-scoped lexicals must be created before
- # the functions below that use them.
-               
- # file-private lexicals go here
- my $priv_var    = '';
- my %secret_hash = ();
-                           
- # here's a file-private function as a closure,
- # callable as &$priv_func;  it cannot be prototyped.
- my $priv_func = sub {
-   # stuff goes here.
- };
-                                                   
- # make all your functions, whether exported or not;
  
- 
-   
  sub accountsdialog {
    my ($env,$title,$borrower,$accountlines,$amountowing)address@hidden;
--- 29,39 ----
  require Exporter;
  use DBI;
! use vars qw($VERSION @ISA @EXPORT);
! 
  # set the version for version checking
  $VERSION = 0.01;
  @ISA = qw(Exporter);
  @EXPORT = qw(&accountsdialog);
  
  sub accountsdialog {
    my ($env,$title,$borrower,$accountlines,$amountowing)address@hidden;
***************
*** 80,84 ****
    #$borinfo[2] = "$borrower->{'streetaddress'}, $borrower->{'city'}";
    #$borinfo[3] = "<R>Total Due:  </B>".fmtdec($env,$amountowing,"52");
!   #my $borpanel = 
    #  new Cdk::Label ('Message' =>address@hidden, 'Ypos'=>4, 'Xpos'=>"RIGHT");
    my $borpanel = borrowerbox($env,$borrower,$amountowing);
--- 45,49 ----
    #$borinfo[2] = "$borrower->{'streetaddress'}, $borrower->{'city'}";
    #$borinfo[3] = "<R>Total Due:  </B>".fmtdec($env,$amountowing,"52");
!   #my $borpanel =
    #  new Cdk::Label ('Message' =>address@hidden, 'Ypos'=>4, 'Xpos'=>"RIGHT");
    my $borpanel = borrowerbox($env,$borrower,$amountowing);
***************
*** 107,111 ****
        $amount+=$amount2;
      }
-     
    }
    my $amountentry = new Cdk::Entry('Label'=>"Amount:  ",
--- 72,75 ----
***************
*** 115,121 ****
    $amountentry->preProcess ('Function' => sub{preamt(@_,$env,$acctlist);});
    #
!   
    if ($amount eq ''){
!     $amount =$amountentry->activate();                                        
                        
    } else {
      $amountentry->set('Value'=>$amount);
--- 79,85 ----
    $amountentry->preProcess ('Function' => sub{preamt(@_,$env,$acctlist);});
    #
! 
    if ($amount eq ''){
!     $amount =$amountentry->activate();
    } else {
      $amountentry->set('Value'=>$amount);