Attachment #6139 for bug #6679

View | Details | Raw Unified | Return to bug 6679
Collapse All | Expand All




#!/usr/bin/perl

# Copyright Koha development team 2011
#
# This file is part of Koha.
#
# Koha is free software; you can redistribute it and/or modify it under the
# terms of the GNU General Public License as published by the Free Software
# Foundation; either version 2 of the License, or (at your option) any later
# version.
#
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License along with
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA  02111-1307 USA
#

use strict;
use warnings;



my $cgi = new CGI;

my $batch_id;
my @label_ids;
my @item_numbers;
$batch_id    = $cgi->param('batch_id') if $cgi->param('batch_id');
my $template_id = $cgi->param('template_id') || undef;
my $layout_id   = $cgi->param('layout_id') || undef;
@label_ids   = $cgi->param('label_id') if $cgi->param('label_id');
@item_numbers  = $cgi->param('item_number') if $cgi->param('item_number');

my $items = undef;


Lines 16-23 my @all_koha_dirs = qw( acqui admin authorities basket C4 catalogue cataloguing Link Here

(-)a/t/00-testcritic.t (-3 / +2 lines)
16	labels members misc offline_circ opac patroncards reports reserve reviews rotating_collections	16	labels members misc offline_circ opac patroncards reports reserve reviews rotating_collections
17	serials sms suggestion t tags test tools virtualshelves);	17	serials sms suggestion t tags test tools virtualshelves);
18		18
19	my @dirs = qw( acqui admin authorities basket catalogue cataloguing circ debian errors offline_circ reserve	19	my @dirs = qw( acqui admin authorities basket catalogue cataloguing circ debian errors labels
20	reviews rotating_collections serials sms virtualshelves );	20	offline_circ reserve reviews rotating_collections serials sms virtualshelves );
21		21
22	if ( not $ENV{TEST_QA} ) {	22	if ( not $ENV{TEST_QA} ) {
23	my $msg = 'Author test. Set $ENV{TEST_QA} to a true value to run';	23	my $msg = 'Author test. Set $ENV{TEST_QA} to a true value to run';
24	-

Return to bug 6679

Lines 1-5 Link Here

(-)a/labels/label-create-csv.pl (-3 / +24 lines)
1	#!/usr/bin/perl	1	#!/usr/bin/perl
2		2
		3	# Copyright Koha development team 2011
		4	#
		5	# This file is part of Koha.
		6	#
		7	# Koha is free software; you can redistribute it and/or modify it under the
		8	# terms of the GNU General Public License as published by the Free Software
		9	# Foundation; either version 2 of the License, or (at your option) any later
		10	# version.
		11	#
		12	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
		13	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
		14	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
		15	#
		16	# You should have received a copy of the GNU General Public License along with
		17	# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
		18	# Suite 330, Boston, MA 02111-1307 USA
		19	#
		20
3	use strict;	21	use strict;
4	use warnings;	22	use warnings;
5		23
Lines 13-23 use C4::Labels 1.000000; Link Here
13		31
14	my $cgi = new CGI;	32	my $cgi = new CGI;
15		33
16	my $batch_id = $cgi->param('batch_id') if $cgi->param('batch_id');	34	my $batch_id;
		35	my @label_ids;
		36	my @item_numbers;
		37	$batch_id = $cgi->param('batch_id') if $cgi->param('batch_id');
17	my $template_id = $cgi->param('template_id') \|\| undef;	38	my $template_id = $cgi->param('template_id') \|\| undef;
18	my $layout_id = $cgi->param('layout_id') \|\| undef;	39	my $layout_id = $cgi->param('layout_id') \|\| undef;
19	my @label_ids = $cgi->param('label_id') if $cgi->param('label_id');	40	@label_ids = $cgi->param('label_id') if $cgi->param('label_id');
20	my @item_numbers = $cgi->param('item_number') if $cgi->param('item_number');	41	@item_numbers = $cgi->param('item_number') if $cgi->param('item_number');
21		42
22	my $items = undef;	43	my $items = undef;
23		44