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

[sartak at bestpractical.com]

Author: sartak
Date: Mon Jul 21 20:07:27 2008
New Revision: 14348

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

Log:
 r64694 at onn:  sartak | 2008-07-21 20:07:05 -0400
 Add a View for the server (currently just for the upcoming list --html)


Added: Prophet/trunk/lib/Prophet/Server/View.pm
==============================================================================
--- (empty file)
+++ Prophet/trunk/lib/Prophet/Server/View.pm	Mon Jul 21 20:07:27 2008
@@ -0,0 +1,24 @@
+#!/usr/bin/env perl
+package Prophet::Server::View;
+use strict;
+use warnings;
+use base 'Template::Declare';
+use Template::Declare::Tags;
+
+template record_table => sub {
+    my $self = shift;
+    my $records = shift;
+
+    html {
+        body {
+            ul {
+                for ( sort { $a->luid <=> $b->luid } $records->items ) {
+                    li { $_->format_summary }
+                }
+            }
+        }
+    }
+};
+
+1;
+