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

[sartak at bestpractical.com]

Author: sartak
Date: Wed Jul 23 01:31:34 2008
New Revision: 14417

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

Log:
 r64788 at onn:  sartak | 2008-07-23 01:22:43 -0400
 Remove the explicit "view" link and just linkify the first column


Modified: Prophet/trunk/lib/Prophet/Server/View.pm
==============================================================================
--- Prophet/trunk/lib/Prophet/Server/View.pm	(original)
+++ Prophet/trunk/lib/Prophet/Server/View.pm	Wed Jul 23 01:31:34 2008
@@ -24,8 +24,6 @@
                 if (@items) {
                     my @headers = $items[0]->_parse_format_summary;
                     row {
-                        th { outs_raw ' ' };
-
                         for (@headers) {
                             th { $_->{prop} }
                         }
@@ -40,20 +38,26 @@
                     row {
                         attr { id => "$type-$uuid", class => "$type" };
 
-                        cell {
-                            a {
-                                attr { href => "$uuid.html" };
-                                outs "(view)";
-                            }
-                        };
+                        for my $i (0 .. $#atoms) {
+                            my $atom = $atoms[$i];
+                            my $prop = $atom->{prop};
 
-                        for (@atoms) {
-                            my $prop = $_->{prop};
                             cell {
                                 attr {
                                     class => "prop-$prop",
                                 };
-                                outs $_->{value}
+
+                                if ($i == 0) {
+                                    a {
+                                        attr {
+                                            href => "$uuid.html",
+                                        };
+                                        outs $atom->{value};
+                                    }
+                                }
+                                else {
+                                    outs $atom->{value};
+                                }
                             }
                         }
                     }