[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: |
Mason James |
Subject: |
[Koha-cvs] koha/barcodes label-home.pl [rel_2_2] |
Date: |
Wed, 11 Jul 2007 14:14:03 +0000 |
CVSROOT: /sources/koha
Module name: koha
Branch: rel_2_2
Changes by: Mason James <sushi> 07/07/11 14:14:03
Removed files:
barcodes : label-home.pl
Log message:
wrong dir, this file now lives in root 'cgi-bin' dir
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/barcodes/label-home.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.1.2.5&r2=0
Patches:
Index: label-home.pl
===================================================================
RCS file: label-home.pl
diff -N label-home.pl
--- label-home.pl 26 Jul 2006 23:33:26 -0000 1.1.2.5
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,62 +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;
-
-#use Data::Dumper;
-
-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;
-
-$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'},
- 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'},
- subclass => $data->{'subclass'},
- itemcallnumber => $data->{'itemcallnumber'},
- 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],
Mason James <=