Attachment #50279 for bug #16259

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

Lines 81-91 sub handle_form_action { Link Here

(-)a/C4/Form/MessagingPreferences.pm (-2 / +2 lines)
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	}




    if ($is_a_modif) {
        my $library = Koha::Libraries->find($branchcode);
        for my $field (@fields) {
            $library->$field( scalar $input->param($field) );
        }
        $library->update_categories( \@categories );


    if ($is_a_modif) {
        my $category = Koha::LibraryCategories->find($categorycode);
        for my $field (@fields) {
            $category->$field( scalar $input->param($field) );
        }
        $category->show_in_pulldown( scalar $input->param('show_in_pulldown') eq 'on' );
        eval { $category->store; };
        if ($@) {
            push @messages, { type => 'alert', code => 'error_on_update_category' };

                ( map { $_ => scalar $input->param($_) || undef } @fields )
            }
        );
        $category->show_in_pulldown( scalar $input->param('show_in_pulldown') eq 'on' );
        eval { $category->store; };
        if ($@) {
            push @messages, { type => 'alert', code => 'error_on_insert_category' };

Lines 171-178 sub add_update_attribute_type { Link Here

(-)a/admin/patron-attr-types.pl (-2 / +2 lines)
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

Lines 64-70 if ( C4::Context->preference("LocalCoverImages") ) { Link Here

(-)a/catalogue/image.pl (-1 / +1 lines)
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	}

Lines 196-202 if ( @$barcodes ) { Link Here

(-)a/circ/circulation.pl (-1 / +1 lines)
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');

Lines 94-100 sub set_preferences { Link Here

(-)a/svc/config/systempreferences (-1 / +1 lines)
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	}

Lines 31-37 my $input = new CGI; Link Here

(-)a/svc/members/search (-1 / +1 lines)
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,

Lines 13-19 my $input = new CGI; Link Here

(-)a/svc/virtualshelves/search (-1 / +1 lines)
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,





if ( $op eq "create_template" ) {
  $template_id = '' unless $cgi->param('duplicate_current_template');
  $template_id = AddModificationTemplate( scalar $cgi->param('template_name'), $template_id );

} elsif ( $op eq "delete_template" ) {


    }

} elsif ( $op eq "delete_action" ) {
  DelModificationTemplateAction( scalar $cgi->param('mmta_id') );

} elsif ( $op eq "move_action" ) {

  MoveModificationTemplateAction( scalar $cgi->param('mmta_id'), scalar $cgi->param('where') );

}

- 

Return to bug 16259

Lines 42-48 my ($template, $loggedinuser, $cookie) Link Here

(-)a/tools/marc_modification_templates.pl (-4 / +3 lines)
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	-

Lines 87-93 if ( $op eq 'add_form' ) { Link Here

(-)a/admin/branches.pl (-4 / +4 lines)
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' };