[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha moditem.pl,1.1.1.1.2.3,1.1.1.1.2.4 updateitem.pl,1.
From: |
Steve Tonnesen |
Subject: |
[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 |
Date: |
Tue, 29 Oct 2002 22:39:25 -0800 |
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;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [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 <=