smeserver-geneweb/contribs7/smeserver-geneweb-2.0-pod-corrections.patch

--- smeserver-geneweb-2.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/geneweb.pm.pod-corrections       2007-08-05 09:30:03.000000000 -0600
+++ smeserver-geneweb-2.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/geneweb.pm       2008-01-13 09:57:02.000000000 -0700
@@ -36,7 +36,6 @@
 
 =head1 NAME
 
-
 esmith::FormMagick::Panels::geneweb - Panel providing exclusive single
 IP assignment for it's administrative access (:2316)
 
@@ -58,6 +57,28 @@
 
 =cut
 
+# {{{ new
+
+=head2 new()
+
+Exactly as for esmith::FormMagick
+
+=begin testing
+
+$ENV{ESMITH_CONFIG_DB} = "10e-smith-base/configuration.conf"
+$ENV{ESMITH_NETWORKS_DB} = "10e-smith-base/networks.conf"
+
+use_ok('esmith::FormMgick::Panel::geneweb');
+use vars qw($panel);
+ok($panel = esmith::FormMagick::Panel::geneweb->new(), "Create panel object");
+isa_ok($panel, 'esmith::FormMagick::Panel::geneweb');
+
+=end testing
+
+=cut
+
+
+
 sub new
 {
         shift;
@@ -124,9 +145,7 @@
 {
        my $self = shift;
        my $q = $self->{'cgi'};
-       
        $db->set_prop("geneweb", "only", $q->param("geneweb_only") || '');
-               
         unless ( system ( "/sbin/e-smith/signal-event", "geneweb-modify" ) == 0 )
        {
            $self->error("ERROR_UPDATING");
@@ -163,7 +182,6 @@
     my $self = shift;
     my $q = $self->{cgi};
     my $data = $q->param("geneweb_only");
-    
     # Make sure that the IP is indeed local.
     my $ndb = esmith::NetworksDB->open_ro;
     my @local_list = $ndb->local_access_spec;
1	fetcher	1.1	--- smeserver-geneweb-2.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/geneweb.pm.pod-corrections 2007-08-05 09:30:03.000000000 -0600
2			+++ smeserver-geneweb-2.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/geneweb.pm 2008-01-13 09:57:02.000000000 -0700
3			@@ -36,7 +36,6 @@
4
5			=head1 NAME
6
7			-
8			esmith::FormMagick::Panels::geneweb - Panel providing exclusive single
9			IP assignment for it's administrative access (:2316)
10
11			@@ -58,6 +57,28 @@
12
13			=cut
14
15			+# {{{ new
16			+
17			+=head2 new()
18			+
19			+Exactly as for esmith::FormMagick
20			+
21			+=begin testing
22			+
23			+$ENV{ESMITH_CONFIG_DB} = "10e-smith-base/configuration.conf"
24			+$ENV{ESMITH_NETWORKS_DB} = "10e-smith-base/networks.conf"
25			+
26			+use_ok('esmith::FormMgick::Panel::geneweb');
27			+use vars qw($panel);
28			+ok($panel = esmith::FormMagick::Panel::geneweb->new(), "Create panel object");
29			+isa_ok($panel, 'esmith::FormMagick::Panel::geneweb');
30			+
31			+=end testing
32			+
33			+=cut
34			+
35			+
36			+
37			sub new
38			{
39			shift;
40			@@ -124,9 +145,7 @@
41			{
42			my $self = shift;
43			my $q = $self->{'cgi'};
44			-
45			$db->set_prop("geneweb", "only", $q->param("geneweb_only") \|\| '');
46			-
47			unless ( system ( "/sbin/e-smith/signal-event", "geneweb-modify" ) == 0 )
48			{
49			$self->error("ERROR_UPDATING");
50			@@ -163,7 +182,6 @@
51			my $self = shift;
52			my $q = $self->{cgi};
53			my $data = $q->param("geneweb_only");
54			-
55			# Make sure that the IP is indeed local.
56			my $ndb = esmith::NetworksDB->open_ro;
57			my @local_list = $ndb->local_access_spec;