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;
<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;