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

[sartak at bestpractical.com]

Author: sartak
Date: Tue Jul 22 02:26:08 2008
New Revision: 14357

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

Log:
 r64707 at onn:  sartak | 2008-07-22 02:25:19 -0400
 Keep prop as the prop name, do the munging in the value


Modified: Prophet/trunk/lib/Prophet/Record.pm
==============================================================================
--- Prophet/trunk/lib/Prophet/Record.pm	(original)
+++ Prophet/trunk/lib/Prophet/Record.pm	Tue Jul 22 02:26:08 2008
@@ -381,23 +381,25 @@
     my @out;
     foreach my $atom ($self->_atomize_summary_format) {
         my %atom_data;
-        my ($format, $prop);
+        my ($format, $prop, $value);
 
         if ($atom =~ /,/) {
             ($format, $prop) = split /,/, $atom;
 
-            unless ($prop =~ /^\$/) {
-                $prop = $props->{$prop}
-                     || "(no $prop)"
+            $value = $prop;
+
+            unless ($value =~ /^\$/) {
+                $value = $props->{$value}
+                      || "(no $value)"
             }
 
         } else {
             $format = '%s';
-            $prop = $atom;
+            $prop = $value = $atom;
         }
 
         @atom_data{'format', 'prop'} = ($format, $prop);
-        $atom_data{value} = $self->atom_value($prop);
+        $atom_data{value} = $self->atom_value($value);
         $atom_data{formatted} = $self->format_atom($format => $atom_data{value});
 
         push @out, \%atom_data;