version 1.10, 2003/12/11 21:23:58
|
version 1.11, 2004/11/30 22:57:16
|
Line 50 sub evaloptionhash {
|
Line 50 sub evaloptionhash {
|
} |
} |
|
|
sub rawrendering { |
sub rawrendering { |
my ($request,$uri)=@_; |
my ($symb)=@_; |
my $problem=&Apache::lonnet::getfile |
my %data=('show_errors'=>'on', |
(&Apache::lonnet::filelocation('',$uri)); |
'devalidatecourseresdata'=>'on'); |
&Apache::lonnet::devalidatecourseresdata( |
return &Apache::loncommon::get_student_view($symb,time,time, |
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}, |
$ENV{'request.course.id'}, |
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}); |
'web',\%data); |
my $uname=$ENV{'user.name'}; |
|
my $udom=$ENV{'user.domain'}; |
|
$ENV{'user.name'}=time; |
|
$ENV{'user.domain'}=time; |
|
my $result = &Apache::lonxml::xmlparse($request,'web', $problem); |
|
undef($Apache::lonhomework::parsing_a_problem); |
|
$ENV{'user.name'}=$uname; |
|
$ENV{'user.domain'}=$udom; |
|
$result=~s/^.*\<body[^\>]*\>//si; |
|
$result=~s/\<\/body[^\>]*\>.*$//si; |
|
return $result; |
|
} |
} |
|
|
sub questiontext { |
sub questiontext { |
Line 208 ENDDOCUMENT
|
Line 197 ENDDOCUMENT
|
if ($symb) { |
if ($symb) { |
$r->print('<h1>'.&Apache::lonnet::gettitle($symb).'</h1>'); |
$r->print('<h1>'.&Apache::lonnet::gettitle($symb).'</h1>'); |
$r->print('<table border="2" bgcolor="#FFFFFF" width="100%"><tr><td>'. |
$r->print('<table border="2" bgcolor="#FFFFFF" width="100%"><tr><td>'. |
&rawrendering($r,$uri). |
&rawrendering($symb). |
'</td></tr></table><br />'); |
'</td></tr></table><br />'); |
$r->print('<form method="post">'); |
$r->print('<form method="post">'); |
# Question Type |
# Question Type |