--- loncom/imspackages/imsexport.pm 2004/12/23 16:31:28 1.2 +++ loncom/imspackages/imsexport.pm 2006/05/30 12:45:50 1.4 @@ -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'}; @@ -152,7 +152,7 @@ sub external { my ($symb,$title) = @_; my $output; if ($symb =~ m-\.sequence___\d+___ext(.+)$-) { - my $exturl = &Apache::lonnet::unescape($1); + my $exturl = &unescape($1); $output = qq| $title @@ -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=();