|
Lines 74-88
if ( C4::Context->preference('NorwegianPatronDBEnable') && C4::Context->preferen
Link Here
|
| 74 |
} |
74 |
} |
| 75 |
} |
75 |
} |
| 76 |
|
76 |
|
| 77 |
my $issues = GetPendingIssues($member); # FIXME: wasteful call when really, we only want the count |
|
|
| 78 |
my $countissues = scalar(@$issues); |
| 79 |
|
| 80 |
my $patron = Koha::Patrons->find( $member ); |
77 |
my $patron = Koha::Patrons->find( $member ); |
|
|
78 |
my $countissues = $patron->pending_checkouts->count; |
| 81 |
my $charges = $patron->account->non_issues_charges; |
79 |
my $charges = $patron->account->non_issues_charges; |
| 82 |
my $userenv = C4::Context->userenv; |
80 |
my $userenv = C4::Context->userenv; |
| 83 |
|
81 |
|
| 84 |
|
|
|
| 85 |
|
| 86 |
if ($patron->category->category_type eq "S") { |
82 |
if ($patron->category->category_type eq "S") { |
| 87 |
unless(C4::Auth::haspermission($userenv->{'id'},{'staffaccess'=>1})) { |
83 |
unless(C4::Auth::haspermission($userenv->{'id'},{'staffaccess'=>1})) { |
| 88 |
print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$member&error=CANT_DELETE_STAFF"); |
84 |
print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$member&error=CANT_DELETE_STAFF"); |
| 89 |
- |
|
|