|
Lines 553-559
if ( $op eq 'cud-change-framework' ) {
Link Here
|
| 553 |
|
553 |
|
| 554 |
my $dbh = C4::Context->dbh; |
554 |
my $dbh = C4::Context->dbh; |
| 555 |
my $authobj = Koha::Authorities->find($authid); |
555 |
my $authobj = Koha::Authorities->find($authid); |
| 556 |
if ( defined $authid && !$authid || $authid && !$authobj ) { |
556 |
if ( defined $authid && !$authobj ) { |
| 557 |
print $input->redirect("/cgi-bin/koha/errors/404.pl"); # escape early |
557 |
print $input->redirect("/cgi-bin/koha/errors/404.pl"); # escape early |
| 558 |
exit; |
558 |
exit; |
| 559 |
} |
559 |
} |
| 560 |
- |
|
|