#!/usr/bin/perl # # $Id: grpadmin.pl,v 1.6 2006/08/21 20:13:44 psims Exp $ # # Source File: grpadmin.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", "AD/GM $FORM{'dbop'} $FORM{'grpid'}"); &get_client_profile($SESSION{'clid'}); $isregistrar = &get_a_key("cnd.$SESSION{'clid'}", $SESSION{'uid'}, "registrar"); if ($FORM{'idx'} eq '0') { # Blank page #print STDERR "im printing selectpg now\n"; if ($isregistrar eq 'Y') { &show_template("maintcnd"); } else { &show_template("selectpg"); } } elsif ($FORM{'idx'} eq '1') { &show_template("maintgrp"); } elsif ($FORM{'idx'} eq '2') { &show_template("grpowners"); } elsif ($FORM{'idx'} eq '3') { if ($SESSION{'uac'} eq 'cnd') { $FORM{'grpowner'} = $SESSION{'uid'}; } &get_candidate_profile($SESSION{'clid'}, $FORM{'grpowner'}); @gbooks = &get_gradebooks_list($SESSION{'clid'}, $FORM{'grpowner'}); $idxgrpid = $GROUPFLDS{'grpid'}; $idxgrpnme = $GROUPFLDS{'grpnme'}; $optline = ""; foreach $gbook (@gbooks) { chop ($gbook); @gbdata = split(/&/, $gbook); $optline = join('', $optline, "