From 17f5a67eb2fc795783ccd1d045b1341de615d773 Mon Sep 17 00:00:00 2001 From: pate Date: Thu, 25 Apr 2002 21:59:55 +0000 Subject: [PATCH] cleaned out boilerplate and fixed some speeling erorz --- C4/Accounts.pm | 42 ++---------------------------------------- C4/Accounts2.pm | 41 ++--------------------------------------- C4/Acquisitions.pm | 41 ++--------------------------------------- C4/Catalogue.pm | 41 ++--------------------------------------- C4/Circmain.pm | 43 +++++++------------------------------------ C4/Circulation.pm | 39 ++------------------------------------- C4/Database.pm | 43 ++----------------------------------------- C4/Format.pm | 38 ++------------------------------------ C4/Groups.pm | 37 +------------------------------------ C4/Input.pm | 41 ++--------------------------------------- C4/InterfaceCDK.pm | 45 ++++----------------------------------------- C4/Maintainance.pm | 39 ++------------------------------------- C4/Print.pm | 39 ++------------------------------------- C4/Reserves2.pm | 37 +------------------------------------ C4/Scan.pm | 37 +------------------------------------ C4/Search.pm | 38 +------------------------------------- C4/Security.pm | 40 +--------------------------------------- C4/Stats.pm | 39 +-------------------------------------- C4/Stock.pm | 38 ++------------------------------------ 19 files changed, 39 insertions(+), 719 deletions(-) diff --git a/C4/Accounts.pm b/C4/Accounts.pm index 35cd048cdc..e0386f024e 100755 --- a/C4/Accounts.pm +++ b/C4/Accounts.pm @@ -1,7 +1,4 @@ -package C4::Accounts; #asummes C4/Accounts - -#requires DBI.pm to be installed -#uses DBD:Pg +package C4::Accounts; #assumes C4/Accounts use strict; require Exporter; @@ -12,48 +9,13 @@ use C4::Search; use C4::Stats; use C4::InterfaceCDK; use C4::Interface::AccountsCDK; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); +use vars qw($VERSION @ISA @EXPORT); # set the version for version checking $VERSION = 0.01; @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)=@_; } diff --git a/C4/Accounts2.pm b/C4/Accounts2.pm index c33a36aca4..361b6e4a7f 100755 --- a/C4/Accounts2.pm +++ b/C4/Accounts2.pm @@ -1,7 +1,4 @@ -package C4::Accounts2; #asummes C4/Accounts2 - -#requires DBI.pm to be installed -#uses DBD:Pg +package C4::Accounts2; #assummes C4/Accounts2 use strict; require Exporter; @@ -10,7 +7,7 @@ use C4::Database; use C4::Stats; use C4::Search; use C4::Circulation::Circ2; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); +use vars qw($VERSION @ISA @EXPORT); # set the version for version checking $VERSION = 0.01; @@ -18,40 +15,6 @@ $VERSION = 0.01; @ISA = qw(Exporter); @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{ my ($env)=@_; diff --git a/C4/Acquisitions.pm b/C4/Acquisitions.pm index 7ccadbddbf..830a37dfae 100644 --- a/C4/Acquisitions.pm +++ b/C4/Acquisitions.pm @@ -1,10 +1,10 @@ -package C4::Acquisitions; #asummes C4/Acquisitions.pm +package C4::Acquisitions; #assumes C4/Acquisitions.pm use strict; require Exporter; use C4::Database; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); +use vars qw($VERSION @ISA @EXPORT); # set the version for version checking $VERSION = 0.01; @@ -19,43 +19,6 @@ $VERSION = 0.01; &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 { my ($supplierid)=@_; my $dbh=C4Connect; diff --git a/C4/Catalogue.pm b/C4/Catalogue.pm index 199e3d8cf8..b7f813a47d 100644 --- a/C4/Catalogue.pm +++ b/C4/Catalogue.pm @@ -1,4 +1,4 @@ -package C4::Catalogue; #asummes C4/Acquisitions.pm +package C4::Catalogue; #assumes C4/Acquisitions.pm # Continue working on updateItem!!!!!! # @@ -13,7 +13,7 @@ use strict; require Exporter; use C4::Database; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); +use vars qw($VERSION @ISA @EXPORT); # set the version for version checking $VERSION = 0.01; @@ -21,43 +21,6 @@ $VERSION = 0.01; @ISA = qw(Exporter); @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 { # This subroutine makes no modifications to the MARC tables. MARC records are diff --git a/C4/Circmain.pm b/C4/Circmain.pm index b3adbcaf2e..2452d385eb 100755 --- a/C4/Circmain.pm +++ b/C4/Circmain.pm @@ -1,4 +1,4 @@ -package C4::Circmain; #asummes C4/Circulation +package C4::Circmain; #assumes C4/Circulation #package to deal with circulation @@ -15,47 +15,13 @@ use C4::Reserves; use C4::InterfaceCDK; use C4::Security; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); +use vars qw($VERSION @ISA @EXPORT); # set the version for version checking $VERSION = 0.01; @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{ my ($env)=@_; @@ -98,3 +64,8 @@ sub Start_circ{ END { } # module clean-up code here (global destructor) + + + + + diff --git a/C4/Circulation.pm b/C4/Circulation.pm index d3719eb917..4b602c0348 100755 --- a/C4/Circulation.pm +++ b/C4/Circulation.pm @@ -1,4 +1,4 @@ -package C4::Circulation; #asummes C4/Circulation +package C4::Circulation; #assumes C4/Circulation #package to deal with circulation @@ -14,48 +14,13 @@ use C4::Reserves; #use C4::Interface; use C4::Security; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); +use vars qw($VERSION @ISA @EXPORT); # set the version for version checking $VERSION = 0.01; @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{ my ($env)=@_; diff --git a/C4/Database.pm b/C4/Database.pm index 11664e1fcf..205c25dbe2 100755 --- a/C4/Database.pm +++ b/C4/Database.pm @@ -1,12 +1,9 @@ -package C4::Database; #asummes C4/Database - -#requires DBI.pm to be installed -#uses DBD:Pg +package C4::Database; #assumes C4/Database use strict; require Exporter; use DBI; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); +use vars qw($VERSION @ISA @EXPORT); # set the version for version checking $VERSION = 0.01; @@ -14,42 +11,6 @@ $VERSION = 0.01; @ISA = qw(Exporter); @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 { my $dbname="c4"; diff --git a/C4/Format.pm b/C4/Format.pm index d1e41b3da6..5067f2bc94 100755 --- a/C4/Format.pm +++ b/C4/Format.pm @@ -1,50 +1,16 @@ -package C4::Format; #asummes C4/Format +package C4::Format; #assummes C4/Format use strict; require Exporter; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); +use vars qw($VERSION @ISA @EXPORT); # set the version for version checking $VERSION = 0.01; @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 { # format (space pad) a string diff --git a/C4/Groups.pm b/C4/Groups.pm index 5a6d9c5e53..3f54ab7620 100755 --- a/C4/Groups.pm +++ b/C4/Groups.pm @@ -18,48 +18,13 @@ use C4::Stats; #use C4::Search; #use C4::Print; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); +use vars qw($VERSION @ISA @EXPORT); # set the version for version checking $VERSION = 0.01; @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 { my ($env) = @_; diff --git a/C4/Input.pm b/C4/Input.pm index 330fc54492..865ec7e144 100644 --- a/C4/Input.pm +++ b/C4/Input.pm @@ -1,52 +1,15 @@ -package C4::Input; #asummes C4/Input - -#package to deal with marking up output +package C4::Input; #assumes C4/Input use strict; require Exporter; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); +use vars qw($VERSION @ISA @EXPORT); # set the version for version checking $VERSION = 0.01; @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 { my ($env,$reqflds,$data) = @_; diff --git a/C4/InterfaceCDK.pm b/C4/InterfaceCDK.pm index ce35380df4..354775c9ad 100755 --- a/C4/InterfaceCDK.pm +++ b/C4/InterfaceCDK.pm @@ -1,10 +1,9 @@ - -package C4::InterfaceCDK; #asummes C4/InterfaceCDK +package C4::InterfaceCDK; #assumes C4/InterfaceCDK #uses Newt use C4::Format; use strict; -use Cdk; +#use Cdk; use Date::Manip; use C4::Accounts; use C4::Circulation::Borrissues; @@ -13,7 +12,7 @@ use C4::Circulation::Renewals; require Exporter; use DBI; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); +use vars qw($VERSION @ISA @EXPORT); # set the version for version checking $VERSION = 0.01; @@ -23,45 +22,9 @@ $VERSION = 0.01; &textbox &menu &issuewindow &msg_yn &msg_ny &borrower_dialog &debug_msg &error_msg &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 { - + # is this planned for something? } sub startint { diff --git a/C4/Maintainance.pm b/C4/Maintainance.pm index d400536858..a520cfcf2b 100644 --- a/C4/Maintainance.pm +++ b/C4/Maintainance.pm @@ -1,4 +1,4 @@ -package C4::Maintainance; #asummes C4/Maintainance +package C4::Maintainance; #assumes C4/Maintainance #package to deal with marking up output @@ -7,7 +7,7 @@ use C4::Database; require Exporter; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); +use vars qw($VERSION @ISA @EXPORT); # set the version for version checking $VERSION = 0.01; @@ -15,41 +15,6 @@ $VERSION = 0.01; @ISA = qw(Exporter); @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 { my ($sub,$num,$offset)=@_; diff --git a/C4/Print.pm b/C4/Print.pm index 26b388317e..d799bcb76e 100644 --- a/C4/Print.pm +++ b/C4/Print.pm @@ -1,51 +1,16 @@ -package C4::Print; #asummes C4/Print.pm +package C4::Print; #assumes C4/Print.pm use strict; require Exporter; #use C4::InterfaceCDK; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); +use vars qw($VERSION @ISA @EXPORT); # set the version for version checking $VERSION = 0.01; @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 { my ($env,$items,$borrower)=@_; diff --git a/C4/Reserves2.pm b/C4/Reserves2.pm index ae0bb9c367..bc03e49da0 100755 --- a/C4/Reserves2.pm +++ b/C4/Reserves2.pm @@ -1,7 +1,4 @@ -package C4::Reserves2; #asummes C4/Reserves2 - -#requires DBI.pm to be installed -#uses DBD:Pg +package C4::Reserves2; #assumes C4/Reserves2 use strict; require Exporter; @@ -16,39 +13,7 @@ $VERSION = 0.01; @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; sub FindReserves { diff --git a/C4/Scan.pm b/C4/Scan.pm index 8cff8a4c09..4c1be54358 100644 --- a/C4/Scan.pm +++ b/C4/Scan.pm @@ -1,4 +1,4 @@ -package C4::Scan; #asummes C4/Scan.pm +package C4::Scan; #assumes C4/Scan.pm use strict; require Exporter; @@ -10,41 +10,6 @@ $VERSION = 0.01; @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 { } diff --git a/C4/Search.pm b/C4/Search.pm index a99ff36276..c778f923d5 100755 --- a/C4/Search.pm +++ b/C4/Search.pm @@ -1,7 +1,4 @@ -package C4::Search; #asummes C4/Search - -#requires DBI.pm to be installed -#uses DBD:Pg +package C4::Search; #assumes C4/Search use strict; require Exporter; @@ -22,40 +19,7 @@ $VERSION = 0.01; &getboracctrecord &ItemType &itemissues &subject &subtitle &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)=@_; my $dbh=C4Connect; diff --git a/C4/Security.pm b/C4/Security.pm index ce8b2fc048..36f4b1a1d0 100644 --- a/C4/Security.pm +++ b/C4/Security.pm @@ -1,7 +1,4 @@ -package C4::Security; #asummes C4/Security - -#requires DBI.pm to be installed -#uses DBD:Pg +package C4::Security; #assumes C4/Security use strict; require Exporter; @@ -15,42 +12,7 @@ $VERSION = 0.01; @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)=@_; my $dbh=C4Connect; diff --git a/C4/Stats.pm b/C4/Stats.pm index 4fe513627d..2ffe5f3cad 100644 --- a/C4/Stats.pm +++ b/C4/Stats.pm @@ -1,7 +1,4 @@ -package C4::Stats; #asummes C4/Stats - -#requires DBI.pm to be installed -#uses DBD:Pg +package C4::Stats; #assumes C4/Stats use strict; require Exporter; @@ -15,41 +12,7 @@ $VERSION = 0.01; @ISA = qw(Exporter); @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 { #module to insert stats data into stats table diff --git a/C4/Stock.pm b/C4/Stock.pm index 10fb1e1e02..3e83b1f21b 100644 --- a/C4/Stock.pm +++ b/C4/Stock.pm @@ -1,4 +1,4 @@ -package C4::Stock; #asummes C4/Stock.pm +package C4::Stock; #assumes C4/Stock.pm use strict; require Exporter; @@ -11,41 +11,6 @@ $VERSION = 0.01; @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 { my $dbh=C4Connect; @@ -69,3 +34,4 @@ sub stockreport { END { } # module clean-up code here (global destructor) +