Attachment #10603 for bug #4118

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




    #
    if ( $borrower->{'category_type'} eq 'X' && (  $item->{barcode}  )) { 
    	# stats only borrower -- add entry to statistics table, and return issuingimpossible{STATS} = 1  .
        &UpdateStats(C4::Context->userenv->{'branch'},'localuse','','',$item->{'itemnumber'},$item->{'itemtype'},$borrower->{'borrowernumber'}, undef, $item->{'ccode'});
        ModDateLastSeen( $item->{'itemnumber'} );
        return( { STATS => 1 }, {});
    }

            C4::Context->userenv->{'branch'},
            'issue', $charge,
            ($sipmode ? "SIP-$sipmode" : ''), $item->{'itemnumber'},
            $item->{'itype'}, $borrower->{'borrowernumber'}, undef, $item->{'ccode'}
        );

        # Send a checkout slip.

        $branch, $stat_type, '0', '',
        $item->{'itemnumber'},
        $biblio->{'itemtype'},
        $borrowernumber, undef, $item->{'ccode'}
    );

    # Send a check-in slip. # NOTE: borrower may be undef.  probably shouldn't try to send messages then.

            'Rent', $charge, $itemnumber );
    }
    # Log the renewal
    UpdateStats( $branch, 'renew', $charge, '', $itemnumber, $item->{itype}, $borrowernumber, undef, $item->{'ccode'});
	return $datedue;
}





    my (
        $branch,         $type,
        $amount,   $other,          $itemnum,
        $itemtype, $borrowernumber, $accountno, $ccode
      )
      = @_;
    my $dbh = C4::Context->dbh;
    my $sth = $dbh->prepare(
        "INSERT INTO statistics
        (datetime, branch, type, value,
         other, itemnumber, itemtype, borrowernumber, proccode, ccode)
         VALUES (now(),?,?,?,?,?,?,?,?,?)"
    );
    $sth->execute(
        $branch,    $type,    $amount,
        $other,     $itemnum, $itemtype, $borrowernumber,
		$accountno, $ccode
    );
}

- 

Return to bug 4118

Lines 714-720 sub CanBookBeIssued { Link Here

(-)a/C4/Circulation.pm (-4 / +4 lines)
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

Lines 76-95 sub UpdateStats { Link Here

(-)a/C4/Stats.pm (-5 / +4 lines)
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	-