summaryrefslogtreecommitdiff
path: root/lib/XXV/MODULES/USER.pm
diff options
context:
space:
mode:
authorAndreas Brachold <vdr07@deltab.de>2008-11-28 18:47:12 +0000
committerAndreas Brachold <vdr07@deltab.de>2008-11-28 18:47:12 +0000
commitb7b4c1c32dbbf02bc52f8aa568c9bfbbfc3acabc (patch)
tree0c9a2e0d05ecd3ef9cccea3dadc5bfed6403a1d3 /lib/XXV/MODULES/USER.pm
parent8c42985fd234e2a993b3f01416941f4b371d1a92 (diff)
downloadxxv-b7b4c1c32dbbf02bc52f8aa568c9bfbbfc3acabc.tar.gz
xxv-b7b4c1c32dbbf02bc52f8aa568c9bfbbfc3acabc.tar.bz2
* USER: Fix warn message
* STATUS: Add option to define warning level, if volume filled more then this level * RSS: Better encode with UTF-8 * MAIL: Mail::SendEasy, failed with standard eval { use _$ } (Bug #14843)
Diffstat (limited to 'lib/XXV/MODULES/USER.pm')
-rw-r--r--lib/XXV/MODULES/USER.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/XXV/MODULES/USER.pm b/lib/XXV/MODULES/USER.pm
index 7864e6e..2c8648a 100644
--- a/lib/XXV/MODULES/USER.pm
+++ b/lib/XXV/MODULES/USER.pm
@@ -495,7 +495,8 @@ sub edit {
},
'Prefs' => {
def => sub {
- my $value = $user->{Prefs} ? split(/\n/,$user->{Prefs}) : '';
+ my $value;
+ @$value = $user->{Prefs} ? split(/\n/,$user->{Prefs}) : [];
return (ref $value eq 'ARRAY') ? join(',', @$value) : $value;
},
msg => gettext("Preferences for this User: ModName::Param=value, "),