loncom/imspackages/imsexport.pm - diff

Return to imsexport.pm CVS log

Up to [LON-CAPA] / loncom / imspackages

Diff for /loncom/imspackages/imsexport.pm between versions 1.2 and 1.3

version 1.2, 2004/12/23 16:31:28	version 1.3, 2005/04/07 06:56:22
Line 30 sub simpleproblem {	Line 30 sub simpleproblem {
my ($symb) = @_;	my ($symb) = @_;
my $output;	my $output;
my %qparms = &Apache::lonnet::dump('resourcedata',	my %qparms = &Apache::lonnet::dump('resourcedata',
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'},	$env{'course.'.$env{'request.course.id'}.'.domain'},
$ENV{'course.'.$ENV{'request.course.id'}.'.num'},	$env{'course.'.$env{'request.course.id'}.'.num'},
$ENV{'request.course.id'}.'.'.$symb);	$env{'request.course.id'}.'.'.$symb);
if ($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 $qtype=$qparms{$prefix.'questiontype'};
my $qtext=$qparms{$prefix.'questiontext'};	my $qtext=$qparms{$prefix.'questiontext'};
my $hint=$qparms{$prefix.'hinttext'};	my $hint=$qparms{$prefix.'hinttext'};
Line 169 sub external {	Line 169 sub external {

sub templatedpage {	sub templatedpage {
my ($content_type,$timestamp,$count,$uploads,$udom,$uname) = @_;	my ($content_type,$timestamp,$count,$uploads,$udom,$uname) = @_;
my $cdom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
my $cnum = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};	my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
my $output = '	my $output = '
<'.$content_type.'>';	<'.$content_type.'>';
my %syllabusdata=();	my %syllabusdata=();

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.2
changed lines
	Added in v.1.3