[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/barcodes label-home.pl [rel_2_2]
From: |
Joshua Ferraro |
Subject: |
[Koha-cvs] koha/barcodes label-home.pl [rel_2_2] |
Date: |
Thu, 13 Apr 2006 19:34:47 +0000 |
CVSROOT: /sources/koha
Module name: koha
Branch: rel_2_2
Changes by: Joshua Ferraro <address@hidden> 06/04/13 19:34:47
Removed files:
barcodes : label-home.pl
Log message:
removing label-home from barcodes dir
Patches:
Index: koha/barcodes/label-home.pl
diff -u koha/barcodes/label-home.pl:1.1.2.1 koha/barcodes/label-home.pl:removed
--- koha/barcodes/label-home.pl:1.1.2.1 Tue Apr 11 05:50:28 2006
+++ koha/barcodes/label-home.pl Thu Apr 13 19:34:47 2006
@@ -1,53 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use CGI;
-use C4::Auth;
-use C4::Output;
-use C4::Interface::CGI::Output;
-use C4::Context;
-use HTML::Template;
-
-my $query = new CGI;
-my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
- {
- template_name => "barcodes/label-home.tmpl",
- query => $query,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => { catalogue => 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 = $sth->fetchrow_hashref;
-$sth->finish;
-
-# next line passes a var like 'EAN13_cheched' to the tmpl ,
-# which makes the barcodetype sticky in the dropbox
-
-$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'},
- intranetcolorstylesheet =>
- C4::Context->preference("intranetcolorstylesheet"),
- intranetstylesheet => C4::Context->preference("intranetstylesheet"),
- IntranetNav => C4::Context->preference("IntranetNav"),
-);
-output_html_with_http_headers $query, $cookie, $template->output;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] koha/barcodes label-home.pl [rel_2_2],
Joshua Ferraro <=