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

[sartak at bestpractical.com]

Author: sartak
Date: Tue Jul 22 02:26:23 2008
New Revision: 14358

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

Log:
 r64708 at onn:  sartak | 2008-07-22 02:25:30 -0400
 Some semantic markup in the record table


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 02:26:23 2008
@@ -21,10 +21,24 @@
         body {
             table {
                 my @items = $records ? $records->items : ();
-                for ( sort { $a->luid <=> $b->luid } @items ) {
-                    my @atoms = $_->format_summary;
+                for my $record (sort { $a->luid <=> $b->luid } @items) {
+                    my $type = $record->type;
+                    my $uuid = $record->uuid;
+                    my @atoms = $record->format_summary;
+
                     row {
-                        cell { $_->{value} } for @atoms;
+                        attr { id => "$type-$uuid", class => "$type" };
+
+                        for (@atoms) {
+                            my $prop = $_->{prop};
+                            cell {
+                                attr {
+                                    id    => "$type-$uuid-$prop",
+                                    class => $prop,
+                                };
+                                outs $_->{value}
+                            }
+                        }
                     }
                 }
             }