--- loncom/interface/lonparmset.pm	2005/05/30 17:56:39	1.194
+++ loncom/interface/lonparmset.pm	2005/05/30 17:58:51	1.195
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.194 2005/05/30 17:56:39 albertel Exp $
+# $Id: lonparmset.pm,v 1.195 2005/05/30 17:58:51 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2091,7 +2091,8 @@ sub print_main_menu {
       action="/adm/parmset" name="studentform">
 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 =
         (
           { text => 'Set Course Environment Parameters',