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

(-)a/admin/auth_subfields_structure.pl (-5 / +4 lines)
Lines 348-355 if ($op eq 'add_form') { Link Here
348
			}
348
			}
349
		}
349
		}
350
	}
350
	}
351
	print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=auth_subfields_structure.pl?tagfield=$tagfield&authtypecode=$authtypecode\"></html>";
351
    print $input->redirect("/cgi-bin/koha/admin/auth_subfields_structure.pl?tagfield=$tagfield&amp;authtypecode=$authtypecode");
352
	exit;
352
    exit;
353
353
354
													# END $OP eq ADD_VALIDATE
354
													# END $OP eq ADD_VALIDATE
355
################## DELETE_CONFIRM ##################################
355
################## DELETE_CONFIRM ##################################
Lines 373-381 if ($op eq 'add_form') { Link Here
373
		my $sth=$dbh->prepare("delete from auth_subfield_structure where tagfield=? and tagsubfield=? and authtypecode=?");
373
		my $sth=$dbh->prepare("delete from auth_subfield_structure where tagfield=? and tagsubfield=? and authtypecode=?");
374
		$sth->execute($tagfield,$tagsubfield,$authtypecode);
374
		$sth->execute($tagfield,$tagsubfield,$authtypecode);
375
	}
375
	}
376
	print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=auth_subfields_structure.pl?tagfield=$tagfield&authtypecode=$authtypecode\"></html>";
376
    print $input->redirect("/cgi-bin/koha/admin/auth_subfields_structure.pl?tagfield=$tagfield&amp;authtypecode=$authtypecode");
377
	exit;
377
    exit;
378
	$template->param(tagfield => $tagfield);
379
													# END $OP eq DELETE_CONFIRMED
378
													# END $OP eq DELETE_CONFIRMED
380
################## DEFAULT ##################################
379
################## DEFAULT ##################################
381
} else { # DEFAULT
380
} else { # DEFAULT
(-)a/admin/auth_tag_structure.pl (-2 / +3 lines)
Lines 158-164 if ($op eq 'add_form') { Link Here
158
           );
158
           );
159
        }
159
        }
160
    }
160
    }
161
    print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=auth_tag_structure.pl?searchfield=".$input->param('tagfield')."&authtypecode=$authtypecode\">";
161
    print $input->redirect("/cgi-bin/koha/admin/auth_tag_structure.pl?searchfield=$tagfield&amp;authtypecode=$authtypecode");
162
    exit;
162
    exit;
163
                                                    # END $OP eq ADD_VALIDATE
163
                                                    # END $OP eq ADD_VALIDATE
164
################## DELETE_CONFIRM ##################################
164
################## DELETE_CONFIRM ##################################
Lines 181-187 if ($op eq 'add_form') { Link Here
181
        my $sth = $dbh->prepare("delete from auth_subfield_structure where tagfield=? and authtypecode=?");
181
        my $sth = $dbh->prepare("delete from auth_subfield_structure where tagfield=? and authtypecode=?");
182
        $sth->execute($searchfield,$authtypecode);
182
        $sth->execute($searchfield,$authtypecode);
183
    }
183
    }
184
    print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=auth_tag_structure.pl?searchfield=".$input->param('tagfield')."&authtypecode=$authtypecode\">";
184
    my $tagfield = $input->param('tagfield');
185
    print $input->redirect("/cgi-bin/koha/admin/auth_tag_structure.pl?searchfield=$tagfield&amp;authtypecode=$authtypecode");
185
    exit;
186
    exit;
186
                                                    # END $OP eq DELETE_CONFIRMED
187
                                                    # END $OP eq DELETE_CONFIRMED
187
################## ITEMTYPE_CREATE ##################################
188
################## 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 (-3 / +2 lines)
Lines 267-274 elsif ( $op eq 'add_validate' ) { Link Here
267
        C4::Form::MessagingPreferences::handle_form_action( $input,
267
        C4::Form::MessagingPreferences::handle_form_action( $input,
268
            { categorycode => $input->param('categorycode') }, $template );
268
            { categorycode => $input->param('categorycode') }, $template );
269
    }
269
    }
270
270
    print $input->redirect("/cgi-bin/koha/admin/categorie.pl");
271
    print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=categorie.pl\"></html>";
272
    exit;
271
    exit;
273
272
274
    # END $OP eq ADD_VALIDATE
273
    # END $OP eq ADD_VALIDATE
Lines 305-311 elsif ( $op eq 'delete_confirmed' ) { Link Here
305
    $sth->execute($categorycode);
304
    $sth->execute($categorycode);
306
    $sth->finish;
305
    $sth->finish;
307
306
308
    print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=categorie.pl\"></html>";
307
    print $input->redirect("/cgi-bin/koha/admin/categorie.pl");
309
    exit;
308
    exit;
310
309
311
    # END $OP eq DELETE_CONFIRMED
310
    # END $OP eq DELETE_CONFIRMED
(-)a/admin/koha2marclinks.pl (-2 / +1 lines)
Lines 116-123 elsif ( $op eq 'add_validate' ) { Link Here
116
    # We could get a list of all frameworks and do them one-by-one, or zap
116
    # We could get a list of all frameworks and do them one-by-one, or zap
117
    # everything.
117
    # everything.
118
    $cache->flush_all();
118
    $cache->flush_all();
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 428-435 elsif ( $op eq 'add_validate' ) { Link Here
428
    $cache->clear_from_cache("MarcStructure-0-$frameworkcode");
428
    $cache->clear_from_cache("MarcStructure-0-$frameworkcode");
429
    $cache->clear_from_cache("MarcStructure-1-$frameworkcode");
429
    $cache->clear_from_cache("MarcStructure-1-$frameworkcode");
430
430
431
    print
431
    print $input->redirect("/cgi-bin/koha/admin/marc_subfields_structure.pl?tagfield=$tagfield&amp;frameworkcode=$frameworkcode");
432
"Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=marc_subfields_structure.pl?tagfield=$tagfield&frameworkcode=$frameworkcode\"></html>";
433
    exit;
432
    exit;
434
433
435
    # END $OP eq ADD_VALIDATE
434
    # END $OP eq ADD_VALIDATE
Lines 471-480 elsif ( $op eq 'delete_confirmed' ) { Link Here
471
    }
470
    }
472
    $cache->clear_from_cache("MarcStructure-0-$frameworkcode");
471
    $cache->clear_from_cache("MarcStructure-0-$frameworkcode");
473
    $cache->clear_from_cache("MarcStructure-1-$frameworkcode");
472
    $cache->clear_from_cache("MarcStructure-1-$frameworkcode");
474
    print
473
    print $input->redirect("/cgi-bin/koha/admin/marc_subfields_structure.pl?tagfield=$tagfield&amp;frameworkcode=$frameworkcode");
475
"Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=marc_subfields_structure.pl?tagfield=$tagfield&frameworkcode=$frameworkcode\"></html>";
476
    exit;
474
    exit;
477
    $template->param( tagfield => $tagfield );
478
475
479
    # END $OP eq DELETE_CONFIRMED
476
    # END $OP eq DELETE_CONFIRMED
480
################## DEFAULT ##################################
477
################## DEFAULT ##################################
(-)a/admin/marctagstructure.pl (-2 / +2 lines)
Lines 164-172 if ($op eq 'add_form') { Link Here
164
        }
164
        }
165
        $cache->clear_from_cache("MarcStructure-0-$frameworkcode");
165
        $cache->clear_from_cache("MarcStructure-0-$frameworkcode");
166
        $cache->clear_from_cache("MarcStructure-1-$frameworkcode");
166
        $cache->clear_from_cache("MarcStructure-1-$frameworkcode");
167
	}
167
    }
168
    print $input->redirect("/cgi-bin/koha/admin/marctagstructure.pl?searchfield=$tagfield&frameworkcode=$frameworkcode");
168
    print $input->redirect("/cgi-bin/koha/admin/marctagstructure.pl?searchfield=$tagfield&frameworkcode=$frameworkcode");
169
	exit;
169
    exit;
170
													# END $OP eq ADD_VALIDATE
170
													# END $OP eq ADD_VALIDATE
171
################## DELETE_CONFIRM ##################################
171
################## DELETE_CONFIRM ##################################
172
# called by default form, used to confirm deletion of data in DB
172
# 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 88-95 if ($op eq 'del') { Link Here
88
    # If it's ok to delete the subscription, we do so
88
    # If it's ok to delete the subscription, we do so
89
    if ($issueconfirmed eq "1") {
89
    if ($issueconfirmed eq "1") {
90
		&DelSubscription($subscriptionid);
90
		&DelSubscription($subscriptionid);
91
		print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=serials-home.pl\"></html>";
91
        print $query->redirect("/cgi-bin/koha/serials/serials-home.pl");
92
		exit;
92
        exit;
93
    }
93
    }
94
}
94
}
95
my $hasRouting = check_routing($subscriptionid);
95
my $hasRouting = check_routing($subscriptionid);
96
- 

Return to bug 11944