[Koha-cvs] CVS: koha/C4/Circulation Circ2.pm,1.43,1.44

[Andrew Arensburger]

Update of /cvsroot/koha/koha/C4/Circulation
In directory usw-pr-cvs1:/tmp/cvs-serv3082

Modified Files:
        Circ2.pm 
Log Message:
Removed bogus unused variables at the top.
Prettified @EXPORT list.
(bug fix): Added missing semicolon.


Index: Circ2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Circulation/Circ2.pm,v
retrieving revision 1.43
retrieving revision 1.44
diff -C2 -r1.43 -r1.44
*** Circ2.pm    11 Oct 2002 03:24:29 -0000      1.43
--- Circ2.pm    11 Oct 2002 12:42:08 -0000      1.44
***************
*** 63,105 ****
  
  @ISA = qw(Exporter);
! @EXPORT = qw(&getbranches &getprinters &getpatroninformation &currentissues 
&getissues &getiteminformation &findborrower &issuebook &returnbook 
&find_reserves &transferbook &decode
! calc_charges);
! %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);     # FIXME - Unused
! 
! 
! # non-exported package globals go here
! #use vars qw(@more $stuff);
! 
! # initalize package globals, first exported ones
! # FIXME - Unused
! my $Var1   = '';
! my %Hashit = ();
! 
! # then the others (which are still accessible as $Some::Module::stuff)
! # FIXME - Unused
! my $stuff  = '';
! my @more   = ();
! 
! # all file-scoped lexicals must be created before
! # the functions below that use them.
! 
! # file-private lexicals go here
! # FIXME - Unused
! my $priv_var    = '';
! my %secret_hash = ();
! 
! # here's a file-private function as a closure,
! # callable as &$priv_func;  it cannot be prototyped.
! # FIXME - Unused
! my $priv_func = sub {
!   # stuff goes here.
! };
! 
! # make all your functions, whether exported or not;
  
  =item getbranches
--- 63,70 ----
  
  @ISA = qw(Exporter);
! @EXPORT = qw(&getbranches &getprinters &getpatroninformation
!       &currentissues &getissues &getiteminformation &findborrower
!       &issuebook &returnbook &find_reserves &transferbook &decode
!       &calc_charges);
  
  =item getbranches
***************
*** 1749,1753 ****
                         ?)
  EOT
!     $sth->execute($bornum, $itemno, $nextaccntno, $charge, $charge)
      $sth->finish;
  }
--- 1714,1718 ----
                         ?)
  EOT
!     $sth->execute($bornum, $itemno, $nextaccntno, $charge, $charge);
      $sth->finish;
  }