Attachment #29990 for bug #11944

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




			}
		}
	}
    print $input->redirect("/cgi-bin/koha/admin/auth_subfields_structure.pl?tagfield=$tagfield&amp;authtypecode=$authtypecode");
    exit;

													# END $OP eq ADD_VALIDATE
################## DELETE_CONFIRM ##################################

		my $sth=$dbh->prepare("delete from auth_subfield_structure where tagfield=? and tagsubfield=? and authtypecode=?");
		$sth->execute($tagfield,$tagsubfield,$authtypecode);
	}
    print $input->redirect("/cgi-bin/koha/admin/auth_subfields_structure.pl?tagfield=$tagfield&amp;authtypecode=$authtypecode");
    exit;
	$template->param(tagfield => $tagfield);
													# END $OP eq DELETE_CONFIRMED
################## DEFAULT ##################################
} else { # DEFAULT

Lines 165-171 if ($op eq 'add_form') { Link Here

(-)a/admin/auth_tag_structure.pl (-2 / +3 lines)
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&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&authtypecode=$authtypecode");
192	exit;	193	exit;
193	# END $OP eq DELETE_CONFIRMED	194	# END $OP eq DELETE_CONFIRMED
194	################## ITEMTYPE_CREATE ##################################	195	################## ITEMTYPE_CREATE ##################################




                }
            }
            $sth->finish;
            print $input->redirect("/cgi-bin/koha/admin/authorised_values.pl?searchfield=$new_category&amp;offset=$offset");
            exit;
        }
    }

                    $sth->execute($id, $branchcode);
                }
            }
            my $category = $input->param('category');
            print $input->redirect("/cgi-bin/koha/admin/authorised_values.pl?searchfield=$category&amp;offset=$offset");
            exit;
        }
    }
    if ( $duplicate_entry ) {       

	my $id = $input->param('id');
	my $sth=$dbh->prepare("delete from authorised_values where id=?");
	$sth->execute($id);
    print $input->redirect("/cgi-bin/koha/admin/authorised_values.pl?searchfield=$searchfield&amp;offset=$offset");
    exit;
													# END $OP eq DELETE_CONFIRMED
################## DEFAULT ##################################
} else { # DEFAULT

Lines 267-274 elsif ( $op eq 'add_validate' ) { Link Here

(-)a/admin/categorie.pl (-3 / +2 lines)
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

Lines 116-123 elsif ( $op eq 'add_validate' ) { Link Here

(-)a/admin/koha2marclinks.pl (-2 / +1 lines)
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




    }
    $sth_insert->finish;
    $sth_update->finish;
    print $input->redirect("/cgi-bin/koha/admin/marc_subfields_structure.pl?tagfield=$tagfield&amp;frameworkcode=$frameworkcode");
"Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=marc_subfields_structure.pl?tagfield=$tagfield&frameworkcode=$frameworkcode\"></html>";
    exit;

    # END $OP eq ADD_VALIDATE

        $sth->execute( $tagfield, $tagsubfield, $frameworkcode );
        $sth->finish;
    }
    print $input->redirect("/cgi-bin/koha/admin/marc_subfields_structure.pl?tagfield=$tagfield&amp;frameworkcode=$frameworkcode");
"Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=marc_subfields_structure.pl?tagfield=$tagfield&frameworkcode=$frameworkcode\"></html>";
    exit;
    $template->param( tagfield => $tagfield );

    # END $OP eq DELETE_CONFIRMED
################## DEFAULT ##################################

Lines 167-175 if ($op eq 'add_form') { Link Here

(-)a/admin/marctagstructure.pl (-2 / +2 lines)
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

Lines 357-363 if ( $op eq 'add_form' ) { Link Here

(-)a/admin/systempreferences.pl (-1 / +1 lines)
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

Lines 86-93 if ($op eq 'del') { Link Here

(-)a/serials/subscription-detail.pl (-3 / +2 lines)
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

Lines 446-453 if ($op eq 'add_form') { Link Here

(-)a/admin/auth_subfields_structure.pl (-5 / +4 lines)
446	}	446	}
447	}	447	}
448	}	448	}
449	print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=auth_subfields_structure.pl?tagfield=$tagfield&authtypecode=$authtypecode\"></html>";	449	print $input->redirect("/cgi-bin/koha/admin/auth_subfields_structure.pl?tagfield=$tagfield&authtypecode=$authtypecode");
450	exit;	450	exit;
451		451
452	# END $OP eq ADD_VALIDATE	452	# END $OP eq ADD_VALIDATE
453	################## DELETE_CONFIRM ##################################	453	################## DELETE_CONFIRM ##################################
Lines 471-479 if ($op eq 'add_form') { Link Here
471	my $sth=$dbh->prepare("delete from auth_subfield_structure where tagfield=? and tagsubfield=? and authtypecode=?");	471	my $sth=$dbh->prepare("delete from auth_subfield_structure where tagfield=? and tagsubfield=? and authtypecode=?");
472	$sth->execute($tagfield,$tagsubfield,$authtypecode);	472	$sth->execute($tagfield,$tagsubfield,$authtypecode);
473	}	473	}
474	print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=auth_subfields_structure.pl?tagfield=$tagfield&authtypecode=$authtypecode\"></html>";	474	print $input->redirect("/cgi-bin/koha/admin/auth_subfields_structure.pl?tagfield=$tagfield&authtypecode=$authtypecode");
475	exit;	475	exit;
476	$template->param(tagfield => $tagfield);
477	# END $OP eq DELETE_CONFIRMED	476	# END $OP eq DELETE_CONFIRMED
478	################## DEFAULT ##################################	477	################## DEFAULT ##################################
479	} else { # DEFAULT	478	} else { # DEFAULT

Lines 483-490 elsif ( $op eq 'add_validate' ) { Link Here

(-)a/admin/marc_subfields_structure.pl (-5 / +2 lines)
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&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&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 ##################################

Lines 162-168 if ($op eq 'add_form') { Link Here

(-)a/admin/authorised_values.pl (-5 / +6 lines)
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&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&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&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