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

(-)a/labels/label-create-csv.pl (-3 / +24 lines)
Lines 1-5 Link Here
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
(-)a/t/00-testcritic.t (-3 / +2 lines)
Lines 16-23 my @all_koha_dirs = qw( acqui admin authorities basket C4 catalogue cataloguing Link Here
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