# # ---------------------- # DBMan # ---------------------- # Database Administrator # # File: html.pl # Description: This file contains all the HTML that the program generates. # Author: Alex Krohn # Web: http://www.gossamer-threads.com/ # Version: 2.05 # CVS Revision: $Id: html.pl,v 1.3 2000/07/08 18:14:40 alex Exp $ # # COPYRIGHT NOTICE: # # Copyright 1997 Gossamer Threads Inc. All Rights Reserved. # # This program is being distributed as shareware. It may be used and # modified free of charge for personal, academic, government or non-profit # use, so long as this copyright notice and the header above remain intact. # Any commercial use should be registered. Please also send me an email, # and let me know where you are using this script. By using this program # you agree to indemnify Gossamer Threads Inc. from any liability. # # Selling the code for this program without prior written consent is # expressly forbidden. Obtain permission before redistributing this # program over the Internet or in any other medium. In all cases # copyright and header must remain intact. # # Please check the README file for full details on registration. # ===================================================================== ########################################################## ## HTML Globals ## ########################################################## # Put any globals you like in here for your html pages. $html_title = 'HSH Main Registry'; ########################################################## ## Record Layout ## ########################################################## sub html_record_form { # -------------------------------------------------------- # The form fields that will be displayed each time a record is # edited (including searching). You don't want to put the #
tags for each field. # The values to be displayed are in %rec and should be incorporated # into your form. You can use &build_select_field, &build_checkbox_field # and &build_radio_field to generate the respective input boxes. Text and # Textarea inputs can be inserted as is. If you turn on form auto # generation, the program will build the forms for you (all though they may # not be as nice). See the README for more info. my (%rec) = @_; ($db_auto_generate and print &build_html_record_form(%rec) and return); my $font = 'Font face="Arial" style="font-size:8pt"'; print qq| |; } 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. my (%rec) = @_; # Load any defaults to put in the VALUE field. ($db_auto_generate and print &build_html_record(%rec) and return); my $font_color = 'Font face="arial"'; my $font = 'Font face="Arial" Size=2'; print qq|<$font_color>ID: | <$font>$rec{'ID'} |
<$font_color>Title: | <$font>$rec{'Title'} |
<$font_color>URL: | <$font>$rec{'URL'} |
<$font_color>Type: | <$font>$rec{'Type'} |
<$font_color>Date: | <$font>$rec{'Date'} |
<$font_color>Category: | <$font>$rec{'Category'} |
<$font_color>Description: | <$font>$rec{'Description'} |
<$font_color>Validated: | <$font>$rec{'Validated'} |
<$font_color>Popular: | <$font>$rec{'Popular'} |
$html_title: Main Menu | |
Permissions: |; print " Search " if ($per_view); print " Add " if ($per_add); print " Delete " if ($per_del); print " Modify " if ($per_mod); print " Admin " if ($per_admin); print " None " if (!($per_view || $per_add || $per_del || per_mod)); print qq| <$font> Create Horse Update Horse's Info |; &html_footer; print qq| |
<$font>!; print qq!| Home !; print qq!| Add ! if ($per_add); print qq!| Search ! if ($per_view); print qq!| Delete ! if ($per_del); print qq!| Modify ! if ($per_mod); print qq!| List All ! if ($per_view); print qq!| Admin ! if ($per_admin); print qq!| Log Off |!; print qq!
!; # Print the Footer -- note: a link (doesn't have to be the graphic) is required unless you purchase # a license. See: http://gossamer-threads.com/scripts/register/ for more info. print qq!<$font>Database Powered by Gossamer Threads Inc. |
Search Options:
Match Any
Match Case
Whole Words
Reg. Expression
Keyword Search (will match against all fields)
Max. Returned Hits
Sort By:
Sort Order:
Search Tips:
- use '*' to match everything in a field)
- put a '>' or '<' at the beginning to to do range searches.
~;
}
##########################################################
## Adding ##
##########################################################
sub html_add_form {
# --------------------------------------------------------
# The add form page where the user fills out all the details
# on the new record he would like to add. You should use
# &html_record_form to print out the form as it makes
# updating much easier. Feel free to edit &get_defaults
# to change the default values.
&html_print_headers;
print qq|
$html_title: Record Added | |
<$font> The following record was successfully added to the database: |; &html_record(&get_record($in{$db_key})); print qq| |; &html_footer; print qq| |
$html_title: Search Results |
<$font>
Your search returned $db_total_hits matches.
|;
if ($db_next_hits) {
print "
<$font>Pages: $db_next_hits";
}
# Go through each hit and convert the array to hash and send to
# html_record for printing.
for (0 .. $numhits - 1) {
print "
";
&html_record (&array_to_hash($_, @hits));
}
if ($db_next_hits) {
print "
<$font>Pages: $db_next_hits";
}
print qq|
|; &html_footer; print qq| |
$html_title: Modify Record |
<$font>
Check which record you wish to modify and then press "Modify Records":
Your search returned $db_total_hits matches.
|;
if ($db_next_hits) {
print "
<$font>Pages: $db_next_hits";
}
# 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.
if ($status ne "ok") { # Error searching database!
print qq|
Error: $status|; } else { print "
"; for (0 .. $numhits - 1) { %tmp = &array_to_hash($_, @hits); print qq|
|; &html_record (%tmp); print qq| |
|
$html_title: Modify a Record | |
<$font> |; &html_record_form (%rec); print qq| |
$html_title: Record Modified. | |
<$font> The following record was successfully modified: |; &html_record(&get_record($in{$db_key})); print qq| |; &html_footer; print qq| |
$html_title: Error! Unable to Modify Record. | |
<$font> There were problems modifying the record: $message Please fix any errors and submit the record again. |; &html_record_form (%in); print qq| |
$html_title: Login | ||||
<$font>Welcome! To login, use the username Member and the password Member!
|
User ID: | |
Password: |