View | Details | Raw Unified | Return to bug 11944
Collapse All | Expand All

(-)a/admin/auth_subfields_structure.pl (-5 / +4 lines)
Lines 473-480 if ($op eq 'add_form') { Link Here
473
			}
473
			}
474
		}
474
		}
475
	}
475
	}
476
	print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=auth_subfields_structure.pl?tagfield=$tagfield&authtypecode=$authtypecode\"></html>";
476
    print $input->redirect("/cgi-bin/koha/admin/auth_subfields_structure.pl?tagfield=$tagfield&amp;authtypecode=$authtypecode");
477
	exit;
477
    exit;
478
478
479
													# END $OP eq ADD_VALIDATE
479
													# END $OP eq ADD_VALIDATE
480
################## DELETE_CONFIRM ##################################
480
################## DELETE_CONFIRM ##################################
Lines 498-506 if ($op eq 'add_form') { Link Here
498
		my $sth=$dbh->prepare("delete from auth_subfield_structure where tagfield=? and tagsubfield=? and authtypecode=?");
498
		my $sth=$dbh->prepare("delete from auth_subfield_structure where tagfield=? and tagsubfield=? and authtypecode=?");
499
		$sth->execute($tagfield,$tagsubfield,$authtypecode);
499
		$sth->execute($tagfield,$tagsubfield,$authtypecode);
500
	}
500
	}
501
	print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=auth_subfields_structure.pl?tagfield=$tagfield&authtypecode=$authtypecode\"></html>";
501
    print $input->redirect("/cgi-bin/koha/admin/auth_subfields_structure.pl?tagfield=$tagfield&amp;authtypecode=$authtypecode");
502
	exit;
502
    exit;
503
	$template->param(tagfield => $tagfield);
504
													# END $OP eq DELETE_CONFIRMED
503
													# END $OP eq DELETE_CONFIRMED
505
################## DEFAULT ##################################
504
################## DEFAULT ##################################
506
} else { # DEFAULT
505
} else { # DEFAULT
(-)a/admin/auth_tag_structure.pl (-2 / +3 lines)
Lines 165-171 if ($op eq 'add_form') { Link Here
165
           );
165
           );
166
        }
166
        }
167
    }
167
    }
168
    print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=auth_tag_structure.pl?searchfield=".$input->param('tagfield')."&authtypecode=$authtypecode\">";
168
    print $input->redirect("/cgi-bin/koha/admin/auth_tag_structure.pl?searchfield=$tagfield&amp;authtypecode=$authtypecode");
169
    exit;
169
    exit;
170
                                                    # END $OP eq ADD_VALIDATE
170
                                                    # END $OP eq ADD_VALIDATE
171
################## DELETE_CONFIRM ##################################
171
################## DELETE_CONFIRM ##################################
Lines 188-194 if ($op eq 'add_form') { Link Here
188
        my $sth = $dbh->prepare("delete from auth_subfield_structure where tagfield=? and authtypecode=?");
188
        my $sth = $dbh->prepare("delete from auth_subfield_structure where tagfield=? and authtypecode=?");
189
        $sth->execute($searchfield,$authtypecode);
189
        $sth->execute($searchfield,$authtypecode);
190
    }
190
    }
191
    print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=auth_tag_structure.pl?searchfield=".$input->param('tagfield')."&authtypecode=$authtypecode\">";
191
    my $tagfield = $input->param('tagfield');
192
    print $input->redirect("/cgi-bin/koha/admin/auth_tag_structure.pl?searchfield=$tagfield&amp;authtypecode=$authtypecode");
192
    exit;
193
    exit;
193
                                                    # END $OP eq DELETE_CONFIRMED
194
                                                    # END $OP eq DELETE_CONFIRMED
194
################## ITEMTYPE_CREATE ##################################
195
################## ITEMTYPE_CREATE ##################################
(-)a/admin/authorised_values.pl (-5 / +6 lines)
Lines 162-168 if ($op eq 'add_form') { Link Here
162
                }
162
                }
163
            }
163
            }
164
            $sth->finish;
164
            $sth->finish;
165
            print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=authorised_values.pl?searchfield=".$new_category."&offset=$offset\"></html>";
165
            print $input->redirect("/cgi-bin/koha/admin/authorised_values.pl?searchfield=$new_category&amp;offset=$offset");
166
            exit;
166
            exit;
167
        }
167
        }
168
    }
168
    }
Lines 192-199 if ($op eq 'add_form') { Link Here
192
                    $sth->execute($id, $branchcode);
192
                    $sth->execute($id, $branchcode);
193
                }
193
                }
194
            }
194
            }
195
    	    print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=authorised_values.pl?searchfield=".$input->param('category')."&offset=$offset\"></html>";
195
            my $category = $input->param('category');
196
    	    exit;
196
            print $input->redirect("/cgi-bin/koha/admin/authorised_values.pl?searchfield=$category&amp;offset=$offset");
197
            exit;
197
        }
198
        }
198
    }
199
    }
199
    if ( $duplicate_entry ) {       
200
    if ( $duplicate_entry ) {       
Lines 224-231 if ($op eq 'add_form') { Link Here
224
	my $id = $input->param('id');
225
	my $id = $input->param('id');
225
	my $sth=$dbh->prepare("delete from authorised_values where id=?");
226
	my $sth=$dbh->prepare("delete from authorised_values where id=?");
226
	$sth->execute($id);
227
	$sth->execute($id);
227
	print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=authorised_values.pl?searchfield=$searchfield&offset=$offset\"></html>";
228
    print $input->redirect("/cgi-bin/koha/admin/authorised_values.pl?searchfield=$searchfield&amp;offset=$offset");
228
	exit;
229
    exit;
229
													# END $OP eq DELETE_CONFIRMED
230
													# END $OP eq DELETE_CONFIRMED
230
################## DEFAULT ##################################
231
################## DEFAULT ##################################
231
} else { # DEFAULT
232
} else { # DEFAULT
(-)a/admin/categorie.pl (-4 / +4 lines)
Lines 183-190 if ($op eq 'add_form') { Link Here
183
        C4::Form::MessagingPreferences::handle_form_action($input, 
183
        C4::Form::MessagingPreferences::handle_form_action($input, 
184
                                                           { categorycode => $input->param('categorycode') }, $template);
184
                                                           { categorycode => $input->param('categorycode') }, $template);
185
    }
185
    }
186
	print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=categorie.pl\"></html>";
186
    print $input->redirect("/cgi-bin/koha/admin/categorie.pl");
187
	exit;
187
    exit;
188
188
189
													# END $OP eq ADD_VALIDATE
189
													# END $OP eq ADD_VALIDATE
190
################## DELETE_CONFIRM ##################################
190
################## DELETE_CONFIRM ##################################
Lines 232-239 if ($op eq 'add_form') { Link Here
232
	my $sth=$dbh->prepare("delete from categories where categorycode=?");
232
	my $sth=$dbh->prepare("delete from categories where categorycode=?");
233
	$sth->execute($categorycode);
233
	$sth->execute($categorycode);
234
	$sth->finish;
234
	$sth->finish;
235
	print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=categorie.pl\"></html>";
235
    print $input->redirect("/cgi-bin/koha/admin/categorie.pl");
236
	exit;
236
    exit;
237
237
238
													# END $OP eq DELETE_CONFIRMED
238
													# END $OP eq DELETE_CONFIRMED
239
} else { # DEFAULT
239
} else { # DEFAULT
(-)a/admin/koha2marclinks.pl (-2 / +1 lines)
Lines 116-123 elsif ( $op eq 'add_validate' ) { Link Here
116
    $dbh->do(
116
    $dbh->do(
117
"update marc_subfield_structure set kohafield='$tablename.$kohafield' where tagfield='$temp[0]' and tagsubfield='$temp[1]'"
117
"update marc_subfield_structure set kohafield='$tablename.$kohafield' where tagfield='$temp[0]' and tagsubfield='$temp[1]'"
118
    );
118
    );
119
    print
119
    print $input->redirect("/cgi-bin/koha/admin/koha2marclinks.pl?tablename=$tablename");
120
"Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=koha2marclinks.pl?tablename=$tablename\"></html>";
121
    exit;
120
    exit;
122
121
123
    # END $OP eq ADD_VALIDATE
122
    # END $OP eq ADD_VALIDATE
(-)a/admin/marc_subfields_structure.pl (-5 / +2 lines)
Lines 483-490 elsif ( $op eq 'add_validate' ) { Link Here
483
    }
483
    }
484
    $sth_insert->finish;
484
    $sth_insert->finish;
485
    $sth_update->finish;
485
    $sth_update->finish;
486
    print
486
    print $input->redirect("/cgi-bin/koha/admin/marc_subfields_structure.pl?tagfield=$tagfield&amp;frameworkcode=$frameworkcode");
487
"Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=marc_subfields_structure.pl?tagfield=$tagfield&frameworkcode=$frameworkcode\"></html>";
488
    exit;
487
    exit;
489
488
490
    # END $OP eq ADD_VALIDATE
489
    # END $OP eq ADD_VALIDATE
Lines 524-533 elsif ( $op eq 'delete_confirmed' ) { Link Here
524
        $sth->execute( $tagfield, $tagsubfield, $frameworkcode );
523
        $sth->execute( $tagfield, $tagsubfield, $frameworkcode );
525
        $sth->finish;
524
        $sth->finish;
526
    }
525
    }
527
    print
526
    print $input->redirect("/cgi-bin/koha/admin/marc_subfields_structure.pl?tagfield=$tagfield&amp;frameworkcode=$frameworkcode");
528
"Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=marc_subfields_structure.pl?tagfield=$tagfield&frameworkcode=$frameworkcode\"></html>";
529
    exit;
527
    exit;
530
    $template->param( tagfield => $tagfield );
531
528
532
    # END $OP eq DELETE_CONFIRMED
529
    # END $OP eq DELETE_CONFIRMED
533
################## DEFAULT ##################################
530
################## DEFAULT ##################################
(-)a/admin/marctagstructure.pl (-2 / +2 lines)
Lines 167-175 if ($op eq 'add_form') { Link Here
167
                          $frameworkcode
167
                          $frameworkcode
168
            );
168
            );
169
        }
169
        }
170
	}
170
    }
171
    print $input->redirect("/cgi-bin/koha/admin/marctagstructure.pl?searchfield=$tagfield&frameworkcode=$frameworkcode");
171
    print $input->redirect("/cgi-bin/koha/admin/marctagstructure.pl?searchfield=$tagfield&frameworkcode=$frameworkcode");
172
	exit;
172
    exit;
173
													# END $OP eq ADD_VALIDATE
173
													# END $OP eq ADD_VALIDATE
174
################## DELETE_CONFIRM ##################################
174
################## DELETE_CONFIRM ##################################
175
# called by default form, used to confirm deletion of data in DB
175
# called by default form, used to confirm deletion of data in DB
(-)a/admin/systempreferences.pl (-1 / +1 lines)
Lines 357-363 if ( $op eq 'add_form' ) { Link Here
357
            logaction( 'SYSTEMPREFERENCE', 'ADD', undef, $input->param('variable') . " | " . $value );
357
            logaction( 'SYSTEMPREFERENCE', 'ADD', undef, $input->param('variable') . " | " . $value );
358
        }
358
        }
359
    }
359
    }
360
    print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=systempreferences.pl?tab=\"></html>";
360
    print $input->redirect("/cgi-bin/koha/admin/systempreferences.pl?tab=");
361
    exit;
361
    exit;
362
################## DELETE_CONFIRM ##################################
362
################## DELETE_CONFIRM ##################################
363
    # called by default form, used to confirm deletion of data in DB
363
    # called by default form, used to confirm deletion of data in DB
(-)a/serials/subscription-detail.pl (-3 / +2 lines)
Lines 86-93 if ($op eq 'del') { Link Here
86
    # If it's ok to delete the subscription, we do so
86
    # If it's ok to delete the subscription, we do so
87
    if ($issueconfirmed eq "1") {
87
    if ($issueconfirmed eq "1") {
88
		&DelSubscription($subscriptionid);
88
		&DelSubscription($subscriptionid);
89
		print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=serials-home.pl\"></html>";
89
        print $query->redirect("/cgi-bin/koha/serials/serials-home.pl");
90
		exit;
90
        exit;
91
    }
91
    }
92
}
92
}
93
my $hasRouting = check_routing($subscriptionid);
93
my $hasRouting = check_routing($subscriptionid);
94
- 

Return to bug 11944