[prev in list] [next in list] [prev in thread] [next in thread] 

List:       lon-capa-cvs
Subject:    [LON-CAPA-cvs] cvs: loncom /interface lonparmset.pm
From:       albertel <lon-capa-cvs () mail ! lon-capa ! org>
Date:       2005-05-30 17:58:52
Message-ID: cvsalbertel1117475932 () cvsserver
[Download RAW message or body]

albertel		Mon May 30 13:58:52 2005 EDT

  Modified files:              
    /loncom/interface	lonparmset.pm 
  Log:
  - don't split on $env{'request.course.id'} (we reserve the right to change what course ids look like
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.194 loncom/interface/lonparmset.pm:1.195
--- loncom/interface/lonparmset.pm:1.194	Mon May 30 13:56:39 2005
+++ loncom/interface/lonparmset.pm	Mon May 30 13:58:51 2005
@@ -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 @@
       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',



[prev in list] [next in list] [prev in thread] [next in thread]