1 package C4::Circulation::Issues; #asummes C4/Circulation/Issues
3 #package to deal with Issues
4 #written 3/11/99 by chris@katipo.co.nz
12 use C4::Circulation::Main;
13 use C4::Circulation::Borrower;
19 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
21 # set the version for version checking
25 @EXPORT = qw(&Issue &formatitem);
26 %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ],
28 # your exported package globals go here,
29 # as well as any optionally exported functions
31 @EXPORT_OK = qw($Var1 %Hashit);
34 # non-exported package globals go here
35 use vars qw(@more $stuff);
37 # initalize package globals, first exported ones
42 # then the others (which are still accessible as $Some::Module::stuff)
46 # all file-scoped lexicals must be created before
47 # the functions below that use them.
49 # file-private lexicals go here
53 # here's a file-private function as a closure,
54 # callable as &$priv_func; it cannot be prototyped.
59 # make all your functions, whether exported or not;
69 my ($items,$items2,$amountdue);
71 $env->{'sysarea'} = "Issues";
73 while ($done eq "Issues") {
74 my ($bornum,$issuesallowed,$borrower,$reason,$amountdue) = &findborrower($env,$dbh);
75 #C4::Circulation::Borrowers
76 $env->{'loanlength'}="";
79 } elsif ($env->{'IssuesAllowed'} eq '0') {
80 error_msg($env,"No Issues Allowed =$env->{'IssuesAllowed'}");
82 $env->{'bornum'} = $bornum;
83 $env->{'bcard'} = $borrower->{'cardnumber'};
84 #deal with alternative loans
87 C4::Circulation::Main::pastitems($env,$bornum,$dbh); #from Circulation.pm
90 while ($done eq 'No'){
91 ($done,$items2,$it2p,$amountdue,$itemsdet) =
92 &processitems($env,$bornum,$borrower,$items,
93 $items2,$it2p,$amountdue,$itemsdet);
99 Cdk::refreshCdkScreen();
105 #process a users items
106 my ($env,$bornum,$borrower,$items,$items2,$it2p,$amountdue,$itemsdet,$odues)=@_;
108 $env->{'newborrower'} = "";
109 my ($itemnum,$reason) =
110 issuewindow($env,'Issues',$dbh,$items,$items2,$borrower,fmtdec($env,$amountdue,"32"));
112 $reason = "Finished user";
114 my ($item,$charge,$datedue) = &issueitem($env,$dbh,$itemnum,$bornum,$items);
115 if ($datedue ne "") {
116 my $line = formatitem($env,$item,$datedue,$charge);
117 unshift @$items2,$line;
118 #$items2->[$it2p] = $line;
119 $item->{'date_due'} = $datedue;
120 $item->{'charge'} = $charge;
121 $itemsdet->[$it2p] = $item;
123 $amountdue += $charge;
127 #check to see if more books to process for this user
129 if ($env->{'newborrower'} ne "") {$reason = "Finished user";}
130 if ($reason eq 'Finished user'){
131 if (@$items2[0] ne "") {
132 remoteprint($env,$itemsdet,$borrower);
133 if ($amountdue > 0) {
134 &reconcileaccount($env,$dbh,$borrower->{'borrowernumber'},$amountdue);
138 } elsif ($reason eq "Print"){
139 remoteprint($env,$itemsdet,$borrower);
140 @done = ("No",$items2,$it2p);
142 if ($reason ne 'Finished issues'){
143 #return No to let them know that we wish to
144 # process more Items for borrower
145 @done = ("No",$items2,$it2p,$amountdue,$itemsdet);
150 #debug_msg($env, "return from issues $done[0]");
156 my ($env,$item,$datedue,$charge) = @_;
157 my $line = $datedue." ".$item->{'barcode'}." ".$item->{'title'}.": ".$item->{'author'};
158 my $iclass = $item->{'itemtype'};
159 if ($item->{'dewey'} > 0) {
160 my $dewey = $item->{'dewey'};
163 $iclass = $iclass.$dewey.$item->{'subclass'};
165 my $llen = 65 - length($iclass);
166 my $line = fmtstr($env,$line,"L".$llen);
167 my $line = $line." $iclass ";
168 my $line = $line.fmtdec($env,$charge,"22");
173 my ($env,$dbh,$itemnum,$bornum,$items)=@_;
174 $itemnum=uc $itemnum;
176 ## my ($itemnum,$reason)=&scanbook();
177 my $query="Select * from items,biblio,biblioitems where (barcode='$itemnum') and
178 (items.biblionumber=biblio.biblionumber) and
179 (items.biblioitemnumber=biblioitems.biblioitemnumber) ";
182 my $datedue = $env->{'loanlength'};
183 my $sth=$dbh->prepare($query);
185 if ($item=$sth->fetchrow_hashref) {
187 #check if item is restricted
188 if ($item->{'notforloan'} == 1) {
189 error_msg($env,"Item Not for Loan");
191 } elsif ($item->{'wthdrawn'} == 1) {
192 error_msg($env,"Item Withdrawn");
194 # } elsif ($item->{'itemlost'} == 1) {
195 # error_msg($env,"Item Lost");
197 } elsif ($item->{'restricted'} == 1 ){
198 error_msg($env,"Restricted Item");
199 #check borrowers status to take out restricted items
200 # if borrower allowed {
205 } elsif ($item->{'itemtype'} eq 'REF'){
206 error_msg($env,"Item Not for Loan");
209 #check if item is on issue already
210 if ($canissue == 1) {
211 my ($currbor,$issuestat,$newdate) =
212 &C4::Circulation::Main::previousissue($env,$item->{'itemnumber'},$dbh,$bornum);
213 if ($issuestat eq "N") {
215 } elsif ($issuestat eq "R") {
218 $charge = calc_charges($env,$dbh,$item->{'itemnumber'},$bornum);
220 createcharge($env,$dbh,$item->{'itemnumber'},$bornum,$charge);
222 &UpdateStats($env,$env->{'branchcode'},'renew',$charge,'',$item->{'itemnumber'},$item->{'itemtype'});
225 if ($canissue == 1) {
227 my ($resbor,$resrec) = &C4::Circulation::Main::checkreserve($env,$dbh,$item->{'itemnumber'});
228 #debug_msg($env,$resbor);
229 if ($resbor eq $bornum) {
230 my $rquery = "update reserves
232 where reservedate = '$resrec->{'reservedate'}'
233 and borrowernumber = '$resrec->{'borrowernumber'}'
234 and biblionumber = '$resrec->{'biblionumber'}'";
235 my $rsth = $dbh->prepare($rquery);
238 } elsif ($resbor ne "") {
239 my $bquery = "select * from borrowers
240 where borrowernumber = '$resbor'";
241 my $btsh = $dbh->prepare($bquery);
243 my $resborrower = $btsh->fetchrow_hashref;
244 my $msgtxt = chr(7)."Res for $resborrower->{'cardnumber'},";
245 $msgtxt = $msgtxt." $resborrower->{'initials'} $resborrower->{'surname'}";
246 my $ans = msg_ny($env,$msgtxt,"Allow issue?");
249 printreserve($env,$resrec,$resborrower,$item);
252 my $ans = msg_ny($env,"Cancel reserve?");
254 my $rquery = "update reserves
256 where reservedate = '$resrec->{'reservedate'}'
257 and borrowernumber = '$resrec->{'borrowernumber'}'
258 and biblionumber = '$resrec->{'biblionumber'}'";
259 my $rsth = $dbh->prepare($rquery);
267 #if charge deal with it
269 if ($canissue == 1) {
270 $charge = calc_charges($env,$dbh,$item->{'itemnumber'},$bornum);
272 if ($canissue == 1) {
274 $datedue=&updateissues($env,$item->{'itemnumber'},$item->{'biblioitemnumber'},$dbh,$bornum);
275 #debug_msg("","date $datedue");
276 &UpdateStats($env,$env->{'branchcode'},'issue',$charge,'',$item->{'itemnumber'},$item->{'itemtype'});
278 createcharge($env,$dbh,$item->{'itemnumber'},$bornum,$charge);
280 } elsif ($canissue == 0) {
281 info_msg($env,"Can't issue $item->{'cardnumber'}");
284 my $valid = checkdigit($env,$itemnum);
286 if (substr($itemnum,0,1) = "V") {
288 $env->{'newborrower'} = $itemnum;
290 error_msg($env,"$itemnum not found - rescan");
293 error_msg($env,"Invalid Number");
297 #debug_msg($env,"date $datedue");
298 return($item,$charge,$datedue);
302 my ($env,$dbh,$itemno,$bornum,$charge) = @_;
303 my $nextaccntno = getnextacctno($env,$bornum,$dbh);
304 my $query = "insert into accountlines
305 (borrowernumber,itemnumber,accountno,date,amount,
306 description,accounttype,amountoutstanding)
307 values ($bornum,$itemno,$nextaccntno,now(),$charge,'Rental','Rent',$charge)";
308 my $sth = $dbh->prepare($query);
317 my ($env,$itemno,$bitno,$dbh,$bornum)=@_;
319 my $query="Select * from biblioitems,itemtypes
320 where (biblioitems.biblioitemnumber='$bitno')
321 and (biblioitems.itemtype = itemtypes.itemtype)";
322 my $sth=$dbh->prepare($query);
324 if (my $data=$sth->fetchrow_hashref) {
325 $loanlength = $data->{'loanlength'}
329 if ($env->{'loanlength'} eq "") {
331 my $datedue = time + ($loanlength * 86400);
332 my @datearr = localtime($datedue);
333 $dateduef = (1900+$datearr[5])."-".($datearr[4]+1)."-".$datearr[3];
335 $dateduef = $env->{'loanlength'};
337 $query = "Insert into issues (borrowernumber,itemnumber, date_due,branchcode)
338 values ($bornum,$itemno,'$dateduef','$env->{'branchcode'}')";
339 my $sth=$dbh->prepare($query);
342 $query = "Select * from items where itemnumber=$itemno";
343 $sth=$dbh->prepare($query);
345 my $item=$sth->fetchrow_hashref;
348 $query="Update items set issues=$item->{'issues'} where itemnumber=$itemno";
349 $sth=$dbh->prepare($query);
352 #my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($datedue);
353 my @datearr = split('-',$dateduef);
354 my $dateret = join('-',$datearr[2],$datearr[1],$datearr[0]);
355 # debug_msg($env,"query $query");
360 # calculate charges due
361 my ($env, $dbh, $itemno, $bornum)=@_;
364 my $q1 = "select itemtypes.itemtype,rentalcharge from items,biblioitems,itemtypes
365 where (items.itemnumber ='$itemno')
366 and (biblioitems.biblioitemnumber = items.biblioitemnumber)
367 and (biblioitems.itemtype = itemtypes.itemtype)";
368 my $sth1= $dbh->prepare($q1);
370 if (my $data1=$sth1->fetchrow_hashref) {
371 $item_type = $data1->{'itemtype'};
372 $charge = $data1->{'rentalcharge'};
373 my $q2 = "select rentaldiscount from borrowers,categoryitem
374 where (borrowers.borrowernumber = '$bornum')
375 and (borrowers.categorycode = categoryitem.categorycode)
376 and (categoryitem.itemtype = '$item_type')";
377 my $sth2=$dbh->prepare($q2);
379 if (my $data2=$sth2->fetchrow_hashref) {
380 my $discount = $data2->{'rentaldiscount'};
381 $charge = ($charge *(100 - $discount)) / 100;
389 END { } # module clean-up code here (global destructor)