e-smith-ldap/sme7/e-smith-ldap-4.12.0-success.patch

diff -Nur -x '*.orig' -x '*.rej' e-smith-ldap-4.12.0/root/etc/e-smith/web/functions/directory mezzanine_patched_e-smith-ldap-4.12.0/root/etc/e-smith/web/functions/directory
--- e-smith-ldap-4.12.0/root/etc/e-smith/web/functions/directory        2003-12-18 10:17:16.000000000 -0700
+++ mezzanine_patched_e-smith-ldap-4.12.0/root/etc/e-smith/web/functions/directory      2007-01-13 10:52:02.000000000 -0700
@@ -95,7 +95,7 @@
     <page 
         name="First"  
         post-event="change_settings()" 
-        pre-event="turn_off_buttons()">
+        pre-event="print_status_message()">
         <description>DESCRIPTION</description>
 
         <field type="literal" value="get_ldap_base()">
@@ -148,8 +148,4 @@
         <subroutine src="print_button('SAVE')" />
     </page>
 
-    <page name="Done" pre-event="turn_off_buttons">
-        <description>SUCCESS</description>
-    </page>
-
 </form>
diff -Nur -x '*.orig' -x '*.rej' e-smith-ldap-4.12.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/directory.pm mezzanine_patched_e-smith-ldap-4.12.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/directory.pm
--- e-smith-ldap-4.12.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/directory.pm       2005-04-14 19:24:58.000000000 -0600
+++ mezzanine_patched_e-smith-ldap-4.12.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/directory.pm     2007-01-13 10:55:12.000000000 -0700
@@ -194,9 +194,9 @@
     #------------------------------------------------------------
 
     system ("/sbin/e-smith/signal-event ldap-update") == 0
-        or die ("Error occurred while updating system configuration.\n");
+        or return $fm->error('ERROR_UPDATING');
 
-    $fm->{cgi}->param( -name => 'wherenext', -value => 'Done' );
+    return $fm->success('SUCCESS');
 }
 
 # }}}
1	slords	1.1	diff -Nur -x '.orig' -x '.rej' e-smith-ldap-4.12.0/root/etc/e-smith/web/functions/directory mezzanine_patched_e-smith-ldap-4.12.0/root/etc/e-smith/web/functions/directory
2			--- e-smith-ldap-4.12.0/root/etc/e-smith/web/functions/directory 2003-12-18 10:17:16.000000000 -0700
3			+++ mezzanine_patched_e-smith-ldap-4.12.0/root/etc/e-smith/web/functions/directory 2007-01-13 10:52:02.000000000 -0700
4			@@ -95,7 +95,7 @@
5			<page
6			name="First"
7			post-event="change_settings()"
8			- pre-event="turn_off_buttons()">
9			+ pre-event="print_status_message()">
10			<description>DESCRIPTION</description>
11
12			<field type="literal" value="get_ldap_base()">
13			@@ -148,8 +148,4 @@
14			<subroutine src="print_button('SAVE')" />
15			</page>
16
17			- <page name="Done" pre-event="turn_off_buttons">
18			- <description>SUCCESS</description>
19			- </page>
20			-
21			</form>
22			diff -Nur -x '.orig' -x '.rej' e-smith-ldap-4.12.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/directory.pm mezzanine_patched_e-smith-ldap-4.12.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/directory.pm
23			--- e-smith-ldap-4.12.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/directory.pm 2005-04-14 19:24:58.000000000 -0600
24			+++ mezzanine_patched_e-smith-ldap-4.12.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/directory.pm 2007-01-13 10:55:12.000000000 -0700
25			@@ -194,9 +194,9 @@
26			#------------------------------------------------------------
27
28			system ("/sbin/e-smith/signal-event ldap-update") == 0
29			- or die ("Error occurred while updating system configuration.\n");
30			+ or return $fm->error('ERROR_UPDATING');
31
32			- $fm->{cgi}->param( -name => 'wherenext', -value => 'Done' );
33			+ return $fm->success('SUCCESS');
34			}
35
36			# }}}