From fde3f9a45b8788bfa3d2e0c414df0d268c57c103 Mon Sep 17 00:00:00 2001
From: Andrew Dunstan <andrew@dunslane.net>
Date: Mon, 13 Apr 2009 15:16:55 +0000
Subject: [PATCH] support sys notes

---
 cgi-bin/show_log.pl | 45 ++++++++++++++++++++++++++++++++++++++++++---
 1 file changed, 42 insertions(+), 3 deletions(-)

diff --git a/cgi-bin/show_log.pl b/cgi-bin/show_log.pl
index 414b9e6..839af54 100755
--- a/cgi-bin/show_log.pl
+++ b/cgi-bin/show_log.pl
@@ -66,7 +66,8 @@ EOS
           select operating_system, os_version, 
                  compiler, compiler_version, 
                  architecture,
-		replace(owner_email,'\@',' [ a t ] ') as owner_email
+		 replace(owner_email,'\@',' [ a t ] ') as owner_email,
+		 sys_notes_ts::date AS sys_notes_date, sys_notes
           from buildsystems 
           where status = 'approved'
                 and name = ?
@@ -76,7 +77,7 @@ EOS
 	$sth=$db->prepare($statement);
 	$sth->execute($system);
 	$info_row=$sth->fetchrow_hashref;
-        $sysinfo = join(" ",@$row);
+        # $sysinfo = join(" ",@$row);
 	$sth->finish;
 	$db->disconnect;
 }
@@ -162,6 +163,25 @@ if ($stage eq 'OK')
     </table>
 EOHTML
 
+    if ($info_row->{sys_notes})
+    {
+        print <<EOHTML;
+    <br />
+    <table>
+     <tr>
+       <th class="head" rowspan="2">System Notes</th>
+       <th>Date</th>
+       <th>Notes</th>
+     </tr>
+     <tr>
+      <td>$info_row->{sys_notes_date}</td>
+      <td>$info_row->{sys_notes}</td>
+     </tr>
+   </table>
+EOHTML
+
+    }
+
 for my $logstage (@log_file_names)
 {
     print "<br /> <table><tr><th class='head' rowspan='$logrows'>Stage Logs</th>\n"
@@ -265,9 +285,28 @@ print <<EOHTML;
         <td>$info_row->{architecture}</td>
         <td>$info_row->{owner_email}</td>
     </tr>
-    </table>
+  </table>
 EOHTML
 
+    if ($info_row->{sys_notes})
+    {
+        print <<EOHTML;
+    <br />
+    <table>
+     <tr>
+       <th class="head" rowspan="2">System Notes</th>
+       <th>Date</th>
+       <th>Notes</th>
+     </tr>
+     <tr>
+      <td>$info_row->{sys_notes_date}</td>
+      <td>$info_row->{sys_notes}</td>
+     </tr>
+   </table>
+EOHTML
+
+    }
+
 for my $logstage (@log_file_names)
 {
     print "<br /> <table><tr><th class='head' rowspan='4'>Stage Logs</th>\n"
-- 
2.30.2