sub full_report
{
my $row = shift;
        print "<HR>", strong("Full Report");
        print "<TABLE BORDER=1>";
                my $edit_url = sprintf ("%s?choice=edit;id=%d", url(), $row->{id});
                my $delete_url = sprintf ("%s?choice=delete;id=%d", url(), $row->{id});
                my $full_report_url = sprintf ("%s?choice=full_report;id=%d", url(), $row->{id});

                print "<TR>",
                                        "<TD>$row->{id}</TD>",
                                        "<TD>$row->{date}</TD>",
                                        "<TD>$row->{summary}</TD>",
                                        "<TD>$row->{type}</TD>",
                                        "<TD>",
                                        "[", a({-href => $delete_url}, "Delete"), "]",
                                        "[", a({-href => $edit_url}, "Edit"), "]",
                                        "[", a({-href => $full_report_url}, "Full Report"), "]",
                                        "</TD>",
                                        "<TR><TD COLSPAN=6>$row->{message}</TD></TR>",
                     "</TR></TABLE>";
}