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.
34 lines
978 B
34 lines
978 B
#!/usr/bin/perl -w -s
|
|
#
|
|
# $Id: grpreport.pl,v 1.2 2004/06/10 19:11:09 jharding Exp $
|
|
#
|
|
# Source File: grpreport.pl
|
|
|
|
require 'sitecfg.pl';
|
|
require 'testlib.pl';
|
|
require "smilib.pl";
|
|
require "cybertestlib.pl";
|
|
|
|
use vars qw(%FORM %SESSION %CLIENT %TEST_SESSION %SUBTEST_QUESTIONS %TEST
|
|
%SUBTEST_SUMMARY %CANDIDATE %SUBTEST_ANSWERS);
|
|
|
|
&app_initialize;
|
|
my @groups = get_data("groups.$SESSION{'clid'}");
|
|
shift @groups;
|
|
my @cnds = get_data("cnd.$SESSION{'clid'}");
|
|
shift @cnds;
|
|
foreach (@cnds) {
|
|
my @cndline = split(/&/,$_);
|
|
$cnd{$cndline[0]} = "$cndline[3] $cndline[4] $cndline[5]";
|
|
}
|
|
print "<H1>Groups for $SESSION{'clid'}</h1>\n";
|
|
foreach (@groups) {
|
|
my ($grpowner,$grpid,$grpdesc,$members,$validfrom,$validto) = split(/&/,$_);
|
|
print "<h3>$grpid - $grpdesc</h3>\n";
|
|
print "<p>Valid from $validfrom to $validto.</p>\n";
|
|
print "<p>Members:\n<ul>";
|
|
foreach (split(/,/,$members)) {print "<li>$_: $cnd{$_}</li>\n";}
|
|
print "</ul>\n";
|
|
}
|
|
|
|
return true;
|
|
|