--- loncom/imspackages/imsexport.pm 2004/12/23 16:31:28 1.2 +++ loncom/imspackages/imsexport.pm 2009/02/25 10:26:05 1.6 @@ -1,3 +1,7 @@ +# The LearningOnline Network +# +# $Id: imsexport.pm,v 1.6 2009/02/25 10:26:05 weissno Exp $ +# # Copyright Michigan State University Board of Trustees # # This file is part of the LearningOnline Network with CAPA (LON-CAPA). @@ -30,11 +34,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 +156,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 +173,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 +217,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|