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.
41 lines
990 B
41 lines
990 B
#!/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 "<HTML>
|
|
<HEAD>
|
|
<SCRIPT language=\"JavaScript\">
|
|
<!--
|
|
function wdw_onLoad() {
|
|
parent.gbindex.document.location.reload();
|
|
}
|
|
// -->
|
|
</SCRIPT>
|
|
</HEAD>
|
|
<BODY onLoad=\"wdw_onLoad()\">\n";
|
|
if (($SESSION{'uac'} eq 'gadmin') || ($SESSION{'uac'} eq 'admin') || $SESSION{'uac'} eq 'madmin') {
|
|
&update_group($SESSION{'clid'});
|
|
print "Group and Gradebook updated.<BR>\n";
|
|
} else {
|
|
$FORM{'idlist'} = join(',', param('idlist'));
|
|
$FORM{'tstid'} = join(',', param('tstid'));
|
|
&update_group_registrations($SESSION{'clid'}, $FORM{'idlist'}, $FORM{'tstid'});
|
|
}
|
|
print "</BODY>\n";
|
|
print "</HTML>\n";
|
|
}
|
|
|