[Koha-cvs] koha/barcodes label-home.pl [rel_2_2]

[Joshua Ferraro]

CVSROOT:	/sources/koha
Module name:	koha
Branch: 	rel_2_2
Changes by:	Joshua Ferraro <kados at savannah.gnu.org>	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;