[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/acqui.simple additem.pl [dev_week]
From: |
Kyle Hall |
Subject: |
[Koha-cvs] koha/acqui.simple additem.pl [dev_week] |
Date: |
Thu, 29 Mar 2007 17:36:38 +0000 |
CVSROOT: /sources/koha
Module name: koha
Branch: dev_week
Changes by: Kyle Hall <kylemhall> 07/03/29 17:36:38
Modified files:
acqui.simple : additem.pl
Log message:
Bugfix: A user could delete a currently issued item, not they cannot.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/acqui.simple/additem.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.27.2.19.2.7&r2=1.27.2.19.2.8
Patches:
Index: additem.pl
===================================================================
RCS file: /sources/koha/koha/acqui.simple/Attic/additem.pl,v
retrieving revision 1.27.2.19.2.7
retrieving revision 1.27.2.19.2.8
diff -u -b -r1.27.2.19.2.7 -r1.27.2.19.2.8
--- additem.pl 7 Oct 2006 19:09:09 -0000 1.27.2.19.2.7
+++ additem.pl 29 Mar 2007 17:36:38 -0000 1.27.2.19.2.8
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: additem.pl,v 1.27.2.19.2.7 2006/10/07 19:09:09 kados Exp $
+# $Id: additem.pl,v 1.27.2.19.2.8 2007/03/29 17:36:38 kylemhall Exp $
#
# Copyright 2000-2002 Katipo Communications
#
@@ -127,7 +127,7 @@
} elsif ($op eq "delitem") {
#------------------------------------------------------------------------------------------------------------------------------
# check that there is no issue on this item before deletion.
- my $sth=$dbh->prepare("select * from issues i where i.returndate is
null and i.itemnumber=?");
+ my $sth = $dbh->prepare("select timestamp from issues where returndate
is null and itemnumber=?");
$sth->execute($itemnum);
my $onloan=$sth->fetchrow;
push @errors,"book_on_loan" if ($onloan); ##error book_on_loan added to
template as well
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] koha/acqui.simple additem.pl [dev_week],
Kyle Hall <=