[Koha-cvs] koha/acqui.simple additem.pl [dev_week]

[Kyle Hall]

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