diff --git a/f20-budget.pl b/f20-budget.pl index 07e2898..0b0c856 100644 --- a/f20-budget.pl +++ b/f20-budget.pl @@ -369,7 +369,6 @@ END my $sth5 = $dbh->prepare($sql5); $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 $sthCL = $dbh->prepare($sqlCL); $sthCL->execute; @@ -381,10 +380,7 @@ END while (my $record5 = $sth5->fetchrow_hashref) { print(qq($i.\n)); print(qq({status} eq 'delivered') { - print(qq(CHECKED)); - } - ; + if ($record5->{status} eq 'delivered') { print"CHECKED" }; print(qq(>\n)); print(qq(\n)); $i++ @@ -413,10 +409,7 @@ END while (my $record5 = $sth5->fetchrow_hashref) { print(qq($i.\n)); print(qq({status} eq 'delivered') { - print(qq(CHECKED)); - } - ; + if ($record5->{status} eq 'delivered') { print "CHECKED" }; print(qq(>\n)); print(qq(\n)); $i++ @@ -432,14 +425,14 @@ END } print < - - - - + notesfor your own reference only, these notes will not show up in the shared budget + + - - + + + + END # print "OR add budget linesfor labour &/or resources "; @@ -455,13 +448,6 @@ END # print " add this many budget lines for resources [after $recordCR->{count}]\n"; # } - print <Notes: - - - -END - } else { & print_header; print(qq(codename not recognised. please retry\n));