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

(-)a/acqui/histsearch.pl (-2 / +2 lines)
Lines 76-83 my $ordernumber = $input->param( 'ordernumber' ); Link Here
76
my $search_children_too     = $input->param( 'search_children_too' );
76
my $search_children_too     = $input->param( 'search_children_too' );
77
my @created_by              = $input->multi_param('created_by');
77
my @created_by              = $input->multi_param('created_by');
78
78
79
my $from_placed_on = eval { dt_from_string( $input->param('from') ) } || dt_from_string;
79
my $from_placed_on = eval { dt_from_string( scalar $input->param('from') ) } || dt_from_string;
80
my $to_placed_on   = eval { dt_from_string( $input->param('to')   ) } || dt_from_string;
80
my $to_placed_on   = eval { dt_from_string( scalar $input->param('to')   ) } || dt_from_string;
81
unless ( $input->param('from') ) {
81
unless ( $input->param('from') ) {
82
    # Fill the form with year-1
82
    # Fill the form with year-1
83
    $from_placed_on->subtract( years => 1 );
83
    $from_placed_on->subtract( years => 1 );
(-)a/admin/aqbudgetperiods.pl (-4 / +4 lines)
Lines 72-79 my $op = $input->param('op')||"else"; Link Here
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) =~ /$_/ ? ( $_ => scalar $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( scalar $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( scalar $input->param('budget_period_enddate') );
77
77
78
$searchfield =~ s/\,//g;
78
$searchfield =~ s/\,//g;
79
79
Lines 159-166 elsif ( $op eq 'duplicate_form'){ Link Here
159
elsif ( $op eq 'duplicate_budget' ){
159
elsif ( $op eq 'duplicate_budget' ){
160
    die "please specify a budget period id\n" if( !defined $budget_period_id || $budget_period_id eq '' );
160
    die "please specify a budget period id\n" if( !defined $budget_period_id || $budget_period_id eq '' );
161
161
162
    my $budget_period_startdate = dt_from_string $input->param('budget_period_startdate');
162
    my $budget_period_startdate = dt_from_string scalar $input->param('budget_period_startdate');
163
    my $budget_period_enddate   = dt_from_string $input->param('budget_period_enddate');
163
    my $budget_period_enddate   = dt_from_string scalar $input->param('budget_period_enddate');
164
    my $budget_period_description = $input->param('budget_period_description');
164
    my $budget_period_description = $input->param('budget_period_description');
165
    my $amount_change_percentage = $input->param('amount_change_percentage');
165
    my $amount_change_percentage = $input->param('amount_change_percentage');
166
    my $amount_change_round_increment = $input->param('amount_change_round_increment');
166
    my $amount_change_round_increment = $input->param('amount_change_round_increment');
(-)a/admin/aqcontract.pl (-4 / +4 lines)
Lines 93-100 elsif ( $op eq 'add_validate' ) { Link Here
93
93
94
    my $is_a_modif = $input->param("is_a_modif");
94
    my $is_a_modif = $input->param("is_a_modif");
95
95
96
    my $contractstart_dt = eval { dt_from_string( $input->param('contractstartdate') ); };
96
    my $contractstart_dt = eval { dt_from_string( scalar $input->param('contractstartdate') ); };
97
    my $contractend_dt = eval { dt_from_string( $input->param('contractenddate') ); };
97
    my $contractend_dt = eval { dt_from_string( scalar $input->param('contractenddate') ); };
98
    unless ( $contractstart_dt and $contractend_dt ) {
98
    unless ( $contractstart_dt and $contractend_dt ) {
99
        my $today = dt_from_string;
99
        my $today = dt_from_string;
100
        $contractstart_dt ||= $today;
100
        $contractstart_dt ||= $today;
Lines 115-122 elsif ( $op eq 'add_validate' ) { Link Here
115
            contractname        => scalar $input->param('contractname'),
115
            contractname        => scalar $input->param('contractname'),
116
            contractdescription => scalar $input->param('contractdescription'),
116
            contractdescription => scalar $input->param('contractdescription'),
117
            booksellerid        => scalar $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( scalar $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( scalar $input->param('contractenddate') ), dateformat => 'iso', dateonly => 1 } ); },
120
        });
120
        });
121
    }
121
    }
122
122
(-)a/admin/authorised_values.pl (-1 / +1 lines)
Lines 101-107 if ($op eq 'add_form') { Link Here
101
    my $imageurl     = $input->param( 'imageurl' ) || '';
101
    my $imageurl     = $input->param( 'imageurl' ) || '';
102
    $imageurl = '' if $imageurl =~ /removeImage/;
102
    $imageurl = '' if $imageurl =~ /removeImage/;
103
    my $duplicate_entry = 0;
103
    my $duplicate_entry = 0;
104
    my @branches = grep { $_ ne q{} } $input->param('branches');
104
    my @branches = grep { $_ ne q{} } $input->multi_param('branches');
105
105
106
    my $already_exists = Koha::AuthorisedValues->search(
106
    my $already_exists = Koha::AuthorisedValues->search(
107
        {
107
        {
(-)a/admin/categories.pl (-1 / +1 lines)
Lines 91-97 elsif ( $op eq 'add_validate' ) { Link Here
91
    my $category_type = $input->param('category_type');
91
    my $category_type = $input->param('category_type');
92
    my $BlockExpiredPatronOpacActions = $input->param('BlockExpiredPatronOpacActions');
92
    my $BlockExpiredPatronOpacActions = $input->param('BlockExpiredPatronOpacActions');
93
    my $default_privacy = $input->param('default_privacy');
93
    my $default_privacy = $input->param('default_privacy');
94
    my @branches = grep { $_ ne q{} } $input->param('branches');
94
    my @branches = grep { $_ ne q{} } $input->multi_param('branches');
95
95
96
    my $is_a_modif = $input->param("is_a_modif");
96
    my $is_a_modif = $input->param("is_a_modif");
97
97
(-)a/admin/matching-rules.pl (-14 / +14 lines)
Lines 96-113 sub add_update_matching_rule { Link Here
96
96
97
    # do parsing
97
    # do parsing
98
    my $matcher = C4::Matcher->new($record_type, 1000);
98
    my $matcher = C4::Matcher->new($record_type, 1000);
99
    $matcher->code($input->param('code'));
99
    $matcher->code(scalar $input->param('code'));
100
    $matcher->description($input->param('description'));
100
    $matcher->description(scalar $input->param('description'));
101
    $matcher->threshold($input->param('threshold'));
101
    $matcher->threshold(scalar $input->param('threshold'));
102
102
103
    # matchpoints
103
    # matchpoints
104
    my @mp_nums = sort map { /^mp_(\d+)_search_index/ ? int($1): () } $input->param;
104
    my @mp_nums = sort map { /^mp_(\d+)_search_index/ ? int($1): () } $input->multi_param;
105
    foreach my $mp_num (@mp_nums) {
105
    foreach my $mp_num (@mp_nums) {
106
        my $index = $input->param("mp_${mp_num}_search_index");
106
        my $index = $input->param("mp_${mp_num}_search_index");
107
        my $score = $input->param("mp_${mp_num}_score");
107
        my $score = $input->param("mp_${mp_num}_score");
108
        # components
108
        # components
109
        my $components = [];
109
        my $components = [];
110
        my @comp_nums = sort map { /^mp_${mp_num}_c_(\d+)_tag/ ? int($1): () } $input->param;
110
        my @comp_nums = sort map { /^mp_${mp_num}_c_(\d+)_tag/ ? int($1): () } $input->multi_param;
111
        foreach my $comp_num (@comp_nums) {
111
        foreach my $comp_num (@comp_nums) {
112
            my $component = {};
112
            my $component = {};
113
            $component->{'tag'} = $input->param("mp_${mp_num}_c_${comp_num}_tag");
113
            $component->{'tag'} = $input->param("mp_${mp_num}_c_${comp_num}_tag");
Lines 116-124 sub add_update_matching_rule { Link Here
116
            $component->{'length'} = $input->param("mp_${mp_num}_c_${comp_num}_length");
116
            $component->{'length'} = $input->param("mp_${mp_num}_c_${comp_num}_length");
117
            # norms
117
            # norms
118
            $component->{'norms'} = [];
118
            $component->{'norms'} = [];
119
            my @norm_nums = sort map { /^mp_${mp_num}_c_${comp_num}_n_(\d+)_norm/ ? int($1): () } $input->param;
119
            my @norm_nums = sort map { /^mp_${mp_num}_c_${comp_num}_n_(\d+)_norm/ ? int($1): () } $input->multi_param;
120
            foreach my $norm_num (@norm_nums) {
120
            foreach my $norm_num (@norm_nums) {
121
                push @{ $component->{'norms'} }, $input->param("mp_${mp_num}_c_${comp_num}_n_${norm_num}_norm");
121
                push @{ $component->{'norms'} }, $input->multi_param("mp_${mp_num}_c_${comp_num}_n_${norm_num}_norm");
122
            }
122
            }
123
            push @$components, $component;
123
            push @$components, $component;
124
        }
124
        }
Lines 126-136 sub add_update_matching_rule { Link Here
126
    }
126
    }
127
127
128
    # match checks
128
    # match checks
129
    my @mc_nums = sort map { /^mc_(\d+)_id/ ? int($1): () } $input->param;
129
    my @mc_nums = sort map { /^mc_(\d+)_id/ ? int($1): () } $input->multi_param;
130
    foreach my $mc_num (@mc_nums) {
130
    foreach my $mc_num (@mc_nums) {
131
        # source components
131
        # source components
132
        my $src_components = [];
132
        my $src_components = [];
133
        my @src_comp_nums = sort map { /^mc_${mc_num}_src_c_(\d+)_tag/ ? int($1): () } $input->param;
133
        my @src_comp_nums = sort map { /^mc_${mc_num}_src_c_(\d+)_tag/ ? int($1): () } $input->multi_param;
134
        foreach my $comp_num (@src_comp_nums) {
134
        foreach my $comp_num (@src_comp_nums) {
135
            my $component = {};
135
            my $component = {};
136
            $component->{'tag'} = $input->param("mc_${mc_num}_src_c_${comp_num}_tag");
136
            $component->{'tag'} = $input->param("mc_${mc_num}_src_c_${comp_num}_tag");
Lines 139-153 sub add_update_matching_rule { Link Here
139
            $component->{'length'} = $input->param("mc_${mc_num}_src_c_${comp_num}_length");
139
            $component->{'length'} = $input->param("mc_${mc_num}_src_c_${comp_num}_length");
140
            # norms
140
            # norms
141
            $component->{'norms'} = [];
141
            $component->{'norms'} = [];
142
            my @norm_nums = sort map { /^mc_${mc_num}_src_c_${comp_num}_n_(\d+)_norm/ ? int($1): () } $input->param;
142
            my @norm_nums = sort map { /^mc_${mc_num}_src_c_${comp_num}_n_(\d+)_norm/ ? int($1): () } $input->multi_param;
143
            foreach my $norm_num (@norm_nums) {
143
            foreach my $norm_num (@norm_nums) {
144
                push @{ $component->{'norms'} }, $input->param("mc_${mc_num}_src_c_${comp_num}_n_${norm_num}_norm");
144
                push @{ $component->{'norms'} }, $input->multi_param("mc_${mc_num}_src_c_${comp_num}_n_${norm_num}_norm");
145
            }
145
            }
146
            push @$src_components, $component;
146
            push @$src_components, $component;
147
        }
147
        }
148
        # target components
148
        # target components
149
        my $tgt_components = [];
149
        my $tgt_components = [];
150
        my @tgt_comp_nums = sort map { /^mc_${mc_num}_tgt_c_(\d+)_tag/ ? int($1): () } $input->param;
150
        my @tgt_comp_nums = sort map { /^mc_${mc_num}_tgt_c_(\d+)_tag/ ? int($1): () } $input->multi_param;
151
        foreach my $comp_num (@tgt_comp_nums) {
151
        foreach my $comp_num (@tgt_comp_nums) {
152
            my $component = {};
152
            my $component = {};
153
            $component->{'tag'} = $input->param("mc_${mc_num}_tgt_c_${comp_num}_tag");
153
            $component->{'tag'} = $input->param("mc_${mc_num}_tgt_c_${comp_num}_tag");
Lines 156-164 sub add_update_matching_rule { Link Here
156
            $component->{'length'} = $input->param("mc_${mc_num}_tgt_c_${comp_num}_length");
156
            $component->{'length'} = $input->param("mc_${mc_num}_tgt_c_${comp_num}_length");
157
            # norms
157
            # norms
158
            $component->{'norms'} = [];
158
            $component->{'norms'} = [];
159
            my @norm_nums = sort map { /^mc_${mc_num}_tgt_c_${comp_num}_n_(\d+)_norm/ ? int($1): () } $input->param;
159
            my @norm_nums = sort map { /^mc_${mc_num}_tgt_c_${comp_num}_n_(\d+)_norm/ ? int($1): () } $input->multi_param;
160
            foreach my $norm_num (@norm_nums) {
160
            foreach my $norm_num (@norm_nums) {
161
                push @{ $component->{'norms'} }, $input->param("mc_${mc_num}_tgt_c_${comp_num}_n_${norm_num}_norm");
161
                push @{ $component->{'norms'} }, $input->multi_param("mc_${mc_num}_tgt_c_${comp_num}_n_${norm_num}_norm");
162
            }
162
            }
163
            push @$tgt_components, $component;
163
            push @$tgt_components, $component;
164
        }
164
        }
(-)a/circ/circulation.pl (-1 / +1 lines)
Lines 105-111 if ( $barcode || $barcode eq '0' ) { Link Here
105
        push @$barcodes, split( /\s\n/, $list );
105
        push @$barcodes, split( /\s\n/, $list );
106
        $barcodes = [ map { $_ =~ /^\s*$/ ? () : $_ } @$barcodes ];
106
        $barcodes = [ map { $_ =~ /^\s*$/ ? () : $_ } @$barcodes ];
107
    } else {
107
    } else {
108
        @$barcodes = $query->param('barcodes');
108
        @$barcodes = $query->multi_param('barcodes');
109
    }
109
    }
110
}
110
}
111
111
(-)a/circ/overdue.pl (-2 / +2 lines)
Lines 102-109 $branchfilter = C4::Context->userenv->{'branch'} if ($onlymine && !$branchfilter Link Here
102
#  %borrowernumber_to_attributes   is populated by those borrowernumbers matching the patron attribute filters
102
#  %borrowernumber_to_attributes   is populated by those borrowernumbers matching the patron attribute filters
103
103
104
my %cgi_attrcode_to_attrvalues;     # ( patron_attribute_code => [ zero or more attribute filter values from the CGI ] )
104
my %cgi_attrcode_to_attrvalues;     # ( patron_attribute_code => [ zero or more attribute filter values from the CGI ] )
105
for my $attrcode (grep { /^patron_attr_filter_/ } $input->param) {
105
for my $attrcode (grep { /^patron_attr_filter_/ } $input->multi_param) {
106
    if (my @attrvalues = grep { length($_) > 0 } $input->param($attrcode)) {
106
    if (my @attrvalues = grep { length($_) > 0 } $input->multi_param($attrcode)) {
107
        $attrcode =~ s/^patron_attr_filter_//;
107
        $attrcode =~ s/^patron_attr_filter_//;
108
        $cgi_attrcode_to_attrvalues{$attrcode} = \@attrvalues;
108
        $cgi_attrcode_to_attrvalues{$attrcode} = \@attrvalues;
109
        print STDERR ">>>param($attrcode)[@{[scalar @attrvalues]}] = '@attrvalues'\n" if $debug;
109
        print STDERR ">>>param($attrcode)[@{[scalar @attrvalues]}] = '@attrvalues'\n" if $debug;
(-)a/members/memberentry.pl (-1 / +1 lines)
Lines 711-717 output_html_with_http_headers $input, $cookie, $template->output; Link Here
711
711
712
sub  parse_extended_patron_attributes {
712
sub  parse_extended_patron_attributes {
713
    my ($input) = @_;
713
    my ($input) = @_;
714
    my @patron_attr = grep { /^patron_attr_\d+$/ } $input->param();
714
    my @patron_attr = grep { /^patron_attr_\d+$/ } $input->multi_param();
715
715
716
    my @attr = ();
716
    my @attr = ();
717
    my %dups = ();
717
    my %dups = ();
(-)a/reserve/renewscript.pl (-1 / +1 lines)
Lines 67-73 else { Link Here
67
my $branch = $input->param('branch');
67
my $branch = $input->param('branch');
68
my $datedue;
68
my $datedue;
69
if ( $input->param('newduedate') ) {
69
if ( $input->param('newduedate') ) {
70
    $datedue = dt_from_string( $input->param('newduedate') );
70
    $datedue = dt_from_string( scalar $input->param('newduedate') );
71
    $datedue->set_hour(23);
71
    $datedue->set_hour(23);
72
    $datedue->set_minute(59);
72
    $datedue->set_minute(59);
73
}
73
}
(-)a/reserve/request.pl (-1 / +1 lines)
Lines 132-138 my $biblionumbers = $input->param('biblionumbers'); Link Here
132
if ($multihold) {
132
if ($multihold) {
133
    @biblionumbers = split '/', $biblionumbers;
133
    @biblionumbers = split '/', $biblionumbers;
134
} else {
134
} else {
135
    push @biblionumbers, $input->param('biblionumber');
135
    push @biblionumbers, $input->multi_param('biblionumber');
136
}
136
}
137
137
138
138
(-)a/serials/checkexpiration.pl (-1 / +1 lines)
Lines 71-77 my $title = $query->param('title'); Link Here
71
my $issn  = $query->param('issn');
71
my $issn  = $query->param('issn');
72
my $branch = $query->param('branch');
72
my $branch = $query->param('branch');
73
my $date = $query->param('date');
73
my $date = $query->param('date');
74
$date = eval { dt_from_string( $query->param('date') ) } if $date;
74
$date = eval { dt_from_string( scalar $query->param('date') ) } if $date;
75
75
76
if ($date) {
76
if ($date) {
77
    my @subscriptions = SearchSubscriptions({ title => $title, issn => $issn, orderby => 'title' });
77
    my @subscriptions = SearchSubscriptions({ title => $title, issn => $issn, orderby => 'title' });
(-)a/svc/checkouts (-1 / +1 lines)
Lines 47-53 unless (haspermission($userid, { circulate => 'circulate_remaining_permissions' Link Here
47
47
48
my @sort_columns = qw/date_due title itype issuedate branchcode itemcallnumber/;
48
my @sort_columns = qw/date_due title itype issuedate branchcode itemcallnumber/;
49
49
50
my @borrowernumber   = $input->param('borrowernumber');
50
my @borrowernumber   = $input->multi_param('borrowernumber');
51
my $offset           = $input->param('iDisplayStart');
51
my $offset           = $input->param('iDisplayStart');
52
my $results_per_page = $input->param('iDisplayLength') || -1;
52
my $results_per_page = $input->param('iDisplayLength') || -1;
53
53
(-)a/svc/renew (-1 / +1 lines)
Lines 48-54 my $branchcode = $input->param('branchcode') Link Here
48
  || C4::Context->userenv->{'branch'};
48
  || C4::Context->userenv->{'branch'};
49
my $date_due;
49
my $date_due;
50
if ( $input->param('date_due') ) {
50
if ( $input->param('date_due') ) {
51
    $date_due = dt_from_string( $input->param('date_due') );
51
    $date_due = dt_from_string( scalar $input->param('date_due') );
52
}
52
}
53
53
54
my $data;
54
my $data;
(-)a/tools/exceptionHolidays.pl (-1 / +1 lines)
Lines 23-29 my $year = $input->param('showYear'); Link Here
23
my $title = $input->param('showTitle');
23
my $title = $input->param('showTitle');
24
my $description = $input->param('showDescription');
24
my $description = $input->param('showDescription');
25
my $holidaytype = $input->param('showHolidayType');
25
my $holidaytype = $input->param('showHolidayType');
26
my $datecancelrange_dt = eval { dt_from_string( $input->param('datecancelrange') ) };
26
my $datecancelrange_dt = eval { dt_from_string( scalar $input->param('datecancelrange') ) };
27
my $calendardate = sprintf("%04d-%02d-%02d", $year, $month, $day);
27
my $calendardate = sprintf("%04d-%02d-%02d", $year, $month, $day);
28
28
29
my $calendar = C4::Calendar->new(branchcode => $branchcode);
29
my $calendar = C4::Calendar->new(branchcode => $branchcode);
(-)a/tools/export.pl (-2 / +2 lines)
Lines 105-115 if ( $op eq "export" ) { Link Here
105
                my $end_callnumber       = $query->param("end_callnumber");
105
                my $end_callnumber       = $query->param("end_callnumber");
106
                my $start_accession =
106
                my $start_accession =
107
                  ( $query->param("start_accession") )
107
                  ( $query->param("start_accession") )
108
                  ? dt_from_string( $query->param("start_accession") )
108
                  ? dt_from_string( scalar $query->param("start_accession") )
109
                  : '';
109
                  : '';
110
                my $end_accession =
110
                my $end_accession =
111
                  ( $query->param("end_accession") )
111
                  ( $query->param("end_accession") )
112
                  ? dt_from_string( $query->param("end_accession") )
112
                  ? dt_from_string( scalar $query->param("end_accession") )
113
                  : '';
113
                  : '';
114
114
115
115
(-)a/tools/holidays.pl (-1 / +1 lines)
Lines 43-49 my ($template, $loggedinuser, $cookie) Link Here
43
43
44
# calendardate - date passed in url for human readability (syspref)
44
# calendardate - date passed in url for human readability (syspref)
45
# if the url has an invalid date default to 'now.'
45
# if the url has an invalid date default to 'now.'
46
my $calendarinput_dt = eval { dt_from_string( $input->param('calendardate') ); } || dt_from_string;
46
my $calendarinput_dt = eval { dt_from_string( scalar $input->param('calendardate') ); } || dt_from_string;
47
my $calendardate = output_pref( { dt => $calendarinput_dt, dateonly => 1 } );
47
my $calendardate = output_pref( { dt => $calendarinput_dt, dateonly => 1 } );
48
48
49
# keydate - date passed to calendar.js.  calendar.js does not process dashes within a date.
49
# keydate - date passed to calendar.js.  calendar.js does not process dashes within a date.
(-)a/tools/inventory.pl (-1 / +1 lines)
Lines 151-157 my @scanned_items; Link Here
151
my @errorloop;
151
my @errorloop;
152
if ( $uploadbarcodes && length($uploadbarcodes) > 0 ) {
152
if ( $uploadbarcodes && length($uploadbarcodes) > 0 ) {
153
    my $dbh = C4::Context->dbh;
153
    my $dbh = C4::Context->dbh;
154
    my $date = dt_from_string( $input->param('setdate') );
154
    my $date = dt_from_string( scalar $input->param('setdate') );
155
    $date = output_pref ( { dt => $date, dateformat => 'iso' } );
155
    $date = output_pref ( { dt => $date, dateformat => 'iso' } );
156
156
157
    my $strsth  = "select * from issues, items where items.itemnumber=issues.itemnumber and items.barcode =?";
157
    my $strsth  = "select * from issues, items where items.itemnumber=issues.itemnumber and items.barcode =?";
(-)a/tools/koha-news.pl (-2 / +2 lines)
Lines 40-47 my $cgi = new CGI; Link Here
40
my $id             = $cgi->param('id');
40
my $id             = $cgi->param('id');
41
my $title          = $cgi->param('title');
41
my $title          = $cgi->param('title');
42
my $new            = $cgi->param('new');
42
my $new            = $cgi->param('new');
43
my $expirationdate = output_pref({ dt => dt_from_string( $cgi->param('expirationdate') ), dateformat => 'iso', dateonly => 1 });
43
my $expirationdate = output_pref({ dt => dt_from_string( scalar $cgi->param('expirationdate') ), dateformat => 'iso', dateonly => 1 });
44
my $timestamp      = output_pref({ dt => dt_from_string( $cgi->param('timestamp') ), dateformat => 'iso', dateonly => 1 });
44
my $timestamp      = output_pref({ dt => dt_from_string( scalar $cgi->param('timestamp') ), dateformat => 'iso', dateonly => 1 });
45
my $number         = $cgi->param('number');
45
my $number         = $cgi->param('number');
46
my $lang           = $cgi->param('lang');
46
my $lang           = $cgi->param('lang');
47
my $branchcode     = $cgi->param('branch');
47
my $branchcode     = $cgi->param('branch');
(-)a/tools/scheduler.pl (-1 / +1 lines)
Lines 62-68 my $id = $input->param('id'); Link Here
62
if ( $mode eq 'job_add' ) {
62
if ( $mode eq 'job_add' ) {
63
63
64
    # Retrieving the date according to the dateformat syspref
64
    # Retrieving the date according to the dateformat syspref
65
    my $c4date = output_pref({ dt => dt_from_string( $input->param('startdate') ), dateformat => 'iso', dateonly => 1 });
65
    my $c4date = output_pref({ dt => dt_from_string( scalar $input->param('startdate') ), dateformat => 'iso', dateonly => 1 });
66
66
67
    # Formatting it for Schedule::At
67
    # Formatting it for Schedule::At
68
    my $startdate = join('', (split /-/, $c4date));
68
    my $startdate = join('', (split /-/, $c4date));
(-)a/virtualshelves/shelves.pl (-7 / +6 lines)
Lines 92-103 if ( $op eq 'add_form' ) { Link Here
92
    if ( $shelf ) {
92
    if ( $shelf ) {
93
        $op = $referer;
93
        $op = $referer;
94
        if ( $shelf->can_be_managed( $loggedinuser ) ) {
94
        if ( $shelf->can_be_managed( $loggedinuser ) ) {
95
            $shelf->shelfname( $query->param('shelfname') );
95
            $shelf->shelfname( scalar $query->param('shelfname') );
96
            $shelf->sortfield( $query->param('sortfield') );
96
            $shelf->sortfield( scalar $query->param('sortfield') );
97
            $shelf->allow_add( $query->param('allow_add') );
97
            $shelf->allow_add( scalar $query->param('allow_add') );
98
            $shelf->allow_delete_own( $query->param('allow_delete_own') );
98
            $shelf->allow_delete_own( scalar $query->param('allow_delete_own') );
99
            $shelf->allow_delete_other( $query->param('allow_delete_other') );
99
            $shelf->allow_delete_other( scalar $query->param('allow_delete_other') );
100
            $shelf->category( $query->param('category') );
100
            $shelf->category( scalar $query->param('category') );
101
            eval { $shelf->store };
101
            eval { $shelf->store };
102
102
103
            if ($@) {
103
            if ($@) {
104
- 

Return to bug 16154