# $Id: amtda2.pl,v 1.2 2005/04/12 19:50:26 ddoughty Exp $
#
# Source File: amtda.pl
# custom reports for amtda.org
#

use FileHandle;
use Time::Local;
use Data::Dumper;
require 'sitecfg.pl';
require 'testlib.pl';
require "maillib.pl";

use strict;
use vars qw(%FORM %SESSION %CLIENT %TEST_SESSION %SUBTEST_QUESTIONS %TEST
            %SUBTEST_SUMMARY %CANDIDATE %SUBTEST_ANSWERS %SYSTEM %REPORT
            %SUBTEST_RESPONSES);
use vars qw($testcomplete $cgiroot $pathsep $dataroot );

&app_initialize;
&LanguageSupportInit();
&get_client_profile($SESSION{'clid'});
&get_test_profile($CLIENT{'clid'}, $FORM{'tstid'});
$FORM{'tstid'} = ($CLIENT{'clid'} eq 'sandbox'? 'tutor': 'CMTSE2');

if (&get_session($FORM{'tid'})) {
    if (not $FORM{'reportname'}) {
        &ReportChooser($CLIENT{'clid'},$FORM{'tstid'});
    } else {
 	if ($FORM{'mofm'} < 10) { $FORM{'mofm'}="0$FORM{'mofm'}";}
    	if ($FORM{'moto'} < 10) { $FORM{'moto'}="0$FORM{'moto'}";}
    	if ($FORM{'dyfm'} < 10) { $FORM{'dyfm'}="0$FORM{'dyfm'}";}
    	if ($FORM{'dyto'} < 10) { $FORM{'dyto'}="0$FORM{'dyto'}";}
    	my $datefm="$FORM{'yrfm'}\-$FORM{'mofm'}\-$FORM{'dyfm'}";
    	my $dateto="$FORM{'yrto'}\-$FORM{'moto'}\-$FORM{'dyto'}";
        my $questions = &get_test_questions($CLIENT{'clid'},$FORM{'tstid'});
        my $results = &get_all_test_results($CLIENT{'clid'},$FORM{'tstid'}, $datefm, $dateto);
        my ($subjects, $categories) = &add_results_by_cnd($questions,$results);
        #print "<pre>".Dumper($results)."</pre>\n";
	if (toGMSeconds($datefm." 00:00:00") > toGMSeconds($dateto." 00:00:00")) {
		print "<h2>Error: Invalid date range</H2><br>\n";
		print "<input type=button name=close value=Close onClick='Javascript: window.close()'>";
	} elsif ($FORM{'reportname'} eq 'rawscorebycnd') {
            &RawScoreByCnd($questions, $results, $subjects, $categories);
        } elsif ($FORM{'reportname'} eq 'percentscorebycnd') {
            &PercentScoreByCnd($questions, $results, $subjects, $categories);
        } elsif ($FORM{'reportname'} eq 'rawscorebysubject') {
            my $bysubj = &results_by_subject($questions, $results, $subjects);
            &RawScoreBySubject($questions, $results, $subjects, $bysubj);
        } elsif ($FORM{'reportname'} eq 'passfailbycnd') {
            &PassFailByCnd($results);
        } elsif ($FORM{'reportname'} eq 'candidateletter') {
            my $letter = &CandidateLetter($questions, $results, $subjects, $categories,$FORM{"uid"});
            my $note = '';
            if ($FORM{'sendemail'}) {
                # email copies of the letter out
                #print STDERR "($FORM{'email'}|$FORM{'CC'})\n";
                if ($FORM{'email'} or $FORM{'CC'}) {
		    my $testdef = get_test_definition($CLIENT{'clid'},$FORM{'tstid'});
                    my $addresses = join(',',$FORM{'email'},$FORM{'CC'});
                    $note = "<font color=\"green\"><h1>NOTE: The following letter has been";
                    if ($FORM{'email'}) {$note .= " mailed to the candidate ($FORM{'email'})";}
                    if ($FORM{'email'} and $FORM{'CC'}) {$note .= " and";}
                    if ($FORM{'CC'}) {$note .= " CCed to these addresses - $FORM{'CC'}";}
                    $note .= ".</h1></font>\n";
                    send_mail($testdef->{'ntfy'}->[0],$addresses,'CMTSE Test Results',"Content-Type: text/html\n\n".$letter);
                } else {
                    $note = "<font color=\"red\"><h1>WARNING: An emailed report was requested but no".
                        " email addresses were given.</h1></font>\n";
                }
            }
            $letter =~ s/(<BODY.*?>)/$1$note/i;
            print $letter;
        } else {
            &ReportChooser($CLIENT{'clid'},$FORM{'tstid'});
        }
    }
}

# There should only be function definitions beyond this point.
exit(0);

sub get_test_definition {
    my ($client,$testid) = @_;
    my @tests = get_test_list($client);
    my @keys = split(/&/,shift(@tests));
    chomp(@keys);
    my $test;
    foreach (@tests) {
        if (/^$testid/) {
	    chomp;
	    @{$test}{@keys} = split(/&/,$_);
	    last;
	}
    }
    if ($test) {
        $test->{'ntfy'} = [split(/,/,$test->{'ntfy'})];
    }
    return $test;
}

sub get_test_questions {
    my ($client,$test) = @_;
    my @questions = &get_question_list($test,$client);
    my @keys = split(/&/,shift(@questions));
    chomp(@keys);
    my $questions;
    foreach (@questions) {
        chomp;
        my @values = split(/&/,$_);
        #if ($values[3] eq 'Y') {next;}
        @{$questions->{$values[0]}}{@keys} = @values;
    }
    return $questions;
}

sub get_all_test_results {
    my ($client,$test,$datefm,$dateto) = @_;
    my @filelist = &get_test_result_files($testcomplete, $client, $test);
    my $results = {};
    my $historyfile = join($pathsep,$testcomplete,"$client.$test.history");
    open (HISTFILE,"<$historyfile") or return 0;
    my %histentries;
    while ($_ = <HISTFILE>) {
        my ($date) = split(/<<>>/,$_);
	my $completedat = &format_date_time("yyyy-mm-dd", "1", "-10000", toGMSeconds($date));
#print STDERR "Date: $date Completedate: $completedat\n";
	if (!&date_out_of_range($completedat,$datefm,$dateto)) {
            my (undef,$user) = split(/&/,$_);
            $histentries{$user} = 1;
        }
    }
    close HISTFILE;    
    foreach my $file (@filelist) {
        my $user = $file;
        $user =~ s/.$test$//;
        $user =~ s/^$client.//;
        if (not exists $histentries{$user}) {
            # no test after jan 1 2004 exist for this user
            next;
        }
        &get_candidate_profile($client,$user);
        $results->{$user}->{'fullname'} = "$CANDIDATE{'nml'}, $CANDIDATE{'nmf'} $CANDIDATE{'nmm'}";
        &get_test_sequence_for_reports($client,$user,$test);
        my @questions = split(/\&/, $SUBTEST_QUESTIONS{2});
        my @answers = split(/\&/,$SUBTEST_ANSWERS{2});
        my @responses = split(/&/,$SUBTEST_RESPONSES{2});
        my @summary = split(/\&/, $SUBTEST_SUMMARY{2});
        my @results = split(/\//, $summary[$#summary]);
        @{$results->{$user}->{'overall'}}{'right','wrong','percent'} = @summary[0,1,2];
        #print STDERR "$user @summary[0,1,2]\n";
        for (my $i=1; $i < @questions; $i++) {
            @{$results->{$user}->{'questions'}->{$questions[$i]}}{'question','answer','response','result'} =
                ($questions[$i], $answers[$i], $responses[$i], [split(/\./,$results[$i])]);
        }
    }
    return $results;
}

sub add_results_by_cnd {
    my ($questions,$results) = @_;
    my (%subjects,%categories);
    foreach my $user (keys %$results) {
        my $subject = {};
        my $category = {};
        foreach my $quest (values %{$results->{$user}->{'questions'}}) {
            my $subj = $questions->{$quest->{'question'}}->{'subj'};
            $subj =~ s/\..*$//;
            $subjects{$subj} = 1;
            if (not exists $subject->{$subj}) {$subject->{$subj} = [0,0];}
            $subject->{$subj}->[$quest->{'result'}->[0]]++;
            my $cat = $questions->{$quest->{'question'}}->{'ques2'};
	    if (not $cat) {print STDERR "$questions->{$quest->{'question'}}->{'id'} $questions->{$quest->{'question'}}->{'qil'}\n";}
            $categories{$cat} = 1;
            if (not exists $category->{$cat}) {$category->{$cat} = [0,0];}
            $category->{$cat}->[$quest->{'result'}->[0]]++;
        }
        $results->{$user}->{'subject'} = $subject;
        $results->{$user}->{'category'} = $category;
    }
    return ([sort(keys(%subjects))],[sort(keys(%categories))]);
}

sub sum {
    my $sum = 0;
    foreach (@_) {
        $sum += $_;
    }
    return $sum;
}

sub results_by_subject {
    my ($questions,$results,$subjects) = @_;
    my %init = ('count' => 0, 'mean' => 0, 'stddev' => 0, 'min' => 1000000, 'max' => 0, 'pass' => 0);
    my $res = {'overall' => {%init}};
    foreach (@$subjects) {
        $res->{'subjects'}->{$_} = {%init};
    }
    my $overall = $res->{'overall'};
    foreach my $result (values(%$results)) {
        my $right = $result->{'overall'}->{'right'};
        if (not exists $overall->{'total'}) {$overall->{'total'} = $right + $result->{'overall'}->{'wrong'};}
        $overall->{'count'}++;
        $overall->{'mean'} += $right;
        $overall->{'min'} = ($overall->{'min'} < $right ? $overall->{'min'}:  $right);
        $overall->{'max'} = ($overall->{'max'} > $right ? $overall->{'max'}:  $right);
        $overall->{'percent'} += $result->{'overall'}->{'percent'};
        if ($result->{'overall'}->{'percent'} >= 70) {$overall->{'pass'}++;}
        push @{$overall->{'values'}} , $right;
        foreach my $subj (@$subjects) {
            my $current = $res->{'subjects'}->{$subj};
            $right = $result->{'subject'}->{$subj}->[1];
            if (not exists $current->{'total'}) {$current->{'total'} = ($right+$result->{'subject'}->{$subj}->[0]);}
            #$current->{'count'}++;
            $current->{'mean'} += $right;
            $current->{'min'} = ($current->{'min'} < $right ? $current->{'min'}:  $right);
            $current->{'max'} = ($current->{'max'} > $right ? $current->{'max'}:  $right);
            $current->{'percent'} += 100*$right/($current->{'total'});
            push @{$current->{'values'}} , $right;
        }
    }
    # calculate standard deviations
    foreach my $s ($overall, values(%{$res->{'subjects'}})) {
        $s->{'mean'} /= $overall->{'count'};
        $s->{'percent'} /= $overall->{'count'};
        $s->{'stddev'} = sqrt(sum(map(($s->{'mean'}-$_)**2,@{$s->{'values'}}))/($overall->{'count'}-1));
    }
    return $res;
}

sub HTMLHeader {
    return "<html>\n<head>\n<title>$_[0]</title>\n".
        "<script language=\"JavaScript\">\n<!-- \n$_[1]\n -->\n</script>\n</head>\n".
        "<BODY BACKGROUND=\"$SYSTEM{'BACKGROUND'}\" BGCOLOR=\"$SYSTEM{'BGCOLOR'}\"".
        " TEXT=\"$SYSTEM{'TEXT'}\" LINK=\"$SYSTEM{'LINK'}\"".
        " VLINK=\"$SYSTEM{'VLINK'}\" ALINK=\"$SYSTEM{'ALINK'}\">\n";
}

sub HTMLHeaderPlain {
    return "<html>\n<head>\n<title>$_[0]</title>\n".
        "<script language=\"JavaScript\">\n<!-- \n$_[1]\n -->\n</script>\n</head>\n".
        "<BODY>\n";
}

sub HTMLFooter {
    return "<br><center><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">Copyright (c) 2004, AMTDA<center></font></body>\n</html>\n";
}

sub HTMLReportHeader {
    my ($reporttype) = @_;
    my $html = "<html><head><title>$reporttype</title></head><body>\n";
    $html .= "American Machine Tool Distributors' Association<br>\n";
    $html .= "Certified Machine Tool Sales Engineer (CMTSE) Examination<br>\n";
    $html .= "Form 575070<br>\n";
    $html .= "Report Generated ".scalar(localtime(time))."<br>\n";
    $html .= "$reporttype<br>\n";
    $html .= "Passing Score = Total Raw Score of 105 (70 % Correct)<p>\n";
    return $html;
}

sub HTMLTable {
    my ($data,$caption,%options) = @_;
    my %options = ('aligndef' => 'center',
		   'alignrow' => [],
		   'bold' => {0 => 1},
		   @_);
    my $html = "<table border>\n";
    if ($caption or $caption eq '0') {
        $html .= "<caption>$caption</caption>";
    }
    #$html .= "<tr>".join("",map("<th align=\"center\">$_</th>",@{$data->[0]}))."</tr>\n";
    for (my $row = 0; $row < @{$data}; $row++) {
	my $celltype = 'td';
	my $align = $options{'aligndef'};
	if ($options{'alignrow'}->[$row]) {$align = $options{'alignrow'}->[$row];}
	if ($options{'bold'}->{$row}) {$celltype = 'th';}
        $html .= "<tr>".join("",map("<$celltype align=\"$align\">$_</td>",@{$data->[$row]}))."</$celltype>\n";
    }
    $html .= "</table>\n";
    return $html;
}

sub ReportChooser {
    my ($client,$test) = @_;
    my $js = "function parmsAMTDA(oform,rpt) {\n\t".
        "oform.reportname.value=rpt;\n\t".
        "oform.action='/cgi-bin/creports.pl';\n\t".
        "oform.submit();\n};\n";
    $js .= "function cndSelect(form) {
    select = form.userview;
    params = String(select.options[select.selectedIndex].value).split('&');
    form.uid.value=params[0];
    form.firstname.value=params[3];
    form.middlename.value=params[4];
    form.lastname.value=params[5];
    form.address.value=params[6];
    form.city.value=params[7];
    form.state.value=params[8];
    form.zip.value=params[9];
    form.country.value=params[10];
    form.email.value=params[11];
}";
    $js .="\nfunction onWdwLoad() {\n\t".
        "var oform=document.amtdarpt;\n\t".
        "oform.mofm.selectedIndex=0;\n\t".
        "oform.dyfm.selectedIndex=0;\n\t".
        "oform.yrfm.selectedIndex=0;\n\t".
        "oform.moto.selectedIndex=oform.moto.options.length-1;\n\t".
        "oform.dyto.selectedIndex=oform.dyto.options.length-1;\n\t".
        "oform.yrto.selectedIndex=oform.yrto.options.length-1;\n\t".
        "oform.testsummary[0].checked=true;\n\t".
        "oform.showcmts[0].checked=true;\n\t".
"}\n".
"window.onload=onWdwLoad;\n";
    print HTMLHeader("AMTDA CMTSE Test Reports",$js);
    print "<form name=\"amtdarpt\" action=\"/cgi-bin/creports.pl\" method=\"Post\" target=\"rptwindow\" enctype=\"multipart/form-data\" >\n";
    print "<input type=\"hidden\" name=\"tid\" value=\"$SESSION{'tid'}\">\n";
    # For development purposes we hardcode the survey id.
    # Fix this before production
    print "<input type=hidden name=\"tstid\" value=\"$FORM{'tstid'}\">\n";
    print "<input type=hidden name=\"rptno\" value=\"$FORM{'rptno'}\">\n";
    print "<input type=hidden name=\"rptdesc\" value=\"$REPORT{'rptdesc'}\">\n";
    print "<input type=hidden name=\"rptid\" value=\"$REPORT{'rptid'}\">\n";
    print "<input type=\"hidden\" name=\"reportname\" value=\"\">\n";
    print "<H1>AMTDA CMTSE Test Reports</h1>\n";
    print "<ul style=\"list-style: none\">\n";
    print "<li><a href=\"javascript:parmsAMTDA(document.amtdarpt,'rawscorebycnd');\">".
        "Raw Scores by Candidate</a></li>\n";
    print "<li><a href=\"javascript:parmsAMTDA(document.amtdarpt,'percentscorebycnd');\">".
        "Percent Scores by Candidate</a></li>\n";
    print "<li><a href=\"javascript:parmsAMTDA(document.amtdarpt,'rawscorebysubject');\">".
        "Raw Scores by Subject</a></li>\n";
    print "<li><a href=\"javascript:parmsAMTDA(document.amtdarpt,'passfailbycnd');\">".
        "Pass/Fail by Candidate</a></li>\n";
    print "<li><a href=\"javascript:parmsAMTDA(document.amtdarpt,'candidateletter');\">".
        "Candidate Letter</a><p>\n";
    my $users = get_users($client,$test);
    print "<ul style=\"list-style: none\">\n";
    print "<li><table width=100%><tr>\n";
    print "<td valign=top><select name=\"userview\" onChange='cndSelect(document.amtdarpt)'>\n";
    my $defuser;
    foreach my $user (sort keys %$users) {
        my (undef,undef,undef,$first,$middle,$last) = split(/&/,$users->{$user});
        if (not defined $defuser) {
            $defuser = $user;
            print "<option value=\"$users->{$user}\" selected>$last, $first $middle</option>\n";
        } else {
            print "<option value=\"$users->{$user}\">$last, $first $middle</option>\n";
        }
    }
    print "</select><input type=\"hidden\" name=\"uid\" value=\"$defuser\"></td>\n";
		my $finputs="\t\t<td align=center><font size=2>\n";
		my $j;
		$finputs=join('',$finputs,"From: <select name=\"mofm\">\n");
		for my $i (526 .. 537) {
			$j=$i-525;
			$finputs=join('',$finputs,"<option value=\"$j\">$main::xlatphrase[$i]\n");
		}
		$finputs=join('',$finputs,"</select><select name=\"dyfm\">\n");
		for my $i (1 .. 31) {
			$finputs=join('',$finputs,"<option value=\"$i\">$i\n");
		}
		$finputs=join('',$finputs,"</select><select name=\"yrfm\">\n");
		for my $i (2000 .. 2037) {
			$finputs=join('',$finputs,"<option value=\"$i\">$i\n");
		}
		$finputs=join('',$finputs,"</select><br>\n");
		$finputs .= "\t\t</td><td align=center><font size=2>\n";
		$finputs=join('',$finputs,"To: <select name=\"moto\">\n");
		for my $i (526 .. 537) {
			$j=$i-525;
			$finputs=join('',$finputs,"<option value=\"$j\">$main::xlatphrase[$i]\n");
		}
		$finputs=join('',$finputs,"</select><select name=\"dyto\">\n");
		for my $i (1 .. 31) {
			$finputs=join('',$finputs,"<option value=\"$i\">$i\n");
		}
		$finputs=join('',$finputs,"</select><select name=\"yrto\">\n");
		for my $i (2000 .. 2037) {
			$finputs=join('',$finputs,"<option value=\"$i\">$i\n");
		}
		$finputs=join('',$finputs,"</select><br>\n");
		$finputs=join('',$finputs,"\t\t</font></td>\n");
    print "$finputs </tr></table></li>\n";
    my (undef,undef,undef,$first,$middle,$last,$address,$city,$state,$zip,$country,$email)
        = split(/&/,$users->{$defuser});
    print "<li><table><tr><td>Last Name:</td><td><input type=\"text\" name=\"lastname\" value=\"$last\"></td>\n";
    print "<td>First:</td><td><input type=\"text\" name=\"firstname\" value=\"$first\"></td>\n";
    print "<td>Middle:</td><td><input type=\"text\" name=\"middlename\" value=\"$middle\"></td></tr>\n";
    print "<tr><td>Address:</td><td colspan=5><input type=\"text\" name=\"address\" value=\"$address\" size=80></td></tr>\n";
    print "<tr><td>City:</td><td><input type=\"text\" name=\"city\" value=\"$city\"></td>\n";
    print "<td>State:</td><td><input type=\"text\" name=\"state\" value=\"$state\"></td>\n";
    print "<td>Zip:</td><td><input text=\"text\" name=\"zip\" value=\"$zip\"></td></tr>\n";
    print "<tr><td>Country:</td><td colspan=5><input type=\"text\" name=\"country\" value=\"$country\" size=80></td></tr>\n";
    print "<tr><td>E-mail:</td><td colspan=5><input type=\"text\" name=\"email\" value=\"$email\" size=80></td></tr>\n";
    print "</table></li>";
    print "<li><input type=\"checkbox\" name=\"sendemail\">&nbsp;Send Email to Candidate\n</li>";
    print "<li>CC:&nbsp;<input type=\"text\" name=\"CC\" size=80></li>\n";
    # print "<li>BCC:&nbsp;<input type=\"text\" name=\"BCC\" size=80></li>\n";
    print "<li>(Separate multiple email addresses with a comma, e.g. name\@place.com,name2\@place2.com)</li>\n";
    print "</ul>\n";
    print "</li>\n";
    print HTMLFooter();
}

sub RawScoreByCnd {
    my ($questions,$results,$subjects,$categories) = @_;
    my $data = [];
    my @subjects = sort {$a <=> $b} @$subjects;
    $data->[0] = ['ID#','Name','Total Score',@subjects];
    foreach my $user (sort {$results->{$a}->{'fullname'} cmp $results->{$b}->{'fullname'}} keys %$results) {
        my $bysubject = $results->{$user}->{'subject'};
        push @$data, [$user,
                      $results->{$user}->{'fullname'},
                      $results->{$user}->{'overall'}->{'right'},
                      map($bysubject->{$_}->[1],@subjects)];
    }
    print &HTMLReportHeader("Raw Score Report for PES File");
    #print "<pre>".Dumper($data)."</pre>\n";
    print &HTMLTable($data);
    print &HTMLFooter();
}

sub PercentScoreByCnd {
    my ($questions,$results,$subjects,$categories) = @_;
    my $data = [];
    my @subjects = sort {$a <=> $b} @$subjects;
    $data->[0] = ['ID#','Name','Total Score',@subjects];
    foreach my $user (sort {$results->{$a}->{'fullname'} cmp $results->{$b}->{'fullname'}} keys %$results) {
        my $bysubject = $results->{$user}->{'subject'};
        push @$data, [$user,
                      $results->{$user}->{'fullname'},
                      $results->{$user}->{'overall'}->{'percent'}." %",
                      map(int(100*$bysubject->{$_}->[1]/($bysubject->{$_}->[1]+$bysubject->{$_}->[0])+0.5)." %",@subjects)];
    }
    print &HTMLReportHeader("Percent Score Report for PES File");
    #print "<pre>".Dumper($data)."</pre>\n";
    print &HTMLTable($data);
    print &HTMLFooter();
}

sub RawScoreBySubject {
    my ($questions,$results,$subjects,$bysubj) = @_;
    #print "<pre>".Dumper($bysubj)."</pre>";
    my $data = [];
    my @subjects = sort {$a <=> $b} @$subjects;
    $data->[0] = ['Subject','Max Raw Scores','Range of Raw Scores','Average Raw Scores',
                  'Standard Deviation','Average Percent Correct','Number Passing','Percent Passing'];
    my $current = $bysubj->{'overall'};
    $data->[1] = ['Total Score',$current->{'total'},"$current->{'min'} - $current->{'max'}",
                  sprintf("%.2f",$current->{'mean'}),sprintf("%.2f",$current->{'stddev'}),
                  sprintf("%.2f",$current->{'percent'}),$current->{'pass'},
                  sprintf("%.2f %%",100*$current->{'pass'}/$current->{'count'})];
    foreach my $subj (@subjects) {
        $current = $bysubj->{'subjects'}->{$subj};
        push @$data, [$subj, $current->{'total'},"$current->{'min'} - $current->{'max'}",
                      sprintf("%.2f",$current->{'mean'}),sprintf("%.2f",$current->{'stddev'}),
                      sprintf("%.2f",$current->{'percent'})];
    }
    print &HTMLReportHeader("Subject Breakdown");
    #print "<pre>".Dumper($data)."</pre>\n";
    print &HTMLTable($data,"Data Based on $bysubj->{'overall'}->{'count'} Candidates");
    print &HTMLFooter();    
}

sub PassFailByCnd {
    my ($results) = @_;
    my $data = [];
    $data->[0] = ['ID#','Name','Status'];
    foreach my $user (sort {$results->{$a}->{'fullname'} cmp $results->{$b}->{'fullname'}} keys %$results) {
        push @$data, [$user,
                      $results->{$user}->{'fullname'},
                      ($results->{$user}->{'overall'}->{'percent'} < 70 ? 'Fail': 'Pass')];
    }
    print &HTMLReportHeader("Alphabetical List of Candidates with Pass/Fail Status");
    print &HTMLTable($data);
    print &HTMLFooter();
}

sub CandidateLetter {
    my ($questions, $results, $subjects, $categories, $user) = @_;
    my $history = &get_cnd_test_from_history($testcomplete,$CLIENT{'clid'},$user,$FORM{'tstid'});
    my %chapter = ('1' => 'Market Management',
		   '2' => 'Customer Engagement',
		   '3' => 'Needs Analysis',
		   '4' => 'Contract Proposal',
		   '5' => 'Customer Acceptance',
		   '6' => 'Order Management',
		   '7' => 'Post-Installation Management');
    my %content = ('2' =>'Ch. 02: Territory and Customer Development',
		   '3' =>'Ch. 03: Planning and Organizing',
		   '4' =>'Ch. 04: The Selling Process',
		   '5' =>'Ch. 05: Business Practices & Ethics',
		   '6' =>'Ch. 06: Manufacturing Processes',
		   '7' =>'Ch. 07: CNC Technology and Machine Control',
		   '8' =>'Ch. 08: Blueprint Reading and Geometric Tolerancing',
		   '9' =>'Ch. 09: Cutting Tool Technology',
		   '10' =>'Ch. 10: Machine Tool Design',
		   '11' =>'Ch. 11: Metal Forming Technology',
		   '12' =>'Ch. 12: Machine Tool Accuracy',
		   '13' =>'Ch. 13: General Mathematics and Geometry');
    my $data1 = [[1,2,3,4],
		 ['Study Guide Chapter', "Maximum Possible","Raw Score","Percent Score"]];
    my $data2 = [[1,2,3,4],['Content Domain', "Maximum Possible","Raw Score","Percent Score"]];
    push @$data1, (['Total Score',
                   $results->{$user}->{'overall'}->{'right'}+$results->{$user}->{'overall'}->{'wrong'},
                   $results->{$user}->{'overall'}->{'right'},
                   $results->{$user}->{'overall'}->{'percent'}.' %'],
		   ['&nbsp;','&nbsp;','&nbsp;','&nbsp;']);
    #print STDERR Dumper($subjects, $data1, $results->{$user});
    my @subjects = sort {$a <=> $b} @$subjects;
    foreach my $subj (@subjects) {
        my $current = $results->{$user}->{'subject'}->{$subj};
        push @$data1, [$content{$subj},
                       $current->[0]+$current->[1],
                       $current->[1],
                       sprintf("%.2f %%",100*$current->[1]/($current->[0]+$current->[1] or 1))];
    }
    foreach my $cat (@$categories) {
        my $current = $results->{$user}->{'category'}->{$cat};
        push @$data2, [$chapter{$cat},
                       $current->[0]+$current->[1],
                       $current->[1],
                       sprintf("%.2f %%",100*$current->[1]/($current->[0]+$current->[1] or 1))];
    }
    my $html = "";
    
    $html .= &HTMLHeaderPlain("Notice of Test Results");
    $html .= "<center>Notice of Test Results<br>";
    $html .= "for the<br>\n";
    $html .= "American Machine Tool Distributors' Association<br>\n";
    $html .= "Certified Machine Tool Sales Engineer (CMTSE) Examination<br>\n";
    my $date = scalar(localtime($history->{'end'}));
    $date =~ s/ \d\d:\d\d:\d\d/,/;
    $html .= "Tested $date<br></center>\n";
    $html .= "<p>ID \# $user<p>\n";
    $html .= "<ul style=\"list-style: none\">\n";
    $html .= "<li>$FORM{'firstname'}".($FORM{'middlename'}?" $FORM{'middlename'}":'').
        ($FORM{'lastname'}?" $FORM{'lastname'}":'')."</li>\n";
    $html .= "<li>$FORM{'address'}</li>\n" if ($FORM{'address'});
    $html .= "<li>$FORM{'city'}, $FORM{'state'} $FORM{'zip'}</li>" if ($FORM{'city'} or $FORM{'state'} or $FORM{'zip'});
    $html .= "<li>$FORM{'country'}</li>\n" if ($FORM{'country'});
    $html .= "<li>E-mail: $FORM{'email'}</li>\n" if ($FORM{'email'});
    $html .= "</ul>\n";
    $html .= "You must achieve a percent score of 70 % or higher to pass this examination.\n";
    $html .= &HTMLTable($data1,undef,'bold' => {1=>1},'aligndef' => 'left','alignrow' => ['center','center']);
    $html .= "<p>\n";
    $html .= &HTMLTable($data2,"Scores Based on Content Domains",'bold' => {1=>1},'aligndef' => 'left','alignrow' => ['center','center']);
    $html .= "<P>\n";
    if ($results->{$user}->{'overall'}->{'percent'} >= 70) {
	$html .= "Congratulations on successfully completing the Certified ".
	    "Machine Tool Sales Engineer (CMTSE) Examination.  The information ".
	    "contained in this report includes your Total Score, your scores on ".
	    "the seven content domains that comprise the examination, and your ".
	    "score by Candidate Study Guide chapter.  Column 2 lists the total ".
	    "number of exam questions for each area; Column 3 lists the actual ".
	    "number of questions you answered correctly; and, Column 4 ".
	    "indicates the percentage of questions you answered correctly.<p>\n";
	$html .= "Thank you for ".
	    "participating in the Certified Machine Tool Sales Engineer ".
	    "(CMTSE) Examination.<p>";
    } else {
	$html .= "Regretfully, we must inform you that you failed to ".
	    "pass the Certified Machine Tool Sales Engineer (CMTSE) ".
	    "Examination.  The information contained in this report ".
	    "includes your Total Score, your scores on the seven content ".
	    "domains that comprise the examination, and your score by ".
	    "Candidate Study Guide chapter.  Column 2 lists the total ".
	    "number of exam questions for each area; Column 3 lists the ".
	    "actual number of questions you answered correctly; and, Column ".
	    "4 indicates the percentage of questions you answered ".
	    "correctly.<p>\n".

	    "CMTSE candidates who do not pass the exam are welcome and ".
	    "encouraged to retake it at their earliest opportunity.  ".
	    "Your application is valid for two years from the exam date ".
	    "for which you originally registered. To participate in an ".
	    "upcoming exam, please contact AMTDA at 1-800-878-2683.<p>\n";
    }
    $html .= HTMLFooter();
    return $html;
}

sub date_out_of_range {
    my ($completedat,$datefm,$dateto) = @_;
    my @unsorted=();
    push @unsorted, $completedat;
    push @unsorted, $datefm;
    push @unsorted, $dateto;
    my @sorted = sort @unsorted;
    my $bretyes = ($sorted[1] eq $unsorted[0]) ? 0 : 1;
    @unsorted=();
    @sorted=();
    return $bretyes;
}