#!/usr/bin/perl
#
# $Id: grpdef.pl,v 1.6 2006/02/09 23:48:46 ddoughty Exp $
#
# Source File: grpdef.pl
# Get config
require 'sitecfg.pl';
require 'testlib.pl';
require 'grplib.pl';
&app_initialize;
print "Content-Type: text/html\n\n";
if (&get_session($FORM{'tid'})) {
&LanguageSupportInit();
&log_entry($SESSION{'clid'}, $SESSION{'uid'}, "3", "GD $FORM{'dbop'} $FORM{'grpid'}");
print "
\n";
if (($SESSION{'uac'} eq 'gadmin') || ($SESSION{'uac'} eq 'admin') || $SESSION{'uac'} eq 'madmin') {
&update_group($SESSION{'clid'});
print "Group and Gradebook updated.
\n";
} else {
$FORM{'idlist'} = join(',', param('idlist'));
$FORM{'tstid'} = join(',', param('tstid'));
&update_group_registrations($SESSION{'clid'}, $FORM{'idlist'}, $FORM{'tstid'});
}
print "\n";
print "\n";
}