[Koha-cvs] CVS: koha moditem.pl,1.1.1.1.2.3,1.1.1.1.2.4 updateitem.pl,1.2.2.2,1.2.2.3

[Steve Tonnesen]

Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv30971

Modified Files:
      Tag: rel-1-2
	moditem.pl updateitem.pl 
Log Message:
Added ability to modify replacement price on items.


Index: moditem.pl
===================================================================
RCS file: /cvsroot/koha/koha/moditem.pl,v
retrieving revision 1.1.1.1.2.3
retrieving revision 1.1.1.1.2.4
diff -C2 -r1.1.1.1.2.3 -r1.1.1.1.2.4
*** moditem.pl	11 Sep 2002 21:28:28 -0000	1.1.1.1.2.3
--- moditem.pl	30 Oct 2002 06:39:22 -0000	1.1.1.1.2.4
***************
*** 97,103 ****
--- 97,106 ----
  <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 ";

Index: updateitem.pl
===================================================================
RCS file: /cvsroot/koha/koha/updateitem.pl,v
retrieving revision 1.2.2.2
retrieving revision 1.2.2.3
diff -C2 -r1.2.2.2 -r1.2.2.3
*** updateitem.pl	9 Sep 2002 19:45:40 -0000	1.2.2.2
--- updateitem.pl	30 Oct 2002 06:39:22 -0000	1.2.2.3
***************
*** 37,40 ****
--- 37,41 ----
  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');
***************
*** 65,69 ****
  
  if ($wthdrawn == 0 && $override ne 'yes'){
!   moditem('loan',$itemnum,$bibitemnum,$barcode,$notes,$homebranch,$lost,$wthdrawn);
    if ($lost ==1){
      my $dbh=C4Connect;
--- 66,70 ----
  
  if ($wthdrawn == 0 && $override ne 'yes'){
!   moditem('loan',$itemnum,$bibitemnum,$barcode,$notes,$homebranch,$lost,$wthdrawn,$replacementprice);
    if ($lost ==1){
      my $dbh=C4Connect;