[Koha-cvs] CVS: koha updatebibitem.pl,1.4.2.1,1.4.2.2

[Paul POULAIN]

Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv28080

Modified Files:
      Tag: rel-1-2
	updatebibitem.pl 
Log Message:
merging 1.2 and main. Only cosmetic changes (spaces, comments) and move from parameter reading


Index: updatebibitem.pl
===================================================================
RCS file: /cvsroot/koha/koha/updatebibitem.pl,v
retrieving revision 1.4.2.1
retrieving revision 1.4.2.2
diff -C2 -r1.4.2.1 -r1.4.2.2
*** updatebibitem.pl	14 Jun 2002 21:20:26 -0000	1.4.2.1
--- updatebibitem.pl	28 Jun 2002 12:53:46 -0000	1.4.2.2
***************
*** 14,53 ****
  
  
! my $bibitemnum=checkinp($input->param('bibitemnum'));
! my $bibnum=checkinp($input->param('bibnum'));
! my $itemtype=checkinp($input->param('Item'));
! my $isbn=checkinp($input->param('ISBN'));
! my $publishercode=checkinp($input->param('Publisher'));
! my $publicationdate=checkinp($input->param('Publication'));
! my $class=checkinp($input->param('Class'));
  my $classification;
  my $dewey;
  my $subclass;
! if ($itemtype ne 'NF'){
    $classification=$class;
! }
! if ($class =~/[0-9]+/){
  #   print $class;
     $dewey= $class;
     $dewey=~ s/[a-z]+//gi;
     my @temp;
!    if ($class =~ /\./){
       @temp=split(/[0-9]+\.[0-9]+/,$class);
     } else {
       @temp=split(/[0-9]+/,$class);
!    }
     $classification=$temp[0];
     $subclass=$temp[1];
  #   print $classification,$dewey,$subclass;
! }else{
    $dewey='';
    $subclass='';
! }
! my $illus=checkinp($input->param('Illustrations'));
! my $pages=checkinp($input->param('Pages'));
! my $volumeddesc=checkinp($input->param('Volume'));
! my $notes=checkinp($input->param('Notes'));
! my $size=checkinp($input->param('Size'));
! my $place=checkinp($input->param('Place'));
  my (@items)=itemissues($bibitemnum);
  #print @items;           
--- 14,56 ----
  
  
! my $bibitemnum      = checkinp($input->param('bibitemnum'));
! my $bibnum          = checkinp($input->param('bibnum'));
! my $itemtype        = checkinp($input->param('Item'));
! my $isbn            = checkinp($input->param('ISBN'));
! my $publishercode   = checkinp($input->param('Publisher'));
! my $publicationdate = checkinp($input->param('Publication'));
! my $class           = checkinp($input->param('Class'));
! my $illus           = checkinp($input->param('Illustrations'));
! my $pages           = checkinp($input->param('Pages'));
! my $volumeddesc     = checkinp($input->param('Volume'));
! my $notes           = checkinp($input->param('Notes'));
! my $size            = checkinp($input->param('Size'));
! my $place           = checkinp($input->param('Place'));
  my $classification;
  my $dewey;
  my $subclass;
! 
! if ($itemtype ne 'NF') {
    $classification=$class;
! } # if
! 
! if ($class =~/[0-9]+/) {
  #   print $class;
     $dewey= $class;
     $dewey=~ s/[a-z]+//gi;
     my @temp;
!    if ($class =~ /\./) {
       @temp=split(/[0-9]+\.[0-9]+/,$class);
     } else {
       @temp=split(/[0-9]+/,$class);
!    } # else
     $classification=$temp[0];
     $subclass=$temp[1];
  #   print $classification,$dewey,$subclass;
! } else {
    $dewey='';
    $subclass='';
! } # else
! 
  my (@items)=itemissues($bibitemnum);
  #print @items;