From b2c56dfe62e90c8f3ae6a81b8d511714a54b6d33 Mon Sep 17 00:00:00 2001 From: Ian Walls Date: Sat, 12 Feb 2011 17:19:23 -0500 Subject: [PATCH] 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 --- C4/Form/MessagingPreferences.pm | 2 +- C4/Members/Messaging.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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; -- 2.20.1