#!/usr/bin/perl
#
# $Id: tmaster.pl,v 1.3 2006/01/23 21:39:30 ddoughty Exp $
#
# Source File: tmaster.pl

# Get config
require 'sitecfg.pl';
require 'testlib.pl';

$FORM{'frm'}="";

&app_initialize;

print "Content-Type: text/html\n\n";

if (&get_session($FORM{'tid'})) {
	&LanguageSupportInit();

	&get_client_profile($SESSION{'clid'});
	$SESSION{'registrar'} = &get_a_key("cnd.$CLIENT{'clid'}", $SESSION{'uid'}, "registrar");
	&get_candidate_profile( $SESSION{'clid'}, $FORM{'cndid'});
	&get_test_profile($CLIENT{'clid'}, $FORM{'tstid'});
	&get_test_sequence( $CLIENT{'clid'}, $CANDIDATE{'uid'}, $TEST{'id'}, $testpending);
	$SYSTEM{'languagesupport'} = "TRUE";
	&show_template("tmaster");
}