#####################################################################
# Column Record Display
# by JPDeni
# Written 19 April 2000
#
# Allows you to display search results in either horizontal or 
# vertical columns.
#####################################################################

# Many people have asked about how to make their search results 
# appear in rows, such as
#
# Record1         Record2         Record3          Record4
# Record5         Record6         Record7          Record8
# Record9         Record10        Record11         Record12
#
# You can have any number of columns that you want. Just remember
# that some folks have resolutions set on their monitors that may

# not fit a wide table and the search results will scroll off the
# edge of the browser window.

# In sub html_view_success, there are two lines that say

if ($db_next_hits) { print "<br><$font>Pages: $db_next_hits</font>"; }

# Between those lines is where your records print out.

# Replace whatever is between those lines with the following:

#--------------------------------------------------------------------
    $i = 1;
    $cols = 4; # Change this to the number of columns you want
    print "<table>"; 
    for (0 .. $numhits - 1) {
      unless ($_%$cols) {
         print "<tr>";
      }
      &html_record (&array_to_hash($_, @hits));
      if ($_%$cols==($cols-1)) {
         print "</tr>\n";
      } 
      ++$i;
    }
    if ($numhits%$cols) {
      for ($j=($cols-1);$j>=$numhits%$cols ;$j--) {
        print "<td>&nbsp;</td>";
      }
      print "</tr>\n";
    }
    print "</table>";

#--------------------------------------------------------------------
#####################################################################
#
# It is also possible to create vertical rows of records, like
#
#       Record1                     Record7
#       Record2                     Record8
#       Record3                     Record9
#       Record4                     Record10
#       Record5                     Record11
#       Record6                     Record12

# You may have 2 or 3 columns. 

# This works best if you just have one line of a record in the list or
# if you have a complete table in sub html_record. 

# Between the lines

if ($db_next_hits) { print "<br><$font>Pages: $db_next_hits</font>"; }

# in sub html_view_success, replace the code with

#--------------------------------------------------------------------
$cols = 2; # Change this to 3 if you want three columns
for (1 .. $cols-1) {
  $new_cell[((int($numhits/$cols) * $_)+1)+(($numhits%$cols)>0)] = "</td><td>";
}
$i=1;
print "<table><tr valign=top><td>\n";
for (0 .. $numhits - 1) {
  print $new_cell[$i];
  &html_record (&array_to_hash($_, @hits));
  ++$i;
}
print "</td></tr></table>";
#--------------------------------------------------------------------

# If you are using the short/long display mod, you'll need to make
# some other adjustments. Note that changes below are
# *only* for those using the short/long display mod.

# In the mod, there is a line

print "<TD>"; # do not remove this! It is necessary to make the records display properly

# and a line

print "</TD>"; # do not remove this! It is necessary to make the records display properly

# Remove these lines.

# In sub html_delete_form, change

      print "<table>"; 
      for (0 .. $numhits - 1) {
        %tmp = &array_to_hash($_, @hits);
        print qq|<TR><TD valign=top><INPUT TYPE=CHECKBOX NAME="$tmp{$db_key}" VALUE="delete"></TD>|;
        &html_record (%tmp);
        print "</tr>"; 
        ++$i;
      }
      print "</table>"; 
# to

      print "<table>"; 
      for (0 .. $numhits - 1) {
        %tmp = &array_to_hash($_, @hits);
        print qq|<TR><TD valign=top><INPUT TYPE=CHECKBOX NAME="$tmp{$db_key}" VALUE="delete"></TD><td>|;
        &html_record (%tmp);
        print "</td></tr>"; 
        ++$i;
      }
      print "</table>"; 

#--------------------------------------------------------------------

# Also, in sub html_modify_form, change

      print "<table>"; 
      for (0 .. $numhits - 1) {
        %tmp = &array_to_hash($_, @hits);
        print qq|<TR><TD valign=top><INPUT TYPE=RADIO NAME="modify" VALUE="$tmp{$db_key}"></TD>|;
        &html_record (%tmp);
        print "</tr>"; 
        ++$i;
      }
      print "</table>";

# to

      print "<table>"; 
      for (0 .. $numhits - 1) {
        %tmp = &array_to_hash($_, @hits);
        print qq|<TR><TD valign=top><INPUT TYPE=RADIO NAME="modify" VALUE="$tmp{$db_key}"></TD><td>|;
        &html_record (%tmp);
        print "</td></tr>"; 
        ++$i;
      }
      print "</table>";