[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