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

(-)a/C4/Budgets.pm (-3 / +12 lines)
Lines 916-922 sub CanUserUseBudget { Link Here
916
    my ($borrower, $budget, $userflags) = @_;
916
    my ($borrower, $budget, $userflags) = @_;
917
917
918
    if (not ref $borrower) {
918
    if (not ref $borrower) {
919
        $borrower = Koha::Patrons->find( $borrower )->unblessed;
919
        $borrower = Koha::Patrons->find( $borrower );
920
        if ( $borrower ) {
921
            $borrower = $borrower->unblessed;
922
        } else {
923
            return 0;
924
        }
920
    }
925
    }
921
    if (not ref $budget) {
926
    if (not ref $budget) {
922
        $budget = GetBudget($budget);
927
        $budget = GetBudget($budget);
Lines 999-1005 sub CanUserModifyBudget { Link Here
999
    my ($borrower, $budget, $userflags) = @_;
1004
    my ($borrower, $budget, $userflags) = @_;
1000
1005
1001
    if (not ref $borrower) {
1006
    if (not ref $borrower) {
1002
        $borrower = Koha::Patrons->find( $borrower )->unblessed;
1007
        $borrower = Koha::Patrons->find( $borrower );
1008
        if ( $borrower ) {
1009
            $borrower = $borrower->unblessed;
1010
        } else {
1011
            return 0;
1012
        }
1003
    }
1013
    }
1004
    if (not ref $budget) {
1014
    if (not ref $budget) {
1005
        $budget = GetBudget($budget);
1015
        $budget = GetBudget($budget);
1006
- 

Return to bug 18942