Fix for Bug 4121, Cataloging record modification should obey IntranetBiblioDefaultView pref

- Re-used redirect logic found in search.pl

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
This commit is contained in:
Owen Leonard 2010-02-05 10:45:10 -05:00 committed by Galen Charlton
parent 6a734cc9e7
commit 2dd58a4369

View file

@ -936,9 +936,17 @@ if ( $op eq "addbiblio" ) {
exit; exit;
} }
elsif($is_a_modif){ elsif($is_a_modif){
print $input->redirect( my $defaultview = C4::Context->preference('IntranetBiblioDefaultView');
"/cgi-bin/koha/catalogue/MARCdetail.pl?biblionumber=$biblionumber&frameworkcode=$frameworkcode" my $views = { C4::Search::enabled_staff_search_views };
); if ($defaultview eq 'isbd' && $views->{can_view_ISBD}) {
print $input->redirect("/cgi-bin/koha/catalogue/ISBDdetail.pl?biblionumber=$biblionumber");
} elsif ($defaultview eq 'marc' && $views->{can_view_MARC}) {
print $input->redirect("/cgi-bin/koha/catalogue/MARCdetail.pl?biblionumber=$biblionumber&frameworkcode=$frameworkcode");
} elsif ($defaultview eq 'labeled_marc' && $views->{can_view_labeledMARC}) {
print $input->redirect("/cgi-bin/koha/catalogue/labeledMARCdetail.pl?biblionumber=$biblionumber");
} else {
print $input->redirect("/cgi-bin/koha/catalogue/detail.pl?biblionumber=$biblionumber");
}
exit; exit;
}else { }else {