gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

revert to sql in updateitem.pl 

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
Ryan Higgins 2007-12-16 18:43:01 -06:00 committed by Joshua Ferraro
parent a8d672c77a
commit f768cd6108
1 changed files with 5 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
catalogue/updateitem.pl
View File

@ -62,17 +62,12 @@ if ( $itemnotes ne $item_data_hashref->{'itemnotes'}) {
# FIXME: eventually we'll use Biblio.pm, but it's currently too buggy (is this current ??)
#ModItem( $dbh,'',$biblionumber,$itemnumber,'',$item_hashref );
$newitemdata->{'itemnumber'} = $itemnumber;
&C4::Biblio::_koha_modify_item($dbh,$newitemdata);
#$sth = $dbh->prepare("UPDATE items SET wthdrawn=?,itemlost=?,damaged=? WHERE itemnumber=?");
#$sth->execute($wthdrawn,$itemlost,$damaged,$itemnumber);
# &C4::Biblio::_koha_modify_item($dbh,$newitemdata);
# check reservations (why ?)
#my ($status, $reserve) = CheckReserves($itemnumber, $item_data_hashref->{'barcode'});
#if ($reserve){
## #print $cgi->header;
# warn "Reservation found on item $itemnumber";
#exit;
#}
$sth = $dbh->prepare("UPDATE items SET wthdrawn=?,itemlost=?,damaged=?,itemnotes=? WHERE itemnumber=?");
$sth->execute($wthdrawn,$itemlost,$damaged,$itemnotes,$itemnumber);
&ModZebra($biblionumber,"specialUpdate","biblioserver");
# check issues iff itemlost.
# FIXME : is there documentation or enforcement that itemlost value must be '1'? if no replacement price, then borrower just doesn't get charged?
if ($itemlost==1) {