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

(-)a/C4/Circulation.pm (-4 / +4 lines)
Lines 714-720 sub CanBookBeIssued { Link Here
714
    #
714
    #
715
    if ( $borrower->{'category_type'} eq 'X' && (  $item->{barcode}  )) { 
715
    if ( $borrower->{'category_type'} eq 'X' && (  $item->{barcode}  )) { 
716
    	# stats only borrower -- add entry to statistics table, and return issuingimpossible{STATS} = 1  .
716
    	# stats only borrower -- add entry to statistics table, and return issuingimpossible{STATS} = 1  .
717
        &UpdateStats(C4::Context->userenv->{'branch'},'localuse','','',$item->{'itemnumber'},$item->{'itemtype'},$borrower->{'borrowernumber'});
717
        &UpdateStats(C4::Context->userenv->{'branch'},'localuse','','',$item->{'itemnumber'},$item->{'itemtype'},$borrower->{'borrowernumber'}, undef, $item->{'ccode'});
718
        ModDateLastSeen( $item->{'itemnumber'} );
718
        ModDateLastSeen( $item->{'itemnumber'} );
719
        return( { STATS => 1 }, {});
719
        return( { STATS => 1 }, {});
720
    }
720
    }
Lines 1098-1104 sub AddIssue { Link Here
1098
            C4::Context->userenv->{'branch'},
1098
            C4::Context->userenv->{'branch'},
1099
            'issue', $charge,
1099
            'issue', $charge,
1100
            ($sipmode ? "SIP-$sipmode" : ''), $item->{'itemnumber'},
1100
            ($sipmode ? "SIP-$sipmode" : ''), $item->{'itemnumber'},
1101
            $item->{'itype'}, $borrower->{'borrowernumber'}
1101
            $item->{'itype'}, $borrower->{'borrowernumber'}, undef, $item->{'ccode'}
1102
        );
1102
        );
1103
1103
1104
        # Send a checkout slip.
1104
        # Send a checkout slip.
Lines 1697-1703 sub AddReturn { Link Here
1697
        $branch, $stat_type, '0', '',
1697
        $branch, $stat_type, '0', '',
1698
        $item->{'itemnumber'},
1698
        $item->{'itemnumber'},
1699
        $biblio->{'itemtype'},
1699
        $biblio->{'itemtype'},
1700
        $borrowernumber
1700
        $borrowernumber, undef, $item->{'ccode'}
1701
    );
1701
    );
1702
1702
1703
    # Send a check-in slip. # NOTE: borrower may be undef.  probably shouldn't try to send messages then.
1703
    # Send a check-in slip. # NOTE: borrower may be undef.  probably shouldn't try to send messages then.
Lines 2422-2428 sub AddRenewal { Link Here
2422
            'Rent', $charge, $itemnumber );
2422
            'Rent', $charge, $itemnumber );
2423
    }
2423
    }
2424
    # Log the renewal
2424
    # Log the renewal
2425
    UpdateStats( $branch, 'renew', $charge, '', $itemnumber, $item->{itype}, $borrowernumber);
2425
    UpdateStats( $branch, 'renew', $charge, '', $itemnumber, $item->{itype}, $borrowernumber, undef, $item->{'ccode'});
2426
	return $datedue;
2426
	return $datedue;
2427
}
2427
}
2428
2428
(-)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