--- loncom/imspackages/imsexport.pm 2004/12/23 16:31:28 1.2 +++ loncom/imspackages/imsexport.pm 2009/08/28 17:17:25 1.7 @@ -1,3 +1,7 @@ +# The LearningOnline Network +# +# $Id: imsexport.pm,v 1.7 2009/08/28 17:17:25 raeburn Exp $ +# # Copyright Michigan State University Board of Trustees # # This file is part of the LearningOnline Network with CAPA (LON-CAPA). @@ -25,16 +29,17 @@ package Apache::imsexport; use strict; use Apache::lonnet; +use LONCAPA; 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 +157,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|