You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
88 lines
2.7 KiB
88 lines
2.7 KiB
#!/usr/bin/perl
|
|
#
|
|
# $Id: sbadef.pl
|
|
#
|
|
# Source File: sbadef.pl
|
|
|
|
# Get config
|
|
require 'sitecfg.pl';
|
|
require 'sbalib.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 '0') {
|
|
$show_template = "selectpg";
|
|
} else {
|
|
if ($FORM{'frm'} eq '1') {
|
|
#
|
|
# Subject Area Navigation frame
|
|
#
|
|
$show_template = "subjareanav";
|
|
} elsif ($FORM{'frm'} eq '2') {
|
|
#
|
|
# Subject Area Test and Master frame
|
|
#
|
|
my @frecs;
|
|
my $safile;
|
|
$safile=join($pathsep, $questionroot,"$TEST{'id'}.$SESSION{'clid'}.sba");
|
|
if (&file_exists($safile)==0) {
|
|
&create_subjarea_file($SESSION{'clid'}, $TEST{'id'}, "");
|
|
}
|
|
if ($FORM{'sbamids'} ne "") {
|
|
if ($FORM{'dbop'} eq "m2t") {
|
|
&add_subjarea_fm_master($SESSION{'clid'}, $TEST{'id'}, $FORM{'sbamids'});
|
|
$FORM{'respmsg'} = "Subject Area(s) added from Master.";
|
|
} elsif ($FORM{'dbop'} eq "t2m") {
|
|
&add_subjarea_to_master($SESSION{'clid'}, $TEST{'id'}, $FORM{'sbamids'});
|
|
$FORM{'respmsg'} = "Master Subject Area(s) updated.";
|
|
} elsif ($FORM{'dbop'} eq "dt") {
|
|
&drop_subjarea($SESSION{'clid'}, $TEST{'id'}, $FORM{'sbamids'});
|
|
$FORM{'respmsg'} = "Subject Area(s) dropped from test.";
|
|
}
|
|
} else {
|
|
if ($FORM{'dbop'} eq "bq") {
|
|
&build_subjarea($SESSION{'clid'}, $TEST{'id'}, "");
|
|
$FORM{'respmsg'} = "Subject Area(s) built from test questions.";
|
|
}
|
|
}
|
|
$SUBJAREA{'testlist'} = &get_subjarea_masters ($SESSION{'clid'}, $TEST{'id'},"id,id,desc");
|
|
$SUBJAREA{'masterlist'} = &get_subjarea_masters ($SESSION{'clid'},"","id,abbr,desc");
|
|
$show_template = "subjareahdr";
|
|
} elsif ($FORM{'frm'} eq '3') {
|
|
#
|
|
# Subject Area Detail frame
|
|
#
|
|
$SUBJAREA{'sbanew'}=$FORM{'sbanew'};
|
|
if ($FORM{'sbanew'} ne "Y") {
|
|
if ($FORM{'sbaid'}) {
|
|
if ($FORM{'dbop'} eq "a") {
|
|
&put_subjarea($SESSION{'clid'}, $TEST{'id'}, $FORM{'sbaid'});
|
|
&get_subjarea($SESSION{'clid'}, $TEST{'id'}, $FORM{'sbaid'});
|
|
$FORM{'respmsg'} = "Subject Area added.";
|
|
} elsif ($FORM{'dbop'} eq "s") {
|
|
&update_subjarea($SESSION{'clid'}, $TEST{'id'}, $FORM{'sbaid'});
|
|
&get_subjarea($SESSION{'clid'}, $TEST{'id'}, $FORM{'sbaid'});
|
|
$FORM{'respmsg'} = "Changes saved.";
|
|
} else {
|
|
&get_subjarea($SESSION{'clid'}, $TEST{'id'}, $FORM{'sbaid'});
|
|
}
|
|
}
|
|
$SUBJAREA{'qcnt'}=&count_subj_skill_questions($SESSION{'clid'}, $TEST{'id'}, 1, $SUBJAREA{'id'});
|
|
}
|
|
$show_template = "subjareadtl";
|
|
}
|
|
}
|
|
if ( $show_template ) {
|
|
&show_template($show_template);
|
|
}
|
|
} else {
|
|
&show_illegal_access_warning;
|
|
}
|
|
|