X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=updatebibitem.pl;h=67875a6281d18d6e7799ffad7f08d947949ef1e6;hb=5966c6600421afbb99023ce3501e464b20479383;hp=21274f61214292b9498b85f2992405e9b9471c10;hpb=e1d7a8119700acd3dcc7d63b0fcce3a06f79a436;p=koha.git

diff --git a/updatebibitem.pl b/updatebibitem.pl
index 21274f6121..67875a6281 100755
--- a/updatebibitem.pl
+++ b/updatebibitem.pl
@@ -8,52 +8,49 @@ use C4::Output;
 use C4::Search;
 
 my $input= new CGI;
-#print $input->header;
-#print $input->Dump;
 
-
-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 $bibitemnum      = checkinp($input->param('bibitemnum'));
+my $bibnum          = checkinp($input->param('bibnum'));
+my $itemtype        = checkinp($input->param('Item'));
+my $url             = checkinp($input->param('url'));
+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'){
+
+if ($itemtype ne 'NF') {
   $classification=$class;
-}
-if ($class =~/[0-9]+/){
-#   print $class;
+} # if
+
+if ($class =~/[0-9]+/) {
    $dewey= $class;
    $dewey=~ s/[a-z]+//gi;
    my @temp;
-   if ($class =~ /\./){
+   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{
+
+} 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;           
-my $count=@items;
-#print $count;
-my @barcodes;
+} # else
 
+my (@items) = &itemissues($bibitemnum);
+my $count   = @items;
+my @barcodes;
 
 my $existing=$input->param('existing');
 if ($existing eq 'YES'){
@@ -83,11 +80,22 @@ if ($existing eq 'YES'){
    }
    my $loan;
    if ($flag eq 'notall' && $flag2 eq 'leastone'){
-      $bibitemnum = &newbiblioitem({ biblionumber   => $bibnum,
-	                             itemtype       => $itemtype,
-	                             volumeddesc    => $volumeddesc,
-	                             classification => $classification });
-      modbibitem($bibitemnum,$itemtype,$isbn,$publishercode,$publicationdate,$classification,$dewey,$subclass,$illus,$pages,$volumeddesc,$notes,$size,$place);
+      $bibitemnum = &newbiblioitem({
+	  biblionumber    => $bibnum,
+	  itemtype        => $itemtype?$itemtype:"",
+	  url             => $url?$url:"",
+	  isbn            => $isbn?$isbn:"",
+	  publishercode   => $publishercode?$publishercode:"",
+	  publicationyear => $publicationdate?$publicationdate:"",
+	  volumeddesc     => $volumeddesc?$volumeddesc:"",
+	  classification  => $classification?$classification:"",
+	  dewey           => $dewey?$dewey:"",
+	  subclass        => $subclass?$subclass:"",
+	  illus           => $illus?$illus:"",
+	  pages           => $pages?$pages:"",
+	  notes           => $notes?$notes:"",
+	  size            => $size?$size:"",
+	  place           => $place?$place:"" });
       if ($itemtype =~ /REF/){
         $loan=1;
       } else {
@@ -100,7 +108,22 @@ if ($existing eq 'YES'){
       }
       
    } elsif ($flag2 eq 'leastone') {
-      modbibitem($bibitemnum,$itemtype,$isbn,$publishercode,$publicationdate,$classification,$dewey,$subclass,$illus,$pages,$volumeddesc,$notes,$size,$place);
+      &modbibitem({
+	  biblioitemnumber => $bibitemnum,
+	  itemtype         => $itemtype?$itemtype:"",
+	  url              => $url?$url:"",
+	  isbn             => $isbn?$isbn:"",
+	  publishercode    => $publishercode?$publishercode:"",
+	  publicationyear  => $publicationdate?$publicationdate:"",
+	  classification   => $classification?$classification:"",
+	  dewey            => $dewey?$dewey:"",
+	  subclass         => $subclass?$subclass:"",
+	  illus            => $illus?$illus:"",
+	  pages            => $pages?$pages:"",
+	  volumeddesc      => $volumeddesc?$volumeddesc:"",
+	  notes            => $notes?$notes:"",
+	  size             => $size?$size:"",
+	  place            => $place?$place:"" });
       if ($itemtype =~ /REF/){
         $loan=1;
       } else {
@@ -112,7 +135,24 @@ if ($existing eq 'YES'){
 	  }                                                                       
 	}
       
-   }
+   } else {
+     &modbibitem({
+         biblioitemnumber => $bibitemnum,
+	 itemtype         => $itemtype?$itemtype:"",
+	 url              => $url?$url:"",
+	 isbn             => $isbn?$isbn:"",
+	 publishercode    => $publishercode?$publishercode:"",
+         publicationyear  => $publicationdate?$publicationdate:"",
+         classification   => $classification?$classification:"",
+         dewey            => $dewey?$dewey:"",
+         subclass         => $subclass?$subclass:"",
+         illus            => $illus?$illus:"",
+         pages            => $pages?$pages:"",
+         volumeddesc      => $volumeddesc?$volumeddesc:"",
+         notes            => $notes?$notes:"",
+         size             => $size?$size:"",
+         place            => $place?$place:"" });
+   } # else
 }
 print $input->redirect("moredetail.pl?type=intra&bib=$bibnum&bi=$bibitemnum");