From b90b6d9feec1717081d8ae7da0529917f60bf8fc Mon Sep 17 00:00:00 2001
From: tonnesen <tonnesen>
Date: Wed, 30 Oct 2002 06:39:22 +0000
Subject: [PATCH] Added ability to modify replacement price on items.

---
 moditem.pl    | 3 +++
 updateitem.pl | 3 ++-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/moditem.pl b/moditem.pl
index 95dd7fd347..9c819a022b 100755
--- a/moditem.pl
+++ b/moditem.pl
@@ -96,9 +96,12 @@ print <<printend
 <tr valign=top bgcolor=white><td>ItemNotes</td><td><textarea name=ItemNotes cols=40 rows=4>$item->{'itemnotes'}</textarea></td></tr>
 <input type=hidden name=Volume value="$data->{'volumeddesc'}">
 <tr valign=top bgcolor=white><td>Home Branch</td><td><input type=text name=Home Branch value="$item->{'homebranch'}" size=40></td></tr>
+<tr valign=top bgcolor=white><td>Replacement Price</td><td><input type=text name=replacementprice value="$item->{replacementprice}" size=6></td></tr>
 <tr valign=top bgcolor=white><td>Lost</td><td><input type=radio name=Lost value=1
 printend
 ;
+
+
 if ($item->{'itemlost'} ==1){
   print " checked ";
 }
diff --git a/updateitem.pl b/updateitem.pl
index 63845819e7..723017ec9b 100755
--- a/updateitem.pl
+++ b/updateitem.pl
@@ -36,6 +36,7 @@ my $publishercode=checkinp($input->param('Publisher'));
 my $publicationdate=checkinp($input->param('Publication'));
 my $class=checkinp($input->param('Class'));
 my $homebranch=checkinp($input->param('Home'));
+my $replacementprice=$input->param('replacementprice');
 my $lost=$input->param('Lost');
 my $wthdrawn=$input->param('withdrawn');
 my $classification;
@@ -64,7 +65,7 @@ my $pages=checkinp($input->param('Pages'));
 my $volumeddesc=checkinp($input->param('Volume'));
 
 if ($wthdrawn == 0 && $override ne 'yes'){
-  moditem('loan',$itemnum,$bibitemnum,$barcode,$notes,$homebranch,$lost,$wthdrawn);
+  moditem('loan',$itemnum,$bibitemnum,$barcode,$notes,$homebranch,$lost,$wthdrawn,$replacementprice);
   if ($lost ==1){
     my $dbh=C4Connect;
     my $sth=$dbh->prepare("Select * from issues where (itemnumber='$itemnum') and (returndate is null)");
-- 
2.39.5