[Rt-commit] rt branch, 3.8-trunk, updated. rt-3.8.7-167-ge3b6243

[sartak at bestpractical.com]

The branch, 3.8-trunk has been updated
       via  e3b62439003a433bdde1f5be4850a94fa3245e78 (commit)
      from  368c34c56093f34630d7671bee5c53db9285c2c4 (commit)

Summary of changes:
 share/html/Elements/CollectionList |   22 ++++++++++++++++++----
 1 files changed, 18 insertions(+), 4 deletions(-)

- Log -----------------------------------------------------------------
commit e3b62439003a433bdde1f5be4850a94fa3245e78
Author: Shawn M Moore <sartak at bestpractical.com>
Date:   Tue Feb 23 02:14:33 2010 -0500

    Add callback for munging args to CollectionAsTable/Row

diff --git a/share/html/Elements/CollectionList b/share/html/Elements/CollectionList
index 6f21420..02bbe7f 100644
--- a/share/html/Elements/CollectionList
+++ b/share/html/Elements/CollectionList
@@ -122,13 +122,27 @@ my ($i, $column_map) = (0, {});
 while ( my $record = $Collection->Next ) {
     # Every ten rows, flush the buffer and put something on the page.
     $m->flush_buffer unless ++$i % 10;
+
+    my $warning = 0;
+    my $classes = '';
+
+    $m->callback(
+        CallbackName => 'EachRow',
+        Record       => $record,
+        Warning      => \$warning,
+        classes      => \$classes,
+        Format       => \@Format,
+    );
+
     $m->comp('/Elements/CollectionAsTable/Row',
-        i => $i,
-        Format => \@Format,
-        record => $record,
-        maxitems => $maxitems,
+        i         => $i,
+        Format    => \@Format,
+        record    => $record,
+        maxitems  => $maxitems,
         ColumnMap => $column_map,
         Class     => $Class,
+        Warning   => $warning,
+        classes   => $classes,
     );
 }
 

-----------------------------------------------------------------------