[Koha-devel] RE: Some script for item deletion - ambiguity

[Tümer Garip]

Hi,
Ther was an ambiguity in my previous mail. Sorry.

The first line should read:
We noticed that the librarian can actaully delete an item (by mistake or
while correcting some biblios) even the book is ON LOAN !

-----Original Message-----
From: Tümer Garip [mailto:tgarip at neu.edu.tr] 
Sent: Wednesday, March 01, 2006 3:56 PM
To: 'paul at koha-fr.org'
Cc: 'koha-devel at nongnu.org'
Subject: Some script for item deletion - suggestion


Hi Paul,

We noticed that the librarian can actaully delete an item (by mistake or
while correcting some biblios). Although KOHA keeps records of deleted
items its too much work trying to retrive it. So we think KOHA should
prevent deletion of such items. We have added the following script to
additem.pl


} elsif ($op eq "delitem") {
#-----------------------------------------------------------------------
-------------------------------------------------------
# retrieve item if exist => then, it's a modif
+ my $sth=$dbh->prepare("select * from issues i where i.returndate is 
+null and i.itemnumber=?"); 
+ $sth->execute($itemnum);
+ my $onloan=$sth->fetchrow; 
+ push @errors,"book_on_loan" if ($onloan); 
+##error book_on_loan added to template as well
+	if ($onloan){
+	$nextop = "additem";
+ }else{
+	&NEWdelitem($dbh,$bibid,$itemnum);
+	$nextop="additem";
+ }

We also believe a similar code should be inserted to addbiblio.pl as
well

If you think the sameway can you please commit these, thanks

Tumer