bug fix to actually save the changes made to an website biblioitem.

diff --git a/C4/Acquisitions.pm b/C4/Acquisitions.pm
index fd137de..dbf4b4d 100644 (file)
--- a/C4/Acquisitions.pm
+++ b/C4/Acquisitions.pm
@@ -570,6 +570,7 @@ sub modbibitem {
     my $query;
 
     $biblioitem->{'itemtype'}        = $dbh->quote($biblioitem->{'itemtype'});
+    $biblioitem->{'url'}             = $dbh->quote($biblioitem->{'url'});
     $biblioitem->{'isbn'}            = $dbh->quote($biblioitem->{'isbn'});
     $biblioitem->{'publishercode'}   = $dbh->quote($biblioitem->{'publishercode'});
     $biblioitem->{'publicationyear'} = $dbh->quote($biblioitem->{'publicationyear'});
@@ -585,6 +586,7 @@ sub modbibitem {
 
     $query = "Update biblioitems set
 itemtype        = $biblioitem->{'itemtype'},
+url             = $biblioitem->{'url'},
 isbn            = $biblioitem->{'isbn'},
 publishercode   = $biblioitem->{'publishercode'},
 publicationyear = $biblioitem->{'publicationyear'},

diff --git a/updatebibitem.pl b/updatebibitem.pl
index 9d1d4ff..67875a6 100755 (executable)
--- a/updatebibitem.pl
+++ b/updatebibitem.pl
@@ -17,6 +17,12 @@ 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;
@@ -42,12 +48,6 @@ if ($class =~/[0-9]+/) {
   $subclass='';
 } # 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;
@@ -111,6 +111,7 @@ if ($existing eq 'YES'){
       &modbibitem({
          biblioitemnumber => $bibitemnum,
          itemtype         => $itemtype?$itemtype:"",
+         url              => $url?$url:"",
          isbn             => $isbn?$isbn:"",
          publishercode    => $publishercode?$publishercode:"",
          publicationyear  => $publicationdate?$publicationdate:"",
@@ -134,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");