Browse Source

Fixing bug in Issues

master
olwen 22 years ago
parent
commit
16d1b6ceb1
  1. 11
      C4/Circulation/Issues.pm
  2. 6
      C4/Search.pm

11
C4/Circulation/Issues.pm

@ -108,17 +108,6 @@ sub processitems {
my ($item,$charge,$datedue) = &issueitem($env,$dbh,$itemnum,$bornum,$items);
if ($datedue ne "") {
my $line = formatitem($env,$item,$datedue,$charge);
#$datedue." ".$item->{'title'}.", ".$item->{'author'};
#my $iclass = $item->{'itemtype'};
#if ($item->{'dewey'} > 0) {
# $iclass = $iclass.$item->{'dewey'}.$item->{'subclass'};
#};
#my $llen = 65 - length($iclass);
#my $line = fmtstr($env,$line,"L".$llen);
#my $line = $line." $iclass ";
#my $line = $line.fmtdec($env,$charge,"22");
#$items2->[$it2p] = $datedue." ".
# fmtstr($env,$item->{'title'},"L55")." ".fmtdec($env,$charge,"22");
$items2->[$it2p] = $line;
$it2p++;
$amountdue += $charge;

6
C4/Search.pm

@ -313,9 +313,9 @@ sub bibdata {
sub itemnodata {
my ($env,$dbh,$itemnumber) = @_;
my $query="Select * from biblio,items,biblioitems
where itemnumber = '$itemnumber'
and biblio.biblionumber = items.itemnumber
and biblioitems.biblionumber = items.biblionumber";
where items.itemnumber = '$itemnumber'
and biblio.biblionumber = items.biblionumber
and biblioitems.biblioitemnumber = items.biblioitemnumber";
my $sth=$dbh->prepare($query);
$sth->execute;
my $data=$sth->fetchrow_hashref;

Loading…
Cancel
Save