comment on

Here is the script as it appears:
#!/usr/bin/perl

use CGI qw (:standard);
use CGI::Carp qw(fatalsToBrowser);

##*************************************************
## Set-up variables from incoming data
##*************************************************

@fields = (
  "Priority",
  "Issue Number",
  "Time Est.",
  "Project",
  "System",
  "Device",
  "Entry By", 
  "Entry Date", 
  "Issue", 
  "Action By", 
  "Date Resolved",
  "Details",
  "Progress",
  "Resolution");

@field_html_type = (
  "Select",
  "Text",
  "Text",
  "Select",
  "Select",
  "Select",
  "Select",
  "Text",
  "Text",
  "Select",
  "Text",
  "Textarea",
  "Textarea",
  "Textarea");

@field_value_type = (
  "General",
  "General",
  "General",
  "General",
  "General",
  "General",
  "Date",
  "General",
  "General",
  "Date",
  "General",
  "General",
  "General",
  "General");

@field_select_file = (
  "../priority.txt",
  "none",
  "none",
  "../projects.txt",
  "../systems.txt",
  "../devices.txt",
  "../mei-personnel.txt",
  "none",
  "none",
  "../it-personnel.txt",
  "none",
  "none",
  "none",
  "none");

@search_fields = (
  "Priority",
  "Issue Number",
  "Time Est.",
  "Project",
  "System",
  "Device",
  "Entry By", 
  "Entry Date", 
  "Issue", 
  "Action By", 
  "Date Resolved",
  "Details",
  "Progress",
  "Resolution");

@search_fields_index = (
  0,
  1,
  2,
  3,
  4,
  5,
  6,
  7,
  8,
  9,
  10,
  11,
  12,
  13);

@multiple_results_fields = (
  "Priority",
  "Issue Number",
  "Time Est.",
  "Project",
  "System",
  "Device",
  "Entry By", 
  "Entry Date", 
  "Issue", 
  "Action By", 
  "Date Resolved",
  "Details",
  "Progress",
  "Resolution");

@multiple_results_field_No = (
  0,
  1,
  2,
  3,
  4,
  5,
  6,
  7,
  8,
  9,
  10,
  11,
  12,
  13);
  
@no_criteria = (
  0,
  1,
  2,
  3);

$database_submitted  = "../issues-submitted.txt";
$database_external   = "../issues-external.txt";
$database_internal   = "../issues-internal.txt";
$database_archive_submitted  = "../issues-submitted-archive.txt";
$database_archive_external   = "../issues-external-archive.txt";
$database_archive_internal   = "../issues-internal-archive.txt";
$database_delete_submitted  = "../issues-submitted-delete.txt";
$database_delete_external   = "../issues-external-delete.txt";
$database_delete_internal   = "../issues-internal-delete.txt";
$database         = " ";
$This_script = "issues.pl";

$software_title = "Issues List";
$app_mod_name = "Issues List";

$q = new CGI;
print $q->header;

$field_count = @fields;
$colspan = $field_count+1;

$EXCLUSIVE = 2;
$UNLOCK    = 8;

## search criteria/field only used if AND box is checked
foreach $i (@no_criteria) {
  $search_logic[$i] = $q->param("search_logic$i");
  if ($search_logic[$i] == 1) {
    push(@search_for, $q->param("search_for$i"));
    push(@search_field, $q->param("search_field$i"));
  }
}
foreach (@search_for) {
  $_ = '.' if($_ eq "");
}
foreach $i (@search_field) {
  $_ = "all" if($_ eq "");
}

$action       = $q->param(action);
@keys         = $q->param(key);
$key_matches  = @keys;

$sort_by      = $q->param(sort_by);
$default_sort_by = "0";
$sort_by        = $search_field[0] if ($sort_by eq "");
$sort_by        = $default_sort_by if($sort_by =~ /all/i);

##**************************

&print_html_head_start;
## &print_javascript;
&print_html_head_end_no_body_calls;
## &print_html_head_end;

##*************************************************
## Script Switchboard
##*************************************************

## the following three functions handle
## the add actions from the add form
if($action =~ /add internal/i){
   ##Add the record passed from the add record page
  $database = $database_internal;
  &add_notify_email(&add_record);
  $message="Internal Project Issue Added";
  &print_message($message);
}
elsif($action =~ /add external/i){
   ##Add the record passed from the add record page
  $database = $database_external;
  &add_notify_email(&add_record);
  $message="External Project Issue Added";
  &print_message($message);
}
elsif($action =~ /add submit/i){
   ##Add the record passed from the add record page
  $database = $database_submitted;
  &add_notify_email(&add_record);
  $message="Project Issue Submitted";
  &print_message($message);
}

## the following calls the add form
elsif($action =~ /add/i){
   ##Display the add record page
  &print_add_screen;
}

## the following handle the change status from forms
elsif($action =~ /move to external/i){
   ##Display the results of the search
  $database = $database_external;
  &add_record;
  &search_database($q->param(key), "all");
  @results = @submitted_results;
  $count = @submitted_results;
  $database = $database_submitted;
  &eliminate_records;
  &no_match if($count < 1);
  $message="Project Issue Submitted to Public Status";
  &print_message($message);
}
elsif($action =~ /move to internal/i){
   ##Display the results of the search
  $database = $database_internal;
  &add_record;
  &search_database($q->param(key), "all");
  @results = @submitted_results;
  $count = @submitted_results;
  $database = $database_submitted;
  &eliminate_records;
  &no_match if($count < 1);
  $message="Project Issue Submitted to Private Status";
  &print_message($message);
}
elsif($action =~ /change to external/i){
   ##Display the results of the search
  $database = $database_external;
  &add_record;
  &search_database($q->param(key), "all");
  @results = @internal_results;
  $count = @internal_results;
  $database = $database_internal;
  &eliminate_records;
  &no_match if($count < 1);
  $message="Project Issue Changed to External Status";
  &print_message($message);
}
elsif($action =~ /change to internal/i){
   ##Display the results of the search
  $database = $database_internal;
  &add_record;
  &search_database($q->param(key), "all");
  @results = @external_results;
  $count = @external_results;
  $database = $database_external;
  &eliminate_records;
  &no_match if($count < 1);
  $message="Project Issue Changed to Internal Status";
  &print_message($message);
}

## the following are the modify form calls
elsif($action =~ /modify project issue/i){
   ##Display the results of the search
  &search_database($q->param(mkey), "all");
  $internal_count = @internal_results;
  $external_count = @external_results;
  $submitted_count = @submitted_results;
  $count = $internal_count + $external_count + $submitted_count;
  if($count < 1){
    &no_match;
  } else {
    if ($internal_count==1){
    @results=@internal_results;
      $submit_button_mod = "Modify Internal Project Issue";
      $change_button_mod = "Change to External";
    } elsif ($external_count==1){
    @results=@external_results;
      $submit_button_mod = "Modify External Project Issue";
      $change_button_mod = "Change to Internal";
    } else {
    @results=@submitted_results;
      $submit_button_mod = "Move to Internal";
      $change_button_mod = "Move to External";
    }
  &print_modify_page;
  }
}

elsif($action =~ /modify external project issue/i){
   ##Modify the record that was passed
  $database = $database_external;
  &eliminate_records;
  $key=$keys[0];
  &modify_record;
  $message="Public Project Issue Modified";
  &print_message($message);
}
elsif($action =~ /modify internal project issue/i){
   ##Modify the record that was passed
  $database = $database_internal;
  &eliminate_records;
  $key=$keys[0];
  &modify_record;
  $message="Private Project Issue Modified";
  &print_message($message);
}

elsif($action =~ /delete submitted/i){
   ##Delete the record(s) that were passed
  $database = $database_submitted;
  $database_del = $database_delete_submitted;
  &delete_records;
  $message="Submitted Project Issue(s) Deleted";
  &print_message($message);
}
elsif($action =~ /delete external/i){
   ##Delete the record(s) that were passed
  $database = $database_external;
  $database_del = $database_delete_external;
  &delete_records;
  $message="External Project Issue(s) Deleted";
  &print_message($message);
}
elsif($action =~ /delete internal/i){
   ##Delete the record(s) that were passed
  $database = $database_internal;
  $database_del = $database_delete_internal;
  &delete_records;
  $message="Internal Project Issue(s) Deleted";
  &print_message($message);
}

elsif($action =~ /archive submitted/i){
   ##Delete the record(s) that were passed
  $database = $database_submitted;
  $database_arch = $database_archive_submitted;
  &archive_records;
  $message="Submitted Project Issue(s) Archived";
  &print_message($message);
}
elsif($action =~ /archive external/i){
   ##Delete the record(s) that were passed
  $database = $database_external;
  $database_arch = $database_archive_external;
  &archive_records;
  $message="External Project Issue(s) Archived";
  &print_message($message);
}
elsif($action =~ /archive internal/i){
   ##Delete the record(s) that were passed
  $database = $database_internal;
  $database_arch = $database_archive_internal;
  &archive_records;
  $message="Internal Project Issue(s) Archived";
  &print_message($message);
}

elsif($action =~ /(search|sort)/i){
   ## Search database and display the results
   ## This is exactly the same for sort by and search.
  &search_database(@search_for, @search_field);
  $internal_count = @internal_results;
  $external_count = @external_results;
  $submitted_count = @submitted_results;
  $count = $internal_count + $external_count + $submitted_count;
  if($count < 1){
    &no_match;
  } else {
    &result_page_head;
    &result_page_body("Submitted", $submitted_count, @submitted_result
+s);
    &result_page_body("Internal", $internal_count, @internal_results);
    &result_page_body("External", $external_count, @external_results);
    &result_page_end;
  }
}

elsif($action =~ /view project issue/i){
   ## View the record that was passed
  &search_database($q->param(vkey), "all");
  $internal_count = @internal_results;
  $external_count = @external_results;
  $submitted_count = @submitted_results;
  $count = $internal_count + $external_count + $submitted_count;
  if($count < 1){
    &no_match;
  } else {
    if ($internal_count==1){
    @results=@internal_results;
    } elsif ($external_count==1){
    @results=@external_results;
    } else {
    @results=@submitted_results;
    }
  &print_form_view;
  }
}

else { &print_default; }

exit;

##********************************************************************
+**********
##********************************************************************
+**********
## Start of RPO Report Subroutines.
##********************************************************************
+**********

##********************************************************************
+**********
##  This subroutine adds a record to the database from
##   data sent by an HTML form.

sub print_html_head_start {

print<<HTML;
<html>

<head>
<meta NAME="Keywords" CONTENT="Something">
<meta NAME="Description" CONTENT="Description">
<meta http-equiv="Content-Type" content="text/html; charset=windows-12
+52">
<meta http-equiv="Content-Language" content="en-us">
<title>Client Tools</title>
HTML
}
## end of print-html-head-start function

sub print_javascript {

print<<HTML;

<script language="JavaScript" src="nav.js"></script>
<script language="JavaScript">

var myNavBar1 = new NavBar(0);
var dhtmlMenu;

//define menu items (first parameter of NavBarMenu specifies main cate
+gory width, second specifies sub category width in pixels)
//add more menus simply by adding more "blocks" of same code below

dhtmlMenu = new NavBarMenu(350, 400);
dhtmlMenu.addItem(new NavBarMenuItem("Maintenance Management System", 
+""));
dhtmlMenu.addItem(new NavBarMenuItem("Equipment Module", ""));
dhtmlMenu.addItem(new NavBarMenuItem("&nbsp&nbsp&nbspEquipment List", 
+"http://www.info-tech-group.com"));
dhtmlMenu.addItem(new NavBarMenuItem("&nbsp&nbsp&nbspSpare Parts List"
+, "http://www.info-tech-group.com"));
dhtmlMenu.addItem(new NavBarMenuItem("PM Module", ""));
dhtmlMenu.addItem(new NavBarMenuItem("&nbsp&nbsp&nbspPlanning Scheduli
+ng", "http://www.info-tech-group.com"));
dhtmlMenu.addItem(new NavBarMenuItem("&nbsp&nbsp&nbspMaintenance Matri
+x", "http://www.info-tech-group.com"));
dhtmlMenu.addItem(new NavBarMenuItem("&nbsp&nbsp&nbspHistorical Inform
+ation", "http://www.info-tech-group.com"));
dhtmlMenu.addItem(new NavBarMenuItem("&nbsp&nbsp&nbspPerformance Infor
+mation", "http://www.info-tech-group.com"));
dhtmlMenu.addItem(new NavBarMenuItem("Asset Module", ""));
dhtmlMenu.addItem(new NavBarMenuItem("&nbsp&nbsp&nbspAgreements", "htt
+p://www.info-tech-group.com"));
dhtmlMenu.addItem(new NavBarMenuItem("&nbsp&nbsp&nbspWarranties", "htt
+p://www.info-tech-group.com"));
dhtmlMenu.addItem(new NavBarMenuItem("&nbsp&nbsp&nbspEmergency Info", 
+"http://www.info-tech-group.com"));
dhtmlMenu.addItem(new NavBarMenuItem("&nbsp&nbsp&nbspLife Cycle Analys
+is", "http://www.info-tech-group.com"));
myNavBar1.addMenu(dhtmlMenu);

dhtmlMenu = new NavBarMenu(200, 250);
dhtmlMenu.addItem(new NavBarMenuItem("Facility Management", ""));
dhtmlMenu.addItem(new NavBarMenuItem("Reliability Issues", "http://www
+.info-tech-group.com"));
dhtmlMenu.addItem(new NavBarMenuItem("Contact List", "http://www.info-
+tech-group.com"));
dhtmlMenu.addItem(new NavBarMenuItem("Project Issues", "http://www.inf
+o-tech-group.com"));
myNavBar1.addMenu(dhtmlMenu);

dhtmlMenu = new NavBarMenu(200, 250);
dhtmlMenu.addItem(new NavBarMenuItem("Critical Area Program", ""));
dhtmlMenu.addItem(new NavBarMenuItem("Critical Area Work Authorization
+s", "http://www.info-tech-group.com"));
dhtmlMenu.addItem(new NavBarMenuItem("Critical Area Procedures", "http
+://www.info-tech-group.com"));
dhtmlMenu.addItem(new NavBarMenuItem("Critical Area Floor Plans", "htt
+p://www.info-tech-group.com"));
myNavBar1.addMenu(dhtmlMenu);

//set menu colors
myNavBar1.setColors("#000000", "#ffffff", "#000000", "#ffffff", "#9999
+99", "#ffffff", "#000000", "#ffffff", "#999999")

//uncomment below line to center the menu (valid values are "left", "c
+enter", and "right"
//myNavBar1.setAlign("center")

var fullWidth;

function init() {

  // Get width of window, need to account for scrollbar width in Netsc
+ape.

  fullWidth = getWindowWidth() 
    - (isMinNS4 && getWindowHeight() < getPageHeight() ? 16 : 0);

  myNavBar1.resize(fullWidth);
  myNavBar1.create();
  myNavBar1.setzIndex(2);
  myNavBar1.moveTo(0,0);
  myNavBar1.setSizes(0,1,1)
}
</script>

HTML
}
## end of print-menu function

sub print_html_head_end {

print<<HTML;
</head>
<BODY BGCOLOR="dddddd" onload="init()">
<br>
HTML
}
## end of print-html-head-end

sub print_html_head_end_no_body_calls {

print<<HTML;
</head>
<BODY BGCOLOR="dddddd">
<br>
HTML
}
## end of print-html-head-end-no-calls

sub add_record {

  $key   = time();
  my $record=$key;
  foreach $field (@fields){
    ${$field}  = $q->param($field);
    ${$field}  = filter(${$field});
    ${$field} =~ s/\n/\t/g;
    if (index($field,"Date") != -1) {
      ${$field} = &date_format(${$field});
    }
    $record   .= "\|${$field}";
  }
    unless (-e $database){
    open (DB, ">$database") || die "Error creating database.  $!\n";
  } else {
    open (DB, ">>$database") || die "Error opening database.  $!\n";
  }
   flock DB, $EXCLUSIVE;
   seek DB, 0, 2;
   print DB "$record\n";
   flock DB, $UNLOCK;
   close(DB);
   return $record;
} # End of add_record subroutine.

## this will permanently delete a record
## useful when record is moved from table to table
sub eliminate_records {

  $dumy = time();
  $tempfile="$database" . "$dumy" . ".tmp";

  open (DB,   $database)    or die "Error opening file: $!\n";
  open (TEMP, ">$tempfile") or die "Error opening file: $!\n";
  flock TEMP, $EXCLUSIVE;

  while(<DB>){
    $match="";
    ($key,$rest)=split(/\|/);
    foreach $current (@keys){
      if($current == $key){$match=1;}
    } # End of foreach loop.
    if ($match != 1) {
      print TEMP $_;
    }
  } # End of while loop.
  
  close(TEMP);
  close(DB);

  flock DB, $EXCLUSIVE;
   unlink($database);
   rename($tempfile,$database);
  flock DB, $UNLOCK;
  flock TEMP, $UNLOCK;

} # End of eliminate_records subroutine.

## this will move records to an archive table for keeping
## useful for retention of records for later review and searching - a 
+knowledgebase
sub archive_records {

  $dumy = time();
  $tempfile="$database" . "$dumy" . ".tmp";

  unless (-e $database_arch){
    open (ARCH, ">$database_arch") || die "Error creating database.  $
+!\n";
  } else {
    open (ARCH, ">>$database_arch") || die "Error opening database.  $
+!\n";
  }

  open (DB,   $database)    or die "Error opening file: $!\n";
  open (TEMP, ">$tempfile") or die "Error opening file: $!\n";
  flock TEMP, $EXCLUSIVE;

  while(<DB>){
    $match="";
    ($key,$rest)=split(/\|/);
    foreach $current (@keys){
      if($current == $key){$match=1;}
    } # End of foreach loop.
    if ($match != 1) {
      print TEMP $_;
    } else {
      print ARCH $_;
    }
  } # End of while loop.
  
  close(TEMP);
  close(DB);
  close(ARCH);

  flock DB, $EXCLUSIVE;
   unlink($database);
   rename($tempfile,$database);
  flock DB, $UNLOCK;
  flock TEMP, $UNLOCK;

} # End of archive_records subroutine.


##********************************************************************
+**********
##  This is exactly the same as ad_record
##   EXCEPT it uses the original key of the record in the new entry.

sub modify_record {

  $key = $q->param(key);
  $record=$key;
  foreach $field (@fields){
    ${$field}  = $q->param($field);
    ${$field}  = filter(${$field});
    ${$field} =~ s/\n/\t/g;

    if(index($field,"Date") != -1) {
      ${$field} = &date_format(${$field});
    }
    $record   .= "\|${$field}";
  }
  unless (-e $database){
    open (DB, ">$database") || die "Error creating database.  $!\n";
  } else {
    open (DB, ">>$database") || die "Error opening database.  $!\n";
  }
  flock DB, $EXCLUSIVE;
  seek DB, 0, 2;
  print DB "$record\n";
  flock DB, $UNLOCK;
  close(DB);
} # End of modify_record subroutine.

##********************************************************************
+**********
##  This subroutine deletes a record from the database.
##  It searches through the records, writing each to a temporary
##    file, except the record(s) to be deleted. It then turns the temp
+orary
##    file into the database file.
##  New feature add (Tom Held) to move deleted files to a deleted tabl
+e for later archive.

sub delete_records{

  $dumy = time();
  $tempfile="$database" . "$dumy" . ".tmp";

  unless (-e $database_del){
    open (DEL, ">$database_del") || die "Error creating database.  $!\
+n";
  } else {
    open (DEL, ">>$database_del") || die "Error opening database.  $!\
+n";
  }

  open (DB,   $database)    or die "Error opening file: $!\n";
  open (TEMP, ">$tempfile") or die "Error opening file: $!\n";
  flock TEMP, $EXCLUSIVE;

  while(<DB>){
    $match="";
    ($key,$rest)=split(/\|/);
    foreach $current (@keys){
      if($current == $key){$match=1;}
    } # End of foreach loop.
    if ($match != 1) {
      print TEMP $_;
    } else {
      print DEL $_;
    }
  } # End of while loop.
  
  close(TEMP);
  close(DB);
  close(DEL);

  flock DB, $EXCLUSIVE;
   unlink($database);
   rename($tempfile,$database);
  flock DB, $UNLOCK;
  flock TEMP, $UNLOCK;

} # End of delete_records subroutine.

##********************************************************************
+**********
## Prints the beginning of the search result page - include informatio
+n that
## only needs to be printed or defined once.

sub result_page_head {

  ## Javascript used by view and modify buttons
  print<<HTML;
    <SCRIPT LANGUAGE="JavaScript">
    vbup = new Image();
    vbup.src = "VBUp.gif";
    vbdown = new Image();
    vbdown.src = "VBDown.gif";
    mbup = new Image();
    mbup.src = "MBUp.gif";
    mbdown = new Image();
    mbdown.src = "MBDown.gif";
    function vClick(key,form) {
      document.results.action.value="view project issue";
      document.results.vkey.value=key;
        document.results.submit();
    }
      function mClick(key) {
        document.results.action.value="modify project issue";
      document.results.mkey.value=key;
      document.results.submit();
      }
    function vDown(index){
      index = "viewb" + index;
      document.results.elements[index].src = vbdown.src;
    }
    function vUp(index){
      index = "viewb" + index;
      document.results.elements[index].src = vbup.src;
    }
    function mDown(index){
      index = "modifyb" + index;
      document.results.elements[index].src = mbdown.src;
    }
    function mUp(index){
      index = "modifyb" + index;
      document.results.elements[index].src = mbup.src;
    }
    </SCRIPT>
HTML

  print<<HTML;
    <FONT COLOR=000000 FACE=Arial SIZE=4><b>$software_title</b></font>
+<br>
    <FONT COLOR=000000 FACE=Arial SIZE=2><b>$app_mod_name</b></font>
    <FORM METHOD=POST NAME=results>
    <INPUT TYPE="hidden" NAME="action">
    <INPUT TYPE="hidden" NAME="vkey">
    <INPUT TYPE="hidden" NAME="mkey">
HTML

  my $c = 0;
  for ($i=0;$i<=$no_criteria[$i];$i++){
    print "<INPUT TYPE=HIDDEN NAME=search_logic$i VALUE=$search_logic[
+$i]>";
    if ($search_logic[$i] == 1){
      print<<HTML;
        <INPUT TYPE=HIDDEN NAME="search_for$i" VALUE="$search_for[$c]"
+>
        <INPUT TYPE=HIDDEN NAME="search_field$i" VALUE="$search_field[
+$c]">
HTML
      $c++;
    }
  }
} ## end of result_page_head subroutine

##********************************************************************
+**********
## Prints a result table, requires 3 arguments - name of the database,
## number of the results, and the actual list of results.  Assumes eve
+rything
## else will be the same for each table.

sub result_page_body {
  
  my ($db, $database_count, @database_results) = @_;

  $back_color[0] = "";
  $back_color[1] = "ff0066";
  $back_color[2] = "ff6633";
  $back_color[3] = "ffff00";
  $back_color[4] = "00ff00";
  $back_color[5] = "3399ff";

  $number_of_fields = @multiple_results_fields;
  
  if ($database_count > 0) {
    print<<HTML;
    <FONT FACE=ARIAL COLOR=000000 SIZE=2><B>$db Results</B></FONT><BR>
    <INPUT TYPE="submit" VALUE="Delete $db" onclick=\"this.form.action
+.value='delete $db'\">
    <INPUT TYPE="submit" VALUE="Archive $db" onclick=\"this.form.actio
+n.value='archive $db'\">
    <INPUT TYPE="submit" VALUE="Sort Issues" onclick=\"this.form.actio
+n.value='sort'\">
    <INPUT TYPE="button" VALUE="Search Page" onclick=\"window.location
+.href='$This_script'\"><BR>
    <TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1>
    <TR BGCOLOR=#dddddd>
HTML

    print "<TD ALIGN=CENTER>";
    print "<FONT SIZE=2 FACE=ARIAL><B>Delete/<BR>Archive<BR>Select</B>
+</FONT></TD>";
    print "<TD ALIGN=CENTER>";
    print "<FONT SIZE=2 FACE=ARIAL><B>View/<BR>Modify</B></FONT></TD>"
+;

    $x=0;
    foreach $field (@multiple_results_fields){
      $index_no=$multiple_results_field_No[$x];
      print "<TD ALIGN=CENTER>";
      print "<INPUT TYPE=RADIO NAME=sort_by VALUE=$index_no><FONT SIZE
+=2 FACE=ARIAL><B>\u$field</B></FONT></TD>";
      $x++;
    } # End of foreach

    print "</TR>";
    foreach $record (@database_results){
      ($key,@field_vals) = split(/\|/, $record); 

      print "<TR BGCOLOR=\"#dddddd\">";
      print "<TD ALIGN=CENTER><FONT SIZE=2 FACE=ARIAL>";
      print "<INPUT TYPE=CHECKBOX NAME=key VALUE=$key>";
      print "</FONT></TD>";
      print "<TD ALIGN=CENTER>";
      print<<HTML;
    <IMG NAME=viewb$key SRC="VBUp.gif" ALT="View" onClick="vClick($key
+);" onMouseDown="vDown($key);" onMouseUp="vUp($key);" onMouseOut="vUp
+($key);"><BR>
    <IMG NAME=modifyb$key SRC="MBUp.gif" ALT="Modify" onClick="mClick(
+$key);" onMouseDown="mDown($key);" onMouseUp="mUp($key);" onMouseOut=
+"mUp($key);">
HTML
      print "</TD>";

      for($x=0;$x<$number_of_fields;$x++){
        $index_no=$multiple_results_field_No[$x];
        $item = &check_empty($field_vals[$index_no]);
        if ($fields[$index_no] eq "Priority") {
          $pri = $field_vals[$index_no];
          $color = $back_color[$pri];
        }
        if($x == 0) {
          if($item eq "&nbsp;") {
               print "<TD bgcolor=\"$color\"><FONT SIZE=2 FACE=ARIAL>$
+item</FONT></TD>";
          } else {
            print "<TD bgcolor=\"$color\"><FONT SIZE=2 FACE=ARIAL>$ite
+m</FONT></TD>"
          }
      } else {
           print "<TD bgcolor=\"$color\"><FONT SIZE=2 FACE=ARIAL>$item
+</FONT></TD>";
      }
      }
      print "</TR>";
    } # End of foreach loop.
    print "</TABLE><BR>";
  }
  else {
  print "<h2><FONT COLOR=000000 FACE=Arial SIZE=2><b>No Results Under 
+$db</b></font></h2><br>";  }
} ## End of result_page_body subroutine

##********************************************************************
+**********
## Prints the HTML for the end of the search result page
## 

sub result_page_end {
   print<<HTML;
  <TR BGCOLOR="#dddddd">
  </TR>
 </FORM>
 </BODY></HTML>
HTML
} # End of result_page_end subroutine.

##********************************************************************
+**********
##  This subroutine simply prints a screen telling you it did not find
##   a match for the search criteria the user asked for.

sub no_match{
  print $q->start_html(-TITLE=>'',-BGCOLOR=>'white');
  print "<H2><CENTER>There was no match for ";
  if ($#search_for == 0 && $search_for[0] eq "."){
    print ", ";
  } else {
    foreach $i (@search_for) {
      unless ($i eq ".") {
      print "<I>$i</I>, ";
    }
    }
  }
  print "please hit <B>back</B> and try again.</CENTER></H2>";
  print $q->end_html;
  exit;
} # End of no_match subroutine.

##********************************************************************
+**********
##  This subroutine searches through the current database
##   file for the information requested
## 

sub search_database{

  my @search_for = ();
  my @search_field = ();
  if ($#_>0) {      ## solves problem of empty 1st list member, w/ $q-
+>param(key) call
    for ($n=0;$n<=$#_/2;$n++){
      $search_for[$n] = $_[$n];
      $search_field[$n] = $_[$#_/2+$n+.5];
    }
  } else {
    $search_for[0] = $_[0];
    $search_field = $_[1];    
  }
  my @temp_results = ();
  
  if(-e $database_submitted) {
    open(DB, $database_submitted) or die "Error opening file: $!\n";
      while(<DB>){
        push @submitted_results, $_;
      }
    close (DB);
    for ($i=0;$i<=$#_/2;$i++){
      @temp_results = ();
      for ($n=0;$submitted_results[$n];$n++) {
        if($search_field[$i] =~ /all/i){
          if($submitted_results[$n] =~ /$search_for[$i]/i) {
            push @temp_results, $submitted_results[$n];
          }
        } else {
            ($key,@field_vals) = split(/\|/, $submitted_results[$n]);
            if($field_vals[$search_field[$i]] =~ /$search_for[$i]/i) {
              push @temp_results, $submitted_results[$n];
            }
        } # End of else.
      }
      @submitted_results = @temp_results;
    }
     ##Sort results: set up which field to $sort_by in begining of scr
+ipt
    @unsorted_array = ();
    foreach $record (@submitted_results){
      ($key, @dumy_vals) = split(/\|/, $record);
      $temp_data = $dumy_vals[$sort_by];
      if($sort_by == 2){
        @temp_date_sort = split(/\//,$temp_data);
        $temp_data = "$temp_date_sort[2]" . "\/" . "$temp_date_sort[0]
+" . "\/" . "$temp_date_sort[1]";
      }
      $new_record = "$temp_data" . "\|" . "$record";
      push @unsorted_array, $new_record;
    }
    @sorted_array = sort(@unsorted_array);
    @submitted_results = ();
    foreach $record (@sorted_array){
      ($sort_by_dumy, @dumy_vals) = split(/\|/, $record);
      $new_record = join("\|", @dumy_vals);
      push @submitted_results, $new_record;
    }    
  }
  
  if(-e $database_internal) {
    open(DB, $database_internal) or die "Error opening file: $!\n";
      while(<DB>){
        push @internal_results, $_;
      }
    close (DB);
    for ($i=0;$i<=$#_/2;$i++){
      @temp_results = ();
      for ($n=0;$internal_results[$n];$n++) {
        if($search_field[$i] =~ /all/i){
          if($internal_results[$n] =~ /$search_for[$i]/i) {
            push @temp_results, $internal_results[$n];
          }
        } else {
            ($key,@field_vals) = split(/\|/, $internal_results[$n]);
            if($field_vals[$search_field[$i]] =~ /$search_for[$i]/i) {
              push @temp_results, $internal_results[$n];
            }
        } # End of else.
      }
      @internal_results = @temp_results;
    }
     ##Sort results: set up which field to $sort_by in begining of scr
+ipt
    @unsorted_array = ();
    foreach $record (@internal_results){
      ($key, @dumy_vals) = split(/\|/, $record);
      $temp_data = $dumy_vals[$sort_by];
      if($sort_by == 2){
        @temp_date_sort = split(/\//,$temp_data);
        $temp_data = "$temp_date_sort[2]" . "\/" . "$temp_date_sort[0]
+" . "\/" . "$temp_date_sort[1]";
      }
      $new_record = "$temp_data" . "\|" . "$record";
      push @unsorted_array, $new_record;
    }
    @sorted_array = sort(@unsorted_array);
    @internal_results = ();
    foreach $record (@sorted_array){
      ($sort_by_dumy, @dumy_vals) = split(/\|/, $record);
      $new_record = join("\|", @dumy_vals);
      push @internal_results, $new_record;
    }    
  }
  
  if(-e $database_external) {
    open(DB, $database_external) or die "Error opening file: $!\n";
      while(<DB>){
        push @external_results, $_;
      }
    close (DB);
    for ($i=0;$i<=$#_/2;$i++){
      @temp_results = ();
      for ($n=0;$external_results[$n];$n++) {
        if($search_field[$i] =~ /all/i){
          if($external_results[$n] =~ /$search_for[$i]/i) {
            push @temp_results, $external_results[$n];
          }
        } else {
            ($key,@field_vals) = split(/\|/, $external_results[$n]);
            if($field_vals[$search_field[$i]] =~ /$search_for[$i]/i) {
              push @temp_results, $external_results[$n];
            }
        } # End of else.
      }
      @external_results = @temp_results;
    }
     ##Sort results: set up which field to $sort_by in begining of scr
+ipt
    @unsorted_array = ();
    foreach $record (@external_results){
      ($key, @dumy_vals) = split(/\|/, $record);
      $temp_data = $dumy_vals[$sort_by];
      if($sort_by == 2){
        @temp_date_sort = split(/\//,$temp_data);
        $temp_data = "$temp_date_sort[2]" . "\/" . "$temp_date_sort[0]
+" . "\/" . "$temp_date_sort[1]";
      }
      $new_record = "$temp_data" . "\|" . "$record";
      push @unsorted_array, $new_record;
    }
    @sorted_array = sort(@unsorted_array);
    @external_results = ();
    foreach $record (@sorted_array){
      ($sort_by_dumy, @dumy_vals) = split(/\|/, $record);
      $new_record = join("\|", @dumy_vals);
      push @external_results, $new_record;
    }    
  }
} # End of search_database subroutine.

##********************************************************************
+**********
## Prints the default switchboard navigation page

sub print_default {
 print<<HTML;

  <div>
  <FORM METHOD="post" ACTION="$This_script">

  <FONT COLOR=000000 FACE=Arial SIZE=4><b>$software_title</b></font><b
+r>
  <FONT COLOR=000000 FACE=Arial SIZE=2><b>$app_mod_name</b></font>
   <TABLE BORDER=0 WIDTH="85%" BGCOLOR="#dddddd" CELLSPACING="0">
HTML

  foreach $i (@no_criteria) {
    print "<TR>";
    if ($i == 0) {
    print<<HTML;
      <TD><FONT FACE="ARIAL" SIZE=2><B>Search For:</B></FONT></TD>
        <INPUT TYPE=HIDDEN NAME=search_logic$i VALUE=1>
HTML
    } else {
    print<<HTML;
      <TD ALIGN=CENTER><FONT FACE="ARIAL" SIZE=2><INPUT TYPE=CHECKBOX
      NAME=search_logic$i VALUE=1><B>And:</B></FONT></TD>
HTML
    }

    print<<HTML;
        <TD><INPUT TYPE="text" NAME="search_for$i" SIZE="40"></TD>
        <TD></TD>
        <TD><FONT FACE="ARIAL" SIZE=2><B>Search On:</B></FONT></TD>
        <TD><FONT FACE="ARIAL" SIZE=2> 
        <SELECT NAME="search_field$i"> <OPTION VALUE="All">All</OPTION
+>
HTML

    $x=0;
    foreach $search_field (@search_fields){
      $index_value = $search_fields_index[$x];
      print "<OPTION VALUE=\"$index_value\">$search_field</OPTION>";
      $x++;
    }
    print "</SELECT></FONT></TD></TR>";
  }
  
  print<<HTML;
   <TR> 
    <TD COLSPAN=2>
      <INPUT TYPE="Submit" NAME="action" VALUE="Search">
      <INPUT TYPE="Submit" NAME="action" VALUE="   Add   ">
    </TD>
  </TR>
 </TABLE></FORM>
 <TABLE BORDER=0 WIDTH="80%" BGCOLOR="#dddddd" CELLSPACING="0">
 <FONT FACE="ARIAL" SIZE=2><P><B>To Search:</B> Enter search criteria 
+in the
    first text box, to the immediate right select the desired search f
+ield,
    and then hit the search button.<BR><B>Optional:</B> Narrow the sea
+rch by
    entering additional search criteria in one or more of    the follo
+wing
    text boxes, selecting the search field(s) to the right, and checki
+ng the
    corresponding box(es) on the far left. To view the entire database
+,
    leave all search criteria empty and hit the search button.
 </TABLE>
 </P></FONT>
 </div>
 </BODY></HTML>
HTML
} # End of print_default subroutine.

##********************************************************************
+**********
## This subroutine filters data from an HTML form

sub filter{
  $temp = $_[0];
  $temp =~ s/\|//; # Remove pipe symbols in text.
  return ($temp);
}# end of filter subroutine

##********************************************************************
+**********
## This subroutine prints whatever message was sent to it.
##

sub print_message{
  print<<HTML;
     <BODY BGCOLOR="#dddddd" onload="window.location.href='$This_scrip
+t'">
     <FONT SIZE=4 FACE=ARIAL COLOR="000000">$_[0]</FONT><BR>
     <FONT SIZE=4 FACE=ARIAL COLOR="000000">Returning you to the Searc
+h Page...</FONT>
    </BODY></HTML>
HTML
}#end of print_message

##********************************************************************
+**********
##  If there is no data returns a non-binding space &nbsp; -> for tabl
+es.

sub check_empty{
  $r_val = $_[0];
  if($r_val =~ /^\s*$/){$r_val="&nbsp;"}

  return($r_val);
}# end of check_empty subroutine
##********************************************************************
+**********
##  Formats a date field before adding it to the database

sub date_format{

  $initial_entry = $_[0];

  if($initial_entry =~ /(\/|-)/) {

    if($1 eq "\/"){
      (@values) = split(/\//, $initial_entry);
    }
    else {
      (@values) = split(/\-/, $initial_entry);
    }

    $size_of_values = @values;

    if($size_of_values != 3) {
      return($initial_entry);
    }

    if($values[0] < 10){
      $values[0] += 0;
      $values[0] = "0" . "$values[0]";
    }

    if($values[1] < 10){
      $values[1] += 0;
      $values[1] = "0" . "$values[1]";
    }

    if($values[2] < 2000){
      $values[2] = 2000 + $values[2];
    }

    $good_date = join("\/", @values);

    return($good_date);

  }

  return($initial_entry);

}#end of date_format subroutine

##********************************************************************
+**********
## This is the screen to add information

sub print_add_screen{

  print<<HTML;
    <FONT COLOR=000000 FACE=Arial SIZE=4><b>$software_title</b></font>
+<br>
    <FONT COLOR=000000 FACE=Arial SIZE=2><b>$app_mod_name - Adding Iss
+ue</b></font>
     <FORM NAME="theform" ACTION="$This_script" METHOD=POST>
      <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0>
HTML
  $x = 0;
  foreach $field (@fields){
    print "<TR>";
    if ($field_html_type[$x] eq "Text"){
      print<<HTML;
        <TD BGCOLOR="dddddd"><font face=Arial size=2><B>$field:</B></f
+ont></TD>
        <TD><INPUT TYPE=TEXT NAME="$field" SIZE=46></TD>
HTML
    }
    elsif ($field_html_type[$x] eq "Select")
    {
      $select_file = $field_select_file[$x];
      open (DBX, $select_file) or die "Error";
      @select_array = <DBX>;
      close DBX;

      print "<TD BGCOLOR=\"dddddd\"><font face=Arial size=2><B>$field:
+</B></font></TD>";
      print "<TD><SELECT NAME=\"$field\">";
      foreach $select (@select_array) {
        $select = substr($select,0,length($select) - 1);
        $select_file_send = "../";
        $select_file_send .= substr($field_select_file[$x],3);
        print<<HTML;
          <OPTION VALUE="$select">$select</OPTION>
HTML
      } # foreach select array
      print "</SELECT>";
      print "<BUTTON TYPE=BUTTON ID=ADD-SEL-BUT onclick=\"window.open(
+'addoption.pl?$select_file_send',null,'directories=no,menubar=no,resi
+zeable=no,toolbar=no')\">New</BUTTON>";
      print "</TD>";
    }
    else
    {
      print<<HTML;
        <TD VALIGN=TOP BGCOLOR="dddddd"><font face=Arial size=2><B>$fi
+eld:</B></font></TD>
        <TD><TEXTAREA NAME="$field" ROWS=5 COLS=60 WRAP="HARD"></TEXTA
+REA></TD>
HTML
    }
    print"</TR>";
    $x++;
  } # End of foreach.
      print<<HTML;
       <TR>
        <TD COLSPAN=2 BGCOLOR="dddddd">
          <INPUT TYPE=SUBMIT NAME=action VALUE="Add Submit">
          <INPUT TYPE=SUBMIT NAME=action VALUE="Add External">
          <INPUT TYPE=SUBMIT NAME=action VALUE="Add Internal">
        </TD>
       </TR>
      </TABLE>
    </FONT>
   </BODY></HTML>
HTML
} # End of print_add_screen subroutine.

##********************************************************************
+**********
## This is the screen to modify Information

sub print_modify_page{

  ($key,@field_vals) = split(/\|/, $results[0]); 

# this needs to be done for the text areas to print the enters.
  for($forindex = 0; $forindex < $field_count; $forindex++){
    $field_vals[$forindex] =~ s/\t/\n/g;
  }
  $fs="<FONT SIZE=2 FACE=ARIAL>";
  $fc="</FONT>";

  print<<HTML;
    <FONT COLOR=000000 FACE=Arial SIZE=4><b>$software_title</b></font>
+<br>
    <FONT COLOR=000000 FACE=Arial SIZE=2><b>$app_mod_name - Modifying 
+Project Issue</b></font>
    <FORM NAME="theform" ACTION="$This_script" METHOD=POST>
    <INPUT TYPE=HIDDEN NAME=key value="$key">
    <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0>
HTML

  $x=0;
  foreach $field (@fields){
    print "<TR>";
    if ($field_html_type[$x] eq "Text"){
      print<<HTML;
        <TD BGCOLOR="dddddd"><font face=Arial size=2><B>$field:</B></f
+ont></TD>
        <TD><INPUT TYPE=TEXT NAME="$field" SIZE=45 value="$field_vals[
+$x]"></TD>
HTML
    }
    elsif ($field_html_type[$x] eq "Select")
    {
      $select_file = $field_select_file[$x];
      open (DBX, $select_file) or die "Error";
      @select_array = <DBX>;
      close DBX;

      print "<TD BGCOLOR=\"dddddd\"><font face=Arial size=2><B>\u$fiel
+d:</B></font></TD>";
      print "<TD><FONT FACE=ARIAL><SELECT NAME=\"$field\">";
      foreach $select (@select_array) {
        $select = substr($select,0,length($select) - 1);
        $select_file_send = substr($field_select_file[$x],3);
        print<<HTML;
          <OPTION VALUE="$select"
HTML
        if ($field_vals[$x] eq $select) {
            print<<HTML;
            selected
HTML
        }
      print<<HTML;
        >$select</OPTION>
HTML
      } # foreach select array
      print "</SELECT></FONT>";
      print "<BUTTON TYPE=BUTTON ID=ADD-SEL-BUT onclick=\"window.open(
+'../addoption.pl?$select_file_send',null,'directories=no,menubar=no,r
+esizeable=no,toolbar=no')\">New</BUTTON>";
      print "</TD>";
    }
    else
    {
      print<<HTML;
        <TD VALIGN=TOP BGCOLOR="dddddd"><font face=Arial size=2><B>$fi
+eld:</B></font></TD>
        <TD><TEXTAREA NAME="$field" ROWS=5 COLS=60 WRAP="HARD">$field_
+vals[$x]</TEXTAREA></TD>
HTML
    }
    print"</TR>";
    $x++;
  } # End of foreach.

     print<<HTML;
     <TR BGCOLOR="dddddd">
      <TD COLSPAN=2>
        <INPUT TYPE=SUBMIT NAME=action VALUE="$submit_button_mod">
        <INPUT TYPE=SUBMIT NAME=action VALUE="$change_button_mod">
      </TD>
     </TR>
    </TABLE>
  </BODY></HTML>
HTML
}# end of print_modify_page subroutine

## this is to view a record

sub print_form_view {

($key,@field_vals) = split(/\|/, $results[0]); 

  #this needs to be done for the text areas to print the enters.
  for($forindex = 0; $forindex < $field_count; $forindex++){
    $field_vals[$forindex] =~ s/\t/<br>/g;
  }

  print<<HTML;
  <P>
  <FONT COLOR=000000 FACE=Arial SIZE=4><b>$software_title</b></font><b
+r>
  <FONT COLOR=000000 FACE=Arial SIZE=2><b>$app_mod_name - View Project
+ Issue</b></font>
  </P>
  <TABLE WIDTH="75%" CELLSPACING=2 CELLPADDING=2>
HTML
  $x=0;
  foreach $field (@fields) {
    print<<HTML;
    <TR><TD VALIGN=TOP WIDTH=30%>$field:</TD><TD>$field_vals[$x]</TD><
+/TR>
HTML
    $x++;
  } # end foreach field
} # end of print form view subroutine


##********************************************************************
+*********
## subroutine emails IT staff when an issue is added

sub add_notify_email {

    my $sendmail = "/usr/sbin/sendmail -t";
    my $subject = "Subject: Computing/Networking Issue Added\n";
    my @to = (held, wagner);
    my $reply_to = "Reply-to: held\@blabla.net\n";

    my ($key,@content) = split(/\|/, $_[0]);
    for($i = 0; $i < $field_count; $i++){
        $content[$i] = "$fields[$i]: $content[$i]\r";
    }
    push @content, "$action\r";

    
    foreach (@to){
        $send_to = "To: $_\@blabla.com\n";
           open(SENDMAIL, "|$sendmail") || die "Can't open $sendmail: 
+$!";
           print SENDMAIL $reply_to;
           print SENDMAIL $subject;
           print SENDMAIL $send_to;
           print SENDMAIL "Content-type: text/plain\n\n";
           print SENDMAIL "@content\n";
           close(SENDMAIL);    
    }
}
[download]
Edit by tye to add READMORE tags
In reply to Re: Perl Script only runs with -w switch by NailBombJoe
in thread Perl Script only runs with -w switch by NailBombJoe
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
	For:		Use:
	&		`&`
	<		`<`
	>		`>`
	[		`[`
	]		`]`
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.