#!/usr/bin/perl
#
# $Id: $
#
# Source File: questionslib.pl
#  --- Originally pulled from testdata.pl and converted to a library PERL file.

# Get config
use FileHandle;
use Reporter;
use Data::Dumper;
require 'cybertestlib.pl' ;
require 'sitecfg.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 $testgraphic $graphroot);


sub get_question_definitions {
    my ($clid, $testid) = @_;
    my $qcount = 0;
    my @questions = () ;
    my @qrecs = &get_question_list($testid, $clid);
    chomp $qrecs[0];
    my @flds = split(/&/,shift(@qrecs));
    foreach my $qrec (@qrecs) {
	chomp ($qrec);
	#($id, $qtyp) = split(/&/, $qrec);
	my @rowdata = split(/&/, $qrec);
	my $i=0;
	my $question = {};
	@{$question}{@flds} = @rowdata;
	($question->{'subj'},$question->{'skilllevel'}) = split(/\./,$question->{'subj'});
	$question->{'tf'} = ($question->{'qtp'} eq 'tf') ? "SELECTED" : "";
	$question->{'mcs'} = ($question->{'qtp'} eq 'mcs') ? "SELECTED" : "";
	$question->{'mcm'} = ($question->{'qtp'} eq 'mcm') ? "SELECTED" : "";
	$question->{'esa'} = ($question->{'qtp'} eq 'esa') ? "SELECTED" : "";
	$question->{'nrt'} = ($question->{'qtp'} eq 'nrt') ? "SELECTED" : "";
	$question->{'qtx'} =~ s/\;/\n/g;
	$question->{'qca'} =~ s/\;/\n/g;
	$question->{'qia'} =~ s/\;/\n/g;
	
	$question->{'lbla'} = ($question->{'qalb'} eq 'a') ? "SELECTED" : "";
	$question->{'lblA'} = ($question->{'qalb'} eq 'A') ? "SELECTED" : "";
	$question->{'lbln'} = ($question->{'qalb'} eq 'n') ? "SELECTED" : "";
	$question->{'lblr'} = ($question->{'qalb'} eq 'r') ? "SELECTED" : "";
	$question->{'lblR'} = ($question->{'qalb'} eq 'R') ? "SELECTED" : "";
	
	$question->{'tft'} = ($question->{'qtp'} eq 'tf' && $question->{'qca'} eq 'TRUE') ? "CHECKED" : "";
	$question->{'tff'} = ($question->{'qtp'} eq 'tf' && $question->{'qca'} eq'FALSE') ? "CHECKED" : "";
	$question->{'tfy'} = ($question->{'qtp'} eq 'tf' && $question->{'qca'} eq 'YES') ? "CHECKED" : "";
	$question->{'tfn'} = ($question->{'qtp'} eq 'tf' && $question->{'qca'} eq'NO') ? "CHECKED" : "";
	
	$question->{'qim0'} = ($question->{'qim'} eq '0') ? "SELECTED" : "";
	$question->{'qim1'} = "";
	$question->{'qim2'} = "";
	my $illus = join($pathsep, $testgraphic, "$clid.$question->{'id'}");
	my $supportedmedia = join(';', $SYSTEM{'supportedimagemedia'}, $SYSTEM{'supportedaudiomedia'}, $SYSTEM{'supportedvideomedia'});
	my $illusfile = &file_exists_with_extension($illus, $supportedmedia);
	$question->{'illustration'} = "";
	$question->{'defthumbnail'} = "<IMG NAME=\"qimage\" SRC=\"$graphroot/noimageassigned.gif\" width=100 BORDER=0>";
	if ($question->{'qim'} eq '1') {
	    $question->{'qim1'} = "SELECTED";
	} elsif ($question->{'qim'} eq '2') {
	    $question->{'qim2'} = "SELECTED";
	} elsif ($question->{'qim'} eq '3' ) {
	    $question->{'qim3'} = "SELECTED";
	    $question->{'illustration'} = "<A NAME=\"qimage\" HREF=\"$question->{'flr'}\" TARGET=\"illustrated\">Reference Page</A>";
	}
	if ($illusfile ne '') {
	    my @filesegs = split(/\./, $illusfile);
	    my $fext = $filesegs[$#filesegs];
	    @filesegs = () ;
		my $IllustrationLabel = "" ;
		if ($fext =~ /pdf$/i ) { 
			$IllustrationLabel = "Click Here" ;
		} else {
			$IllustrationLabel = "Illustration" ;
		}
	    if ($SYSTEM{'supportedimagemedia'} =~ m/$fext/i ) {
		if ($question->{'qim'} eq '1') {
		    $question->{'illustration'} = "<A NAME=\"qimage\" HREF=\"$cgiroot/imagepop.pl?tid=$SESSION{'tid'}\&img=$clid.$question->{'id'}.$fext\" TARGET=\"illustrated\">$IllustrationLabel</A>";
		    $question->{'defthumbnail'} = "<A NAME=\"qimage\" HREF=\"$cgiroot/imagepop.pl?tid=$SESSION{'tid'}\&img=$clid.$question->{'id'}.$fext\" TARGET=\"illustrated\"><IMG NAME=\"qimagetn\" SRC=\"$cgiroot/image.pl?tid=$SESSION{'tid'}\&img=$clid.$question->{'id'}.$fext\" width=100 BORDER=0></A>";
		} else {
		    $question->{'illustration'} = "<IMG NAME=\"qimage\" SRC=\"$cgiroot/image.pl?tid=$SESSION{'tid'}\&img=$clid.$question->{'id'}.$fext\" BORDER=0>";
		    $question->{'defthumbnail'} = "<A NAME=\"qimage\" HREF=\"$cgiroot/imagepop.pl?tid=$SESSION{'tid'}\&img=$clid.$question->{'id'}.$fext\" TARGET=\"illustrated\"><IMG NAME=\"qimagetn\" SRC=\"$cgiroot/image.pl?tid=$SESSION{'tid'}\&img=$clid.$question->{'id'}.$fext\" width=100 BORDER=0></A>";
		}
	    } elsif ($SYSTEM{'supportedvideomedia'} =~ m/$fext/i ) {
		$question->{'illustration'} = "<EMBED SRC=\"$cgiroot/image.pl?tid=$SESSION{'tid'}\&img=$clid.$question->{'id'}.$fext\" AUTOSTART=\"TRUE\" LOOP=\"false\" VOLUME=\"100\" CONTROLS=\"console\" HIDDEN=\"false\">";
	    } elsif ($SYSTEM{'supportedaudiomedia'} =~ m/$fext/i ) {
		$question->{'illustration'} = "<EMBED SRC=\"$cgiroot/image.pl?tid=$SESSION{'tid'}\&img=$clid.$question->{'id'}.$fext\" AUTOSTART=\"TRUE\" LOOP=\"false\" VOLUME=\"100\" WIDTH=\"100\" HEIGHT=\"50\" CONTROLS=\"small console\" HIDDEN=\"false\">";
	    }
	}
	#if ($question->{'qnxt'} eq '' ) {
	#$question->{'qnxt'} = ($qcount < $#qrecs) ? $qcount + 1 : $#qrecs;
	#} else {
	#if ($question->{'qnxt'} > $#qrecs) {
	#$question->{'qnxt'} = $#qrecs;
	#}
	#}
	#if ($question->{'qprv'} eq '' ) {
	#$question->{'qprv'} = ($qcount == 1) ? 1 : $qcount - 1;
	#} else {
	#if ($question->{'qprv'} > $#qrecs) {
	#$question->{'qprv'} = $#qrecs;
	#}
	#}
	$question->{'totdef'} = $#qrecs;
	$question->{'chkobs'} = ($question->{'qil'} eq 'Y') ? "CHECKED" : "";
	if ($question->{'qtx'} =~ /:::/) {
	    ($question->{'qtx'}, $question->{'left_be'}, $question->{'right_be'}) = split(/:::/, $question->{'qtx'});
	}
	if ($question->{'layout'} =~ /:/) {
	    ($question->{'layout'}, $question->{'anslay'}) = split(/:/, $question->{'layout'});
	    $question->{'anslayhchk'} = ($question->{'anslay'} eq 'h') ? "CHECKED" : "";
	} else {
	    $question->{'anslay'} = "";
	}
	$question->{'anslayvchk'} = ($question->{'anslay'} ne 'h') ? "CHECKED" : "";
	$question->{'layout2chk'} = ($question->{'layout'} eq '2') ? "CHECKED" : "";
	$question->{'layout3chk'} = ($question->{'layout'} eq '3') ? "CHECKED" : "";
	$question->{'layout4chk'} = ($question->{'layout'} eq '4') ? "CHECKED" : "";
	$question->{'layout5chk'} = ($question->{'layout'} eq '5') ? "CHECKED" : "";
	$question->{'layout1chk'} = ($question->{'layout'} eq '1') ? "CHECKED" : "";
	if ($question->{'layout'} eq '') {
	    $question->{'layout'} = '1';
	    $question->{'layout1chk'} = "CHECKED";
	}
# sac v start addition for comment input support
	my @qflags = split(/\./,$question->{'flags'});
	$question->{'qcmtprmpt'} = $qflags[0];
	$question->{'chkqccmt'} = ($qflags[0] eq 'Y') ? "CHECKED" : "";
	$question->{'qcprmpt'} = ($qflags[0] eq 'Y') ? $qflags[1] : "";
	$question->{'promptcomments'}="";
	if ($qflags[0] eq 'Y') {
	    $question->{'promptcomments'}="
<FONT SIZE=\"4\">\&nbsp;<br>
<b><i>$qflags[1]</i></b><br>
<TEXTAREA NAME=\"qcucmt\" cols=\"50\" rows=\"3\"
	wrap=on onKeyPress=\"languagesupport(this)\"
	onFocus=\"return tGotFocus(this)\"
	onChange=\"return onConvert(this)\"></TEXTAREA>
</FONT><br>\n";
	    if (($question->{'layout'} eq '4') || ($question->{'layout'} eq '5') || ($question->{'qtyp'} eq 'nrt')) {
		$question->{'promptcomments'}=join('',"\&nbsp;<br>",$question->{'promptcomments'});
	    } else {
		$question->{'promptcomments'}=join('',"<tr><td>",$question->{'promptcomments'},"</td></tr>");
	    }
	}
# sac ^ end addition for comment input support
	#return;
	push @questions, $question;
    }
    return \@questions;
}

1 ; # End of library file.