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

What if you could reduce administrative complexity?

Browse source
This commit is contained in:
nik gaffney 2021-09-07 10:06:32 +02:00
parent e6463c54e9
commit 51da8ad539
1 changed files with 9 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
f20-budget.pl
View file

@ -369,7 +369,6 @@ END
my $sth5 = $dbh->prepare($sql5); my $sth5 = $dbh->prepare($sql5);
$sth5->execute; $sth5->execute;
my $sqlCL = qq( SELECT count(id) AS count from nonfinance where budget_id=$record->{id} AND agent_id =$record2->{id} AND kind='labour' ); my $sqlCL = qq( SELECT count(id) AS count from nonfinance where budget_id=$record->{id} AND agent_id =$record2->{id} AND kind='labour' );
my $sthCL = $dbh->prepare($sqlCL); my $sthCL = $dbh->prepare($sqlCL);
$sthCL->execute; $sthCL->execute;
@ -381,10 +380,7 @@ END
while (my $record5 = $sth5->fetchrow_hashref) { while (my $record5 = $sth5->fetchrow_hashref) {
print(qq(<tr><td colspan="1"><b>$i.</b></td>\n)); print(qq(<tr><td colspan="1"><b>$i.</b></td>\n));
print(qq(<td><input type="checkbox" NAME="new_lstatus$i" VALUE="delivered")); print(qq(<td><input type="checkbox" NAME="new_lstatus$i" VALUE="delivered"));
if ($record5->{status} eq 'delivered') { if ($record5->{status} eq 'delivered') { print"CHECKED" };
print(qq(CHECKED));
}
;
print(qq(></td>\n)); print(qq(></td>\n));
print(qq(<td colspan="3"><input type="text" name="new_labour$i" value="$record5->{item}" size="100" maxsize="200"></td></tr>\n)); print(qq(<td colspan="3"><input type="text" name="new_labour$i" value="$record5->{item}" size="100" maxsize="200"></td></tr>\n));
$i++ $i++
@ -413,10 +409,7 @@ END
while (my $record5 = $sth5->fetchrow_hashref) { while (my $record5 = $sth5->fetchrow_hashref) {
print(qq(<tr><td colspan="1"><b>$i.</b></td>\n)); print(qq(<tr><td colspan="1"><b>$i.</b></td>\n));
print(qq(<td><input type="checkbox" NAME="new_rstatus$i" VALUE="delivered")); print(qq(<td><input type="checkbox" NAME="new_rstatus$i" VALUE="delivered"));
if ($record5->{status} eq 'delivered') { if ($record5->{status} eq 'delivered') { print "CHECKED" };
print(qq(CHECKED));
}
;
print(qq(></td>\n)); print(qq(></td>\n));
print(qq(<td colspan="3"><input type="text" name="new_resource$i" value="$record5->{item}" size="100" maxsize="200"></td></tr>\n)); print(qq(<td colspan="3"><input type="text" name="new_resource$i" value="$record5->{item}" size="100" maxsize="200"></td></tr>\n));
$i++ $i++
@ -432,14 +425,14 @@ END
} }
print <<END; print <<END;
<tr><td height="10"></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> <tr><td colspan=4 align="left"><TEXTAREA NAME="new_notes" ROWS="6" COLS="110" WRAP=SOFT></textarea></td></tr>
<td colspan="1"></td><td colspan="1"></td> <tr><td colspan="1"></td><td colspan="1"></td><td colspan="1"><INPUT TYPE="submit" VALUE="SUBMIT"></td></tr>
<td colspan="1"><INPUT TYPE="submit" VALUE="SUBMIT"></td>
</tr>
</td></tr> </td></tr>
</FORM> </FORM>
<tr><td height="10"></td></tr> <tr><td height="10"></td></tr>
</td></tr>
</table></table>
END 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>"; # print "<tr><td colspan=\"1\" class=\"medbig\"><b>OR add budget lines</b></td><td colspan=\"8\">for labour &amp;/or resources </td></tr>";
@ -455,13 +448,6 @@ END
# print " add this many budget lines for resources [after $recordCR->{count}]\n"; # print " add this many budget lines for resources [after $recordCR->{count}]\n";
# } # }
print <<END;
<tr><td colspan="5"></td><td colspan="3" class="serif_sm">Notes:</td></tr>
</td></tr>
</table>
</table>
END
} else { } else {
& print_header; & print_header;
print(qq(codename not recognised. please retry\n)); print(qq(codename not recognised. please retry\n));