X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=tools%2Fmarc_modification_templates.pl;h=b802d508a3eac5cf98bfb892d064a00bf9f75a4b;hb=9d6d641d1f8b77271800f43bc027b651f9aea52b;hp=27ace821e8fea94a246e3557e6a7c4b61473f546;hpb=96cc447045f3f1d3702a3c69b36f596d88f38eda;p=koha-ffzg.git

diff --git a/tools/marc_modification_templates.pl b/tools/marc_modification_templates.pl
index 27ace821e8..b802d508a3 100755
--- a/tools/marc_modification_templates.pl
+++ b/tools/marc_modification_templates.pl
@@ -20,10 +20,18 @@ use Modern::Perl;
 
 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;
 
@@ -36,7 +44,6 @@ my ($template, $loggedinuser, $cookie)
             query => $cgi,
             type => "intranet",
             flagsrequired => { tools => 'marc_modification_templates' },
-            debug => 1,
     });
 
 if ( $op eq "create_template" ) {
@@ -121,13 +128,17 @@ foreach my $action ( @actions ) {
   $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(