Update of /cvsroot/koha/koha/C4 In directory usw-pr-cvs1:/tmp/cvs-serv3235 Modified Files: Tag: rel-1-2 Accounts.pm Accounts2.pm Acquisitions.pm Catalogue.pm Circmain.pm Circulation.pm Database.pm Format.pm Groups.pm Input.pm InterfaceCDK.pm Maintainance.pm Print.pm Reserves2.pm Scan.pm Search.pm Security.pm Stats.pm Stock.pm Log Message: cleaned out boilerplate and fixed some speeling erorz Index: Accounts.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Accounts.pm,v retrieving revision 1.1.1.1 retrieving revision 1.1.1.1.2.1 diff -C2 -r1.1.1.1 -r1.1.1.1.2.1 *** Accounts.pm 19 Dec 2000 23:45:53 -0000 1.1.1.1 --- Accounts.pm 25 Apr 2002 21:59:55 -0000 1.1.1.1.2.1 *************** *** 1,6 **** ! package C4::Accounts; #asummes C4/Accounts ! ! #requires DBI.pm to be installed ! #uses DBD:Pg use strict; --- 1,3 ---- ! package C4::Accounts; #assumes C4/Accounts use strict; *************** *** 13,17 **** use C4::InterfaceCDK; use C4::Interface::AccountsCDK; ! use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); # set the version for version checking --- 10,14 ---- use C4::InterfaceCDK; use C4::Interface::AccountsCDK; ! use vars qw($VERSION @ISA @EXPORT); # set the version for version checking *************** *** 20,58 **** @ISA = qw(Exporter); @EXPORT = qw(&checkaccount &reconcileaccount &getnextacctno); - %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 displayaccounts{ my ($env)=@_; --- 17,20 ---- Index: Accounts2.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Accounts2.pm,v retrieving revision 1.9 retrieving revision 1.9.2.1 diff -C2 -r1.9 -r1.9.2.1 *** Accounts2.pm 11 Mar 2002 03:36:41 -0000 1.9 --- Accounts2.pm 25 Apr 2002 21:59:55 -0000 1.9.2.1 *************** *** 1,6 **** ! package C4::Accounts2; #asummes C4/Accounts2 ! ! #requires DBI.pm to be installed ! #uses DBD:Pg use strict; --- 1,3 ---- ! package C4::Accounts2; #assummes C4/Accounts2 use strict; *************** *** 11,15 **** use C4::Search; use C4::Circulation::Circ2; ! use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); # set the version for version checking --- 8,12 ---- use C4::Search; use C4::Circulation::Circ2; ! use vars qw($VERSION @ISA @EXPORT); # set the version for version checking *************** *** 19,56 **** @EXPORT = qw(&recordpayment &fixaccounts &makepayment &manualinvoice &getnextacctno); - %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 displayaccounts{ --- 16,19 ---- Index: Acquisitions.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Acquisitions.pm,v retrieving revision 1.5 retrieving revision 1.5.2.1 diff -C2 -r1.5 -r1.5.2.1 *** Acquisitions.pm 21 Apr 2002 06:33:32 -0000 1.5 --- Acquisitions.pm 25 Apr 2002 21:59:55 -0000 1.5.2.1 *************** *** 1,3 **** ! package C4::Acquisitions; #asummes C4/Acquisitions.pm use strict; --- 1,3 ---- ! package C4::Acquisitions; #assumes C4/Acquisitions.pm use strict; *************** *** 5,9 **** use C4::Database; ! use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); # set the version for version checking --- 5,9 ---- use C4::Database; ! use vars qw($VERSION @ISA @EXPORT); # set the version for version checking *************** *** 19,59 **** &getallorders &getrecorders &updatecurrencies &getorder &getcurrency &updaterecorder &updatecost &checkitems &modnote &getitemtypes &getbiblio); - - %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 getorders { --- 19,22 ---- Index: Catalogue.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Catalogue.pm,v retrieving revision 1.11 retrieving revision 1.11.2.1 diff -C2 -r1.11 -r1.11.2.1 *** Catalogue.pm 6 Nov 2001 18:15:34 -0000 1.11 --- Catalogue.pm 25 Apr 2002 21:59:55 -0000 1.11.2.1 *************** *** 1,3 **** ! package C4::Catalogue; #asummes C4/Acquisitions.pm # Continue working on updateItem!!!!!! --- 1,3 ---- ! package C4::Catalogue; #assumes C4/Acquisitions.pm # Continue working on updateItem!!!!!! *************** *** 14,18 **** use C4::Database; ! use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); # set the version for version checking --- 14,18 ---- use C4::Database; ! use vars qw($VERSION @ISA @EXPORT); # set the version for version checking *************** *** 22,62 **** @EXPORT = qw(&newBiblio &newBiblioItem &newItem &updateBiblio &updateBiblioItem &updateItem &changeSubfield); - %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 newBiblio { --- 22,25 ---- Index: Circmain.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Circmain.pm,v retrieving revision 1.1.1.1 retrieving revision 1.1.1.1.2.1 diff -C2 -r1.1.1.1 -r1.1.1.1.2.1 *** Circmain.pm 19 Dec 2000 23:45:54 -0000 1.1.1.1 --- Circmain.pm 25 Apr 2002 21:59:55 -0000 1.1.1.1.2.1 *************** *** 1,3 **** ! package C4::Circmain; #asummes C4/Circulation #package to deal with circulation --- 1,3 ---- ! package C4::Circmain; #assumes C4/Circulation #package to deal with circulation *************** *** 16,20 **** use C4::Security; ! use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); # set the version for version checking --- 16,20 ---- use C4::Security; ! use vars qw($VERSION @ISA @EXPORT); # set the version for version checking *************** *** 23,60 **** @ISA = qw(Exporter); @EXPORT = qw(&Start_circ); - %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 Start_circ{ --- 23,26 ---- *************** *** 99,100 **** --- 65,71 ---- END { } # module clean-up code here (global destructor) + + + + + Index: Circulation.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Circulation.pm,v retrieving revision 1.1.1.1 retrieving revision 1.1.1.1.2.1 diff -C2 -r1.1.1.1 -r1.1.1.1.2.1 *** Circulation.pm 19 Dec 2000 23:45:54 -0000 1.1.1.1 --- Circulation.pm 25 Apr 2002 21:59:55 -0000 1.1.1.1.2.1 *************** *** 1,3 **** ! package C4::Circulation; #asummes C4/Circulation #package to deal with circulation --- 1,3 ---- ! package C4::Circulation; #assumes C4/Circulation #package to deal with circulation *************** *** 15,19 **** use C4::Security; ! use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); # set the version for version checking --- 15,19 ---- use C4::Security; ! use vars qw($VERSION @ISA @EXPORT); # set the version for version checking *************** *** 22,60 **** @ISA = qw(Exporter); @EXPORT = qw(&Start_circ &scanborrower); - #@EXPORT = qw(&Start_circ checkoverdues); - %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 Start_circ{ --- 22,25 ---- Index: Database.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Database.pm,v retrieving revision 1.2 retrieving revision 1.2.2.1 diff -C2 -r1.2 -r1.2.2.1 *** Database.pm 21 Dec 2000 19:56:43 -0000 1.2 --- Database.pm 25 Apr 2002 21:59:55 -0000 1.2.2.1 *************** *** 1,11 **** ! package C4::Database; #asummes C4/Database ! ! #requires DBI.pm to be installed ! #uses DBD:Pg use strict; require Exporter; use DBI; ! use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); # set the version for version checking --- 1,8 ---- ! package C4::Database; #assumes C4/Database use strict; require Exporter; use DBI; ! use vars qw($VERSION @ISA @EXPORT); # set the version for version checking *************** *** 15,54 **** @EXPORT = qw(&C4Connect &sqlinsert &sqlupdate &getmax &makelist &OpacConnect); - %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 C4Connect { --- 12,15 ---- Index: Format.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Format.pm,v retrieving revision 1.1.1.1 retrieving revision 1.1.1.1.2.1 diff -C2 -r1.1.1.1 -r1.1.1.1.2.1 *** Format.pm 19 Dec 2000 23:45:54 -0000 1.1.1.1 --- Format.pm 25 Apr 2002 21:59:55 -0000 1.1.1.1.2.1 *************** *** 1,3 **** ! package C4::Format; #asummes C4/Format use strict; --- 1,3 ---- ! package C4::Format; #assummes C4/Format use strict; *************** *** 5,9 **** ! use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); # set the version for version checking --- 5,9 ---- ! use vars qw($VERSION @ISA @EXPORT); # set the version for version checking *************** *** 12,49 **** @ISA = qw(Exporter); @EXPORT = qw(&fmtstr &fmtdec); - %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 fmtstr { --- 12,15 ---- Index: Groups.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Groups.pm,v retrieving revision 1.1 retrieving revision 1.1.2.1 diff -C2 -r1.1 -r1.1.2.1 *** Groups.pm 2 May 2001 23:06:44 -0000 1.1 --- Groups.pm 25 Apr 2002 21:59:55 -0000 1.1.2.1 *************** *** 19,23 **** #use C4::Print; ! use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); # set the version for version checking --- 19,23 ---- #use C4::Print; ! use vars qw($VERSION @ISA @EXPORT); # set the version for version checking *************** *** 26,64 **** @ISA = qw(Exporter); @EXPORT = qw(&getgroups &groupmembers); - %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 getgroups { --- 26,29 ---- Index: Input.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Input.pm,v retrieving revision 1.1.1.1 retrieving revision 1.1.1.1.2.1 diff -C2 -r1.1.1.1 -r1.1.1.1.2.1 *** Input.pm 19 Dec 2000 23:45:54 -0000 1.1.1.1 --- Input.pm 25 Apr 2002 21:59:55 -0000 1.1.1.1.2.1 *************** *** 1,10 **** ! package C4::Input; #asummes C4/Input ! ! #package to deal with marking up output use strict; require Exporter; ! use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); # set the version for version checking --- 1,8 ---- ! package C4::Input; #assumes C4/Input use strict; require Exporter; ! use vars qw($VERSION @ISA @EXPORT); # set the version for version checking *************** *** 13,51 **** @ISA = qw(Exporter); @EXPORT = qw(&checkflds &checkdigit); - %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 checkflds { --- 11,14 ---- Index: InterfaceCDK.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/InterfaceCDK.pm,v retrieving revision 1.1.1.1 retrieving revision 1.1.1.1.2.1 diff -C2 -r1.1.1.1 -r1.1.1.1.2.1 *** InterfaceCDK.pm 19 Dec 2000 23:45:54 -0000 1.1.1.1 --- InterfaceCDK.pm 25 Apr 2002 21:59:55 -0000 1.1.1.1.2.1 *************** *** 1,9 **** ! ! package C4::InterfaceCDK; #asummes C4/InterfaceCDK #uses Newt use C4::Format; use strict; ! use Cdk; use Date::Manip; use C4::Accounts; --- 1,8 ---- ! package C4::InterfaceCDK; #assumes C4/InterfaceCDK #uses Newt use C4::Format; use strict; ! #use Cdk; use Date::Manip; use C4::Accounts; *************** *** 14,18 **** require Exporter; use DBI; ! use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); # set the version for version checking --- 13,17 ---- require Exporter; use DBI; ! use vars qw($VERSION @ISA @EXPORT); # set the version for version checking *************** *** 24,66 **** &info_msg &selborrower &returnwindow &logondialog &borrowerwindow &titlepanel &borrbind &borrfill &preeborr &borrowerbox &brmenu &prmenu); - %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 se them. - - # file-private lexicals go here - my $priv_var = ''; - my %secret_hash = (); - #defining keystrokes used for screens - my $key_tab = chr(9); - my $key_ctlr = chr(18); - my $lastval = $key_ctlr; - - # 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 suspend_cb { ! } --- 23,29 ---- &info_msg &selborrower &returnwindow &logondialog &borrowerwindow &titlepanel &borrbind &borrfill &preeborr &borrowerbox &brmenu &prmenu); sub suspend_cb { ! # is this planned for something? } Index: Maintainance.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Maintainance.pm,v retrieving revision 1.4 retrieving revision 1.4.2.1 diff -C2 -r1.4 -r1.4.2.1 *** Maintainance.pm 26 Feb 2002 09:31:14 -0000 1.4 --- Maintainance.pm 25 Apr 2002 21:59:55 -0000 1.4.2.1 *************** *** 1,3 **** ! package C4::Maintainance; #asummes C4/Maintainance #package to deal with marking up output --- 1,3 ---- ! package C4::Maintainance; #assumes C4/Maintainance #package to deal with marking up output *************** *** 8,12 **** require Exporter; ! use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); # set the version for version checking --- 8,12 ---- require Exporter; ! use vars qw($VERSION @ISA @EXPORT); # set the version for version checking *************** *** 16,54 **** @EXPORT = qw(&listsubjects &updatesub &shiftgroup &deletedbib &undeletebib &updatetype); - %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 listsubjects { --- 16,19 ---- Index: Print.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Print.pm,v retrieving revision 1.3 retrieving revision 1.3.2.1 diff -C2 -r1.3 -r1.3.2.1 *** Print.pm 4 Feb 2001 22:25:42 -0000 1.3 --- Print.pm 25 Apr 2002 21:59:55 -0000 1.3.2.1 *************** *** 1,3 **** ! package C4::Print; #asummes C4/Print.pm use strict; --- 1,3 ---- ! package C4::Print; #assumes C4/Print.pm use strict; *************** *** 5,9 **** #use C4::InterfaceCDK; ! use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); # set the version for version checking --- 5,9 ---- #use C4::InterfaceCDK; ! use vars qw($VERSION @ISA @EXPORT); # set the version for version checking *************** *** 12,50 **** @ISA = qw(Exporter); @EXPORT = qw(&remoteprint &printreserve); - %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 remoteprint { --- 12,15 ---- Index: Reserves2.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Reserves2.pm,v retrieving revision 1.5 retrieving revision 1.5.2.1 diff -C2 -r1.5 -r1.5.2.1 *** Reserves2.pm 23 Apr 2002 00:34:16 -0000 1.5 --- Reserves2.pm 25 Apr 2002 21:59:55 -0000 1.5.2.1 *************** *** 1,6 **** ! package C4::Reserves2; #asummes C4/Reserves2 ! ! #requires DBI.pm to be installed ! #uses DBD:Pg use strict; --- 1,3 ---- ! package C4::Reserves2; #assumes C4/Reserves2 use strict; *************** *** 17,53 **** @ISA = qw(Exporter); @EXPORT = qw(&FindReserves &CreateReserve &updatereserves &getreservetitle &Findgroupreserve); - %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; --- 14,18 ---- Index: Scan.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Scan.pm,v retrieving revision 1.1.1.1 retrieving revision 1.1.1.1.2.1 diff -C2 -r1.1.1.1 -r1.1.1.1.2.1 *** Scan.pm 19 Dec 2000 23:45:55 -0000 1.1.1.1 --- Scan.pm 25 Apr 2002 21:59:55 -0000 1.1.1.1.2.1 *************** *** 1,3 **** ! package C4::Scan; #asummes C4/Scan.pm use strict; --- 1,3 ---- ! package C4::Scan; #assumes C4/Scan.pm use strict; *************** *** 11,49 **** @ISA = qw(Exporter); @EXPORT = qw(&getbarcode); - %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 Getbarcode { --- 11,14 ---- Index: Search.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Search.pm,v retrieving revision 1.18 retrieving revision 1.18.2.1 diff -C2 -r1.18 -r1.18.2.1 *** Search.pm 10 Apr 2002 09:55:17 -0000 1.18 --- Search.pm 25 Apr 2002 21:59:55 -0000 1.18.2.1 *************** *** 1,6 **** ! package C4::Search; #asummes C4/Search ! ! #requires DBI.pm to be installed ! #uses DBD:Pg use strict; --- 1,3 ---- ! package C4::Search; #assumes C4/Search use strict; *************** *** 23,60 **** &addauthor &bibitems &barcodes &findguarantees &allissues &systemprefs &findguarantor); - %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 findguarantees{ my ($bornum)=@_; --- 20,24 ---- Index: Security.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Security.pm,v retrieving revision 1.1.1.1 retrieving revision 1.1.1.1.2.1 diff -C2 -r1.1.1.1 -r1.1.1.1.2.1 *** Security.pm 19 Dec 2000 23:45:55 -0000 1.1.1.1 --- Security.pm 25 Apr 2002 21:59:55 -0000 1.1.1.1.2.1 *************** *** 1,6 **** ! package C4::Security; #asummes C4/Security ! ! #requires DBI.pm to be installed ! #uses DBD:Pg use strict; --- 1,3 ---- ! package C4::Security; #assumes C4/Security use strict; *************** *** 16,55 **** @ISA = qw(Exporter); @EXPORT = qw(&Login &CheckAccess); - %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 Login { my ($env)=@_; --- 13,17 ---- Index: Stats.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Stats.pm,v retrieving revision 1.3 retrieving revision 1.3.2.1 diff -C2 -r1.3 -r1.3.2.1 *** Stats.pm 2 Apr 2001 22:51:26 -0000 1.3 --- Stats.pm 25 Apr 2002 21:59:55 -0000 1.3.2.1 *************** *** 1,6 **** ! package C4::Stats; #asummes C4/Stats ! ! #requires DBI.pm to be installed ! #uses DBD:Pg use strict; --- 1,3 ---- ! package C4::Stats; #assumes C4/Stats use strict; *************** *** 16,54 **** @EXPORT = qw(&UpdateStats &statsreport &Count &Overdues &TotalOwing &TotalPaid &getcharges &Getpaidbranch &unfilledreserves); - %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 UpdateStats { --- 13,17 ---- Index: Stock.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Stock.pm,v retrieving revision 1.1.1.1 retrieving revision 1.1.1.1.2.1 diff -C2 -r1.1.1.1 -r1.1.1.1.2.1 *** Stock.pm 19 Dec 2000 23:45:55 -0000 1.1.1.1 --- Stock.pm 25 Apr 2002 21:59:55 -0000 1.1.1.1.2.1 *************** *** 1,3 **** ! package C4::Stock; #asummes C4/Stock.pm use strict; --- 1,3 ---- ! package C4::Stock; #assumes C4/Stock.pm use strict; *************** *** 12,50 **** @ISA = qw(Exporter); @EXPORT = qw(&stockreport); - %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 stockreport { --- 12,15 ---- *************** *** 70,71 **** --- 35,37 ---- +