use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Koha;
-use C4::Output;
-use C4::MarcModificationTemplates;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::MarcModificationTemplates qw(
+ AddModificationTemplate
+ AddModificationTemplateAction
+ DelModificationTemplate
+ DelModificationTemplateAction
+ GetModificationTemplateActions
+ GetModificationTemplates
+ ModModificationTemplateAction
+ MoveModificationTemplateAction
+);
my $cgi = CGI->new;
query => $cgi,
type => "intranet",
flagsrequired => { tools => 'marc_modification_templates' },
- debug => 1,
});
if ( $op eq "create_template" ) {
$action->{'action_copy_field'} = ( $action->{'action'} eq 'copy_field' );
$action->{'action_copy_and_replace_field'} = ( $action->{'action'} eq 'copy_and_replace_field' );
- $action->{'conditional_if'} = ( $action->{'conditional'} eq 'if' );
- $action->{'conditional_unless'} = ( $action->{'conditional'} eq 'unless' );
-
- $action->{'conditional_comparison_exists'} = ( $action->{'conditional_comparison'} eq 'exists' );
- $action->{'conditional_comparison_not_exists'} = ( $action->{'conditional_comparison'} eq 'not_exists' );
- $action->{'conditional_comparison_equals'} = ( $action->{'conditional_comparison'} eq 'equals' );
- $action->{'conditional_comparison_not_equals'} = ( $action->{'conditional_comparison'} eq 'not_equals' );
+ if( defined $action->{'conditional'} ){
+ $action->{'conditional_if'} = ( $action->{'conditional'} eq 'if' );
+ $action->{'conditional_unless'} = ( $action->{'conditional'} eq 'unless' );
+ }
+
+ if( defined $action->{'conditional_comparison'} ){
+ $action->{'conditional_comparison_exists'} = ( $action->{'conditional_comparison'} eq 'exists' );
+ $action->{'conditional_comparison_not_exists'} = ( $action->{'conditional_comparison'} eq 'not_exists' );
+ $action->{'conditional_comparison_equals'} = ( $action->{'conditional_comparison'} eq 'equals' );
+ $action->{'conditional_comparison_not_equals'} = ( $action->{'conditional_comparison'} eq 'not_equals' );
+ }
}
$template->param(