[Bps-public-commit] r14404 - in Prophet/trunk: .

[sartak at bestpractical.com]

Author: sartak
Date: Tue Jul 22 21:55:43 2008
New Revision: 14404

Modified:
   Prophet/trunk/   (props changed)
   Prophet/trunk/lib/Prophet/Server/View.pm

Log:
 r64763 at onn:  sartak | 2008-07-22 21:53:25 -0400
 Add a template for showing a specific record


Modified: Prophet/trunk/lib/Prophet/Server/View.pm
==============================================================================
--- Prophet/trunk/lib/Prophet/Server/View.pm	(original)
+++ Prophet/trunk/lib/Prophet/Server/View.pm	Tue Jul 22 21:55:43 2008
@@ -63,5 +63,27 @@
     }
 };
 
+template record => sub {
+    my $self = shift;
+    my $record = shift;
+
+    html {
+        body {
+            dl {
+                dt { 'UUID' }
+                dd { $record->uuid }
+                dt { 'LUID' }
+                dd { $record->luid };
+
+                my $props = $record->get_props;
+                for my $prop (sort keys %$props) {
+                    dt { $prop }
+                    dd { $props->{$prop} }
+                }
+            }
+        }
+    }
+};
+
 1;