Changes to allow modifications to the website biblioitems

[koha_gimpoz] / updatebibitem.pl

diff --git a/updatebibitem.pl b/updatebibitem.pl
index 21274f6..9d1d4ff 100755 (executable)
--- 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 $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 $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);
+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,21 @@ 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:"",
+         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 {