rel_3_0 moved to HEAD

[koha.git] / barcodes / label-home.pl

diff --git a/barcodes/label-home.pl b/barcodes/label-home.pl
index ba8ba59..c40ef06 100755 (executable)
--- a/barcodes/label-home.pl
+++ b/barcodes/label-home.pl
@@ -1,14 +1,28 @@
 #!/usr/bin/perl
 
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA  02111-1307 USA
+
 use strict;
 use CGI;
 use C4::Auth;
 use C4::Output;
+use C4::Labels;
 use C4::Interface::CGI::Output;
 use C4::Context;
-use HTML::Template;
 
-#use Data::Dumper;
 
 my $query = new CGI;
 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
@@ -17,38 +31,44 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
         query           => $query,
         type            => "intranet",
         authnotrequired => 0,
-        flagsrequired   => { catalogue => 1 },
+        flagsrequired   => { tools => 1 },
         debug           => 1,
     }
 );
 
-my $dbh    = C4::Context->dbh;
-my $query2 = "SELECT * FROM labels_conf LIMIT 1";
-my $sth    = $dbh->prepare($query2);
-$sth->execute();
+my $data = get_label_options();
 
-my $data = $sth->fetchrow_hashref;
-$sth->finish;
+my $active_template = GetActiveLabelTemplate();
+my @label_templates = GetAllLabelTemplates();
 
 $template->param( guidebox => 1 ) if ( $data->{'guidebox'} );
 
 $data->{'printingtype'} = 'both' if ( !$data->{'printingtype'} );
 $template->param( "printingtype_$data->{'printingtype'}" => 1 );
+$template->param( "papertype_$data->{'papertype'}"       => 1 );
+
+$template->param( "$data->{'barcodetype'}_checked" => 1 );
 
-$template->param( "$data->{'barcodetype'}_checked"              => 1 );
 $template->param( "startrow" . $data->{'startrow'} . "_checked" => 1 );
 $template->param(
-    itemtype    => $data->{'itemtype'},
-    papertype   => $data->{'papertype'},
-    author      => $data->{'author'},
-    barcode     => $data->{'barcode'},
-    id          => $data->{'id'},
-    barcodetype => $data->{'barcodetype'},
-    title       => $data->{'title'},
-    isbn        => $data->{'isbn'},
-    dewey       => $data->{'dewey'},
-    class       => $data->{'class'},
-    startrow    => $data->{'startrow'},
+    itemtype        => $data->{'itemtype'},
+    active_template => $data->{'active_template'},
+    label_templates => \@label_templates,
+
+    papertype      => $data->{'papertype'},
+    author         => $data->{'author'},
+    barcode        => $data->{'barcode'},
+    id             => $data->{'id'},
+    barcodetype    => $data->{'barcodetype'},
+    title          => $data->{'title'},
+    isbn           => $data->{'isbn'},
+    dewey          => $data->{'dewey'},
+    class          => $data->{'class'},
+    startrow       => $data->{'startrow'},
+    subclass       => $data->{'subclass'},
+    itemcallnumber => $data->{'itemcallnumber'},
+    startlabel     => $data->{'startlabel'},
+    fontsize       => $active_template->{'fontsize'},
 
     intranetcolorstylesheet =>
       C4::Context->preference("intranetcolorstylesheet"),