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