#####################################################################
# Short/Long Display for user-friendly html.pl file
# by JPDeni
# Last Modified: 13 Jun 2000
#
######################
# Replace the following subroutine in the html.pl file

sub html_record {
# --------------------------------------------------------
# How a record will be displayed. This is used primarily in 
# returning search results and how it is formatted. The record to
# be displayed will be in the %rec hash.
# This is the "short display" -- the list of records that are returned
# from a search.

  my (%rec) = @_;

# create link to full display
  $record_number = ((($nh - 1) * $db_max_hits) + $rec_count);
  
  $long_url = $ENV{'QUERY_STRING'};
  $long_url =~ s/\&nh=\d+//;
  $long_url =~ s/\&mh=\d+//;

  $long_url = "$db_script_url?$long_url&nh=$record_number&mh=1";

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

#  Below is where you define what you want to appear for each record in the "short" display.
#  You can make this whatever you want, and display as many fields as you would like.
#  Choose which of the fields you would like for users to click on to reach the full display
#  of records and use that field name in place of "Title" below.
#
#  Be sure that you use <a href="$long_url"> for the link to your full record display.

#  <-- Start of short display formatting  -- >

  print qq|
    <a href="$long_url">$rec{'Title'}</a>
  |;

# if you want to display your fields in columns, use the following format:
#   print qq|
#                $rec{'Field'}</td>
#            <td>$rec{'Field'}</td>
#            <td>$rec{'Field'}</td>
#            <td>$rec{'Field'}|;

# Add or remove columns as needed. Be sure you add the $long_url link to one of your fields

#  <-- End of short display formatting  -- >

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

}
#####################################################################
# Add the following subroutine to the html.pl file

sub html_record_long {
#----------------------------------------------------------------
  my (%rec) = @_;

  if ($db_total_hits > 1) {

# create links to previous and next records

    $next_url = $ENV{'QUERY_STRING'};
    $next_url =~ s/\&nh=\d+//;
    $next_hit = $nh + 1; 
    $prev_hit = $nh - 1;

    if ($prev_hit) {
      $previous = qq~<a href="$db_script_url?$next_url&nh=$prev_hit"><$font>Previous</font></a>~;
    }
    else { $previous = " "; }

    if ($next_hit <= $db_total_hits) {
      $next = qq~<a href="$db_script_url?$next_url&nh=$next_hit"><$font>Next</font></a>~;
    }
    else { $next = " "; }

# create link back to short display
    $list_url = $next_url;
    $list_url =~ s/\&mh=\d+//;
    $mh = $db_max_hits;
    $lh = int(($nh-1)/$mh) + 1;
    $list = qq~<a href="$db_script_url?$list_url&nh=$lh"><$font>Back to record list</font></a>~;

# print out the links
    print qq|
      <table width=100%>
          <tr><td width=50%>$previous</td>
              <td width=50% align=right>$next</td></tr>
          <tr><td colspan=2 align=center>$list</td></tr>
          <tr><td colspan=2 align=center><$font>Record $nh of $db_total_hits</font></table>
    |;
  }

# Below is where you define your form. 

#  <--  Start of record display  -->

        my $font_color = 'Font face="Verdana, Arial, Helvetica" Size=2 Color=#003399';
        
        print qq|
        <TABLE WIDTH="475" CELLPADDING=0 CELLSPACING=0 BORDER=1 BGCOLOR="#FFFFCC">
        <TR><TD ALIGN="Right" VALIGN="TOP" WIDTH="20%"><$font_color>ID:</FONT></TD>
                <TD WIDTH="80%"> <$font>$rec{'ID'}</Font></TD></TR>
        <TR><TD ALIGN="Right" VALIGN="TOP"><$font_color>Title:</FONT></TD>
                <TD> <$font>$rec{'Title'}</Font></TD></TR>
        <TR><TD ALIGN="Right" VALIGN="TOP"><$font_color>URL: </FONT></TD>
                <TD> <$font><A HREF="$rec{'URL'}">$rec{'URL'}</A></Font></TD></TR>
        <TR><TD ALIGN="Right" VALIGN="TOP"><$font_color>Type: </FONT></TD>
                <TD> <$font>$rec{'Type'}</Font></TD></TR>
        <TR><TD ALIGN="Right" VALIGN="TOP"><$font_color>Date:</FONT></TD>
                <TD> <$font>$rec{'Date'}</Font></TD></TR>
        <TR><TD ALIGN="Right" VALIGN="TOP"><$font_color>Category:</FONT></TD>
                <TD> <$font>$rec{'Category'}</Font></TD></TR>              
        <TR><TD ALIGN="Right" VALIGN="TOP"><$font_color>Description:</FONT></TD>
                <TD> <$font>$rec{'Description'}</Font></TD></TR>                           
        <TR><TD ALIGN="Right" VALIGN="TOP"><$font_color>Validated:</FONT></TD>
                <TD> <$font>$rec{'Validated'}</Font></TD></TR>                             
        <TR><TD ALIGN="Right" VALIGN="TOP"><$font_color>Popular:</FONT></TD>
                <TD> <$font>$rec{'Popular'}</Font></TD></TR>                               
        </TABLE>
        |;


#  <-- End of record display  -->

}
#####################################################################
# Replace the following subroutines in the html.pl file

sub html_view_success {
# --------------------------------------------------------
# This page displays the results of a successful search. 
# You can use the following variables when displaying your 
# results:
#
#        $numhits - the number of hits in this batch of results.
#        $maxhits - the max number of hits displayed.
#        $db_total_hits - the total number of hits.
#        $db_next_hits  - html for displaying the next set of results.
#       
        
        my (@hits) = @_;
        my ($numhits) = ($#hits+1) / ($#db_cols+1);
        my ($maxhits); $in{'mh'} ? ($maxhits = $in{'mh'}) : ($maxhits = $db_max_hits);
        $in{'nh'} ? ($nh = $in{'nh'}) : ($nh = 1);      
        
    $page_title = "Search Results";
    &html_page_top;

# Go through each hit and convert the array to hash and send to 
# html_record for printing.
  if ($maxhits == 1) {
    &html_record_long(&array_to_hash(0, @hits));
  }

  else {
    print qq|<p><$font>Your search returned <b>$db_total_hits</b> matches.</font>|;
    if ($db_next_hits) { print "<br><$font>Pages: $db_next_hits</font>"; }
    $rec_count = 1;
    print "<table>"; 
    for (0 .. $numhits - 1) {
      print "<tr>";
      &html_record (&array_to_hash($_, @hits));
      print "</tr>"; 
      ++$rec_count;
    }
    print "</table>";
    if ($db_next_hits) {  print "<br><$font>Pages: $db_next_hits</font>";}
  }     
    &html_footer;
    &html_page_bottom; 

}

sub html_delete_form {
# --------------------------------------------------------
# The user has searched the database for deletion and must now
# pick which records to delete from the records returned. This page
# should produce a checkbox with name=ID value=delete for each record.
# We have to do a little work to convert the array @hits that contains
# the search results to a hash for printing.

  my ($status, @hits) = &query("mod");  
  my ($numhits) = ($#hits+1) / ($#db_cols+1);
  my ($maxhits); $in{'mh'} ? ($maxhits = $in{'mh'}) : ($maxhits = $db_max_hits);
  $in{'nh'} ? ($nh = $in{'nh'}) : ($nh = 1);
  my (%tmp);
        
  $page_title = "Delete Record(s)";
  &html_page_top;

  $submit_button = "Delete Checked Record(s)";
  $reset_button = "Reset Form";

  if ($status ne "ok") {        # There was an error searching!
    print qq|<P><$font_error>Error: $status</FONT></P>|;
  }

  else {
    print qq|
      <form action="$db_script_url" METHOD="POST">
      <input type=hidden name="db" value="$db_setup">
      <input type=hidden name="uid" value="$db_uid">
    |;

# Go through each hit and convert the array to hash and send to 
# html_record for printing. Also add a checkbox with name=key and value=delete.

    if (($db_total_hits == 1) || ($maxhits == 1)) {
      print qq|
            <p><$font>
                If you would like to delete this record, check the box and then press "Delete Records":</font>|;

      %tmp = &array_to_hash(0, @hits);
      print qq|<table><tr><td valign=top><INPUT TYPE=CHECKBOX NAME="$tmp{$db_key}" VALUE="delete"></td>|;
      &html_record_long(&array_to_hash(0, @hits));
      print qq|</td></tr></table>|;
    }

    else {
      print qq|
            <p><$font>
                Check which records you wish to delete and then press "Delete Records":<br>
                Your search returned <b>$db_total_hits</b> matches.</font>
      |;
      if ($db_next_hits) { print "<br><$font>Pages: $db_next_hits</font>"; }
      $rec_count = 1;
      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>"; 
        ++$rec_count;
      }
      print "</table>"; 
      if ($db_next_hits) { print "<br><$font>Pages: $db_next_hits</font>"; }

    }
    print qq|
      <p><center>
      <INPUT TYPE="SUBMIT" name="delete_records" VALUE="$submit_button"> 
      <INPUT TYPE="RESET" VALUE="$reset_button">
      </center></p></form>
    |;

  }
  &html_footer;
  &html_page_bottom; 
}

sub html_modify_form {
# --------------------------------------------------------
# The user has searched the database for modification and must now
# pick which record to modify from the records returned. This page
# should produce a radio button with name=modify value=ID for each record.
# We have to do a little work to convert the array @hits that contains
# the search results to a hash for printing.

  my (%tmp);
  my ($status, @hits) = &query("mod");  
  my ($numhits) = ($#hits+1) / ($#db_cols+1);
  if (($numhits == 1) and !$in{'nh'}) { $in{'modify'} = $hits[$db_key_pos]; &html_modify_form_record(); return; }
  my ($maxhits); $in{'mh'} ? ($maxhits = $in{'mh'}) : ($maxhits = $db_max_hits);
  $in{'nh'} ? ($nh = $in{'nh'}) : ($nh = 1);


  $page_title = "Modify Record";
  &html_page_top;

  $submit_button = "Modify Record";
  $reset_button = "Reset Form";

  if ($status ne "ok") {        # Error searching database!
    print qq|<P><$font_error>Error: $status</FONT>|;
  }
  else {
    print qq|
      <form action="$db_script_url" METHOD="POST">
      <input type=hidden name="db" value="$db_setup">
      <input type=hidden name="uid" value="$db_uid">
    |;

# Go through each hit and convert the array to hash and send to 
# html_record for printing. Also add a radio button with name=modify
# and value=key.

      print qq|
        <p><$font>
        Check which record you wish to modify and then press "Modify Records":<br>
        Your search returned <b>$db_total_hits</b> matches.</font>
      |;

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

      $rec_count = 1;
      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>"; 
        ++$rec_count;
      }
      print "</table>";
      if ($db_next_hits) { print "<br><$font>Pages: $db_next_hits</font>"; }
    }
    print qq|
      <p><center>
      <input type="SUBMIT" name="modify_form_record" VALUE="$submit_button"> 
      <INPUT TYPE="RESET" VALUE="$reset_button">
      </center></p></form>
    |;

  
    &html_footer;
    &html_page_bottom;   
}

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

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

# to

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