@@ -, +, @@ The list of modified files has been got with the following grep: git grep Content-Type | grep -v -i utf | grep Refresh | grep -v translator | grep -v \.js - Go on an authority MARC framework for an authority type - Click on the "Add a new tag" button - Fill fields - Save - You should be redirected on the auth_tag_structure.pl page - Try to modify an existing tag - The redirection should be done - From the previous page, click on a "subfields" link - Edit/Add a new subfields - Save - You should be redirected to the subfield list - Delete a subfield - You should be redirected to the subfield list - Add/Edit an authorised value - Save - You should be redirected to the authorised value list (with the right category selected) - Add/Edit a patron category - Save - You should be redirected to the category list - Delete a patron category - You should be redirected to the category list - Go on the Koha to MARC mapping configuration page - Edit a field - Map a field and click on "OK" - You should be redirected to the list - Go on the MARC frameworks page - Click on "MARC structure" for one on the list - Click on "Subfields" for one on the list - Add/Edit a subfield - Save - You should be redirected to the subfield list - Go on the system preferences admin page - Click on the "Local use" tab - Add/Edit a pref - Save - You shold be redirected to the Local use preference list - Go on a subscription detail page - Delete the subscription (using Edit > Delete subscription) - You should be redirected on the serials home page --- admin/auth_subfields_structure.pl | 9 ++++----- admin/auth_tag_structure.pl | 5 +++-- admin/authorised_values.pl | 11 ++++++----- admin/categorie.pl | 5 ++--- admin/koha2marclinks.pl | 3 +-- admin/marc_subfields_structure.pl | 7 ++----- admin/marctagstructure.pl | 4 ++-- admin/systempreferences.pl | 2 +- serials/subscription-detail.pl | 4 ++-- 9 files changed, 23 insertions(+), 27 deletions(-) --- a/admin/auth_subfields_structure.pl +++ a/admin/auth_subfields_structure.pl @@ -348,8 +348,8 @@ if ($op eq 'add_form') { } } } - print "Content-Type: text/html\n\n"; - exit; + print $input->redirect("/cgi-bin/koha/admin/auth_subfields_structure.pl?tagfield=$tagfield&authtypecode=$authtypecode"); + exit; # END $OP eq ADD_VALIDATE ################## DELETE_CONFIRM ################################## @@ -373,9 +373,8 @@ if ($op eq 'add_form') { my $sth=$dbh->prepare("delete from auth_subfield_structure where tagfield=? and tagsubfield=? and authtypecode=?"); $sth->execute($tagfield,$tagsubfield,$authtypecode); } - print "Content-Type: text/html\n\n"; - exit; - $template->param(tagfield => $tagfield); + print $input->redirect("/cgi-bin/koha/admin/auth_subfields_structure.pl?tagfield=$tagfield&authtypecode=$authtypecode"); + exit; # END $OP eq DELETE_CONFIRMED ################## DEFAULT ################################## } else { # DEFAULT --- a/admin/auth_tag_structure.pl +++ a/admin/auth_tag_structure.pl @@ -158,7 +158,7 @@ if ($op eq 'add_form') { ); } } - print "Content-Type: text/html\n\nparam('tagfield')."&authtypecode=$authtypecode\">"; + print $input->redirect("/cgi-bin/koha/admin/auth_tag_structure.pl?searchfield=$tagfield&authtypecode=$authtypecode"); exit; # END $OP eq ADD_VALIDATE ################## DELETE_CONFIRM ################################## @@ -181,7 +181,8 @@ if ($op eq 'add_form') { my $sth = $dbh->prepare("delete from auth_subfield_structure where tagfield=? and authtypecode=?"); $sth->execute($searchfield,$authtypecode); } - print "Content-Type: text/html\n\nparam('tagfield')."&authtypecode=$authtypecode\">"; + my $tagfield = $input->param('tagfield'); + print $input->redirect("/cgi-bin/koha/admin/auth_tag_structure.pl?searchfield=$tagfield&authtypecode=$authtypecode"); exit; # END $OP eq DELETE_CONFIRMED ################## ITEMTYPE_CREATE ################################## --- a/admin/authorised_values.pl +++ a/admin/authorised_values.pl @@ -162,7 +162,7 @@ if ($op eq 'add_form') { } } $sth->finish; - print "Content-Type: text/html\n\n"; + print $input->redirect("/cgi-bin/koha/admin/authorised_values.pl?searchfield=$new_category&offset=$offset"); exit; } } @@ -192,8 +192,9 @@ if ($op eq 'add_form') { $sth->execute($id, $branchcode); } } - print "Content-Type: text/html\n\nparam('category')."&offset=$offset\">"; - exit; + my $category = $input->param('category'); + print $input->redirect("/cgi-bin/koha/admin/authorised_values.pl?searchfield=$category&offset=$offset"); + exit; } } if ( $duplicate_entry ) { @@ -224,8 +225,8 @@ if ($op eq 'add_form') { my $id = $input->param('id'); my $sth=$dbh->prepare("delete from authorised_values where id=?"); $sth->execute($id); - print "Content-Type: text/html\n\n"; - exit; + print $input->redirect("/cgi-bin/koha/admin/authorised_values.pl?searchfield=$searchfield&offset=$offset"); + exit; # END $OP eq DELETE_CONFIRMED ################## DEFAULT ################################## } else { # DEFAULT --- a/admin/categorie.pl +++ a/admin/categorie.pl @@ -267,8 +267,7 @@ elsif ( $op eq 'add_validate' ) { C4::Form::MessagingPreferences::handle_form_action( $input, { categorycode => $input->param('categorycode') }, $template ); } - - print "Content-Type: text/html\n\n"; + print $input->redirect("/cgi-bin/koha/admin/categorie.pl"); exit; # END $OP eq ADD_VALIDATE @@ -305,7 +304,7 @@ elsif ( $op eq 'delete_confirmed' ) { $sth->execute($categorycode); $sth->finish; - print "Content-Type: text/html\n\n"; + print $input->redirect("/cgi-bin/koha/admin/categorie.pl"); exit; # END $OP eq DELETE_CONFIRMED --- a/admin/koha2marclinks.pl +++ a/admin/koha2marclinks.pl @@ -116,8 +116,7 @@ elsif ( $op eq 'add_validate' ) { # We could get a list of all frameworks and do them one-by-one, or zap # everything. $cache->flush_all(); - print -"Content-Type: text/html\n\n"; + print $input->redirect("/cgi-bin/koha/admin/koha2marclinks.pl?tablename=$tablename"); exit; # END $OP eq ADD_VALIDATE --- a/admin/marc_subfields_structure.pl +++ a/admin/marc_subfields_structure.pl @@ -428,8 +428,7 @@ elsif ( $op eq 'add_validate' ) { $cache->clear_from_cache("MarcStructure-0-$frameworkcode"); $cache->clear_from_cache("MarcStructure-1-$frameworkcode"); - print -"Content-Type: text/html\n\n"; + print $input->redirect("/cgi-bin/koha/admin/marc_subfields_structure.pl?tagfield=$tagfield&frameworkcode=$frameworkcode"); exit; # END $OP eq ADD_VALIDATE @@ -471,10 +470,8 @@ elsif ( $op eq 'delete_confirmed' ) { } $cache->clear_from_cache("MarcStructure-0-$frameworkcode"); $cache->clear_from_cache("MarcStructure-1-$frameworkcode"); - print -"Content-Type: text/html\n\n"; + print $input->redirect("/cgi-bin/koha/admin/marc_subfields_structure.pl?tagfield=$tagfield&frameworkcode=$frameworkcode"); exit; - $template->param( tagfield => $tagfield ); # END $OP eq DELETE_CONFIRMED ################## DEFAULT ################################## --- a/admin/marctagstructure.pl +++ a/admin/marctagstructure.pl @@ -164,9 +164,9 @@ if ($op eq 'add_form') { } $cache->clear_from_cache("MarcStructure-0-$frameworkcode"); $cache->clear_from_cache("MarcStructure-1-$frameworkcode"); - } + } print $input->redirect("/cgi-bin/koha/admin/marctagstructure.pl?searchfield=$tagfield&frameworkcode=$frameworkcode"); - exit; + exit; # END $OP eq ADD_VALIDATE ################## DELETE_CONFIRM ################################## # called by default form, used to confirm deletion of data in DB --- a/admin/systempreferences.pl +++ a/admin/systempreferences.pl @@ -357,7 +357,7 @@ if ( $op eq 'add_form' ) { logaction( 'SYSTEMPREFERENCE', 'ADD', undef, $input->param('variable') . " | " . $value ); } } - print "Content-Type: text/html\n\n"; + print $input->redirect("/cgi-bin/koha/admin/systempreferences.pl?tab="); exit; ################## DELETE_CONFIRM ################################## # called by default form, used to confirm deletion of data in DB --- a/serials/subscription-detail.pl +++ a/serials/subscription-detail.pl @@ -88,8 +88,8 @@ if ($op eq 'del') { # If it's ok to delete the subscription, we do so if ($issueconfirmed eq "1") { &DelSubscription($subscriptionid); - print "Content-Type: text/html\n\n"; - exit; + print $query->redirect("/cgi-bin/koha/serials/serials-home.pl"); + exit; } } my $hasRouting = check_routing($subscriptionid); --