smeserver-mailman/contribs7/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	slords	1.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');