r10453 - trunk/libraries/koala/sources/examples/buddha

Author: hannes
Date: Sat Dec 24 07:22:41 2005
New Revision: 10453

Modified:
   trunk/libraries/koala/sources/examples/buddha/buddha.dylan
Log:
Bug: 7257
*always display changes, if hitting an error, skip only one change
*only display mx, cname, a, hosts for non-reverse zones


Modified: trunk/libraries/koala/sources/examples/buddha/buddha.dylan
==============================================================================
--- trunk/libraries/koala/sources/examples/buddha/buddha.dylan  (original)
+++ trunk/libraries/koala/sources/examples/buddha/buddha.dylan  Sat Dec 24 
07:22:41 2005
@@ -405,24 +405,28 @@
   with-buddha-template(out, "Recent Changes")
     collect(show-errors(errors));
     collect(with-xml()
-      ul {
-        do(for (change in *changes*)
-             collect(with-xml()
-                       li {
-                         do(print-xml(change)),
-                         text(" "),
-                         a("Undo",
-                           href => concatenate("/changes?do=undo&change=",
-                                               get-reference(change))) /* ,
-                         text(" "),
-                         a("Redo",
-                           href => concatenate("/changes?do=redo&change=",
-                                               get-reference(change))) */
-                       }
-                     end)
-           end)
-      }
-    end);
+              ul {
+                do(for (change in *changes*)
+                     block(ret)
+                       collect(with-xml()
+                                 li {
+                                   do(print-xml(change)),
+                                   text(" "),
+                                   a("Undo",
+                                     href => 
concatenate("/changes?do=undo&change=",
+                                                         
get-reference(change))) /* ,
+                                   text(" "),
+                                   a("Redo",
+                                     href => 
concatenate("/changes?do=redo&change=",
+                                                         
get-reference(change))) */
+                                 }
+                               end)
+                     exception (e :: <error>)
+                       ret()
+                     end
+                   end)
+              }
+            end);
   end;
 end;
 
@@ -973,6 +977,8 @@
                                          name => "zone",
                                          value => get-reference(dzone))
                                  end)),
+                do(unless(dzone.reverse?)
+                     with-xml() div {
                 h2("Mail exchange entries"),
                 do(if (dzone.mail-exchanges.size > 0)
                      with-xml()
@@ -1059,7 +1065,9 @@
                                                 td(show(x.ipv4-address)),
                                                 td(show(x.time-to-live)) }
                                          end
-                               end, choose(method(y) y.zone = dzone end, 
*config*.hosts))) }
+                               end, choose(method(y) y.zone = dzone end, 
*config*.hosts))) } }
+                     end
+                   end)
               }
             end);
   end;
-- 
Gd-chatter mailing list
Gd-chatter@xxxxxxxxxxxxxxxx
https://gauss.gwydiondylan.org/mailman/listinfo/gd-chatter