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	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	# }}}