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

(-)a/acqui/invoice-files.pl (-2 / +2 lines)
Lines 102-108 else { Link Here
102
                    name    => $filename,
102
                    name    => $filename,
103
                    type    => $mimetype,
103
                    type    => $mimetype,
104
                    content => $file_content,
104
                    content => $file_content,
105
                    description => $input->param('description')
105
                    description => scalar $input->param('description')
106
                );
106
                );
107
            }
107
            }
108
        }
108
        }
Lines 110-116 else { Link Here
110
            $errors{'no_file'} = 1;
110
            $errors{'no_file'} = 1;
111
        }
111
        }
112
    } elsif ( $op eq 'delete' ) {
112
    } elsif ( $op eq 'delete' ) {
113
        $mf->DelFile( id => $input->param('file_id') );
113
        $mf->DelFile( id => scalar $input->param('file_id') );
114
    }
114
    }
115
115
116
    $template->param(
116
    $template->param(
(-)a/acqui/invoice.pl (-2 / +2 lines)
Lines 82-89 elsif ( $op && $op eq 'mod' ) { Link Here
82
    my $shipment_budget_id = $input->param('shipment_budget_id');
82
    my $shipment_budget_id = $input->param('shipment_budget_id');
83
    ModInvoice(
83
    ModInvoice(
84
        invoiceid             => $invoiceid,
84
        invoiceid             => $invoiceid,
85
        shipmentdate          => output_pref( { str => $input->param('shipmentdate'), dateformat => 'iso', dateonly => 1 } ),
85
        shipmentdate          => output_pref( { str => scalar $input->param('shipmentdate'), dateformat => 'iso', dateonly => 1 } ),
86
        billingdate           => output_pref( { str => $input->param('billingdate'),  dateformat => 'iso', dateonly => 1 } ),
86
        billingdate           => output_pref( { str => scalar $input->param('billingdate'),  dateformat => 'iso', dateonly => 1 } ),
87
        shipmentcost          => $shipmentcost,
87
        shipmentcost          => $shipmentcost,
88
        shipmentcost_budgetid => $shipment_budget_id
88
        shipmentcost_budgetid => $shipment_budget_id
89
    );
89
    );
(-)a/admin/aqbudgetperiods.pl (-1 / +1 lines)
Lines 71-77 my $op = $input->param('op')||"else"; Link Here
71
71
72
# get only the columns of aqbudgetperiods in budget_period_hashref
72
# get only the columns of aqbudgetperiods in budget_period_hashref
73
my @columns = Koha::Database->new()->schema->source('Aqbudgetperiod')->columns;
73
my @columns = Koha::Database->new()->schema->source('Aqbudgetperiod')->columns;
74
my $budget_period_hashref = { map { join(' ',@columns) =~ /$_/ ? ( $_ => $input->param($_) )  : () } keys( %{$input->Vars()} ) } ;
74
my $budget_period_hashref = { map { join(' ',@columns) =~ /$_/ ? ( $_ => scalar $input->param($_) )  : () } keys( %{$input->Vars()} ) } ;
75
$budget_period_hashref->{budget_period_startdate} = dt_from_string( $input->param('budget_period_startdate') );
75
$budget_period_hashref->{budget_period_startdate} = dt_from_string( $input->param('budget_period_startdate') );
76
$budget_period_hashref->{budget_period_enddate}   = dt_from_string( $input->param('budget_period_enddate') );
76
$budget_period_hashref->{budget_period_enddate}   = dt_from_string( $input->param('budget_period_enddate') );
77
77
(-)a/admin/aqbudgets.pl (-1 / +1 lines)
Lines 69-75 if (not defined $template->{VARS}->{'CAN_user_acquisition_budget_add_del'} Link Here
69
69
70
# get only the columns of aqbudgets in budget_hash
70
# get only the columns of aqbudgets in budget_hash
71
my @columns = Koha::Database->new()->schema->source('Aqbudget')->columns;
71
my @columns = Koha::Database->new()->schema->source('Aqbudget')->columns;
72
my $budget_hash = { map { join(' ',@columns) =~ /$_/ ? ( $_ => $input->param($_) )  : () } keys( %{$input->Vars()}) } ;
72
my $budget_hash = { map { join(' ',@columns) =~ /$_/ ? ( $_ => scalar $input->param($_) )  : () } keys( %{$input->Vars()}) } ;
73
73
74
my $budget_id                 = $input->param('budget_id');
74
my $budget_id                 = $input->param('budget_id');
75
my $budget_period_id          = $input->param('budget_period_id');
75
my $budget_period_id          = $input->param('budget_period_id');
(-)a/admin/aqcontract.pl (-7 / +7 lines)
Lines 105-120 elsif ( $op eq 'add_validate' ) { Link Here
105
        ModContract({
105
        ModContract({
106
            contractstartdate   => eval { output_pref({ dt => dt_from_string( $contractstart_dt ), dateformat => 'iso', dateonly => 1 } ); },
106
            contractstartdate   => eval { output_pref({ dt => dt_from_string( $contractstart_dt ), dateformat => 'iso', dateonly => 1 } ); },
107
            contractenddate     => eval { output_pref({ dt => dt_from_string( $contractend_dt ), dateformat => 'iso', dateonly => 1 } ); },
107
            contractenddate     => eval { output_pref({ dt => dt_from_string( $contractend_dt ), dateformat => 'iso', dateonly => 1 } ); },
108
            contractname        => $input->param('contractname'),
108
            contractname        => scalar $input->param('contractname'),
109
            contractdescription => $input->param('contractdescription'),
109
            contractdescription => scalar $input->param('contractdescription'),
110
            booksellerid        => $input->param('booksellerid'),
110
            booksellerid        => scalar $input->param('booksellerid'),
111
            contractnumber      => $input->param('contractnumber'),
111
            contractnumber      => scalar $input->param('contractnumber'),
112
        });
112
        });
113
    } else {
113
    } else {
114
        AddContract({
114
        AddContract({
115
            contractname        => $input->param('contractname'),
115
            contractname        => scalar $input->param('contractname'),
116
            contractdescription => $input->param('contractdescription'),
116
            contractdescription => scalar $input->param('contractdescription'),
117
            booksellerid        => $input->param('booksellerid'),
117
            booksellerid        => scalar $input->param('booksellerid'),
118
            contractstartdate   => eval { output_pref({ dt => dt_from_string( $input->param('contractstartdate') ), dateformat => 'iso', dateonly => 1 } ); },
118
            contractstartdate   => eval { output_pref({ dt => dt_from_string( $input->param('contractstartdate') ), dateformat => 'iso', dateonly => 1 } ); },
119
            contractenddate     => eval { output_pref({ dt => dt_from_string( $input->param('contractenddate') ), dateformat => 'iso', dateonly => 1 } ); },
119
            contractenddate     => eval { output_pref({ dt => dt_from_string( $input->param('contractenddate') ), dateformat => 'iso', dateonly => 1 } ); },
120
        });
120
        });
(-)a/admin/authorised_values.pl (-2 / +2 lines)
Lines 135-142 if ($op eq 'add_form') { Link Here
135
        my $av = Koha::AuthorisedValue->new( {
135
        my $av = Koha::AuthorisedValue->new( {
136
            category => $new_category,
136
            category => $new_category,
137
            authorised_value => $new_authorised_value,
137
            authorised_value => $new_authorised_value,
138
            lib => $input->param('lib') || undef,
138
            lib => scalar $input->param('lib') || undef,
139
            lib_opac => $input->param('lib_opac') || undef,
139
            lib_opac => scalar $input->param('lib_opac') || undef,
140
            imageurl => $imageurl,
140
            imageurl => $imageurl,
141
        } );
141
        } );
142
142
(-)a/admin/branches.pl (-2 / +2 lines)
Lines 101-107 if ( $op eq 'add_form' ) { Link Here
101
        $branchcode =~ s|\s||g;
101
        $branchcode =~ s|\s||g;
102
        my $library = Koha::Library->new(
102
        my $library = Koha::Library->new(
103
            {   branchcode => $branchcode,
103
            {   branchcode => $branchcode,
104
                ( map { $_ => $input->param($_) || undef } @fields )
104
                ( map { $_ => scalar $input->param($_) || undef } @fields )
105
            }
105
            }
106
        );
106
        );
107
        eval { $library->store; };
107
        eval { $library->store; };
Lines 180-186 if ( $op eq 'add_form' ) { Link Here
180
    } else {
180
    } else {
181
        my $category = Koha::LibraryCategory->new(
181
        my $category = Koha::LibraryCategory->new(
182
            {   categorycode => $categorycode,
182
            {   categorycode => $categorycode,
183
                ( map { $_ => $input->param($_) || undef } @fields )
183
                ( map { $_ => scalar $input->param($_) || undef } @fields )
184
            }
184
            }
185
        );
185
        );
186
        $category->show_in_pulldown( $input->param('show_in_pulldown') eq 'on' );
186
        $category->show_in_pulldown( $input->param('show_in_pulldown') eq 'on' );
(-)a/admin/categories.pl (-1 / +1 lines)
Lines 154-160 elsif ( $op eq 'add_validate' ) { Link Here
154
154
155
    if ( C4::Context->preference('EnhancedMessagingPreferences') ) {
155
    if ( C4::Context->preference('EnhancedMessagingPreferences') ) {
156
        C4::Form::MessagingPreferences::handle_form_action( $input,
156
        C4::Form::MessagingPreferences::handle_form_action( $input,
157
            { categorycode => $input->param('categorycode') }, $template );
157
            { categorycode => scalar $input->param('categorycode') }, $template );
158
    }
158
    }
159
159
160
    $searchfield = q||;
160
    $searchfield = q||;
(-)a/admin/patron-attr-types.pl (-3 / +3 lines)
Lines 105-111 sub add_attribute_type_form { Link Here
105
sub error_add_attribute_type_form {
105
sub error_add_attribute_type_form {
106
    my $template = shift;
106
    my $template = shift;
107
107
108
    $template->param(description => $input->param('description'));
108
    $template->param(description => scalar $input->param('description'));
109
109
110
    if ($input->param('repeatable')) {
110
    if ($input->param('repeatable')) {
111
        $template->param(repeatable_checked => 1);
111
        $template->param(repeatable_checked => 1);
Lines 126-133 sub error_add_attribute_type_form { Link Here
126
        $template->param(display_checkout_checked => 'checked="checked"');
126
        $template->param(display_checkout_checked => 'checked="checked"');
127
    }
127
    }
128
128
129
    $template->param( category_code => $input->param('category_code') );
129
    $template->param( category_code => scalar $input->param('category_code') );
130
    $template->param( class => $input->param('class') );
130
    $template->param( class => scalar $input->param('class') );
131
131
132
    $template->param(
132
    $template->param(
133
        attribute_type_form => 1,
133
        attribute_type_form => 1,
(-)a/admin/z3950servers.pl (-1 / +1 lines)
Lines 115-119 sub ServerSearch { #find server(s) by id or name Link Here
115
115
116
sub _form_data_hashref {
116
sub _form_data_hashref {
117
    my ( $input, $fieldref ) = @_;
117
    my ( $input, $fieldref ) = @_;
118
    return { map { ( $_ => $input->param($_)//'' ) } @$fieldref };
118
    return { map { ( $_ => scalar $input->param($_)//'' ) } @$fieldref };
119
}
119
}
(-)a/authorities/auth_finder.pl (-8 / +8 lines)
Lines 93-105 if ( $op eq "do_search" ) { Link Here
93
    }
93
    }
94
94
95
    push @field_data,
95
    push @field_data,
96
      { term => "value_mainstr", val => $query->param('value_mainstr') || "" };
96
      { term => "value_mainstr", val => scalar $query->param('value_mainstr') || "" };
97
    push @field_data,
97
    push @field_data,
98
      { term => "value_main", val => $query->param('value_main') || "" };
98
      { term => "value_main", val => scalar $query->param('value_main') || "" };
99
    push @field_data,
99
    push @field_data,
100
      { term => "value_any", val => $query->param('value_any') || "" };
100
      { term => "value_any", val => scalar $query->param('value_any') || "" };
101
    push @field_data,
101
    push @field_data,
102
      { term => "value_match", val => $query->param('value_match') || "" };
102
      { term => "value_match", val => scalar $query->param('value_match') || "" };
103
103
104
    my @numbers = ();
104
    my @numbers = ();
105
    if ( $total > $resultsperpage ) {
105
    if ( $total > $resultsperpage ) {
Lines 158-167 else { Link Here
158
158
159
$template->param(
159
$template->param(
160
    op            => $op,
160
    op            => $op,
161
    value_mainstr => $query->param('value_mainstr') || '',
161
    value_mainstr => scalar $query->param('value_mainstr') || '',
162
    value_main    => $query->param('value_main') || '',
162
    value_main    => scalar $query->param('value_main') || '',
163
    value_any     => $query->param('value_any') || '',
163
    value_any     => scalar $query->param('value_any') || '',
164
    value_match   => $query->param('value_match') || '',
164
    value_match   => scalar $query->param('value_match') || '',
165
    tagid         => $tagid,
165
    tagid         => $tagid,
166
    index         => $index,
166
    index         => $index,
167
    authority_types  => $authority_types,
167
    authority_types  => $authority_types,
(-)a/catalogue/ISBDdetail.pl (-1 / +1 lines)
Lines 110-116 $template->param ( Link Here
110
    z3950_search_params => C4::Search::z3950_search_args(GetBiblioData($biblionumber)),
110
    z3950_search_params => C4::Search::z3950_search_args(GetBiblioData($biblionumber)),
111
    ocoins => GetCOinSBiblio($record),
111
    ocoins => GetCOinSBiblio($record),
112
    C4::Search::enabled_staff_search_views,
112
    C4::Search::enabled_staff_search_views,
113
    searchid            => $query->param('searchid'),
113
    searchid            => scalar $query->param('searchid'),
114
);
114
);
115
115
116
my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
116
my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
(-)a/catalogue/MARCdetail.pl (-1 / +1 lines)
Lines 316-322 $template->param ( Link Here
316
	marcview => 1,
316
	marcview => 1,
317
	z3950_search_params		=> C4::Search::z3950_search_args($biblio),
317
	z3950_search_params		=> C4::Search::z3950_search_args($biblio),
318
	C4::Search::enabled_staff_search_views,
318
	C4::Search::enabled_staff_search_views,
319
    searchid            => $query->param('searchid'),
319
    searchid            => scalar $query->param('searchid'),
320
);
320
);
321
321
322
my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
322
my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
(-)a/catalogue/detail.pl (-1 / +1 lines)
Lines 392-398 $template->param( Link Here
392
    subscriptions       => \@subs,
392
    subscriptions       => \@subs,
393
    subscriptionsnumber => $subscriptionsnumber,
393
    subscriptionsnumber => $subscriptionsnumber,
394
    subscriptiontitle   => $dat->{title},
394
    subscriptiontitle   => $dat->{title},
395
    searchid            => $query->param('searchid'),
395
    searchid            => scalar $query->param('searchid'),
396
);
396
);
397
397
398
# $debug and $template->param(debug_display => 1);
398
# $debug and $template->param(debug_display => 1);
(-)a/catalogue/itemsearch.pl (-3 / +3 lines)
Lines 189-198 if (scalar keys %params > 0) { Link Here
189
        $sortby = 'copyrightdate';
189
        $sortby = 'copyrightdate';
190
    }
190
    }
191
    my $search_params = {
191
    my $search_params = {
192
        rows => $cgi->param('rows') // 20,
192
        rows => scalar $cgi->param('rows') // 20,
193
        page => $cgi->param('page') || 1,
193
        page => scalar $cgi->param('page') || 1,
194
        sortby => $sortby,
194
        sortby => $sortby,
195
        sortorder => $cgi->param('sortorder') || 'asc',
195
        sortorder => scalar $cgi->param('sortorder') || 'asc',
196
    };
196
    };
197
197
198
    my ($results, $total_rows) = SearchItems($filter, $search_params);
198
    my ($results, $total_rows) = SearchItems($filter, $search_params);
(-)a/catalogue/labeledMARCdetail.pl (-1 / +1 lines)
Lines 114-120 $template->param ( Link Here
114
	labeledmarcview => 1,
114
	labeledmarcview => 1,
115
	z3950_search_params		=> C4::Search::z3950_search_args($biblio),
115
	z3950_search_params		=> C4::Search::z3950_search_args($biblio),
116
	C4::Search::enabled_staff_search_views,
116
	C4::Search::enabled_staff_search_views,
117
    searchid            => $query->param('searchid'),
117
    searchid            => scalar $query->param('searchid'),
118
);
118
);
119
119
120
my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
120
my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
(-)a/cataloguing/addbiblio.pl (-1 / +1 lines)
Lines 982-988 $template->param( Link Here
982
    frameworkcode => $frameworkcode,
982
    frameworkcode => $frameworkcode,
983
    itemtype => $frameworkcode,
983
    itemtype => $frameworkcode,
984
    borrowernumber => $loggedinuser,
984
    borrowernumber => $loggedinuser,
985
    tab => $input->param('tab')
985
    tab => scalar $input->param('tab')
986
);
986
);
987
$template->{'VARS'}->{'searchid'} = $searchid;
987
$template->{'VARS'}->{'searchid'} = $searchid;
988
988
(-)a/cataloguing/additem.pl (-1 / +1 lines)
Lines 919-925 $template->param( Link Here
919
    itemtagsubfield  => $itemtagsubfield,
919
    itemtagsubfield  => $itemtagsubfield,
920
    op      => $nextop,
920
    op      => $nextop,
921
    opisadd => ($nextop eq "saveitem") ? 0 : 1,
921
    opisadd => ($nextop eq "saveitem") ? 0 : 1,
922
    popup => $input->param('popup') ? 1: 0,
922
    popup => scalar $input->param('popup') ? 1: 0,
923
    C4::Search::enabled_staff_search_views,
923
    C4::Search::enabled_staff_search_views,
924
);
924
);
925
$template->{'VARS'}->{'searchid'} = $searchid;
925
$template->{'VARS'}->{'searchid'} = $searchid;
(-)a/cataloguing/merge.pl (-1 / +1 lines)
Lines 178-184 if ($merge) { Link Here
178
        result => 1,
178
        result => 1,
179
        report_records => \@report_records,
179
        report_records => \@report_records,
180
        report_header => $report_header,
180
        report_header => $report_header,
181
        ref_biblionumber => $input->param('ref_biblionumber')
181
        ref_biblionumber => scalar $input->param('ref_biblionumber')
182
    );
182
    );
183
183
184
#-------------------------
184
#-------------------------
(-)a/cataloguing/plugin_launcher.pl (-1 / +1 lines)
Lines 24-29 use Koha::FrameworkPlugin; Link Here
24
24
25
my $input = new CGI;
25
my $input = new CGI;
26
my $plugin= Koha::FrameworkPlugin->new( {
26
my $plugin= Koha::FrameworkPlugin->new( {
27
    name => $input->param("plugin_name"),
27
    name => scalar $input->param("plugin_name"),
28
});
28
});
29
$plugin->launch({ cgi => $input });
29
$plugin->launch({ cgi => $input });
(-)a/cataloguing/value_builder/EXAMPLE.pl (-2 / +2 lines)
Lines 120-127 my $launcher= sub { Link Here
120
        flagsrequired => {editcatalogue => '*'},
120
        flagsrequired => {editcatalogue => '*'},
121
    });
121
    });
122
    $template->param(
122
    $template->param(
123
        index => $cgi->param('index'),
123
        index => scalar $cgi->param('index'),
124
        result => $cgi->param('result'),
124
        result => scalar $cgi->param('result'),
125
    );
125
    );
126
    output_html_with_http_headers $cgi, $cookie, $template->output;
126
    output_html_with_http_headers $cgi, $cookie, $template->output;
127
};
127
};
(-)a/cataloguing/value_builder/marc21_linking_section.pl (-3 / +3 lines)
Lines 144-150 my $launcher = sub { Link Here
144
        $subfield_value_z =~ s/'/\\'/g;
144
        $subfield_value_z =~ s/'/\\'/g;
145
        $template->param(
145
        $template->param(
146
            fillinput        => 1,
146
            fillinput        => 1,
147
            index            => $query->param('index') . "",
147
            index            => scalar $query->param('index') . "",
148
            biblionumber     => $biblionumber ? $biblionumber : "",
148
            biblionumber     => $biblionumber ? $biblionumber : "",
149
            subfield_value_9 => "$subfield_value_9",
149
            subfield_value_9 => "$subfield_value_9",
150
            subfield_value_0 => "$subfield_value_0",
150
            subfield_value_0 => "$subfield_value_0",
Lines 277-283 my $launcher = sub { Link Here
277
        #           );
277
        #           );
278
        $template->param(
278
        $template->param(
279
            result         => \@arrayresults,
279
            result         => \@arrayresults,
280
            index          => $query->param('index') . "",
280
            index          => scalar $query->param('index') . "",
281
            startfrom      => $startfrom,
281
            startfrom      => $startfrom,
282
            displaynext    => $displaynext,
282
            displaynext    => $displaynext,
283
            displayprev    => $displayprev,
283
            displayprev    => $displayprev,
Lines 308-314 my $launcher = sub { Link Here
308
308
309
        $template->param(
309
        $template->param(
310
            itypeloop => \@itemtypes,
310
            itypeloop => \@itemtypes,
311
            index     => $query->param('index'),
311
            index     => scalar $query->param('index'),
312
            Search    => 1,
312
            Search    => 1,
313
        );
313
        );
314
    }
314
    }
(-)a/cataloguing/value_builder/unimarc_field_210c.pl (-1 / +1 lines)
Lines 136-142 my ($input) = @_; Link Here
136
        my $link="../cataloguing/plugin_launcher.pl?plugin_name=unimarc_field_210c.pl&authtypecode=EDITORS&".join("&",map {"value=".$_} @value)."&op=do_search&type=intranet&index=$index";
136
        my $link="../cataloguing/plugin_launcher.pl?plugin_name=unimarc_field_210c.pl&authtypecode=EDITORS&".join("&",map {"value=".$_} @value)."&op=do_search&type=intranet&index=$index";
137
137
138
        $template->param(result => $results) if $results;
138
        $template->param(result => $results) if $results;
139
        $template->param('index' => $query->param('index'));
139
        $template->param('index' => scalar $query->param('index'));
140
        $template->param(startfrom=> $startfrom,
140
        $template->param(startfrom=> $startfrom,
141
                                displaynext=> $displaynext,
141
                                displaynext=> $displaynext,
142
                                displayprev=> $displayprev,
142
                                displayprev=> $displayprev,
(-)a/cataloguing/value_builder/unimarc_field_4XX.pl (-3 / +3 lines)
Lines 324-330 sub plugin { Link Here
324
        $subfield_value_y =~ s/'/\\'/g;
324
        $subfield_value_y =~ s/'/\\'/g;
325
        $template->param(
325
        $template->param(
326
            fillinput        => 1,
326
            fillinput        => 1,
327
            index            => $query->param('index') . "",
327
            index            => scalar $query->param('index') . "",
328
            biblionumber     => $biblionumber ? $biblionumber : "",
328
            biblionumber     => $biblionumber ? $biblionumber : "",
329
            subfield_value_9 => "$subfield_value_9",
329
            subfield_value_9 => "$subfield_value_9",
330
            subfield_value_0 => "$subfield_value_0",
330
            subfield_value_0 => "$subfield_value_0",
Lines 478-484 sub plugin { Link Here
478
#           );
478
#           );
479
        $template->param(
479
        $template->param(
480
            result         => \@arrayresults,
480
            result         => \@arrayresults,
481
            index          => $query->param('index') . "",
481
            index          => scalar $query->param('index') . "",
482
            startfrom      => $startfrom,
482
            startfrom      => $startfrom,
483
            displaynext    => $displaynext,
483
            displaynext    => $displaynext,
484
            displayprev    => $displayprev,
484
            displayprev    => $displayprev,
Lines 512-518 sub plugin { Link Here
512
512
513
        $template->param(    #classlist => $classlist,
513
        $template->param(    #classlist => $classlist,
514
            itypeloop    => \@itemtypes,
514
            itypeloop    => \@itemtypes,
515
            index        => $query->param('index'),
515
            index        => scalar $query->param('index'),
516
            Search       => 1,
516
            Search       => 1,
517
        );
517
        );
518
    }
518
    }
(-)a/cataloguing/z3950_auth_search.pl (-1 / +1 lines)
Lines 86-92 if ( @id==0 ) { Link Here
86
}
86
}
87
87
88
my $pars= {
88
my $pars= {
89
        random => $input->param('random') || rand(1000000000),
89
        random => scalar $input->param('random') || rand(1000000000),
90
        page => $page,
90
        page => $page,
91
        id => \@id,
91
        id => \@id,
92
        nameany => $nameany,
92
        nameany => $nameany,
(-)a/circ/circulation.pl (-1 / +1 lines)
Lines 621-627 $template->param( Link Here
621
    branchname        => GetBranchName($borrower->{'branchcode'}),
621
    branchname        => GetBranchName($borrower->{'branchcode'}),
622
    printer           => $printer,
622
    printer           => $printer,
623
    printername       => $printer,
623
    printername       => $printer,
624
    was_renewed       => $query->param('was_renewed') ? 1 : 0,
624
    was_renewed       => scalar $query->param('was_renewed') ? 1 : 0,
625
    expiry            => $borrower->{'dateexpiry'},
625
    expiry            => $borrower->{'dateexpiry'},
626
    roadtype          => $roadtype,
626
    roadtype          => $roadtype,
627
    amountold         => $amountold,
627
    amountold         => $amountold,
(-)a/circ/returns.pl (-2 / +2 lines)
Lines 75-82 if ($session->param('branch') eq 'NO_LIBRARY_SET'){ Link Here
75
if ( $query->param('print_slip') ) {
75
if ( $query->param('print_slip') ) {
76
    $template->param(
76
    $template->param(
77
        print_slip     => 1,
77
        print_slip     => 1,
78
        borrowernumber => $query->param('borrowernumber'),
78
        borrowernumber => scalar $query->param('borrowernumber'),
79
        biblionumber   => $query->param('biblionumber'),
79
        biblionumber   => scalar $query->param('biblionumber'),
80
    );
80
    );
81
}
81
}
82
82
(-)a/circ/selectbranchprinter.pl (-1 / +1 lines)
Lines 119-125 foreach ($query->param()) { Link Here
119
    $_ eq "oldreferer" and next;  # disclude oldreferer
119
    $_ eq "oldreferer" and next;  # disclude oldreferer
120
    push @recycle_loop, {
120
    push @recycle_loop, {
121
        param => $_,
121
        param => $_,
122
        value => $query->param($_),
122
        value => scalar $query->param($_),
123
    };
123
    };
124
}
124
}
125
125
(-)a/course_reserves/add_items.pl (-7 / +7 lines)
Lines 79-96 if ( $action eq 'lookup' ) { Link Here
79
79
80
} elsif ( $action eq 'add' ) {
80
} elsif ( $action eq 'add' ) {
81
    my $ci_id = ModCourseItem(
81
    my $ci_id = ModCourseItem(
82
        itemnumber    => $cgi->param('itemnumber'),
82
        itemnumber    => scalar $cgi->param('itemnumber'),
83
        itype         => $cgi->param('itype'),
83
        itype         => scalar $cgi->param('itype'),
84
        ccode         => $cgi->param('ccode'),
84
        ccode         => scalar $cgi->param('ccode'),
85
        holdingbranch => $cgi->param('holdingbranch'),
85
        holdingbranch => scalar $cgi->param('holdingbranch'),
86
        location      => $cgi->param('location'),
86
        location      => scalar $cgi->param('location'),
87
    );
87
    );
88
88
89
    my $cr_id = ModCourseReserve(
89
    my $cr_id = ModCourseReserve(
90
        course_id   => $course_id,
90
        course_id   => $course_id,
91
        ci_id       => $ci_id,
91
        ci_id       => $ci_id,
92
        staff_note  => $cgi->param('staff_note'),
92
        staff_note  => scalar $cgi->param('staff_note'),
93
        public_note => $cgi->param('public_note'),
93
        public_note => scalar $cgi->param('public_note'),
94
    );
94
    );
95
95
96
    if ( $return ) {
96
    if ( $return ) {
(-)a/course_reserves/course-details.pl (-1 / +1 lines)
Lines 47-53 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
47
);
47
);
48
48
49
if ( $action eq 'del_reserve' ) {
49
if ( $action eq 'del_reserve' ) {
50
    DelCourseReserve( cr_id => $cgi->param('cr_id') );
50
    DelCourseReserve( cr_id => scalar $cgi->param('cr_id') );
51
}
51
}
52
52
53
my $course          = GetCourse($course_id);
53
my $course          = GetCourse($course_id);
(-)a/labels/label-edit-layout.pl (-7 / +7 lines)
Lines 103-118 elsif ($op eq 'save') { Link Here
103
        $cgi->param('format_string', $format_string);
103
        $cgi->param('format_string', $format_string);
104
    }
104
    }
105
    my @params = (
105
    my @params = (
106
                    barcode_type    => $cgi->param('barcode_type') || 'CODE39',
106
                    barcode_type    => scalar $cgi->param('barcode_type') || 'CODE39',
107
                    printing_type   => $cgi->param('printing_type') || 'BAR',
107
                    printing_type   => scalar $cgi->param('printing_type') || 'BAR',
108
                    layout_name     => $cgi->param('layout_name') || 'DEFAULT',
108
                    layout_name     => scalar $cgi->param('layout_name') || 'DEFAULT',
109
                    guidebox        => ($cgi->param('guidebox') ? 1 : 0),
109
                    guidebox        => ($cgi->param('guidebox') ? 1 : 0),
110
                    oblique_title   => ($cgi->param('oblique_title') ? 1 : 0),
110
                    oblique_title   => ($cgi->param('oblique_title') ? 1 : 0),
111
                    font            => $cgi->param('font') || 'TR',
111
                    font            => scalar $cgi->param('font') || 'TR',
112
                    font_size       => $cgi->param('font_size') || 3,
112
                    font_size       => scalar $cgi->param('font_size') || 3,
113
                    callnum_split   => ($cgi->param('callnum_split') ? 1 : 0),
113
                    callnum_split   => ($cgi->param('callnum_split') ? 1 : 0),
114
                    text_justify    => $cgi->param('text_justify') || 'L',
114
                    text_justify    => scalar $cgi->param('text_justify') || 'L',
115
                    format_string   => $cgi->param('format_string') || 'title, author, isbn, issn, itemtype, barcode, itemcallnumber',
115
                    format_string   => scalar $cgi->param('format_string') || 'title, author, isbn, issn, itemtype, barcode, itemcallnumber',
116
    );
116
    );
117
    if ($layout_id) {   # if a label_id was passed in, this is an update to an existing layout
117
    if ($layout_id) {   # if a label_id was passed in, this is an update to an existing layout
118
        $layout = C4::Labels::Layout->retrieve(layout_id => $layout_id);
118
        $layout = C4::Labels::Layout->retrieve(layout_id => $layout_id);
(-)a/labels/label-edit-profile.pl (-7 / +7 lines)
Lines 54-66 if ($op eq 'edit') { Link Here
54
}
54
}
55
elsif ($op eq 'save') {
55
elsif ($op eq 'save') {
56
    my @params = (
56
    my @params = (
57
        printer_name        => $cgi->param('printer_name') || 'DEFAULT PRINTER',
57
        printer_name        => scalar $cgi->param('printer_name') || 'DEFAULT PRINTER',
58
        paper_bin           => $cgi->param('paper_bin') || 'Tray 1',
58
        paper_bin           => scalar $cgi->param('paper_bin') || 'Tray 1',
59
        offset_horz         => $cgi->param('offset_horz') || 0,
59
        offset_horz         => scalar $cgi->param('offset_horz') || 0,
60
        offset_vert         => $cgi->param('offset_vert') || 0,
60
        offset_vert         => scalar $cgi->param('offset_vert') || 0,
61
        creep_horz          => $cgi->param('creep_horz') || 0,
61
        creep_horz          => scalar $cgi->param('creep_horz') || 0,
62
        creep_vert          => $cgi->param('creep_vert') || 0,
62
        creep_vert          => scalar $cgi->param('creep_vert') || 0,
63
        units               => $cgi->param('units') || 'POINT',
63
        units               => scalar $cgi->param('units') || 'POINT',
64
    );
64
    );
65
    if ($profile_id) {   # if a label_id was passed in, this is an update to an existing layout
65
    if ($profile_id) {   # if a label_id was passed in, this is an update to an existing layout
66
        $profile = C4::Labels::Profile->retrieve(profile_id => $profile_id);
66
        $profile = C4::Labels::Profile->retrieve(profile_id => $profile_id);
(-)a/labels/label-edit-template.pl (-18 / +18 lines)
Lines 61-82 if ($op eq 'edit') { Link Here
61
    }
61
    }
62
}
62
}
63
elsif ($op eq 'save') {
63
elsif ($op eq 'save') {
64
    my @params = (      profile_id      => $cgi->param('profile_id'),
64
    my @params = (      profile_id      => scalar $cgi->param('profile_id'),
65
                        template_code   => $cgi->param('template_code') || 'DEFAULT_TEMPLATE',
65
                        template_code   => scalar $cgi->param('template_code') || 'DEFAULT_TEMPLATE',
66
                        template_desc   => $cgi->param('template_desc') || 'Default description',
66
                        template_desc   => scalar $cgi->param('template_desc') || 'Default description',
67
                        page_width      => $cgi->param('page_width') || 0,
67
                        page_width      => scalar $cgi->param('page_width') || 0,
68
                        page_height     => $cgi->param('page_height') || 0,
68
                        page_height     => scalar $cgi->param('page_height') || 0,
69
                        label_width     => $cgi->param('label_width') || 0,
69
                        label_width     => scalar $cgi->param('label_width') || 0,
70
                        label_height    => $cgi->param('label_height') || 0,
70
                        label_height    => scalar $cgi->param('label_height') || 0,
71
                        top_text_margin => $cgi->param('top_text_margin') || 0,
71
                        top_text_margin => scalar $cgi->param('top_text_margin') || 0,
72
                        left_text_margin=> $cgi->param('left_text_margin') || 0,
72
                        left_text_margin=> scalar $cgi->param('left_text_margin') || 0,
73
                        top_margin      => $cgi->param('top_margin') || 0,
73
                        top_margin      => scalar $cgi->param('top_margin') || 0,
74
                        left_margin     => $cgi->param('left_margin') || 0,
74
                        left_margin     => scalar $cgi->param('left_margin') || 0,
75
                        cols            => $cgi->param('cols') || 0,
75
                        cols            => scalar $cgi->param('cols') || 0,
76
                        rows            => $cgi->param('rows') || 0,
76
                        rows            => scalar $cgi->param('rows') || 0,
77
                        col_gap         => $cgi->param('col_gap') || 0,
77
                        col_gap         => scalar $cgi->param('col_gap') || 0,
78
                        row_gap         => $cgi->param('row_gap') || 0,
78
                        row_gap         => scalar $cgi->param('row_gap') || 0,
79
                        units           => $cgi->param('units') || 'POINT',
79
                        units           => scalar $cgi->param('units') || 'POINT',
80
                        );
80
                        );
81
    if ($template_id) {   # if a template_id was passed in, this is an update to an existing template
81
    if ($template_id) {   # if a template_id was passed in, this is an update to an existing template
82
        $label_template = C4::Labels::Template->retrieve(template_id => $template_id);
82
        $label_template = C4::Labels::Template->retrieve(template_id => $template_id);
Lines 87-93 elsif ($op eq 'save') { Link Here
87
                $old_profile->set_attr(template_id => 0);
87
                $old_profile->set_attr(template_id => 0);
88
                $old_profile->save();
88
                $old_profile->save();
89
            }
89
            }
90
            my $new_profile = C4::Labels::Profile->retrieve(profile_id => $cgi->param('profile_id'));
90
            my $new_profile = C4::Labels::Profile->retrieve(profile_id => scalar $cgi->param('profile_id'));
91
            $new_profile->set_attr(template_id => $label_template->get_attr('template_id'));
91
            $new_profile->set_attr(template_id => $label_template->get_attr('template_id'));
92
            $new_profile->save();
92
            $new_profile->save();
93
        }
93
        }
Lines 106-112 elsif ($op eq 'save') { Link Here
106
        $label_template = C4::Labels::Template->new(@params);
106
        $label_template = C4::Labels::Template->new(@params);
107
        my $template_id = $label_template->save();
107
        my $template_id = $label_template->save();
108
        if ($cgi->param('profile_id')) {
108
        if ($cgi->param('profile_id')) {
109
            my $profile = C4::Labels::Profile->retrieve(profile_id => $cgi->param('profile_id'));
109
            my $profile = C4::Labels::Profile->retrieve(profile_id => scalar $cgi->param('profile_id'));
110
            $profile->set_attr(template_id => $template_id) if $template_id != $profile->get_attr('template_id');
110
            $profile->set_attr(template_id => $template_id) if $template_id != $profile->get_attr('template_id');
111
            $profile->save();
111
            $profile->save();
112
        }
112
        }
(-)a/members/files.pl (-2 / +2 lines)
Lines 91-97 else { Link Here
91
                    name    => $filename,
91
                    name    => $filename,
92
                    type    => $mimetype,
92
                    type    => $mimetype,
93
                    content => $file_content,
93
                    content => $file_content,
94
                    description => $cgi->param('description'),
94
                    description => scalar $cgi->param('description'),
95
                );
95
                );
96
            }
96
            }
97
        }
97
        }
Lines 99-105 else { Link Here
99
            $errors{'no_file'} = 1;
99
            $errors{'no_file'} = 1;
100
        }
100
        }
101
    } elsif ( $op eq 'delete' ) {
101
    } elsif ( $op eq 'delete' ) {
102
        $bf->DelFile( id => $cgi->param('file_id') );
102
        $bf->DelFile( id => scalar $cgi->param('file_id') );
103
    }
103
    }
104
104
105
    $template->param(
105
    $template->param(
(-)a/members/member.pl (-3 / +3 lines)
Lines 77-85 my $view = $input->request_method() eq "GET" ? "show_form" : "show_results"; Link Here
77
$template->param(
77
$template->param(
78
    patron_lists => [ GetPatronLists() ],
78
    patron_lists => [ GetPatronLists() ],
79
    searchmember        => $searchmember,
79
    searchmember        => $searchmember,
80
    branchcode_filter   => $input->param('branchcode_filter'),
80
    branchcode_filter   => scalar $input->param('branchcode_filter'),
81
    categorycode_filter => $input->param('categorycode_filter'),
81
    categorycode_filter => scalar $input->param('categorycode_filter'),
82
    searchtype          => $input->param('searchtype') || 'start_with',
82
    searchtype          => scalar $input->param('searchtype') || 'start_with',
83
    searchfieldstype    => $searchfieldstype,
83
    searchfieldstype    => $searchfieldstype,
84
    PatronsPerPage      => C4::Context->preference("PatronsPerPage") || 20,
84
    PatronsPerPage      => C4::Context->preference("PatronsPerPage") || 20,
85
    view                => $view,
85
    view                => $view,
(-)a/members/memberentry.pl (-1 / +1 lines)
Lines 119-125 if ( $input->param('add_debarment') ) { Link Here
119
        {
119
        {
120
            borrowernumber => $borrowernumber,
120
            borrowernumber => $borrowernumber,
121
            type           => 'MANUAL',
121
            type           => 'MANUAL',
122
            comment        => $input->param('debarred_comment'),
122
            comment        => scalar $input->param('debarred_comment'),
123
            expiration     => $expiration,
123
            expiration     => $expiration,
124
        }
124
        }
125
    );
125
    );
(-)a/members/mod_debarment.pl (-1 / +1 lines)
Lines 44-50 if ( $action eq 'del' ) { Link Here
44
    AddDebarment(
44
    AddDebarment(
45
        {   borrowernumber => $borrowernumber,
45
        {   borrowernumber => $borrowernumber,
46
            type           => 'MANUAL',
46
            type           => 'MANUAL',
47
            comment        => $cgi->param('comment'),
47
            comment        => scalar $cgi->param('comment'),
48
            expiration     => $expiration,
48
            expiration     => $expiration,
49
        }
49
        }
50
    );
50
    );
(-)a/members/moremember.pl (-1 / +1 lines)
Lines 324-330 $template->param( Link Here
324
    borrowernumber  => $borrowernumber,
324
    borrowernumber  => $borrowernumber,
325
    othernames      => $data->{'othernames'},
325
    othernames      => $data->{'othernames'},
326
    categoryname    => $data->{'description'},
326
    categoryname    => $data->{'description'},
327
    was_renewed     => $input->param('was_renewed') ? 1 : 0,
327
    was_renewed     => scalar $input->param('was_renewed') ? 1 : 0,
328
    branch          => $branch,
328
    branch          => $branch,
329
    todaysdate      => output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 }),
329
    todaysdate      => output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 }),
330
    totalprice      => sprintf("%.2f", $totalprice),
330
    totalprice      => sprintf("%.2f", $totalprice),
(-)a/members/nl-search.pl (-21 / +21 lines)
Lines 111-145 if ( $op && $op eq 'search' ) { Link Here
111
    my %borrower = (
111
    my %borrower = (
112
        'surname'      => NLGetSurname( $cgi->param('navn') ),
112
        'surname'      => NLGetSurname( $cgi->param('navn') ),
113
        'firstname'    => NLGetFirstname( $cgi->param('navn') ),
113
        'firstname'    => NLGetFirstname( $cgi->param('navn') ),
114
        'sex'          => $cgi->param('kjonn'),
114
        'sex'          => scalar $cgi->param('kjonn'),
115
        'dateofbirth'  => $cgi->param('fdato'),
115
        'dateofbirth'  => scalar $cgi->param('fdato'),
116
        'cardnumber'   => $cgi->param('lnr'),
116
        'cardnumber'   => scalar $cgi->param('lnr'),
117
        'userid'       => $cgi->param('lnr'),
117
        'userid'       => scalar $cgi->param('lnr'),
118
        'address'      => $cgi->param('p_adresse1'),
118
        'address'      => scalar $cgi->param('p_adresse1'),
119
        'address2'     => $cgi->param('p_adresse2'),
119
        'address2'     => scalar $cgi->param('p_adresse2'),
120
        'zipcode'      => $cgi->param('p_postnr'),
120
        'zipcode'      => scalar $cgi->param('p_postnr'),
121
        'city'         => $cgi->param('p_sted'),
121
        'city'         => scalar $cgi->param('p_sted'),
122
        'country'      => $cgi->param('p_land'),
122
        'country'      => scalar $cgi->param('p_land'),
123
        'B_address'    => $cgi->param('m_adresse1'),
123
        'B_address'    => scalar $cgi->param('m_adresse1'),
124
        'B_address2'   => $cgi->param('m_adresse2'),
124
        'B_address2'   => scalar $cgi->param('m_adresse2'),
125
        'B_zipcode'    => $cgi->param('m_postnr'),
125
        'B_zipcode'    => scalar $cgi->param('m_postnr'),
126
        'B_city'       => $cgi->param('m_sted'),
126
        'B_city'       => scalar $cgi->param('m_sted'),
127
        'B_country'    => $cgi->param('m_land'),
127
        'B_country'    => scalar $cgi->param('m_land'),
128
        'password'     => NLDecodePin( $cgi->param('pin') ),
128
        'password'     => NLDecodePin( $cgi->param('pin') ),
129
        'dateexpiry'   => $cgi->param('gyldig_til'),
129
        'dateexpiry'   => scalar $cgi->param('gyldig_til'),
130
        'email'        => $cgi->param('epost'),
130
        'email'        => scalar $cgi->param('epost'),
131
        'mobile'       => $cgi->param('tlf_mobil'),
131
        'mobile'       => scalar $cgi->param('tlf_mobil'),
132
        'phone'        => $cgi->param('tlf_hjemme'),
132
        'phone'        => scalar $cgi->param('tlf_hjemme'),
133
        'phonepro'     => $cgi->param('tlf_jobb'),
133
        'phonepro'     => scalar $cgi->param('tlf_jobb'),
134
        'branchcode'   => $userenv->{'branch'},
134
        'branchcode'   => $userenv->{'branch'},
135
        'categorycode' => $cgi->param('categorycode'),
135
        'categorycode' => scalar $cgi->param('categorycode'),
136
    );
136
    );
137
    # Add the new patron
137
    # Add the new patron
138
    my $borrowernumber = &AddMember(%borrower);
138
    my $borrowernumber = &AddMember(%borrower);
139
    if ( $borrowernumber ) {
139
    if ( $borrowernumber ) {
140
        # Add extended patron attributes
140
        # Add extended patron attributes
141
        SetBorrowerAttributes($borrowernumber, [
141
        SetBorrowerAttributes($borrowernumber, [
142
            { code => 'fnr', value => $cgi->param('fnr_hash') },
142
            { code => 'fnr', value => scalar $cgi->param('fnr_hash') },
143
        ], 'no_branch_limit' );
143
        ], 'no_branch_limit' );
144
        # Override the default sync data created by AddMember
144
        # Override the default sync data created by AddMember
145
        my $borrowersync = Koha::Database->new->schema->resultset('BorrowerSync')->find({
145
        my $borrowersync = Koha::Database->new->schema->resultset('BorrowerSync')->find({
(-)a/members/paycollect.pl (-1 / +1 lines)
Lines 96-102 if ( $individual || $writeoff ) { Link Here
96
    $template->param(
96
    $template->param(
97
        selected_accts => $select_lines,
97
        selected_accts => $select_lines,
98
        amt            => $total_due,
98
        amt            => $total_due,
99
        selected_accts_notes => $input->param('notes'),
99
        selected_accts_notes => scalar $input->param('notes'),
100
    );
100
    );
101
}
101
}
102
102
(-)a/opac/opac-account.pl (-4 / +4 lines)
Lines 67-76 $template->param( Link Here
67
    ACCOUNT_LINES => $accts,
67
    ACCOUNT_LINES => $accts,
68
    total         => sprintf( "%.2f", $total ),
68
    total         => sprintf( "%.2f", $total ),
69
    accountview   => 1,
69
    accountview   => 1,
70
    message       => $query->param('message') || q{},
70
    message       => scalar $query->param('message') || q{},
71
    message_value => $query->param('message_value') || q{},
71
    message_value => scalar $query->param('message_value') || q{},
72
    payment       => $query->param('payment') || q{},
72
    payment       => scalar $query->param('payment') || q{},
73
    payment_error => $query->param('payment-error') || q{},
73
    payment_error => scalar $query->param('payment-error') || q{},
74
);
74
);
75
75
76
output_html_with_http_headers $query, $cookie, $template->output, undef, { force_no_caching => 1 };
76
output_html_with_http_headers $query, $cookie, $template->output, undef, { force_no_caching => 1 };
(-)a/opac/opac-review.pl (-1 / +1 lines)
Lines 74-80 $template->param( Link Here
74
    'biblionumber'   => $biblionumber,
74
    'biblionumber'   => $biblionumber,
75
    'borrowernumber' => $borrowernumber,
75
    'borrowernumber' => $borrowernumber,
76
    'review'         => $clean || $savedreview->{'review'},
76
    'review'         => $clean || $savedreview->{'review'},
77
	'reviewid'       => $query->param('reviewid') || 0,
77
	'reviewid'       => scalar $query->param('reviewid') || 0,
78
    'title'          => $biblio->{'title'},
78
    'title'          => $biblio->{'title'},
79
);
79
);
80
80
(-)a/opac/opac-search.pl (-1 / +1 lines)
Lines 363-369 if ( $template_type && $template_type eq 'advsearch' ) { Link Here
363
    # but let the user override it
363
    # but let the user override it
364
    if (defined $cgi->param('expanded_options')) {
364
    if (defined $cgi->param('expanded_options')) {
365
        if ( ($cgi->param('expanded_options') == 0) || ($cgi->param('expanded_options') == 1 ) ) {
365
        if ( ($cgi->param('expanded_options') == 0) || ($cgi->param('expanded_options') == 1 ) ) {
366
            $template->param( expanded_options => $cgi->param('expanded_options'));
366
            $template->param( expanded_options => scalar $cgi->param('expanded_options'));
367
        }
367
        }
368
    }
368
    }
369
369
(-)a/opac/opac-serial-issues.pl (-2 / +2 lines)
Lines 78-84 if ( $selectview eq "full" ) { Link Here
78
    # $subscription->{opacnote} =~ s/\n/\<br\/\>/g;
78
    # $subscription->{opacnote} =~ s/\n/\<br\/\>/g;
79
79
80
    $template->param(
80
    $template->param(
81
        biblionumber   => $query->param('biblionumber'),
81
        biblionumber   => scalar $query->param('biblionumber'),
82
        years          => $subscriptioninformation,
82
        years          => $subscriptioninformation,
83
        yearmin        => $yearmin,
83
        yearmin        => $yearmin,
84
        yearmax        => $yearmax,
84
        yearmax        => $yearmax,
Lines 114-120 else { Link Here
114
    # $subscription->{opacnote} =~ s/\n/\<br\/\>/g;
114
    # $subscription->{opacnote} =~ s/\n/\<br\/\>/g;
115
115
116
    $template->param(
116
    $template->param(
117
        biblionumber      => $query->param('biblionumber'),
117
        biblionumber      => scalar $query->param('biblionumber'),
118
        subscription_LOOP => $subscriptions,
118
        subscription_LOOP => $subscriptions,
119
    );
119
    );
120
}
120
}
(-)a/opac/opac-shelves.pl (-1 / +1 lines)
Lines 355-361 $template->param( Link Here
355
    shelf    => $shelf,
355
    shelf    => $shelf,
356
    messages => \@messages,
356
    messages => \@messages,
357
    category => $category,
357
    category => $category,
358
    print    => $query->param('print') || 0,
358
    print    => scalar $query->param('print') || 0,
359
    listsview => 1,
359
    listsview => 1,
360
);
360
);
361
361
(-)a/opac/opac-topissues.pl (-1 / +1 lines)
Lines 88-94 foreach my $type (@advanced_search_types) { Link Here
88
        $type = 'itemtype';
88
        $type = 'itemtype';
89
    }
89
    }
90
    $params->{$type} = $input->param($type);
90
    $params->{$type} = $input->param($type);
91
    $template->param('selected_' . $type => $input->param($type));
91
    $template->param('selected_' . $type => scalar $input->param($type));
92
}
92
}
93
93
94
my @results = GetTopIssues($params);
94
my @results = GetTopIssues($params);
(-)a/opac/opac-user.pl (-1 / +1 lines)
Lines 353-359 $template->param( Link Here
353
    SuspendHoldsOpac         => C4::Context->preference('SuspendHoldsOpac'),
353
    SuspendHoldsOpac         => C4::Context->preference('SuspendHoldsOpac'),
354
    AutoResumeSuspendedHolds => C4::Context->preference('AutoResumeSuspendedHolds'),
354
    AutoResumeSuspendedHolds => C4::Context->preference('AutoResumeSuspendedHolds'),
355
    OpacHoldNotes            => C4::Context->preference('OpacHoldNotes'),
355
    OpacHoldNotes            => C4::Context->preference('OpacHoldNotes'),
356
    failed_holds             => $query->param('failed_holds'),
356
    failed_holds             => scalar $query->param('failed_holds'),
357
);
357
);
358
358
359
output_html_with_http_headers $query, $cookie, $template->output, undef, { force_no_caching => 1 };
359
output_html_with_http_headers $query, $cookie, $template->output, undef, { force_no_caching => 1 };
(-)a/patron_lists/list.pl (-1 / +1 lines)
Lines 38-44 my ( $template, $logged_in_user, $cookie ) = get_template_and_user( Link Here
38
);
38
);
39
39
40
my ($list) =
40
my ($list) =
41
  GetPatronLists( { patron_list_id => $cgi->param('patron_list_id') } );
41
  GetPatronLists( { patron_list_id => scalar $cgi->param('patron_list_id') } );
42
42
43
my @patrons_to_add = $cgi->multi_param('patrons_to_add');
43
my @patrons_to_add = $cgi->multi_param('patrons_to_add');
44
if (@patrons_to_add) {
44
if (@patrons_to_add) {
(-)a/patroncards/edit-profile.pl (-7 / +7 lines)
Lines 54-66 if ($op eq 'edit') { Link Here
54
}
54
}
55
elsif ($op eq 'save') {
55
elsif ($op eq 'save') {
56
    my @params = (
56
    my @params = (
57
        printer_name        => $cgi->param('printer_name'),
57
        printer_name        => scalar $cgi->param('printer_name'),
58
        paper_bin           => $cgi->param('paper_bin'),
58
        paper_bin           => scalar $cgi->param('paper_bin'),
59
        offset_horz         => $cgi->param('offset_horz'),
59
        offset_horz         => scalar $cgi->param('offset_horz'),
60
        offset_vert         => $cgi->param('offset_vert'),
60
        offset_vert         => scalar $cgi->param('offset_vert'),
61
        creep_horz          => $cgi->param('creep_horz'),
61
        creep_horz          => scalar $cgi->param('creep_horz'),
62
        creep_vert          => $cgi->param('creep_vert'),
62
        creep_vert          => scalar $cgi->param('creep_vert'),
63
        units               => $cgi->param('units'),
63
        units               => scalar $cgi->param('units'),
64
    );
64
    );
65
    if ($profile_id) {   # if a label_id was passed in, this is an update to an existing layout
65
    if ($profile_id) {   # if a label_id was passed in, this is an update to an existing layout
66
        $profile = C4::Patroncards::Profile->retrieve(profile_id => $profile_id);
66
        $profile = C4::Patroncards::Profile->retrieve(profile_id => $profile_id);
(-)a/patroncards/edit-template.pl (-16 / +16 lines)
Lines 53-72 if ($op eq 'edit') { Link Here
53
    $profile_list = get_all_profiles(field_list => 'profile_id,printer_name,paper_bin', filter => "template_id=$template_id OR template_id=''");
53
    $profile_list = get_all_profiles(field_list => 'profile_id,printer_name,paper_bin', filter => "template_id=$template_id OR template_id=''");
54
}
54
}
55
elsif ($op eq 'save') {
55
elsif ($op eq 'save') {
56
    my @params = (      profile_id      => $cgi->param('profile_id') || '',
56
    my @params = (      profile_id      => scalar $cgi->param('profile_id') || '',
57
                        template_code   => $cgi->param('template_code'),
57
                        template_code   => scalar $cgi->param('template_code'),
58
                        template_desc   => $cgi->param('template_desc'),
58
                        template_desc   => scalar $cgi->param('template_desc'),
59
                        page_width      => $cgi->param('page_width'),
59
                        page_width      => scalar $cgi->param('page_width'),
60
                        page_height     => $cgi->param('page_height'),
60
                        page_height     => scalar $cgi->param('page_height'),
61
                        label_width     => $cgi->param('card_width'),
61
                        label_width     => scalar $cgi->param('card_width'),
62
                        label_height    => $cgi->param('card_height'),
62
                        label_height    => scalar $cgi->param('card_height'),
63
                        top_margin      => $cgi->param('top_margin'),
63
                        top_margin      => scalar $cgi->param('top_margin'),
64
                        left_margin     => $cgi->param('left_margin'),
64
                        left_margin     => scalar $cgi->param('left_margin'),
65
                        cols            => $cgi->param('cols'),
65
                        cols            => scalar $cgi->param('cols'),
66
                        rows            => $cgi->param('rows'),
66
                        rows            => scalar $cgi->param('rows'),
67
                        col_gap         => $cgi->param('col_gap'),
67
                        col_gap         => scalar $cgi->param('col_gap'),
68
                        row_gap         => $cgi->param('row_gap'),
68
                        row_gap         => scalar $cgi->param('row_gap'),
69
                        units           => $cgi->param('units'),
69
                        units           => scalar $cgi->param('units'),
70
                        );
70
                        );
71
    if ($template_id) {   # if a template_id was passed in, this is an update to an existing template
71
    if ($template_id) {   # if a template_id was passed in, this is an update to an existing template
72
        $card_template = C4::Patroncards::Template->retrieve(template_id => $template_id);
72
        $card_template = C4::Patroncards::Template->retrieve(template_id => $template_id);
Lines 76-82 elsif ($op eq 'save') { Link Here
76
                $old_profile->set_attr(template_id => 0);
76
                $old_profile->set_attr(template_id => 0);
77
                $old_profile->save();
77
                $old_profile->save();
78
            }
78
            }
79
            my $new_profile = C4::Patroncards::Profile->retrieve(profile_id => $cgi->param('profile_id'));
79
            my $new_profile = C4::Patroncards::Profile->retrieve(profile_id => scalar $cgi->param('profile_id'));
80
            $new_profile->set_attr(template_id => $card_template->get_attr('template_id'));
80
            $new_profile->set_attr(template_id => $card_template->get_attr('template_id'));
81
            $new_profile->save();
81
            $new_profile->save();
82
        }
82
        }
Lines 88-94 elsif ($op eq 'save') { Link Here
88
        die "Error: $card_template\n" if !ref($card_template);
88
        die "Error: $card_template\n" if !ref($card_template);
89
        my $template_id = $card_template->save();
89
        my $template_id = $card_template->save();
90
        if ($cgi->param('profile_id')) {
90
        if ($cgi->param('profile_id')) {
91
            my $profile = C4::Patroncards::Profile->retrieve(profile_id => $cgi->param('profile_id'));
91
            my $profile = C4::Patroncards::Profile->retrieve(profile_id => scalar $cgi->param('profile_id'));
92
            $profile->set_attr(template_id => $template_id) if $template_id != $profile->get_attr('template_id');
92
            $profile->set_attr(template_id => $template_id) if $template_id != $profile->get_attr('template_id');
93
            $profile->save();
93
            $profile->save();
94
        }
94
        }
(-)a/reports/guided_reports.pl (-20 / +20 lines)
Lines 286-301 elsif ( $phase eq 'Report on this Area' ) { Link Here
286
        'areas'   => get_report_areas(),
286
        'areas'   => get_report_areas(),
287
        'cache_expiry' => $cache_expiry,
287
        'cache_expiry' => $cache_expiry,
288
        'usecache' => $usecache,
288
        'usecache' => $usecache,
289
        'public' => $input->param('public'),
289
        'public' => scalar $input->param('public'),
290
      );
290
      );
291
    } else {
291
    } else {
292
      # they have choosen a new report and the area to report on
292
      # they have choosen a new report and the area to report on
293
      $template->param(
293
      $template->param(
294
          'build2' => 1,
294
          'build2' => 1,
295
          'area'   => $input->param('area'),
295
          'area'   => scalar $input->param('area'),
296
          'types'  => get_report_types(),
296
          'types'  => get_report_types(),
297
          'cache_expiry' => $cache_expiry,
297
          'cache_expiry' => $cache_expiry,
298
          'public' => $input->param('public'),
298
          'public' => scalar $input->param('public'),
299
      );
299
      );
300
    }
300
    }
301
}
301
}
Lines 310-317 elsif ( $phase eq 'Choose this type' ) { Link Here
310
        'area'   => $area,
310
        'area'   => $area,
311
        'type'   => $type,
311
        'type'   => $type,
312
        columns  => get_columns($area,$input),
312
        columns  => get_columns($area,$input),
313
        'cache_expiry' => $input->param('cache_expiry'),
313
        'cache_expiry' => scalar $input->param('cache_expiry'),
314
        'public' => $input->param('public'),
314
        'public' => scalar $input->param('public'),
315
    );
315
    );
316
}
316
}
317
317
Lines 330-341 elsif ( $phase eq 'Choose these columns' ) { Link Here
330
        'column' => $column,
330
        'column' => $column,
331
        definitions => get_from_dictionary($area),
331
        definitions => get_from_dictionary($area),
332
        criteria    => get_criteria($area,$input),
332
        criteria    => get_criteria($area,$input),
333
        'public' => $input->param('public'),
333
        'public' => scalar $input->param('public'),
334
    );
334
    );
335
    if ( $usecache ) {
335
    if ( $usecache ) {
336
        $template->param(
336
        $template->param(
337
            cache_expiry => $input->param('cache_expiry'),
337
            cache_expiry => scalar $input->param('cache_expiry'),
338
            cache_expiry_units => $input->param('cache_expiry_units'),
338
            cache_expiry_units => scalar $input->param('cache_expiry_units'),
339
        );
339
        );
340
    }
340
    }
341
341
Lines 395-406 elsif ( $phase eq 'Choose these criteria' ) { Link Here
395
        'column'         => $column,
395
        'column'         => $column,
396
        'definition'     => $definition,
396
        'definition'     => $definition,
397
        'criteriastring' => $query_criteria,
397
        'criteriastring' => $query_criteria,
398
        'public' => $input->param('public'),
398
        'public' => scalar $input->param('public'),
399
    );
399
    );
400
    if ( $usecache ) {
400
    if ( $usecache ) {
401
        $template->param(
401
        $template->param(
402
            cache_expiry => $input->param('cache_expiry'),
402
            cache_expiry => scalar $input->param('cache_expiry'),
403
            cache_expiry_units => $input->param('cache_expiry_units'),
403
            cache_expiry_units => scalar $input->param('cache_expiry_units'),
404
        );
404
        );
405
    }
405
    }
406
406
Lines 442-449 elsif ( $phase eq 'Choose these operations' ) { Link Here
442
        'criteriastring' => $criteria,
442
        'criteriastring' => $criteria,
443
        'totals'         => $totals,
443
        'totals'         => $totals,
444
        'definition'     => $definition,
444
        'definition'     => $definition,
445
        'cache_expiry' => $input->param('cache_expiry'),
445
        'cache_expiry' => scalar $input->param('cache_expiry'),
446
        'public' => $input->param('public'),
446
        'public' => scalar $input->param('public'),
447
    );
447
    );
448
448
449
    # get columns
449
    # get columns
Lines 495-502 elsif ( $phase eq 'Build report' ) { Link Here
495
        'area'       => $area,
495
        'area'       => $area,
496
        'sql'        => $sql,
496
        'sql'        => $sql,
497
        'type'       => $type,
497
        'type'       => $type,
498
        'cache_expiry' => $input->param('cache_expiry'),
498
        'cache_expiry' => scalar $input->param('cache_expiry'),
499
        'public' => $input->param('public'),
499
        'public' => scalar $input->param('public'),
500
    );
500
    );
501
}
501
}
502
502
Lines 510-517 elsif ( $phase eq 'Save' ) { Link Here
510
        'area'  => $area,
510
        'area'  => $area,
511
        'sql'  => $sql,
511
        'sql'  => $sql,
512
        'type' => $type,
512
        'type' => $type,
513
        'cache_expiry' => $input->param('cache_expiry'),
513
        'cache_expiry' => scalar $input->param('cache_expiry'),
514
        'public' => $input->param('public'),
514
        'public' => scalar $input->param('public'),
515
        'groups_with_subgroups' => groups_with_subgroups($area), # in case we have a report group that matches area
515
        'groups_with_subgroups' => groups_with_subgroups($area), # in case we have a report group that matches area
516
    );
516
    );
517
}
517
}
Lines 912-920 elsif ( $phase eq 'Create report from SQL' ) { Link Here
912
        $group = $input->param('report_group');
912
        $group = $input->param('report_group');
913
        $subgroup  = $input->param('report_subgroup');
913
        $subgroup  = $input->param('report_subgroup');
914
        $template->param(
914
        $template->param(
915
            'sql'           => $input->param('sql') // '',
915
            'sql'           => scalar $input->param('sql') // '',
916
            'reportname'    => $input->param('reportname') // '',
916
            'reportname'    => scalar $input->param('reportname') // '',
917
            'notes'         => $input->param('notes') // '',
917
            'notes'         => scalar $input->param('notes') // '',
918
        );
918
        );
919
    }
919
    }
920
    $template->param(
920
    $template->param(
(-)a/serials/serial-issues.pl (-1 / +1 lines)
Lines 76-82 if ($selectview eq "full"){ Link Here
76
 # $subscription->{opacnote} =~ s/\n/\<br\/\>/g;
76
 # $subscription->{opacnote} =~ s/\n/\<br\/\>/g;
77
77
78
    $template->param(
78
    $template->param(
79
        biblionumber => $query->param('biblionumber'),
79
        biblionumber => scalar $query->param('biblionumber'),
80
        years => $subscriptions,
80
        years => $subscriptions,
81
        yearmin => $yearmin,
81
        yearmin => $yearmin,
82
        yearmax =>$yearmax,
82
        yearmax =>$yearmax,
(-)a/serials/serials-collection.pl (-1 / +1 lines)
Lines 160-166 $template->param( Link Here
160
          suggestion => C4::Context->preference("suggestion"),
160
          suggestion => C4::Context->preference("suggestion"),
161
          virtualshelves => C4::Context->preference("virtualshelves"),
161
          virtualshelves => C4::Context->preference("virtualshelves"),
162
          routing => C4::Context->preference("RoutingSerials"),
162
          routing => C4::Context->preference("RoutingSerials"),
163
          subscr=>$query->param('subscriptionid'),
163
          subscr=>scalar $query->param('subscriptionid'),
164
          subscriptioncount => $subscriptioncount,
164
          subscriptioncount => $subscriptioncount,
165
          location => $location,
165
          location => $location,
166
          callnumber	       => $callnumber,
166
          callnumber	       => $callnumber,
(-)a/serials/showpredictionpattern.pl (-23 / +23 lines)
Lines 59-80 my $custompattern = $input->param('custompattern'); Link Here
59
my $frequency = GetSubscriptionFrequency($frequencyid);
59
my $frequency = GetSubscriptionFrequency($frequencyid);
60
60
61
my %pattern = (
61
my %pattern = (
62
    numberingmethod => $input->param('numberingmethod') // '',
62
    numberingmethod => scalar $input->param('numberingmethod') // '',
63
    numbering1      => $input->param('numbering1') // '',
63
    numbering1      => scalar $input->param('numbering1') // '',
64
    numbering2      => $input->param('numbering2') // '',
64
    numbering2      => scalar $input->param('numbering2') // '',
65
    numbering3      => $input->param('numbering3') // '',
65
    numbering3      => scalar $input->param('numbering3') // '',
66
    add1            => $input->param('add1') // '',
66
    add1            => scalar $input->param('add1') // '',
67
    add2            => $input->param('add2') // '',
67
    add2            => scalar $input->param('add2') // '',
68
    add3            => $input->param('add3') // '',
68
    add3            => scalar $input->param('add3') // '',
69
    whenmorethan1   => $input->param('whenmorethan1') // '',
69
    whenmorethan1   => scalar $input->param('whenmorethan1') // '',
70
    whenmorethan2   => $input->param('whenmorethan2') // '',
70
    whenmorethan2   => scalar $input->param('whenmorethan2') // '',
71
    whenmorethan3   => $input->param('whenmorethan3') // '',
71
    whenmorethan3   => scalar $input->param('whenmorethan3') // '',
72
    setto1          => $input->param('setto1') // '',
72
    setto1          => scalar $input->param('setto1') // '',
73
    setto2          => $input->param('setto2') // '',
73
    setto2          => scalar $input->param('setto2') // '',
74
    setto3          => $input->param('setto3') // '',
74
    setto3          => scalar $input->param('setto3') // '',
75
    every1          => $input->param('every1') // '',
75
    every1          => scalar $input->param('every1') // '',
76
    every2          => $input->param('every2') // '',
76
    every2          => scalar $input->param('every2') // '',
77
    every3          => $input->param('every3') // '',
77
    every3          => scalar $input->param('every3') // '',
78
);
78
);
79
79
80
$firstacquidate = eval { output_pref( { str => $firstacquidate, dateonly => 1, dateformat => 'iso' } ); }
80
$firstacquidate = eval { output_pref( { str => $firstacquidate, dateonly => 1, dateformat => 'iso' } ); }
Lines 90-102 if($nextacquidate) { Link Here
90
my $date = $nextacquidate;
90
my $date = $nextacquidate;
91
91
92
my %subscription = (
92
my %subscription = (
93
    locale      => $input->param('locale') // '',
93
    locale      => scalar $input->param('locale') // '',
94
    lastvalue1      => $input->param('lastvalue1') // '',
94
    lastvalue1      => scalar $input->param('lastvalue1') // '',
95
    lastvalue2      => $input->param('lastvalue2') // '',
95
    lastvalue2      => scalar $input->param('lastvalue2') // '',
96
    lastvalue3      => $input->param('lastvalue3') // '',
96
    lastvalue3      => scalar $input->param('lastvalue3') // '',
97
    innerloop1      => $input->param('innerloop1') // '',
97
    innerloop1      => scalar $input->param('innerloop1') // '',
98
    innerloop2      => $input->param('innerloop2') // '',
98
    innerloop2      => scalar $input->param('innerloop2') // '',
99
    innerloop3      => $input->param('innerloop3') // '',
99
    innerloop3      => scalar $input->param('innerloop3') // '',
100
    irregularity    => '',
100
    irregularity    => '',
101
    periodicity     => $frequencyid,
101
    periodicity     => $frequencyid,
102
    countissuesperunit  => 1,
102
    countissuesperunit  => 1,
(-)a/serials/subscription-add.pl (-8 / +8 lines)
Lines 323-331 sub redirect_add_subscription { Link Here
323
    my $location          = $query->param('location');
323
    my $location          = $query->param('location');
324
    my $skip_serialseq    = $query->param('skip_serialseq');
324
    my $skip_serialseq    = $query->param('skip_serialseq');
325
325
326
    my $startdate      = output_pref( { str => $query->param('startdate'),      dateonly => 1, dateformat => 'iso' } );
326
    my $startdate      = output_pref( { str => scalar $query->param('startdate'),      dateonly => 1, dateformat => 'iso' } );
327
    my $enddate        = output_pref( { str => $query->param('enddate'),        dateonly => 1, dateformat => 'iso' } );
327
    my $enddate        = output_pref( { str => scalar $query->param('enddate'),        dateonly => 1, dateformat => 'iso' } );
328
    my $firstacquidate = output_pref( { str => $query->param('firstacquidate'), dateonly => 1, dateformat => 'iso' } );
328
    my $firstacquidate = output_pref( { str => scalar $query->param('firstacquidate'), dateonly => 1, dateformat => 'iso' } );
329
329
330
    if(!defined $enddate || $enddate eq '') {
330
    if(!defined $enddate || $enddate eq '') {
331
        if($subtype eq "issues") {
331
        if($subtype eq "issues") {
Lines 357-372 sub redirect_mod_subscription { Link Here
357
    my $subscriptionid = $query->param('subscriptionid');
357
    my $subscriptionid = $query->param('subscriptionid');
358
    my @irregularity = $query->multi_param('irregularity');
358
    my @irregularity = $query->multi_param('irregularity');
359
    my $auser = $query->param('user');
359
    my $auser = $query->param('user');
360
    my $librarian => $query->param('librarian'),
360
    my $librarian => scalar $query->param('librarian'),
361
    my $branchcode = $query->param('branchcode');
361
    my $branchcode = $query->param('branchcode');
362
    my $cost = $query->param('cost');
362
    my $cost = $query->param('cost');
363
    my $aqbooksellerid = $query->param('aqbooksellerid');
363
    my $aqbooksellerid = $query->param('aqbooksellerid');
364
    my $biblionumber = $query->param('biblionumber');
364
    my $biblionumber = $query->param('biblionumber');
365
    my $aqbudgetid = $query->param('aqbudgetid');
365
    my $aqbudgetid = $query->param('aqbudgetid');
366
366
367
    my $startdate      = output_pref( { str => $query->param('startdate'),      dateonly => 1, dateformat => 'iso' } );
367
    my $startdate      = output_pref( { str => scalar $query->param('startdate'),      dateonly => 1, dateformat => 'iso' } );
368
    my $enddate        = output_pref( { str => $query->param('enddate'),        dateonly => 1, dateformat => 'iso' } );
368
    my $enddate        = output_pref( { str => scalar $query->param('enddate'),        dateonly => 1, dateformat => 'iso' } );
369
    my $firstacquidate = output_pref( { str => $query->param('firstacquidate'), dateonly => 1, dateformat => 'iso' } );
369
    my $firstacquidate = output_pref( { str => scalar $query->param('firstacquidate'), dateonly => 1, dateformat => 'iso' } );
370
370
371
    my $nextacquidate  = $query->param('nextacquidate');
371
    my $nextacquidate  = $query->param('nextacquidate');
372
    $nextacquidate = $nextacquidate
372
    $nextacquidate = $nextacquidate
Lines 451-457 sub insert_additional_fields { Link Here
451
            }
451
            }
452
        } else {
452
        } else {
453
            $af->{values} = {
453
            $af->{values} = {
454
                $subscriptionid => $query->param('additional_field_' . $field->{id})
454
                $subscriptionid => scalar $query->param('additional_field_' . $field->{id})
455
            } if defined $query->param('additional_field_' . $field->{id});
455
            } if defined $query->param('additional_field_' . $field->{id});
456
        }
456
        }
457
        $af->insert_values;
457
        $af->insert_values;
(-)a/serials/subscription-renew.pl (-1 / +1 lines)
Lines 74-80 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
74
    }
74
    }
75
);
75
);
76
if ( $op eq "renew" ) {
76
if ( $op eq "renew" ) {
77
    my $startdate = output_pref( { str => $query->param('startdate'), dateonly => 1, dateformat => 'iso' } );
77
    my $startdate = output_pref( { str => scalar $query->param('startdate'), dateonly => 1, dateformat => 'iso' } );
78
    ReNewSubscription(
78
    ReNewSubscription(
79
        $subscriptionid, $loggedinuser,
79
        $subscriptionid, $loggedinuser,
80
        $startdate, $query->param('numberlength'),
80
        $startdate, $query->param('numberlength'),
(-)a/virtualshelves/shelves.pl (-2 / +1 lines)
Lines 302-308 $template->param( Link Here
302
    shelf    => $shelf,
302
    shelf    => $shelf,
303
    messages => \@messages,
303
    messages => \@messages,
304
    category => $category,
304
    category => $category,
305
    print    => $query->param('print') || 0,
305
    print    => scalar $query->param('print') || 0,
306
    csv_profiles => GetCsvProfilesLoop('marc'),
306
    csv_profiles => GetCsvProfilesLoop('marc'),
307
);
307
);
308
308
309
- 

Return to bug 16154