From: Chris Cormack <chrisc@catalyst.net.nz>
Date: Mon, 4 Apr 2011 00:50:21 +0000 (+1200)
Subject: Bug 5917 : Removing spaces, this may not work
X-Git-Tag: v3.04.00~157
X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=commitdiff_plain;h=29db29a3210c5e04b01b7495b518de0d2b41fbb4;p=srvgit

Bug 5917 : Removing spaces, this may not work
---

diff --git a/C4/Form/MessagingPreferences.pm b/C4/Form/MessagingPreferences.pm
index 808719f1c4..474c25ec9c 100644
--- a/C4/Form/MessagingPreferences.pm
+++ b/C4/Form/MessagingPreferences.pm
@@ -121,6 +121,7 @@ sub set_form_values {
     # walk through the options and update them with these borrower_preferences
     my $messaging_options = C4::Members::Messaging::GetMessagingOptions();
     PREF: foreach my $option ( @$messaging_options ) {
+        $option=~ s/ /_/g;
         my $pref = C4::Members::Messaging::GetMessagingPreferences( { %{ $target_params }, message_name => $option->{'message_name'} } );
         $option->{ $option->{'message_name'} } = 1;
         # make a hashref of the days, selecting one.