|
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 |
- |
|
|