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 < @@ -424,30 +428,18 @@ END 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 "; - - # $sthCL->execute; - # while (my $recordCL = $sthCL->fetchrow_hashref) { - # print ""; - # print " add this many budget lines for labour [after $recordCL->{count}]\n"; - # } - # $sthCR->execute; - # whle (my $recordCR = $sthCR->fetchrow_hashref) { - # print ""; - # print " add this many budget lines for resources [after $recordCR->{count}]\n"; - # } + print(qq( \n)); + print(qq(notesfor your own reference only, these notes will not show up in the shared budget\n)); + print(qq(\n)); + print(qq(\n)); + print(qq(\n)); + print(qq(\n)); + print(qq(\n)); + print(qq(\n)); } else { & print_header;