View | Details | Raw Unified | Return to bug 9351
Collapse All | Expand All

(-)a/C4/Circulation.pm (-5 / +2 lines)
Lines 703-709 sub CanBookBeIssued { Link Here
703
    my $item = GetItem(GetItemnumberFromBarcode( $barcode ));
703
    my $item = GetItem(GetItemnumberFromBarcode( $barcode ));
704
    my $issue = GetItemIssue($item->{itemnumber});
704
    my $issue = GetItemIssue($item->{itemnumber});
705
	my $biblioitem = GetBiblioItemData($item->{biblioitemnumber});
705
	my $biblioitem = GetBiblioItemData($item->{biblioitemnumber});
706
	$item->{'itemtype'}=$item->{'itype'}; 
706
    $item->{'itemtype'}=$item->{'itype'}; #TODO maybe useless
707
    my $dbh             = C4::Context->dbh;
707
    my $dbh             = C4::Context->dbh;
708
708
709
    # MANDATORY CHECKS - unless item exists, nothing else matters
709
    # MANDATORY CHECKS - unless item exists, nothing else matters
Lines 1745-1751 sub AddReturn { Link Here
1745
    $branch = C4::Context->userenv->{'branch'} unless $branch;  # we trust userenv to be a safe fallback/default
1745
    $branch = C4::Context->userenv->{'branch'} unless $branch;  # we trust userenv to be a safe fallback/default
1746
    my $messages;
1746
    my $messages;
1747
    my $borrower;
1747
    my $borrower;
1748
    my $biblio;
1749
    my $doreturn       = 1;
1748
    my $doreturn       = 1;
1750
    my $validTransfert = 0;
1749
    my $validTransfert = 0;
1751
    my $stat_type = 'return';
1750
    my $stat_type = 'return';
Lines 1983-1994 sub AddReturn { Link Here
1983
    }
1982
    }
1984
1983
1985
    # Record the fact that this book was returned.
1984
    # Record the fact that this book was returned.
1986
    # FIXME itemtype should record item level type, not bibliolevel type
1987
    UpdateStats({
1985
    UpdateStats({
1988
                branch => $branch,
1986
                branch => $branch,
1989
                type => $stat_type,
1987
                type => $stat_type,
1990
                itemnumber => $item->{'itemnumber'},
1988
                itemnumber => $item->{'itemnumber'},
1991
                itemtype => $biblio->{'itype'},
1989
                itemtype => $item->{'itype'},
1992
                borrowernumber => $borrowernumber,
1990
                borrowernumber => $borrowernumber,
1993
                ccode => $item->{'ccode'}}
1991
                ccode => $item->{'ccode'}}
1994
    );
1992
    );
1995
- 

Return to bug 9351