From f97ccc66c37620a5042da32a736b91785e0e0053 Mon Sep 17 00:00:00 2001
From: nik gaffney <nik@fo.am>
Date: Tue, 7 Sep 2021 10:26:23 +0200
Subject: [PATCH] What does your office space smell like?

---
 f20-budget.pl | 40 ++++++++++++++++------------------------
 1 file changed, 16 insertions(+), 24 deletions(-)

diff --git a/f20-budget.pl b/f20-budget.pl
index cc8e06d..4b2d957 100644
--- a/f20-budget.pl
+++ b/f20-budget.pl
@@ -416,6 +416,10 @@ END
 	  }
 	}
 
+	my $sql6 = qq( SELECT * from nonfinance where budget_id=$record->{id} AND agent_id =$record2->{id} AND kind='notes');
+	my $sth6 = $dbh->prepare($sql6);
+	$sth6->execute;
+
 	print <<END;
       <tr><td colspan="4">
           <input type="text" name="insert_resources" size=1 maxsize=2 value="">
@@ -424,30 +428,18 @@ END
 END
       }
 
-      print <<END;
-      <tr><td colspan="8" height="20">&nbsp;</td></tr>
-      <tr><td colspan="1" class="medbig"><b>notes</b></td><td colspan="8">for your own reference only, these notes will not show up in the shared budget</td></tr>
-      <tr><td colspan=4 align="left"><TEXTAREA NAME="new_notes" ROWS="6" COLS="110" WRAP=SOFT></textarea></td></tr>
-      <tr><td colspan="1"></td><td colspan="1"></td><td colspan="1"><INPUT TYPE="submit" VALUE="SUBMIT"></td></tr>
-      </td></tr>
-      </FORM>
-      <tr><td height="10"></td></tr>
-      </td></tr>
-    </table></table>
-END
-
-      #    print "<tr><td colspan=\"1\" class=\"medbig\"><b>OR add budget lines</b></td><td colspan=\"8\">for labour &amp;/or resources </td></tr>";
-
-      #          $sthCL->execute;
-      #          while (my $recordCL = $sthCL->fetchrow_hashref) {
-      #           print "<tr><td colspan=\"4\"><input type=\"text\" name=\"insert_labour\" size=2 maxsize=3 value=\"\">";
-      #           print " add this many budget lines for labour [after $recordCL->{count}]\n";
-      #           }
-      #           $sthCR->execute;
-      #          whle (my $recordCR = $sthCR->fetchrow_hashref) {
-      #           print "<tr><td colspan=\"4\"><input type=\"text\" name=\"insert_labour\" size=2 maxsize=3 value=\"\">";
-      #          print " add this many budget lines for resources [after $recordCR->{count}]\n";
-      #            }
+      print(qq(<tr><td colspan="8" height="20">&nbsp;</td></tr>\n));
+      print(qq(<tr><td colspan="1" class="medbig"><b>notes</b></td><td colspan="8">for your own reference only, these notes will not show up in the shared budget</td></tr>\n));
+      print(qq(<tr><td colspan=4 align="left"><TEXTAREA NAME="new_notes" ROWS="6" COLS="110" WRAP=SOFT>));
+      while (my $record6 = $sth6->fetchrow_hashref) {
+	print(qq($record6->{item}));
+      }
+      print (qq(</textarea></td></tr>\n));
+      print(qq(<tr><td colspan="1"></td><td colspan="1"></td><td colspan="1"><INPUT TYPE="submit" VALUE="SUBMIT"></td></tr>\n));
+      print(qq(</td></tr>\n));
+      print(qq(</FORM>\n));
+      print(qq(<tr><td height="10"></td></tr>\n));
+      print(qq(</td></tr></table></table>\n));
 
     } else {
       & print_header;