|
Lines 552-562
if ( $op eq 'cud-change-framework' ) {
Link Here
|
| 552 |
} |
552 |
} |
| 553 |
|
553 |
|
| 554 |
my $dbh = C4::Context->dbh; |
554 |
my $dbh = C4::Context->dbh; |
|
|
555 |
my $authobj = Koha::Authorities->find($authid); |
| 556 |
if ( defined $authid && !$authid || $authid && !$authobj ) { |
| 557 |
print $input->redirect("/cgi-bin/koha/errors/404.pl"); # escape early |
| 558 |
exit; |
| 559 |
} |
| 555 |
if(!$authtypecode) { |
560 |
if(!$authtypecode) { |
| 556 |
$authtypecode = $authid ? Koha::Authorities->find($authid)->authtypecode : ''; |
561 |
$authtypecode = $authid ? $authobj->authtypecode : ''; |
| 557 |
} |
562 |
} |
| 558 |
|
563 |
|
| 559 |
my $authobj = Koha::Authorities->find($authid); |
|
|
| 560 |
my $count = $authobj ? $authobj->get_usage_count : 0; |
564 |
my $count = $authobj ? $authobj->get_usage_count : 0; |
| 561 |
|
565 |
|
| 562 |
my ($template, $loggedinuser, $cookie) |
566 |
my ($template, $loggedinuser, $cookie) |
| 563 |
- |
|
|