smeserver-mailman/contribs8/smeserver-mailman-1.3.0-firsttime.patch

diff -Nur -x '*.orig' -x '*.rej' smeserver-mailman-1.3.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/mailman.pm mezzanine_patched_smeserver-mailman-1.3.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/mailman.pm
--- smeserver-mailman-1.3.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/mailman.pm     2005-02-16 15:02:25.000000000 +1100
+++ mezzanine_patched_smeserver-mailman-1.3.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/mailman.pm   2006-03-08 17:07:14.931542135 +1100
@@ -77,8 +77,7 @@
     my $q = $self->{cgi};
 
     my $status = $q->param('status');
-    my $mailman = $self->{db}->get('mailman');
-    $mailman->set_prop('status', $status);
+    $self->{db}->set_prop('mailman', 'status', $status, type => 'service');
 
     system(SIGEVENT, 'mailman-update') == 0
         or return $self->error('ERR_UPDATE');
1	diff -Nur -x '.orig' -x '.rej' smeserver-mailman-1.3.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/mailman.pm mezzanine_patched_smeserver-mailman-1.3.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/mailman.pm
2	--- smeserver-mailman-1.3.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/mailman.pm 2005-02-16 15:02:25.000000000 +1100
3	+++ mezzanine_patched_smeserver-mailman-1.3.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/mailman.pm 2006-03-08 17:07:14.931542135 +1100
4	@@ -77,8 +77,7 @@
5	my $q = $self->{cgi};
6
7	my $status = $q->param('status');
8	- my $mailman = $self->{db}->get('mailman');
9	- $mailman->set_prop('status', $status);
10	+ $self->{db}->set_prop('mailman', 'status', $status, type => 'service');
11
12	system(SIGEVENT, 'mailman-update') == 0
13	or return $self->error('ERR_UPDATE');