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

(-)a/C4/Circulation.pm (-4 / +4 lines)
Lines 685-691 sub CanBookBeIssued { Link Here
685
    #
685
    #
686
    if ( $borrower->{'category_type'} eq 'X' && (  $item->{barcode}  )) { 
686
    if ( $borrower->{'category_type'} eq 'X' && (  $item->{barcode}  )) { 
687
    	# stats only borrower -- add entry to statistics table, and return issuingimpossible{STATS} = 1  .
687
    	# stats only borrower -- add entry to statistics table, and return issuingimpossible{STATS} = 1  .
688
        &UpdateStats(C4::Context->userenv->{'branch'},'localuse','','',$item->{'itemnumber'},$item->{'itemtype'},$borrower->{'borrowernumber'});
688
        &UpdateStats(C4::Context->userenv->{'branch'},'localuse','','',$item->{'itemnumber'},$item->{'itemtype'},$borrower->{'borrowernumber'}, undef, $item->{'ccode'});
689
        return( { STATS => 1 }, {});
689
        return( { STATS => 1 }, {});
690
    }
690
    }
691
    if ( $borrower->{flags}->{GNA} ) {
691
    if ( $borrower->{flags}->{GNA} ) {
Lines 1036-1042 sub AddIssue { Link Here
1036
            C4::Context->userenv->{'branch'},
1036
            C4::Context->userenv->{'branch'},
1037
            'issue', $charge,
1037
            'issue', $charge,
1038
            ($sipmode ? "SIP-$sipmode" : ''), $item->{'itemnumber'},
1038
            ($sipmode ? "SIP-$sipmode" : ''), $item->{'itemnumber'},
1039
            $item->{'itype'}, $borrower->{'borrowernumber'}
1039
            $item->{'itype'}, $borrower->{'borrowernumber'}, undef, $item->{'ccode'}
1040
        );
1040
        );
1041
1041
1042
        # Send a checkout slip.
1042
        # Send a checkout slip.
Lines 1541-1547 sub AddReturn { Link Here
1541
        $branch, 'return', '0', '',
1541
        $branch, 'return', '0', '',
1542
        $item->{'itemnumber'},
1542
        $item->{'itemnumber'},
1543
        $biblio->{'itemtype'},
1543
        $biblio->{'itemtype'},
1544
        $borrowernumber
1544
        $borrowernumber, undef, $item->{'ccode'}
1545
    );
1545
    );
1546
1546
1547
    # Send a check-in slip. # NOTE: borrower may be undef.  probably shouldn't try to send messages then.
1547
    # Send a check-in slip. # NOTE: borrower may be undef.  probably shouldn't try to send messages then.
Lines 2194-2200 sub AddRenewal { Link Here
2194
        $sth->finish;
2194
        $sth->finish;
2195
    }
2195
    }
2196
    # Log the renewal
2196
    # Log the renewal
2197
    UpdateStats( $branch, 'renew', $charge, '', $itemnumber, $item->{itype}, $borrowernumber);
2197
    UpdateStats( $branch, 'renew', $charge, '', $itemnumber, $item->{itype}, $borrowernumber, undef, $item->{'ccode'});
2198
	return $datedue;
2198
	return $datedue;
2199
}
2199
}
2200
2200
(-)a/C4/Stats.pm (-5 / +4 lines)
Lines 76-95 sub UpdateStats { Link Here
76
    my (
76
    my (
77
        $branch,         $type,
77
        $branch,         $type,
78
        $amount,   $other,          $itemnum,
78
        $amount,   $other,          $itemnum,
79
        $itemtype, $borrowernumber, $accountno
79
        $itemtype, $borrowernumber, $accountno, $ccode
80
      )
80
      )
81
      = @_;
81
      = @_;
82
    my $dbh = C4::Context->dbh;
82
    my $dbh = C4::Context->dbh;
83
    my $sth = $dbh->prepare(
83
    my $sth = $dbh->prepare(
84
        "INSERT INTO statistics
84
        "INSERT INTO statistics
85
        (datetime, branch, type, value,
85
        (datetime, branch, type, value,
86
         other, itemnumber, itemtype, borrowernumber, proccode)
86
         other, itemnumber, itemtype, borrowernumber, proccode, ccode)
87
         VALUES (now(),?,?,?,?,?,?,?,?)"
87
         VALUES (now(),?,?,?,?,?,?,?,?,?)"
88
    );
88
    );
89
    $sth->execute(
89
    $sth->execute(
90
        $branch,    $type,    $amount,
90
        $branch,    $type,    $amount,
91
        $other,     $itemnum, $itemtype, $borrowernumber,
91
        $other,     $itemnum, $itemtype, $borrowernumber,
92
		$accountno
92
		$accountno, $ccode
93
    );
93
    );
94
}
94
}
95
95
96
- 

Return to bug 4118