From 29db29a3210c5e04b01b7495b518de0d2b41fbb4 Mon Sep 17 00:00:00 2001
From: Chris Cormack <chrisc@catalyst.net.nz>
Date: Mon, 4 Apr 2011 12:50:21 +1200
Subject: [PATCH] Bug 5917 : Removing spaces, this may not work

---
 C4/Form/MessagingPreferences.pm | 1 +
 1 file changed, 1 insertion(+)

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.
-- 
2.39.5