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

(-)a/C4/Form/MessagingPreferences.pm (-2 / +2 lines)
Lines 81-91 sub handle_form_action { Link Here
81
                        message_attribute_id    => $option->{'message_attribute_id'} };
81
                        message_attribute_id    => $option->{'message_attribute_id'} };
82
        
82
        
83
        # find the desired transports
83
        # find the desired transports
84
        @{$updater->{'message_transport_types'}} = $query->param( $option->{'message_attribute_id'} );
84
        @{$updater->{'message_transport_types'}} = $query->multi_param( $option->{'message_attribute_id'} );
85
        next OPTION unless $updater->{'message_transport_types'};
85
        next OPTION unless $updater->{'message_transport_types'};
86
86
87
        if ( $option->{'has_digest'} ) {
87
        if ( $option->{'has_digest'} ) {
88
            if ( List::Util::first { $_ == $option->{'message_attribute_id'} } $query->param( 'digest' ) ) {
88
            if ( List::Util::first { $_ == $option->{'message_attribute_id'} } $query->multi_param( 'digest' ) ) {
89
                $updater->{'wants_digest'} = 1;
89
                $updater->{'wants_digest'} = 1;
90
            }
90
            }
91
        }
91
        }
(-)a/admin/branches.pl (-4 / +4 lines)
Lines 87-93 if ( $op eq 'add_form' ) { Link Here
87
    if ($is_a_modif) {
87
    if ($is_a_modif) {
88
        my $library = Koha::Libraries->find($branchcode);
88
        my $library = Koha::Libraries->find($branchcode);
89
        for my $field (@fields) {
89
        for my $field (@fields) {
90
            $library->$field( $input->param($field) );
90
            $library->$field( scalar $input->param($field) );
91
        }
91
        }
92
        $library->update_categories( \@categories );
92
        $library->update_categories( \@categories );
93
93
Lines 168-176 if ( $op eq 'add_form' ) { Link Here
168
    if ($is_a_modif) {
168
    if ($is_a_modif) {
169
        my $category = Koha::LibraryCategories->find($categorycode);
169
        my $category = Koha::LibraryCategories->find($categorycode);
170
        for my $field (@fields) {
170
        for my $field (@fields) {
171
            $category->$field( $input->param($field) );
171
            $category->$field( scalar $input->param($field) );
172
        }
172
        }
173
        $category->show_in_pulldown( $input->param('show_in_pulldown') eq 'on' );
173
        $category->show_in_pulldown( scalar $input->param('show_in_pulldown') eq 'on' );
174
        eval { $category->store; };
174
        eval { $category->store; };
175
        if ($@) {
175
        if ($@) {
176
            push @messages, { type => 'alert', code => 'error_on_update_category' };
176
            push @messages, { type => 'alert', code => 'error_on_update_category' };
Lines 183-189 if ( $op eq 'add_form' ) { Link Here
183
                ( map { $_ => scalar $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( scalar $input->param('show_in_pulldown') eq 'on' );
187
        eval { $category->store; };
187
        eval { $category->store; };
188
        if ($@) {
188
        if ($@) {
189
            push @messages, { type => 'alert', code => 'error_on_insert_category' };
189
            push @messages, { type => 'alert', code => 'error_on_insert_category' };
(-)a/admin/patron-attr-types.pl (-2 / +2 lines)
Lines 171-178 sub add_update_attribute_type { Link Here
171
    $attr_type->password_allowed($password_allowed);
171
    $attr_type->password_allowed($password_allowed);
172
    my $display_checkout = $input->param('display_checkout');
172
    my $display_checkout = $input->param('display_checkout');
173
    $attr_type->display_checkout($display_checkout);
173
    $attr_type->display_checkout($display_checkout);
174
    $attr_type->category_code($input->param('category_code'));
174
    $attr_type->category_code(scalar $input->param('category_code'));
175
    $attr_type->class($input->param('class'));
175
    $attr_type->class(scalar $input->param('class'));
176
    my @branches = $input->multi_param('branches');
176
    my @branches = $input->multi_param('branches');
177
    $attr_type->branches( \@branches );
177
    $attr_type->branches( \@branches );
178
178
(-)a/catalogue/image.pl (-1 / +1 lines)
Lines 64-70 if ( C4::Context->preference("LocalCoverImages") ) { Link Here
64
        $imagenumber = $data->param('imagenumber');
64
        $imagenumber = $data->param('imagenumber');
65
    }
65
    }
66
    elsif ( defined $data->param('biblionumber') ) {
66
    elsif ( defined $data->param('biblionumber') ) {
67
        my @imagenumbers = ListImagesForBiblio( $data->param('biblionumber') );
67
        my @imagenumbers = ListImagesForBiblio( $data->multi_param('biblionumber') );
68
        if (@imagenumbers) {
68
        if (@imagenumbers) {
69
            $imagenumber = $imagenumbers[0];
69
            $imagenumber = $imagenumbers[0];
70
        }
70
        }
(-)a/circ/circulation.pl (-1 / +1 lines)
Lines 196-202 if ( @$barcodes ) { Link Here
196
        $stickyduedate  = $query->param('stickyduedate');
196
        $stickyduedate  = $query->param('stickyduedate');
197
        $duedatespec    = $query->param('duedatespec');
197
        $duedatespec    = $query->param('duedatespec');
198
    }
198
    }
199
    $session->param('auto_renew', $query->param('auto_renew'));
199
    $session->param('auto_renew', scalar $query->param('auto_renew'));
200
}
200
}
201
else {
201
else {
202
    $session->clear('auto_renew');
202
    $session->clear('auto_renew');
(-)a/svc/config/systempreferences (-1 / +1 lines)
Lines 94-100 sub set_preferences { Link Here
94
94
95
            next if ( !defined( $pref ) );
95
            next if ( !defined( $pref ) );
96
96
97
            my $value = join( ',', $query->param( $param ) );
97
            my $value = join( ',', $query->multi_param( $param ) );
98
98
99
            C4::Context->set_preference( $pref, $value );
99
            C4::Context->set_preference( $pref, $value );
100
        }
100
        }
(-)a/svc/members/search (-1 / +1 lines)
Lines 31-37 my $input = new CGI; Link Here
31
exit unless $input->param('template_path');
31
exit unless $input->param('template_path');
32
32
33
my ($template, $user, $cookie) = get_template_and_user({
33
my ($template, $user, $cookie) = get_template_and_user({
34
    template_name   => $input->param('template_path'),
34
    template_name   => scalar $input->param('template_path'),
35
    query           => $input,
35
    query           => $input,
36
    type            => "intranet",
36
    type            => "intranet",
37
    authnotrequired => 0,
37
    authnotrequired => 0,
(-)a/svc/virtualshelves/search (-1 / +1 lines)
Lines 13-19 my $input = new CGI; Link Here
13
exit unless $input->param('template_path');
13
exit unless $input->param('template_path');
14
14
15
my ($template, $user, $cookie) = get_template_and_user({
15
my ($template, $user, $cookie) = get_template_and_user({
16
    template_name   => $input->param('template_path'),
16
    template_name   => scalar $input->param('template_path'),
17
    query           => $input,
17
    query           => $input,
18
    type            => "intranet",
18
    type            => "intranet",
19
    authnotrequired => 0,
19
    authnotrequired => 0,
(-)a/tools/marc_modification_templates.pl (-4 / +3 lines)
Lines 42-48 my ($template, $loggedinuser, $cookie) Link Here
42
42
43
if ( $op eq "create_template" ) {
43
if ( $op eq "create_template" ) {
44
  $template_id = '' unless $cgi->param('duplicate_current_template');
44
  $template_id = '' unless $cgi->param('duplicate_current_template');
45
  $template_id = AddModificationTemplate( $cgi->param('template_name'), $template_id );
45
  $template_id = AddModificationTemplate( scalar $cgi->param('template_name'), $template_id );
46
46
47
} elsif ( $op eq "delete_template" ) {
47
} elsif ( $op eq "delete_template" ) {
48
48
Lines 103-113 if ( $op eq "create_template" ) { Link Here
103
    }
103
    }
104
104
105
} elsif ( $op eq "delete_action" ) {
105
} elsif ( $op eq "delete_action" ) {
106
  DelModificationTemplateAction( $cgi->param('mmta_id') );
106
  DelModificationTemplateAction( scalar $cgi->param('mmta_id') );
107
107
108
} elsif ( $op eq "move_action" ) {
108
} elsif ( $op eq "move_action" ) {
109
109
110
  MoveModificationTemplateAction( $cgi->param('mmta_id'), $cgi->param('where') );
110
  MoveModificationTemplateAction( scalar $cgi->param('mmta_id'), scalar $cgi->param('where') );
111
111
112
}
112
}
113
113
114
- 

Return to bug 16259