[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha request.pl,1.12,1.13
From: |
Finlay Thompson |
Subject: |
[Koha-cvs] CVS: koha request.pl,1.12,1.13 |
Date: |
Wed, 21 Aug 2002 21:45:09 -0700 |
Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv6110
Modified Files:
request.pl
Log Message:
another little tinker. long overdues are now requestable.
Index: request.pl
===================================================================
RCS file: /cvsroot/koha/koha/request.pl,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -r1.12 -r1.13
*** request.pl 22 Aug 2002 02:31:58 -0000 1.12
--- request.pl 22 Aug 2002 04:45:07 -0000 1.13
***************
*** 84,88 ****
$data[$i]->{'dewey'}="" if ($data[$i]->{'dewey'} == 0);
- warn "Itemlost: $data[$i]->{itemlost} \n";
$data[$i]->{'volumeddesc'} = " " unless $data[$i]->{'volumeddesc'};
$data[$i]->{'dewey'}=~ s/\.0000$//;
--- 84,87 ----
***************
*** 91,96 ****
my $select;
if (($data[$i]->{'notforloan'})
! || ($data[$i]->{'itemlost'} == 1)
! || ($data[$i]->{'itemlost'} == 2)) {
$select = "Cannot be reserved.";
} else {
--- 90,94 ----
my $select;
if (($data[$i]->{'notforloan'})
! || ($data[$i]->{'itemlost'} == 1)) {
$select = "Cannot be reserved.";
} else {
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha request.pl,1.12,1.13,
Finlay Thompson <=