--- 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| $title @@ -169,8 +174,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=(); @@ -213,7 +218,7 @@ sub templatedpage { %syllabusdata=&Apache::lonnet::dump('aboutme',$udom,$uname); %syllabusfields=&Apache::lonlocal::texthash( 'aaa_contactinfo' => 'Contact Information', - 'bbb_aboutme' => 'About Me', + 'bbb_aboutme' => 'Personal Information', 'ccc_webreferences' => 'Web References' ); $output .= qq|