#!/usr/bin/perl
#
# $Id: taccdef.pl
#
# Source File: taccdef.pl

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

&app_initialize;

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

if (&get_session($FORM{'tid'})) {
	my $show_template = undef;
	&LanguageSupportInit();
	$FORM{'respmsg'} = "";
	$TEST{'id'} = $FORM{'tstid'};
	&get_test_profile($SESSION{'clid'}, $TEST{'id'});
	if ($FORM{'frm'} eq '1') {
		#
		# Subject Area Navigation frame
		#
		$show_template = "taccnav";
	} elsif ($FORM{'frm'} eq '2') {
		if ($FORM{'dbop'} eq 's') {
			$FORM{'dbopmessage'}=&put_test_acl_file($SESSION{'clid'},$TEST{'id'}, $FORM{'uidlist'});
		} elsif ($FORM{'dbop'} eq 'd') {
			$FORM{'dbopmessage'}=&drop_test_acl_file($SESSION{'clid'},$TEST{'id'}, $FORM{'uidlist'});
		} else {
			$FORM{'dbopmessage'}="";
		}
		#
		# Test Access Controls Detail frame
		#
		my @vals=&get_test_acl_list($SESSION{'clid'},$TEST{'id'});
		my $wcndid=$vals[0];
		$TEST{'taccpwds'}=$vals[1];
		$TEST{'tacccnds'} = &get_acl_cndlist($SESSION{'clid'},$wcndid);
		$show_template = "taccdtl";
	}
	if ( $show_template ) {
		&show_template($show_template);
	}
} else {
	&show_illegal_access_warning;
}