From: Robert 'phaylon' Sedlacek <r.sedlacek@shadowcat.co.uk>
Date: Tue, 19 Jun 2012 21:46:23 +0000 (+0000)
Subject: give row an error class if data structure contains an error message
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FJSON-Tree-Viewer.git;a=commitdiff_plain;h=a03683cd7157fd927a653fb84794911300b925dd

give row an error class if data structure contains an error message
---

diff --git a/br.pl b/br.pl
index 9cd6f6d..21eec68 100644
--- a/br.pl
+++ b/br.pl
@@ -176,7 +176,7 @@ sub render_table {
       ($data->{wrapper}||sub{@_})->(
         '', <table>, "\n",
           (map { my $el = $_;
-            '  ', <tr>,
+            '  ', ($el->{key} eq '__error__') ? <tr class="error"> : <tr>,
               (map {
                 <td>, $self->render_el($el, $_, $el->{$_}), </td>
               } @{$data->{columns}}),