[Bps-public-commit] r14389 - in Prophet/branches/history: .

[jesse at bestpractical.com]

Author: jesse
Date: Tue Jul 22 13:57:20 2008
New Revision: 14389

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

Log:
 r40357 at 31b (orig r14363):  sartak | 2008-07-21 23:59:40 -0700
  r64715 at onn:  sartak | 2008-07-22 02:59:32 -0400
  Add a header to the table
 
 r40360 at 31b (orig r14366):  sartak | 2008-07-22 01:20:11 -0700
  r64721 at onn:  sartak | 2008-07-22 04:20:00 -0400
  Don't need the type-uuid-propname id on every cell
 


Modified: Prophet/branches/history/lib/Prophet/Server/View.pm
==============================================================================
--- Prophet/branches/history/lib/Prophet/Server/View.pm	(original)
+++ Prophet/branches/history/lib/Prophet/Server/View.pm	Tue Jul 22 13:57:20 2008
@@ -21,6 +21,15 @@
         body {
             table {
                 my @items = $records ? $records->items : ();
+                if (@items) {
+                    my @headers = $items[0]->_parse_format_summary;
+                    row {
+                        for (@headers) {
+                            th { $_->{prop} }
+                        }
+                    }
+                }
+
                 for my $record (sort { $a->luid <=> $b->luid } @items) {
                     my $type = $record->type;
                     my $uuid = $record->uuid;
@@ -33,8 +42,7 @@
                             my $prop = $_->{prop};
                             cell {
                                 attr {
-                                    id    => "$type-$uuid-$prop",
-                                    class => $prop,
+                                    class => "prop-$prop",
                                 };
                                 outs $_->{value}
                             }