From da5071c2fdd903553a7fa9c0d5f9a5532bc6e15e Mon Sep 17 00:00:00 2001
From: truth_nz <truth_nz>
Date: Mon, 13 May 2002 00:45:46 +0000
Subject: [PATCH] bug fix to actually save the changes made to an website
 biblioitem.

---
 C4/Acquisitions.pm |  2 ++
 updatebibitem.pl   | 32 +++++++++++++++++++++++++-------
 2 files changed, 27 insertions(+), 7 deletions(-)

diff --git a/C4/Acquisitions.pm b/C4/Acquisitions.pm
index fd137de760..dbf4b4d7bc 100644
--- 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 9d1d4ffebc..67875a6281 100755
--- 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");
 
-- 
2.39.2