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

[Andrew Arensburger]

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

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


Index: BorrowerCDK.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Interface/BorrowerCDK.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** BorrowerCDK.pm	11 Oct 2002 12:38:17 -0000	1.4
--- BorrowerCDK.pm	13 Oct 2002 08:32:08 -0000	1.5
***************
*** 29,76 ****
  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(&BorrowerAddress);
- %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 BorrowerAddress {
    my ($env,$bornum,$borrower)=@_;
    my $titlepanel = titlepanel($env,$env{'sysarea'},"Update Borrower");
    $titlepanel->draw();
!   my BorrAdd = BorrAddpame   
  
  sub BorrAddpanel {
--- 29,44 ----
  require Exporter;
  use DBI;
! use vars qw($VERSION @ISA @EXPORT);
  # set the version for version checking
  $VERSION = 0.01;
! 
  @ISA = qw(Exporter);
  @EXPORT = qw(&BorrowerAddress);
  
  sub BorrowerAddress {
    my ($env,$bornum,$borrower)=@_;
    my $titlepanel = titlepanel($env,$env{'sysarea'},"Update Borrower");
    $titlepanel->draw();
!   my BorrAdd = BorrAddpame
  
  sub BorrAddpanel {
***************
*** 107,112 ****
          $responses[$i] =$info->[$i][0];
  	$i++;
!      }     
!   } 
    return($reason, at responses);
  }
--- 75,80 ----
          $responses[$i] =$info->[$i][0];
  	$i++;
!      }
!   }
    return($reason, at responses);
  }