8 use C4::Circulation::Circ2;
14 my $bibnum=checkinp($input->param('bibnum'));
15 my $itemnum=checkinp($input->param('itemnumber'));
16 my $copyright=checkinp($input->param('Copyright'));
17 my $seriestitle=checkinp($input->param('Series'));
18 my $serial=checkinp($input->param('Serial'));
19 my $unititle=checkinp($input->param('Unititle'));
20 my $notes=checkinp($input->param('ItemNotes'));
22 #need to do barcode check
23 my $barcode=$input->param('Barcode');
25 my $bibitemnum=checkinp($input->param('bibitemnum'));
26 my $itemtype=checkinp($input->param('Item'));
27 my $isbn=checkinp($input->param('ISBN'));
28 my $publishercode=checkinp($input->param('Publisher'));
29 my $publicationdate=checkinp($input->param('Publication'));
30 my $class=checkinp($input->param('Class'));
31 my $homebranch=checkinp($input->param('Home'));
32 my $lost=$input->param('Lost');
33 my $wthdrawn=$input->param('withdrawn');
37 my $override=$input->param('override');
38 if ($itemtype ne 'NF'){
39 $classification=$class;
41 if ($class =~/[0-9]+/){
43 $dewey=~ s/[a-z]+//gi;
46 @temp=split(/[0-9]+\.[0-9]+/,$class);
48 @temp=split(/[0-9]+/,$class);
50 $classification=$temp[0];
55 my $illus=checkinp($input->param('Illustrations'));
56 my $pages=checkinp($input->param('Pages'));
57 my $volumeddesc=checkinp($input->param('Volume'));
59 if ($wthdrawn == 0 && $override ne 'yes'){
60 moditem('loan',$itemnum,$bibitemnum,$barcode,$notes,$homebranch,$lost,$wthdrawn);
63 my $sth=$dbh->prepare("Select * from issues where (itemnumber='$itemnum') and (returndate is null)");
65 my $data=$sth->fetchrow_hashref;
66 if ($data->{'borrowernumber'} ne '') {
67 #item on issue add replacement cost to borrowers record
68 my $accountno=getnextacctno($env,$data->{'borrowernumber'},$dbh);
69 my $item=getiteminformation($env, $itemnum);
70 my $account="Insert into accountlines
71 (borrowernumber,accountno,date,amount,description,accounttype,amountoutstanding,itemnumber)
73 ('$data->{'borrowernumber'}','$accountno',now(),'$item->{'replacementprice'}',
74 'Lost Item $item->{'title'} $item->{'barcode'}','L',
75 '$item->{'replacementprice'}','$itemnum')";
76 my $sth2=$dbh->prepare($account);
77 # print $input->header;
84 print $input->redirect("moredetail.pl?type=intra&bib=$bibnum&bi=$bibitemnum");
87 # print "marking cancelled";
88 #need to check if it is on reserve or issued
91 my ($resbor,$resrec)=C4::Circulation::Circ2::checkreserve($env,$dbh,$itemnum);
95 print "The biblio or biblioitem this item belongs to has a reserve on it";
98 my $sth=$dbh->prepare("Select * from issues where (itemnumber='$itemnum') and (returndate is null)");
100 my $data=$sth->fetchrow_hashref;
101 if ($data->{'borrowernumber'} ne '') {
102 print $input->header;
103 print "<p>Item is on issue";
109 my $url=$input->self_url;
110 $url.="&override=yes";
111 print "<p> <a href=$url>Cancel Anyway</a> or <a href=\"\">Back</a>";
113 moditem('loan',$itemnum,$bibitemnum,$barcode,$notes,$homebranch,$lost,$wthdrawn);
114 print $input->redirect("moredetail.pl?type=intra&bib=$bibnum&bi=$bibitemnum");