#!/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;