[Koha-cvs] CVS: koha/C4/Circulation Circ2.pm,1.43,1.44
Andrew Arensburger
arensb at users.sourceforge.net
Fri Oct 11 14:42:10 CEST 2002
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 ¤tissues &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
! ¤tissues &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;
}
More information about the Koha-cvs
mailing list