(bug #3667) fix borrowers cleanup

[koha.git] / labels / label-save-template.pl

diff --git a/labels/label-save-template.pl b/labels/label-save-template.pl
index 5eeda63..4923790 100755 (executable)
--- a/labels/label-save-template.pl
+++ b/labels/label-save-template.pl
@@ -6,7 +6,7 @@ use C4::Auth;
 use C4::Context;
 use C4::Output;
 use C4::Labels;
-use HTML::Template;
+use HTML::Template::Pro;
 use POSIX;
 
 #use Data::Dumper;
@@ -29,21 +29,25 @@ my $cols         = $query->param('cols');
 my $rows         = $query->param('rows');
 my $colgap       = $query->param('colgap');
 my $rowgap       = $query->param('rowgap');
+my $font         = $query->param('fonts');
 my $fontsize     = $query->param('fontsize');
 my $units        = $query->param('units');
 my $active       = $query->param('active');
+my $prof_id      = $query->param('prof_id');
 
-
-SaveTemplate(
+my $dberror = SaveTemplate(
 
     $tmpl_id,     $tmpl_code,   $tmpl_desc,    $page_width,
     $page_height, $label_width, $label_height, $topmargin,
     $leftmargin,  $cols,        $rows,         $colgap,
-    $rowgap,      $fontsize,     $units
+    $rowgap,      $font,        $fontsize,     $units
 
 );
 
+SetAssociatedProfile( $prof_id, $tmpl_id ) if $prof_id;
+
+warn "Database returned the following error: $dberror" if $dberror;
 
- print $query->redirect("./label-templates.pl");
+print $query->redirect("./label-templates.pl");