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=(); |