[Koha-cvs] CVS: koha/C4 Catalogue.pm,1.25,1.26
Andrew Arensburger
arensb at users.sourceforge.net
Sun Oct 13 10:29:40 CEST 2002
Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv14795
Modified Files:
Catalogue.pm
Log Message:
Deleted unused variables.
Removed trailing whitespace.
Index: Catalogue.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Catalogue.pm,v
retrieving revision 1.25
retrieving revision 1.26
diff -C2 -r1.25 -r1.26
*** Catalogue.pm 10 Oct 2002 04:33:25 -0000 1.25
--- Catalogue.pm 13 Oct 2002 08:29:38 -0000 1.26
***************
*** 1,3 ****
! package C4::Catalogue; #assumes C4/Acquisitions.pm
# Continue working on updateItem!!!!!!
--- 1,3 ----
! package C4::Catalogue;
# Continue working on updateItem!!!!!!
***************
*** 7,12 ****
#
# Trying to track down $dbh's that aren't disconnected....
- #
-
--- 7,10 ----
***************
*** 34,38 ****
use C4::Biblio;
! use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
# set the version for version checking
--- 32,36 ----
use C4::Biblio;
! use vars qw($VERSION @ISA @EXPORT);
# set the version for version checking
***************
*** 75,117 ****
&websitesearch &addwebsite &updatewebsite &deletewebsite
);
- %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ],
-
- # your exported package globals go here,
- # as well as any optionally exported functions
-
- @EXPORT_OK = qw($Var1 %Hashit); # FIXME - Unused
-
-
- # non-exported package globals go here
- use vars qw(@more $stuff); # FIXME - Unused
-
- # initalize package globals, first exported ones
- # FIXME - Unused
- my $Var1 = '';
- my %Hashit = ();
-
-
- # then the others (which are still accessible as $Some::Module::stuff)
- # FIXME - Unused
- my $stuff = '';
- my @more = ();
-
- # all file-scoped lexicals must be created before
- # the functions below that use them.
-
- # file-private lexicals go here
- # FIXME - Unused
- my $priv_var = '';
- my %secret_hash = ();
-
- # here's a file-private function as a closure,
- # callable as &$priv_func; it cannot be prototyped.
- # FIXME - Unused
- my $priv_func = sub {
- # stuff goes here.
- };
-
- # make all your functions, whether exported or not;
-
#
--- 73,76 ----
More information about the Koha-cvs
mailing list