#!/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_results);
    &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-1252">
<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 category 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 Scheduling", "http://www.info-tech-group.com"));
dhtmlMenu.addItem(new NavBarMenuItem("&nbsp&nbsp&nbspMaintenance Matrix", "http://www.info-tech-group.com"));
dhtmlMenu.addItem(new NavBarMenuItem("&nbsp&nbsp&nbspHistorical Information", "http://www.info-tech-group.com"));
dhtmlMenu.addItem(new NavBarMenuItem("&nbsp&nbsp&nbspPerformance Information", "http://www.info-tech-group.com"));
dhtmlMenu.addItem(new NavBarMenuItem("Asset Module", ""));
dhtmlMenu.addItem(new NavBarMenuItem("&nbsp&nbsp&nbspAgreements", "http://www.info-tech-group.com"));
dhtmlMenu.addItem(new NavBarMenuItem("&nbsp&nbsp&nbspWarranties", "http://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 Analysis", "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.info-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 Authorizations", "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", "http://www.info-tech-group.com"));
myNavBar1.addMenu(dhtmlMenu);

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

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

var fullWidth;

function init() {

  // Get width of window, need to account for scrollbar width in Netscape.

  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 temporary
##    file into the database file.
##  New feature add (Tom Held) to move deleted files to a deleted table 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 information 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 everything
## 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.action.value='archive $db'\">
	<INPUT TYPE="submit" VALUE="Sort Issues" onclick=\"this.form.action.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>$item</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 script
    @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 script
    @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 script
    @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><br>
  <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 field,
	and then hit the search button.<BR><B>Optional:</B> Narrow the search by
	entering additional search criteria in one or more of	the following
	text boxes, selecting the search field(s) to the right, and checking 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_script'">
     <FONT SIZE=4 FACE=ARIAL COLOR="000000">$_[0]</FONT><BR>
     <FONT SIZE=4 FACE=ARIAL COLOR="000000">Returning you to the Search Page...</FONT>
    </BODY></HTML>
HTML
}#end of print_message

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

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 Issue</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></font></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,resizeable=no,toolbar=no')\">New</BUTTON>";
      print "</TD>";
    }
    else
    {
      print<<HTML;
        <TD VALIGN=TOP BGCOLOR="dddddd"><font face=Arial size=2><B>$field:</B></font></TD>
        <TD><TEXTAREA NAME="$field" ROWS=5 COLS=60 WRAP="HARD"></TEXTAREA></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></font></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$field:</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,resizeable=no,toolbar=no')\">New</BUTTON>";
      print "</TD>";
    }
    else
    {
      print<<HTML;
        <TD VALIGN=TOP BGCOLOR="dddddd"><font face=Arial size=2><B>$field:</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><br>
  <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);	
	}
}