version 1.194, 2005/05/30 17:56:39
|
version 1.195, 2005/05/30 17:58:51
|
Line 2091 sub print_main_menu {
|
Line 2091 sub print_main_menu {
|
action="/adm/parmset" name="studentform"> |
action="/adm/parmset" name="studentform"> |
ENDMAINFORMHEAD |
ENDMAINFORMHEAD |
# |
# |
my ($cdom,$cnum) = split/_/,$env{'request.course.id'}; |
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
|
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
my @menu = |
my @menu = |
( |
( |
{ text => 'Set Course Environment Parameters', |
{ text => 'Set Course Environment Parameters', |