[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha label-home.pl [dev_week]
From: |
Mason James |
Subject: |
[Koha-cvs] koha label-home.pl [dev_week] |
Date: |
Tue, 03 Jul 2007 02:43:12 +0000 |
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;
- [Koha-cvs] koha label-home.pl [dev_week],
Mason James <=