[Koha-cvs] koha label-home.pl [dev_week]

[Mason James]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Mason James <sushi>     07/07/03 02:43:12

Modified files:
        .              : label-home.pl 

Log message:
        gah, 2 copies of this, i have rm-ed the other dupe, and updated his one

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/label-home.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.1.2.1.2.1&r2=1.1.2.1.2.2

Patches:
Index: label-home.pl
===================================================================
RCS file: /sources/koha/koha/Attic/label-home.pl,v
retrieving revision 1.1.2.1.2.1
retrieving revision 1.1.2.1.2.2
diff -u -b -r1.1.2.1.2.1 -r1.1.2.1.2.2
--- label-home.pl       27 Jul 2006 18:13:03 -0000      1.1.2.1.2.1
+++ label-home.pl       3 Jul 2007 02:43:12 -0000       1.1.2.1.2.2
@@ -4,11 +4,12 @@
 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;
+use Data::Dumper;
 
 my $query = new CGI;
 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
@@ -22,23 +23,27 @@
     }
 );
 
-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();
+
+warn Dumper @label_templates;
 
 $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( "startrow" . $data->{'startrow'} . "_checked" => 1 );
 $template->param(
     itemtype    => $data->{'itemtype'},
+    active_template => $data->{'active_template'},
+    label_templates => address@hidden,
+
     papertype   => $data->{'papertype'},
     author      => $data->{'author'},
     barcode     => $data->{'barcode'},
@@ -50,12 +55,13 @@
     class       => $data->{'class'},
        subclass        => $data->{'subclass'},
        itemcallnumber => $data->{'itemcallnumber'},
-    startrow    => $data->{'startrow'},
+    startlabel     => $data->{'startlabel'},
+    fontsize       => $active_template->{'fontsize'},
 
     intranetcolorstylesheet =>
       C4::Context->preference("intranetcolorstylesheet"),
     intranetstylesheet => C4::Context->preference("intranetstylesheet"),
     IntranetNav        => C4::Context->preference("IntranetNav"),
 );
-warn "ITEMCALLNO".$data->{'itemcallnumber'};
+
 output_html_with_http_headers $query, $cookie, $template->output;