From 69b5cabe5beaf722be7d42738b391cf87ed0a347 Mon Sep 17 00:00:00 2001
From: chris <chris>
Date: Wed, 21 Jun 2000 23:13:09 +0000
Subject: [PATCH] place going

---
 C4/Acquisitions.pm | 5 ++---
 moredetail.pl      | 2 +-
 updatebibitem.pl   | 6 +++---
 3 files changed, 6 insertions(+), 7 deletions(-)

diff --git a/C4/Acquisitions.pm b/C4/Acquisitions.pm
index aa02d21..467166c 100644
--- a/C4/Acquisitions.pm
+++ b/C4/Acquisitions.pm
@@ -405,13 +405,12 @@ sub modsubject {
 }
 
 sub modbibitem {
-  my
-($bibitemnum,$itemtype,$isbn,$publishercode,$publicationdate,$classification,$dewey,$subclass,$illus,$pages,$volumeddesc,$notes,$size)=@_;
+  my ($bibitemnum,$itemtype,$isbn,$publishercode,$publicationdate,$classification,$dewey,$subclass,$illus,$pages,$volumeddesc,$notes,$size,$place)=@_;
   my $dbh=C4Connect;
   my $query="update biblioitems set itemtype='$itemtype',
   isbn='$isbn',publishercode='$publishercode',publicationyear='$publicationdate',
   classification='$classification',dewey='$dewey',subclass='$subclass',illus='$illus',
-  pages='$pages',volumeddesc='$volumeddesc',notes='$notes',size='$size'
+  pages='$pages',volumeddesc='$volumeddesc',notes='$notes',size='$size',place='$place'
   where
   biblioitemnumber=$bibitemnum";
   my $sth=$dbh->prepare($query);
diff --git a/moredetail.pl b/moredetail.pl
index 36745ea..5b015b7 100755
--- a/moredetail.pl
+++ b/moredetail.pl
@@ -74,7 +74,7 @@ print <<printend
 <b>Classification:</b> $data->{'classification'}$dewey$data->{'subclass'}<br>
 <b>ISBN:</b> $data->{'isbn'}<br>
 <b>Publisher:</b> $data->{'publishercode'} <br>
-<b>Place:</b><br>
+<b>Place:</b> $data->{'place'}<br>
 <b>Date:</b> $data->{'publicationyear'}<br>
 <b>Volume:</b> $data->{'volumeddesc'}<br>
 <b>Pages:</b> $data->{'pages'}<br>
diff --git a/updatebibitem.pl b/updatebibitem.pl
index 36bd871..9687c8c 100755
--- a/updatebibitem.pl
+++ b/updatebibitem.pl
@@ -46,7 +46,7 @@ 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;
@@ -82,7 +82,7 @@ if ($existing eq 'YES'){
    my $loan;
    if ($flag eq 'notall' && $flag2 eq 'leastone'){
       $bibitemnum=newbiblioitem($bibnum,$itemtype,$volumeddesc,$classification);
-      modbibitem($bibitemnum,$itemtype,$isbn,$publishercode,$publicationdate,$classification,$dewey,$subclass,$illus,$pages,$volumeddesc,$notes,$size);
+      modbibitem($bibitemnum,$itemtype,$isbn,$publishercode,$publicationdate,$classification,$dewey,$subclass,$illus,$pages,$volumeddesc,$notes,$size,$place);
       if ($itemtype =~ /REF/){
         $loan=1;
       } else {
@@ -95,7 +95,7 @@ if ($existing eq 'YES'){
       }
       
    } elsif ($flag2 eq 'leastone') {
-      modbibitem($bibitemnum,$itemtype,$isbn,$publishercode,$publicationdate,$classification,$dewey,$subclass,$illus,$pages,$volumeddesc,$notes,$size);
+      modbibitem($bibitemnum,$itemtype,$isbn,$publishercode,$publicationdate,$classification,$dewey,$subclass,$illus,$pages,$volumeddesc,$notes,$size,$place);
       if ($itemtype =~ /REF/){
         $loan=1;
       } else {