FoAM/feral-budget
12
0
Fork 0
Code Issues 3 Pull requests Projects Releases Packages Wiki Activity

What does your office space smell like?

Browse source
This commit is contained in:
nik gaffney 2021-09-07 10:26:23 +02:00
parent 487c2a990c
commit f97ccc66c3
1 changed files with 16 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

40
f20-budget.pl
View file

@ -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; print <<END;
<tr><td colspan="4"> <tr><td colspan="4">
<input type="text" name="insert_resources" size=1 maxsize=2 value=""> <input type="text" name="insert_resources" size=1 maxsize=2 value="">
@ -424,30 +428,18 @@ END
END END
} }
print <<END; print(qq(<tr><td colspan="8" height="20">&nbsp;</td></tr>\n));
<tr><td colspan="8" height="20">&nbsp;</td></tr> 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));
<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> print(qq(<tr><td colspan=4 align="left"><TEXTAREA NAME="new_notes" ROWS="6" COLS="110" WRAP=SOFT>));
<tr><td colspan=4 align="left"><TEXTAREA NAME="new_notes" ROWS="6" COLS="110" WRAP=SOFT></textarea></td></tr> while (my $record6 = $sth6->fetchrow_hashref) {
<tr><td colspan="1"></td><td colspan="1"></td><td colspan="1"><INPUT TYPE="submit" VALUE="SUBMIT"></td></tr> print(qq($record6->{item}));
</td></tr> }
</FORM> print (qq(</textarea></td></tr>\n));
<tr><td height="10"></td></tr> print(qq(<tr><td colspan="1"></td><td colspan="1"></td><td colspan="1"><INPUT TYPE="submit" VALUE="SUBMIT"></td></tr>\n));
</td></tr> print(qq(</td></tr>\n));
</table></table> print(qq(</FORM>\n));
END print(qq(<tr><td height="10"></td></tr>\n));
print(qq(</td></tr></table></table>\n));
# 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";
# }
} else { } else {
& print_header; & print_header;