From: Ian Walls Date: Sat, 12 Feb 2011 22:19:23 +0000 (-0500) Subject: Follow up on Bug 5462: fixing variable names breaks messaging preference form X-Git-Tag: html_template_pro~363^2 X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=commitdiff_plain;h=b2c56dfe62e90c8f3ae6a81b8d511714a54b6d33;p=koha_gimpoz Follow up on Bug 5462: fixing variable names breaks messaging preference form The messaging prefs form was hardcoded to use 'transport-$transport_type', rather than 'transport_$transport_type'. The result was an uneditable messaging preferences form. Signed-off-by: Nicole Engard Signed-off-by: Chris Cormack --- diff --git a/C4/Form/MessagingPreferences.pm b/C4/Form/MessagingPreferences.pm index 22b2048bfd..bd1c22f4f3 100644 --- a/C4/Form/MessagingPreferences.pm +++ b/C4/Form/MessagingPreferences.pm @@ -132,7 +132,7 @@ sub set_form_values { } ( 0..30 ); # FIXME: 30 is a magic number. } foreach my $transport ( @{$pref->{'transports'}} ) { - $option->{'transport-'.$transport} = 'checked="checked"'; + $option->{'transport_'.$transport} = 'checked="checked"'; } $option->{'digest'} = 'checked="checked"' if $pref->{'wants_digest'}; } diff --git a/C4/Members/Messaging.pm b/C4/Members/Messaging.pm index bc0f81b038..2b39f115d2 100644 --- a/C4/Members/Messaging.pm +++ b/C4/Members/Messaging.pm @@ -213,7 +213,7 @@ END_SQL $choices->{ $row->{'message_name'} }->{'message_name'} = $row->{'message_name'}; $choices->{ $row->{'message_name'} }->{'takes_days'} = $row->{'takes_days'}; $choices->{ $row->{'message_name'} }->{'has_digest'} = 1 if $row->{'is_digest'}; - $choices->{ $row->{'message_name'} }->{'transport-' . $row->{'message_transport_type'}} = ' '; + $choices->{ $row->{'message_name'} }->{'transport_' . $row->{'message_transport_type'}} = ' '; } my @return = values %$choices;