[Bps-public-commit] r14356 - in Prophet/trunk: . lib/Prophet/Server

sartak at bestpractical.com sartak at bestpractical.com
Tue Jul 22 02:25:54 EDT 2008


Author: sartak
Date: Tue Jul 22 02:25:52 2008
New Revision: 14356

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

Log:
 r64706 at onn:  sartak | 2008-07-22 02:20:30 -0400
 Finish the refactor, now we don't display extraneous crap on the display page


Modified: Prophet/trunk/lib/Prophet/Record.pm
==============================================================================
--- Prophet/trunk/lib/Prophet/Record.pm	(original)
+++ Prophet/trunk/lib/Prophet/Record.pm	Tue Jul 22 02:25:52 2008
@@ -396,8 +396,9 @@
             $prop = $atom;
         }
 
-        $atom_data{formatted} = $self->format_atom($format => $prop);
         @atom_data{'format', 'prop'} = ($format, $prop);
+        $atom_data{value} = $self->atom_value($prop);
+        $atom_data{formatted} = $self->format_atom($format => $atom_data{value});
 
         push @out, \%atom_data;
     }
@@ -421,14 +422,16 @@
         return $self->uuid;
     } elsif ($value_in eq '$luid') {
         return $self->luid;
+    }
+
     return $value_in;
 }
 
 sub format_atom {
     my $self = shift;
     my $string = shift;
-    my $value_in = shift;
-    return sprintf($string, $self->atom_value($value_in));
+    my $value = shift;
+    return sprintf($string, $self->atom_value($value));
 }
 
 =head2 find_or_create_luid

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:25:52 2008
@@ -24,7 +24,7 @@
                 for ( sort { $a->luid <=> $b->luid } @items ) {
                     my @atoms = $_->format_summary;
                     row {
-                        cell { $_ } for @atoms;
+                        cell { $_->{value} } for @atoms;
                     }
                 }
             }



More information about the Bps-public-commit mailing list