version 1.104, 2002/12/11 14:44:24
|
version 1.128, 2003/05/16 17:41:17
|
Line 48 use Apache::optionresponse();
|
Line 48 use Apache::optionresponse();
|
use Apache::imageresponse(); |
use Apache::imageresponse(); |
use Apache::essayresponse(); |
use Apache::essayresponse(); |
use Apache::externalresponse(); |
use Apache::externalresponse(); |
|
use Apache::rankresponse(); |
|
use Apache::matchresponse(); |
|
#use Apache::chemresponse(); |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use HTML::Entities(); |
use HTML::Entities(); |
use Apache::loncommon(); |
use Apache::loncommon(); |
Line 58 BEGIN {
|
Line 61 BEGIN {
|
} |
} |
|
|
sub get_target { |
sub get_target { |
if ( $ENV{'request.state'} eq "published") { |
if (($ENV{'request.state'} eq "published") || |
|
($ENV{'request.state'} eq "uploaded")) { |
if ( defined($ENV{'form.grade_target'} ) |
if ( defined($ENV{'form.grade_target'} ) |
&& ($ENV{'form.grade_target'} eq 'tex')) { |
&& ($ENV{'form.grade_target'} eq 'tex')) { |
return ($ENV{'form.grade_target'}); |
return ($ENV{'form.grade_target'}); |
} elsif ( defined($ENV{'form.grade_target'} ) |
} elsif ( defined($ENV{'form.grade_target'} ) |
&& ($Apache::lonhomework::viewgrades == 'F' )) { |
&& ($Apache::lonhomework::viewgrades eq 'F' )) { |
return ($ENV{'form.grade_target'}); |
return ($ENV{'form.grade_target'}); |
} |
} |
|
|
if ( defined($ENV{'form.submitted'})) { |
if ( defined($ENV{'form.submitted'}) && |
|
( !defined($ENV{'form.resetdata'}))) { |
return ('grade', 'web'); |
return ('grade', 'web'); |
} else { |
} else { |
return ('web'); |
return ('web'); |
Line 150 sub check_access {
|
Line 155 sub check_access {
|
my $temp; |
my $temp; |
my $type; |
my $type; |
my $passed; |
my $passed; |
|
|
|
if ($ENV{'request.state'} eq "construct") { |
|
&Apache::lonxml::debug("in construction ignoring dates"); |
|
$status='CAN_ANSWER'; |
|
$datemsg='is in under construction'; |
|
return ($status,$datemsg); |
|
} |
|
|
&Apache::lonxml::debug("checking for part :$id:"); |
&Apache::lonxml::debug("checking for part :$id:"); |
&Apache::lonxml::debug("time:".time); |
&Apache::lonxml::debug("time:".time); |
foreach $temp ("opendate","duedate","answerdate") { |
foreach $temp ("opendate","duedate","answerdate") { |
Line 196 sub check_access {
|
Line 209 sub check_access {
|
$datemsg = "was due on $lastdate, and answers will be available on $date"; |
$datemsg = "was due on $lastdate, and answers will be available on $date"; |
} |
} |
if ($status eq 'CAN_ANSWER') { |
if ($status eq 'CAN_ANSWER') { |
#check #tries |
#check #tries, and if correct. |
my $tries = $Apache::lonhomework::history{"resource.$id.tries"}; |
my $tries = $Apache::lonhomework::history{"resource.$id.tries"}; |
my $maxtries = &Apache::lonnet::EXT("resource.$id.maxtries"); |
my $maxtries = &Apache::lonnet::EXT("resource.$id.maxtries"); |
if ( $tries eq '' ) { $tries = '0'; } |
if ( $tries eq '' ) { $tries = '0'; } |
if ( $maxtries eq '' ) { $maxtries = '2'; } |
if ( $maxtries eq '' ) { $maxtries = '2'; } |
if ($tries >= $maxtries) { $status = 'CANNOT_ANSWER'; } |
if ($tries >= $maxtries) { $status = 'CANNOT_ANSWER'; } |
|
if($Apache::lonhomework::history{"resource.$id.solved"}=~/^correct/ |
|
&& lc($Apache::lonhomework::problemstatus) ne 'no') { |
|
$status = 'CANNOT_ANSWER'; |
|
} |
} |
} |
|
|
if (($status ne 'CLOSED') && ($Apache::lonhomework::type eq 'exam') && |
if (($status ne 'CLOSED') && ($Apache::lonhomework::type eq 'exam') && |
Line 216 sub check_access {
|
Line 233 sub check_access {
|
$status='CAN_ANSWER'; |
$status='CAN_ANSWER'; |
$datemsg='is closed but you are allowed to view it'; |
$datemsg='is closed but you are allowed to view it'; |
} |
} |
if ($ENV{'request.state'} eq "construct") { |
|
&Apache::lonxml::debug("in construction ignoring dates"); |
|
$status='CAN_ANSWER'; |
|
$datemsg='is in under construction'; |
|
} |
|
return ($status,$datemsg); |
return ($status,$datemsg); |
} |
} |
|
|
Line 230 sub showhash {
|
Line 243 sub showhash {
|
return ''; |
return ''; |
} |
} |
|
|
|
sub showarray { |
|
my ($array)=@_; |
|
my $string="("; |
|
foreach my $elm (@{ $array }) { |
|
if (ref($elm)) { |
|
if ($elm =~ /ARRAY/ ) { |
|
$string.=&showarray($elm); |
|
} |
|
} else { |
|
$string.="$elm," |
|
} |
|
} |
|
chop($string); |
|
$string.=")"; |
|
return $string; |
|
} |
|
|
sub showhashsubset { |
sub showhashsubset { |
my ($hash,$keyre) = @_; |
my ($hash,$keyre) = @_; |
my $resultkey; |
my $resultkey; |
Line 237 sub showhashsubset {
|
Line 267 sub showhashsubset {
|
if ($resultkey =~ /$keyre/) { |
if ($resultkey =~ /$keyre/) { |
if (ref($$hash{$resultkey})) { |
if (ref($$hash{$resultkey})) { |
if ($$hash{$resultkey} =~ /ARRAY/ ) { |
if ($$hash{$resultkey} =~ /ARRAY/ ) { |
my $string="$resultkey ---- ("; |
&Apache::lonxml::debug("$resultkey ---- ". |
foreach my $elm (@{ $$hash{$resultkey} }) { |
&showarray($$hash{$resultkey})); |
$string.="$elm,"; |
} elsif ($$hash{$resultkey} =~ /HASH/ ) { |
} |
&Apache::lonxml::debug("$resultkey ---- $$hash{$resultkey}"); |
chop($string); |
&showhashsubset($$hash{$resultkey},'.'); |
&Apache::lonxml::debug("$string)"); |
|
} else { |
} else { |
&Apache::lonxml::debug("$resultkey ---- $$hash{$resultkey}"); |
&Apache::lonxml::debug("$resultkey ---- $$hash{$resultkey}"); |
} |
} |
} else { |
} else { |
&Apache::lonxml::debug("$resultkey ---- $$hash{$resultkey}"); |
&Apache::lonxml::debug("$resultkey ---- $$hash{$resultkey}"); |
Line 257 sub showhashsubset {
|
Line 286 sub showhashsubset {
|
|
|
sub setuppermissions { |
sub setuppermissions { |
$Apache::lonhomework::browse= &Apache::lonnet::allowed('bre',$ENV{'request.filename'}); |
$Apache::lonhomework::browse= &Apache::lonnet::allowed('bre',$ENV{'request.filename'}); |
$Apache::lonhomework::viewgrades=&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'}); |
my $viewgrades = &Apache::lonnet::allowed('vgr',$ENV{'request.course.id'}); |
|
if (! $viewgrades && |
|
exists($ENV{'request.course.sec'}) && |
|
$ENV{'request.course.sec'} !~ /^\s*$/) { |
|
$viewgrades = &Apache::lonnet::allowed('vgr',$ENV{'request.course.id'}. |
|
'/'.$ENV{'request.course.sec'}); |
|
} |
|
$Apache::lonhomework::viewgrades = $viewgrades; |
return '' |
return '' |
} |
} |
|
|
sub setupheader { |
sub setupheader { |
my $request=$_[0]; |
my $request=$_[0]; |
if ($ENV{'browser.mathml'}) { |
if ($ENV{'browser.mathml'}) { |
$request->content_type('text/xml'); |
$request->content_type('text/xml'); |
} else { |
} else { |
$request->content_type('text/html'); |
$request->content_type('text/html'); |
} |
} |
if (!$Apache::lonxml::debug && ($ENV{'REQUEST_METHOD'} eq 'GET')) { |
$request->content_encoding('UTF-8'); |
&Apache::loncommon::no_cache($request); |
if (!$Apache::lonxml::debug && ($ENV{'REQUEST_METHOD'} eq 'GET')) { |
} |
&Apache::loncommon::no_cache($request); |
$request->send_http_header; |
} |
return OK if $request->header_only; |
$request->send_http_header; |
return '' |
return OK if $request->header_only; |
|
return '' |
} |
} |
|
|
sub handle_save_or_undo { |
sub handle_save_or_undo { |
Line 317 sub handle_save_or_undo {
|
Line 354 sub handle_save_or_undo {
|
|
|
sub analyze_header { |
sub analyze_header { |
my ($request) = @_; |
my ($request) = @_; |
my $result.='<html><body bgcolor="#FFFFFF"> |
my $result.='<html> |
|
<head><title>Analyzing a problem</title></head> |
|
<body bgcolor="#FFFFFF"> |
<form name="lonhomework" method="POST" action="'. |
<form name="lonhomework" method="POST" action="'. |
$ENV{'request.uri'}.'"> |
$ENV{'request.uri'}.'"> |
<input type="submit" name="problemmode" value="EditXML" /> |
<input type="submit" name="problemmode" value="EditXML" /> |
Line 331 sub analyze_header {
|
Line 370 sub analyze_header {
|
$request->rflush(); |
$request->rflush(); |
} |
} |
|
|
|
sub analyze_footer { |
|
my ($request) = @_; |
|
my $result='</body></html>'; |
|
$request->print($result); |
|
$request->rflush(); |
|
} |
|
|
sub analyze { |
sub analyze { |
my ($request,$file) = @_; |
my ($request,$file) = @_; |
&Apache::lonxml::debug("Analyze"); |
&Apache::lonxml::debug("Analyze"); |
Line 339 sub analyze {
|
Line 385 sub analyze {
|
my %allparts; |
my %allparts; |
my $rndseed=$ENV{'form.rndseed'}; |
my $rndseed=$ENV{'form.rndseed'}; |
&analyze_header($request); |
&analyze_header($request); |
|
my %prog_state= |
|
&Apache::lonhtmlcommon::Create_PrgWin($request,'Analyze Progress', |
|
'Getting Problem Variants', |
|
$ENV{'form.numtoanalyze'}); |
for(my $i=1;$i<$ENV{'form.numtoanalyze'}+1;$i++) { |
for(my $i=1;$i<$ENV{'form.numtoanalyze'}+1;$i++) { |
|
&Apache::lonhtmlcommon::Increment_PrgWin($request,\%prog_state, |
|
'last problem'); |
my $subresult=&Apache::lonnet::ssi($request->uri, |
my $subresult=&Apache::lonnet::ssi($request->uri, |
('grade_target' => 'analyze'), |
('grade_target' => 'analyze'), |
('rndseed' => $i)); |
('rndseed' => $i)); |
&Apache::lonxml::debug(":$subresult:"); |
&Apache::lonxml::debug(":$subresult:"); |
(my $garbage,$subresult)=split(/_HASH_REF__/,$subresult,2); |
(my $garbage,$subresult)=split(/_HASH_REF__/,$subresult,2); |
my %analyze=&Apache::lonnet::str2hash($subresult); |
my %analyze=&Apache::lonnet::str2hash($subresult); |
&Apache::lonhomework::showhash(%analyze); |
my @parts; |
my @parts = @{ $analyze{'parts'} }; |
if (defined(@{ $analyze{'parts'} })) { |
|
@parts=@{ $analyze{'parts'} }; |
|
} |
foreach my $part (@parts) { |
foreach my $part (@parts) { |
if (!exists($allparts{$part})) {$allparts{$part}=1;}; |
if (!exists($allparts{$part})) {$allparts{$part}=1;}; |
if ($analyze{$part.'.type'} eq 'numericalresponse') { |
if ($analyze{$part.'.type'} eq 'numericalresponse' || |
|
$analyze{$part.'.type'} eq 'stringresponse' || |
|
$analyze{$part.'.type'} eq 'formularesponse' ) { |
push( @{ $overall{$part.'.answer'} }, |
push( @{ $overall{$part.'.answer'} }, |
[@{ $analyze{$part.'.answer'} }]); |
[@{ $analyze{$part.'.answer'} }]); |
} |
} |
} |
} |
} |
} |
|
&Apache::lonhtmlcommon::Update_PrgWin($request,\%prog_state, |
|
'Analyzing Results'); |
foreach my $part (keys(%allparts)) { |
foreach my $part (keys(%allparts)) { |
$request->print('<table><tr><td>Part '.$part.'</td></tr>'); |
if (defined(@{ $overall{$part.'.answer'} })) { |
foreach my $answer (sort {$a->[0] <=> $b->[0]} (@{ $overall{$part.'.answer'} })) { |
$request->print('<table><tr><td>Part '.$part.'</td></tr>'); |
$request->print('<tr><td>'.join('</td><td>',@{ $answer }). |
foreach my $answer (sort {$a->[0] <=> $b->[0]} (@{ $overall{$part.'.answer'} })) { |
'</td></tr>'); |
$request->print('<tr><td>'.join('</td><td>',@{ $answer }). |
|
'</td></tr>'); |
|
} |
|
$request->print('</table>'); |
|
} else { |
|
$request->print('<p>Part '.$part. |
|
' is not analyzabale at this time</p>'); |
} |
} |
} |
} |
|
&Apache::lonhtmlcommon::Close_PrgWin($request,\%prog_state); |
|
&analyze_footer($request); |
&Apache::lonhomework::showhash(%overall); |
&Apache::lonhomework::showhash(%overall); |
return $result; |
return $result; |
} |
} |
Line 371 sub editxmlmode {
|
Line 437 sub editxmlmode {
|
my ($request,$file) = @_; |
my ($request,$file) = @_; |
my $result; |
my $result; |
my $problem=&Apache::lonnet::getfile($file); |
my $problem=&Apache::lonnet::getfile($file); |
if ($problem == -1) { |
if ($problem eq -1) { |
&Apache::lonxml::error("<b> Unable to find <i>$file</i></b>"); |
&Apache::lonxml::error("<b> Unable to find <i>$file</i></b>"); |
$problem=''; |
$problem=''; |
} |
} |
Line 387 sub editxmlmode {
|
Line 453 sub editxmlmode {
|
&renderpage($request,$file); |
&renderpage($request,$file); |
} else { |
} else { |
my ($rows,$cols) = &Apache::edit::textarea_sizes(\$problem); |
my ($rows,$cols) = &Apache::edit::textarea_sizes(\$problem); |
my $xml_help = Apache::loncommon::help_open_topic("Problem_Editor_XML_Index"); |
my $xml_help = '<table><tr><td>'. |
|
&Apache::loncommon::help_open_topic("Problem_Editor_XML_Index",'Problem Editing Help') |
|
.'</td><td>'. |
|
&Apache::loncommon::help_open_topic("Greek_Symbols",'Greek Symbols', |
|
undef,undef,600) |
|
.'</td><td>'. |
|
&Apache::loncommon::help_open_topic("Other_Symbols",'Other Symbols', |
|
undef,undef,600) |
|
.'</td></tr></table>'; |
if ($cols > 80) { $cols = 80; } |
if ($cols > 80) { $cols = 80; } |
if ($cols < 70) { $cols = 70; } |
if ($cols < 70) { $cols = 70; } |
if ($rows < 20) { $rows = 20; } |
if ($rows < 20) { $rows = 20; } |
Line 402 sub editxmlmode {
|
Line 476 sub editxmlmode {
|
<input type="submit" name="submit" value="Submit Changes and View" /> |
<input type="submit" name="submit" value="Submit Changes and View" /> |
<input type="submit" name="Undo" value="undo" /> |
<input type="submit" name="Undo" value="undo" /> |
<hr /> |
<hr /> |
' . $xml_help . ' Problem Help<br> |
' . $xml_help . ' |
<textarea rows="'.$rows.'" cols="'.$cols.'" name="editxmltext">'. |
<textarea rows="'.$rows.'" cols="'.$cols.'" name="editxmltext">'. |
&HTML::Entities::encode($problem).'</textarea> |
&HTML::Entities::encode($problem).'</textarea> |
</form></body></html>'; |
</form></body></html>'; |
Line 419 sub renderpage {
|
Line 493 sub renderpage {
|
foreach my $target (@targets) { |
foreach my $target (@targets) { |
#my $t0 = [&gettimeofday()]; |
#my $t0 = [&gettimeofday()]; |
my $problem=&Apache::lonnet::getfile($file); |
my $problem=&Apache::lonnet::getfile($file); |
if ($problem == -1) { |
if ($problem eq -1) { |
&Apache::lonxml::error("<b> Unable to find <i>$file</i></b>"); |
&Apache::lonxml::error("<b> Unable to find <i>$file</i></b>"); |
$problem=''; |
$problem=''; |
} |
} |
|
|
my %mystyle; |
my %mystyle; |
my $result = ''; |
my $result = ''; |
&Apache::inputtags::initialize_inputtags(); |
if ($target eq 'analyze') { %Apache::lonhomework::analyze=(); } |
&Apache::outputtags::initialize_outputtags(); |
|
&Apache::edit::initialize_edit(); |
|
if ($target eq 'analyze') { %Apache::lonhomework::anaylze=(); } |
|
if ($target eq 'answer') { &showhash(%Apache::lonhomework::history); } |
if ($target eq 'answer') { &showhash(%Apache::lonhomework::history); } |
if ($target eq 'web') {&Apache::lonhomework::showhashsubset(\%ENV,'^form');} |
if ($target eq 'web') {&Apache::lonhomework::showhashsubset(\%ENV,'^form');} |
|
|
&Apache::lonxml::debug("Should be parsing now"); |
&Apache::lonxml::debug("Should be parsing now"); |
$result = &Apache::lonxml::xmlparse($request, $target, $problem, |
$result = &Apache::lonxml::xmlparse($request, $target, $problem, |
&setup_vars($target),%mystyle); |
&setup_vars($target),%mystyle); |
|
undef($Apache::lonhomework::parsing_a_problem); |
#$request->print("Result follows:"); |
#$request->print("Result follows:"); |
if ($target eq 'modified') { |
if ($target eq 'modified') { |
&handle_save_or_undo($request,\$problem,\$result); |
&handle_save_or_undo($request,\$problem,\$result); |
Line 451 sub renderpage {
|
Line 522 sub renderpage {
|
#$result.="<br />Spent $td seconds processing target $target\n</body>"; |
#$result.="<br />Spent $td seconds processing target $target\n</body>"; |
#} |
#} |
$request->print($result); |
$request->print($result); |
|
$request->rflush(); |
} |
} |
#$request->print(":Result ends"); |
#$request->print(":Result ends"); |
#my $td=&tv_interval($t0); |
#my $td=&tv_interval($t0); |
Line 474 sub get_template_list {
|
Line 546 sub get_template_list {
|
} |
} |
} |
} |
if (@allnames && !$result) { |
if (@allnames && !$result) { |
$result="<option>Select a $extension type</option>\n<option>". |
$result="<option>Select a $extension template</option>\n<option>". |
join('</option><option>',sort(@allnames)).'</option>'; |
join('</option><option>',sort(@allnames)).'</option>'; |
} |
} |
return $result; |
return $result; |
} |
} |
Line 486 sub newproblem {
|
Line 558 sub newproblem {
|
$extension=~s:^.*\.([\w]+)$:$1:; |
$extension=~s:^.*\.([\w]+)$:$1:; |
&Apache::lonxml::debug("Looking for :$extension:"); |
&Apache::lonxml::debug("Looking for :$extension:"); |
if ($ENV{'form.template'} && |
if ($ENV{'form.template'} && |
$ENV{'form.template'} ne "Select a $extension type") { |
$ENV{'form.template'} ne "Select a $extension template") { |
use File::Copy; |
use File::Copy; |
my $file = &get_template_list($ENV{'form.template'},$extension); |
my $file = &get_template_list($ENV{'form.template'},$extension); |
my $dest = &Apache::lonnet::filelocation("",$request->uri); |
my $dest = &Apache::lonnet::filelocation("",$request->uri); |
copy($file,$dest); |
copy($file,$dest); |
&renderpage($request,$dest); |
&renderpage($request,$dest); |
} elsif($ENV{'form.newfile'}) { |
|
# I don't like hard-coded filenames but for now, this will work. |
|
use File::Copy; |
|
my $templatefilename = |
|
$request->dir_config('lonIncludes').'/templates/blank.problem'; |
|
&Apache::lonxml::debug("$templatefilename"); |
|
my $dest = &Apache::lonnet::filelocation("",$request->uri); |
|
copy($templatefilename,$dest); |
|
&renderpage($request,$dest); |
|
} else { |
} else { |
my $templatelist=&get_template_list('',$extension); |
my $templatelist=&get_template_list('',$extension); |
my $url=$request->uri; |
my $url=$request->uri; |
my $dest = &Apache::lonnet::filelocation("",$request->uri); |
my $dest = &Apache::lonnet::filelocation("",$request->uri); |
|
my $errormsg; |
|
if ($ENV{'form.newfile'}) { |
|
$errormsg='<p><font color="red">You did not select a template.</font></p>'."\n"; |
|
} |
my $instructions; |
my $instructions; |
if ($templatelist) { $instructions=", select a template from the pull-down menu below. Then";} |
if ($templatelist) { $instructions=", select a template from the pull-down menu below.<br />Then";} |
$request->print(<<ENDNEWPROBLEM); |
$request->print(<<ENDNEWPROBLEM); |
<body bgcolor="#FFFFFF"> |
<body bgcolor="#FFFFFF"> |
The requested file $url doesn\'t exist. <br /> |
<h1>Creating a new $extension resource</h1> |
To create a new $extension$instructions click on the Create $extension button. |
$errormsg |
<form action="$url" method="POST"> |
The requested file <tt>$url</tt> currently does not exist. |
|
<p> |
|
<b>To create a new $extension$instructions click on the "Create $extension" button.</b> |
|
</p> |
|
<p><form action="$url" method="POST"> |
ENDNEWPROBLEM |
ENDNEWPROBLEM |
if (defined($templatelist)) { |
if (defined($templatelist)) { |
$request->print("<select name=\"template\">$templatelist</select>"); |
$request->print("<select name=\"template\">$templatelist</select>"); |
} |
} |
$request->print("<br /><input type=\"submit\" name=\"newfile\" value=\"Create $extension\" />"); |
$request->print("<br /><input type=\"submit\" name=\"newfile\" value=\"Create $extension\" />"); |
$request->print("</form></body>"); |
$request->print("</form></p></body>"); |
} |
} |
return ''; |
return ''; |
} |
} |
Line 539 sub handler {
|
Line 610 sub handler {
|
#my $t0 = [&gettimeofday()]; |
#my $t0 = [&gettimeofday()]; |
my $request=$_[0]; |
my $request=$_[0]; |
|
|
# if ( $ENV{'user.name'} eq 'albertel' ) {$Apache::lonxml::debug=1;} |
|
$Apache::lonxml::debug=$ENV{'user.debug'}; |
$Apache::lonxml::debug=$ENV{'user.debug'}; |
|
|
if (&setupheader($request)) { return OK; } |
if (&setupheader($request)) { return OK; } |
Line 571 sub handler {
|
Line 641 sub handler {
|
} |
} |
} |
} |
|
|
|
my ($symb) = &Apache::lonxml::whichuser(); |
|
&Apache::lonxml::debug('symb is '.$symb); |
|
if ($ENV{'request.state'} eq "construct" || $symb eq '') { |
|
if ($ENV{'form.resetdata'} eq 'Reset Submissions' || |
|
$ENV{'form.resetdata'} eq 'New Problem Variation' ) { |
|
my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser(); |
|
&Apache::lonnet::tmpreset($symb,'',$domain,$name); |
|
} |
|
} |
if ($ENV{'request.state'} eq "construct") { |
if ($ENV{'request.state'} eq "construct") { |
if ($ENV{'form.resetdata'} eq 'Reset Submissions') { |
|
my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser(); |
|
&Apache::lonnet::tmpreset($symb,'',$domain,$name); |
|
} |
|
if ( -e $file ) { |
if ( -e $file ) { |
if (!(defined $ENV{'form.problemmode'})) { |
if (!(defined $ENV{'form.problemmode'})) { |
#first visit to problem in construction space |
#first visit to problem in construction space |