[dw-free] Show all rows, not just the first.

[mark]

[commit: http://hg.dwscoalition.org/dw-free/rev/fbab4cbda526]

Show all rows, not just the first.

Patch by mark.

Files modified:

• htdocs/admin/pay/view.bml

--------------------------------------------------------------------------------
diff -r af1bdcc59591 -r fbab4cbda526 htdocs/admin/pay/view.bml
--- a/htdocs/admin/pay/view.bml	Fri May 01 14:33:36 2009 +0000
+++ b/htdocs/admin/pay/view.bml	Fri May 01 14:43:55 2009 +0000
@@ -67,7 +67,7 @@
                 $hr->{$_} = '<em>redacted</em>'
                     if exists $hr->{$_};
             }
-            return join( '<br />', map { "<strong>$_:</strong> $hr->{$_}" } sort keys %$hr );
+            return "<br />-----------<br />" . join( '<br />', map { "<strong>$_:</strong> $hr->{$_}" } sort keys %$hr );
         };
 
         my $dbh = LJ::get_db_writer();
@@ -79,7 +79,7 @@
 
         my $rows = [];
         push @$rows, $_
-            foreach $sth->fetchrow_hashref;
+            while $_ = $sth->fetchrow_hashref;
         return $body .= "<p>No records found.</p>"
             unless $rows && @$rows;
 
--------------------------------------------------------------------------------