#!/usr/bin/perl ##!/usr/local/bin/perl5.8.0 # # # # Source File: tgwall101.pl # Get config # require 'sitecfg.pl'; # require 'testlib.pl'; # require 'tstatlib.pl'; # require 'cybertestlib.pl'; # use Time::Local; # $FORM{'frm'}=""; # &app_initialize; my $HBI_Debug = 0 ; if ($FORM{'pdf'}) { print "Content-Type: application/pdf\n\n"; open(STDOUT, "| ".$cfgroot.$pathsep."html2pdf"); select(STDOUT); # needed for older versions of perl } else { ; # print "Content-Type: text/html\n\n"; } # This is a customized version of the Test/Survey Summary Statistics for Terry G. Wall. # It is trying to provide a lot of the ACT-C-004 functionality, # but not the stuff he does not want. # $REPORT{'rptid'} = 'ACT-C-004' ; my $HBI_Key ; if (($FORM{'frm'} eq '1') || ($FORM{'frm'} eq '5')) { &show_index; if ($HBI_Debug) { foreach $HBI_Key (sort keys %FORM) { print " key $HBI_Key FORM $FORM{$HBI_Key} X
\n" ; } } } else { if ($FORM{'frm'} eq '2') { &show_detail; if ($HBI_Debug) { foreach $HBI_Key (sort keys %FORM) { print " key $HBI_Key FORM $FORM{$HBI_Key} X
\n" ; } } } elsif ($FORM{'frm'} eq '') { $REPORT{'rptid'}=$FORM{'rptno'}; &show_index; if ($HBI_Debug) { foreach $HBI_Key (sort keys %FORM) { print " key $HBI_Key FORM $FORM{$HBI_Key} X
\n" ; } } } else { print "\n"; print "\n"; print " \n"; print "\n"; } } close(STDOUT); sub show_frames { print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; } sub show_frames_001 { print "\n"; print "\n"; print "\n"; print "\n"; print "\t\n"; print "\t\n"; print "\t\n"; print "\t\n"; print "\n"; print "\n"; } sub show_frames_002 { print "\n"; print "\n"; print "\n"; print "\t\n"; print "\t\n"; print "\n"; print "\n"; } sub show_frames_003 { print "\n"; print "\n"; print "\n"; print "\t\n"; print "\t\n"; print "\t\t\n"; print "\t\t\n"; print "\t\n"; print "\n"; print "\n"; } sub show_frames_007 { print "\n"; print "\n"; print "\n"; print "\t\n"; print "\t\n"; print "\t\t\n"; print "\t\t\n"; print "\t\n"; print "\n"; print "\n"; } sub print_report_header() { my $i; $dform=1; if ($REPORT{'rptid'} eq 'ACT-C-001') { # C_001 my ($frm); $faction="$cgiroot/creports.pl"; if ($FORM{"frm"} == 5) { $ftarget="rptindex"; $frm=1; } else { $ftarget="rptdetail"; $frm=2 } $fparms="\n"; $fparms=join('',$fparms,"\n"); $fparms=join('',$fparms,"\n"); $fparms=join('',$fparms,"\n"); $fparms=join('',$fparms,"\n"); $fjscript=" function parmsC001(oform,dbf,fltr) { oform.dbfile.value=dbf; oform.filter.value=fltr; oform.submit(); } "; } elsif ($REPORT{'rptid'} eq 'ACT-C-002') { # C_002 $dform=1; my $testoptions=""; my $useroptions=""; my $groupoptions=""; my $yroptions=""; my $mooptions=""; my $dayoptions=""; my @flds; #print STDERR "ACT-C-002: cbcomplete = $FORM{'cbcomplete'}\n"; #print STDERR " cbsort = $FORM{'cbsort'}\n"; my $st = time; my @tmparray=&get_test_list($CLIENT{'clid'}); #my $end = time; #my $dl = $end - $st; #$st = $end; #print STDERR "get_test_list($CLIENT{'clid'}) - $dl seconds\n"; print "\n"; foreach (sort @tmparray[1..$#tmparray]) { @flds=split(/&/,$_); $testoptions=join('',$testoptions,"