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 ----
+
