[Koha-cvs] CVS: koha updatebibitem.pl,1.6,1.7
Paul POULAIN
tipaul at users.sourceforge.net
Fri Jun 28 14:53:04 CEST 2002
Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv27954
Modified Files:
updatebibitem.pl
Log Message:
merging 1.2 and main branches
Index: updatebibitem.pl
===================================================================
RCS file: /cvsroot/koha/koha/updatebibitem.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** updatebibitem.pl 13 May 2002 00:45:46 -0000 1.6
--- updatebibitem.pl 28 Jun 2002 12:53:02 -0000 1.7
***************
*** 9,12 ****
--- 9,14 ----
my $input= new CGI;
+ #print $input->header;
+ #print $input->Dump;
my $bibitemnum = checkinp($input->param('bibitemnum'));
***************
*** 33,36 ****
--- 35,39 ----
if ($class =~/[0-9]+/) {
+ # print $class;
$dewey= $class;
$dewey=~ s/[a-z]+//gi;
***************
*** 43,47 ****
$classification=$temp[0];
$subclass=$temp[1];
!
} else {
$dewey='';
--- 46,50 ----
$classification=$temp[0];
$subclass=$temp[1];
! # print $classification,$dewey,$subclass;
} else {
$dewey='';
***************
*** 50,54 ****
--- 53,59 ----
my (@items) = &itemissues($bibitemnum);
+ #print @items;
my $count = @items;
+ #print $count;
my @barcodes;
More information about the Koha-cvs
mailing list