--- loncom/imspackages/imsexport.pm	2004/12/23 16:31:28	1.2
+++ loncom/imspackages/imsexport.pm	2005/04/07 06:56:22	1.3
@@ -30,11 +30,11 @@ sub simpleproblem  {
     my ($symb) = @_;
     my $output;
     my %qparms = &Apache::lonnet::dump('resourcedata',
-                  $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
-                  $ENV{'course.'.$ENV{'request.course.id'}.'.num'},
-                  $ENV{'request.course.id'}.'.'.$symb);
+                  $env{'course.'.$env{'request.course.id'}.'.domain'},
+                  $env{'course.'.$env{'request.course.id'}.'.num'},
+                  $env{'request.course.id'}.'.'.$symb);
     if ($symb) {
-        my $prefix=$ENV{'request.course.id'}.'.'.$symb.'.0.';
+        my $prefix=$env{'request.course.id'}.'.'.$symb.'.0.';
         my $qtype=$qparms{$prefix.'questiontype'};
         my $qtext=$qparms{$prefix.'questiontext'};
         my $hint=$qparms{$prefix.'hinttext'};
@@ -169,8 +169,8 @@ sub external {
 
 sub templatedpage {
     my ($content_type,$timestamp,$count,$uploads,$udom,$uname) = @_;
-    my $cdom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
-    my $cnum = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};  
+    my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+    my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};  
     my $output = '
 <'.$content_type.'>';
     my %syllabusdata=();