[Koha-cvs] CVS: koha updatebibitem.pl,1.6,1.7

[Paul POULAIN]

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;