1 |
diff -Nur -x '*.orig' -x '*.rej' e-smith-base-4.18.1/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/useraccounts.pm mezzanine_patched_e-smith-base-4.18.1/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/useraccounts.pm |
2 |
--- e-smith-base-4.18.1/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/useraccounts.pm 2008-04-19 08:56:51.000000000 -0600 |
3 |
+++ mezzanine_patched_e-smith-base-4.18.1/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/useraccounts.pm 2008-04-19 08:56:32.000000000 -0600 |
4 |
@@ -757,9 +757,10 @@ |
5 |
'Street' => $self->{cgi}->param('Street'), |
6 |
'EmailForward' => $self->{cgi}->param('EmailForward'), |
7 |
'ForwardAddress' => $self->{cgi}->param('ForwardAddress'), |
8 |
- 'FreeBusy' => $self->{cgi}->param('FreeBusy'), |
9 |
'VPNClientAccess'=> $self->{cgi}->param('VPNClientAccess'), |
10 |
); |
11 |
+ $newProperties{'FreeBusy'} = $self->{cgi}->param('FreeBusy') |
12 |
+ if defined $self->{cgi}->param('FreeBusy'); |
13 |
$acct->merge_props(%newProperties); |
14 |
|
15 |
$accountdb->create_user_auto_pseudonyms($acctName); |