#####################################################
# S P R E A D S H E E T   F O R M A T   D I S P L A Y
# written by JPDeni
# Written 13 Jul 2000
#####################################################
#
# This is a non-autogenerated way to display search results in a 
# spreadsheet format, with all fields in one table and each record in a row on the table.
# This is not for use with a short/long display mod.
#####################################################

# Replace sub html_record with the following:

sub html_record {
  my (%rec) = @_;

# Replace FieldName below with the names of the fields you want to
# display. Create as many table cells as you wish, one for each field.
  print qq|
    <TD>$rec{'FieldName'}</TD><TD>$rec{'FieldName'}</TD><TD>$rec{'FieldName'}</TD><TD>$rec{'FieldName'}</TD>  |;
}

#####################################################
# In sub html_view_success, change

  for (0 .. $numhits - 1) {
    print "<P>";
    &html_record (&array_to_hash($_, @hits));
  }

# to

  print qq|
    <TABLE><TR><TD>FieldName</TD><TD>FieldName</TD><TD>FieldName</TD><TD>FieldName</TD></TR>\n|;
  for (0 .. $numhits - 1) {
    print "<TR>";
    &html_record (&array_to_hash($_, @hits));
    print "</TR>\n";
  }
  print "</TABLE>";

#####################################################
# In sub html_delete_form, change

  for (0 .. $numhits - 1) {
    %tmp = &array_to_hash($_, @hits);
    print qq|<TABLE BORDER=0><TR><TD><INPUT TYPE=CHECKBOX NAME="$tmp{$db_key}" VALUE="delete"></TD><TD>|;
    &html_record (%tmp);
    print qq|</TD></TR></TABLE>\n|;            
}

# to

  print qq|
    <TABLE><TR><TD>&nbsp;</TD><TD>FieldName</TD><TD>FieldName</TD><TD>FieldName</TD><TD>FieldName</TD></TR>\n|;
  for (0 .. $numhits - 1) {
    print "<TR>";
    %tmp = &array_to_hash($_, @hits);
    print qq|<TD><INPUT TYPE=CHECKBOX NAME="$tmp{$db_key}" VALUE="delete"></TD>|;
    &html_record (%tmp);
    print "</TR>\n";            
  }
  print "</TABLE>";

#####################################################
# In sub html_modify_form, change

  for (0 .. $numhits - 1) {
    %tmp = &array_to_hash($_, @hits);
    print qq|<TABLE BORDER=0><TR><TD><INPUT TYPE=RADIO NAME="modify" VALUE="$tmp{$db_key}"></TD><TD>|;
    &html_record (%tmp);
    print qq|</TD></TR></TABLE>\n|;            
  }

# to

  print qq|
    <TABLE><TR><TD>&nbsp;</TD><TD>FieldName</TD><TD>FieldName</TD><TD>FieldName</TD><TD>FieldName</TD></TR>\n|;
  for (0 .. $numhits - 1) {
    print "<TR>";
    %tmp = &array_to_hash($_, @hits);
    print qq|<TD><INPUT TYPE=RADIO NAME="modify" VALUE="$tmp{$db_key}"></TD>|;
    &html_record (%tmp);
    print "</TR>\n";            
  }
  print "</TABLE>";

#####################################################
# In sub html_add_success and sub html_modify_success, change

&html_record(&get_record($in{$db_key}));

# to

  print qq|
    <TABLE><TR><TD>FieldName</TD><TD>FieldName</TD><TD>FieldName</TD><TD>FieldName</TD></TR>\n
           <TR>|;
  &html_record(&get_record($in{$db_key}));
  print "</TR></TABLE>";