--- loncom/homework/lonsimpleproblemedit.pm 2003/09/09 19:39:04 1.5 +++ loncom/homework/lonsimpleproblemedit.pm 2004/11/30 23:28:57 1.12 @@ -1,7 +1,7 @@ # The LearningOnline Network # Simple Problem Parameter Setting "Editor" # -# $Id: lonsimpleproblemedit.pm,v 1.5 2003/09/09 19:39:04 www Exp $ +# $Id: lonsimpleproblemedit.pm,v 1.12 2004/11/30 23:28:57 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -32,6 +32,7 @@ use strict; use Apache::Constants qw(:common :http); use Apache::loncommon; use Apache::lonnet; +use Apache::lonlocal; my %qparms; my $prefix; @@ -49,29 +50,21 @@ sub evaloptionhash { } sub rawrendering { - my ($request,$uri)=@_; - my $problem=&Apache::lonnet::getfile - (&Apache::lonnet::filelocation('',$uri)); - &Apache::lonnet::devalidatecourseresdata( - $ENV{'course.'.$ENV{'request.course.id'}.'.num'}, - $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}); - 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); - $ENV{'user.name'}=$uname; - $ENV{'user.domain'}=$udom; - $result=~s/^.*\]*\>//si; - $result=~s/\<\/body[^\>]*\>.*$//si; - return $result; + my ($symb)=@_; + my %data=('show_errors'=>'on', + 'simple_edit_button' => 'off', + 'devalidatecourseresdata'=>'on'); + return &Apache::loncommon::get_student_view($symb,time,time, + $ENV{'request.course.id'}, + 'web',\%data); } sub questiontext { my $text=$qparms{$prefix.'questiontext'}; + my $qt=&mt('Question Text'); return (< -Question Text
+$qt
@@ -81,9 +74,10 @@ ENDQUESTION sub hint { my $text=$qparms{$prefix.'hinttext'}; + my $ht=&mt('Hint Text'); return (< -Hint Text
+$ht
@@ -116,11 +110,16 @@ sub foil { my $selectposition=&Apache::loncommon::select_form ($position,'position'.$number,%positions); my $text=$qparms{$prefix.'text'.$number}; + my %lt=&Apache::lonlocal::texthash('foil' => 'Foil', + 'value' => 'Value', + 'pos' => 'Position', + 'text' => 'Text'); + return (< -Foil -Value: $selectvaluePosition: $selectposition -Text:
+$lt{'foil'} +$lt{'value'}: $selectvalue$lt{'pos'}: $selectposition +$lt{'text'}:
@@ -132,7 +131,7 @@ sub handler { my $r = shift; if ($r->header_only) { - $r->content_type('text/html'); + &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; return OK; } @@ -142,7 +141,7 @@ sub handler { return HTTP_NOT_ACCEPTABLE; } # ----------------------------------------------------------------- Send header - $r->content_type('text/html'); + &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; # ----------------------------------------------------- Figure out where we are my $uri=$r->uri; @@ -167,6 +166,7 @@ sub handler { } $ENV{'form.options'}="('".join("','",keys %curoptions)."')"; } + $ENV{'form.hiddenparts'}='!'.$ENV{'form.questiontype'}; foreach (keys %ENV) { if ($_=~/^form\.(\w+)$/) { my $parm=$1; @@ -197,8 +197,11 @@ ENDDOCUMENT $r->print(&Apache::loncommon::bodytag('Simple Problem Editor')); if ($symb) { $r->print('

'.&Apache::lonnet::gettitle($symb).'

'); + $r->print('
'. + ''.&mt('Student View').' - '.&mt('Note: it can take up to 10 minutes for changes to take effect for all users.'). + &Apache::loncommon::help_open_topic('Caching').'
'); $r->print('
'. - &rawrendering($r,$uri). + &rawrendering($symb). '

'); $r->print('
'); # Question Type @@ -210,9 +213,11 @@ ENDDOCUMENT $qtype=$qparms{$prefix.'questiontype'}; unless (defined($qtype)) { $qtype='radio'; } unless ($questiontypes{$qtype}) { $qtype='radio'; } - $r->print('Question Type: '.&Apache::loncommon::select_form + $r->print(''.&mt('Question Type'). + ': '.&Apache::loncommon::select_form ($qtype,'questiontype',%questiontypes). -'

 

'); + '

 

'); # Question Text $r->print(&questiontext()); # Radio, Option === @@ -229,7 +234,8 @@ ENDDOCUMENT unless ($randomizes{$randomize}) { $randomize='yes'; } $r->print( ''. - '
Max number of foils displayed:   '. + '
'.&mt('Max number of foils displayed'). +':   '. &Apache::loncommon::select_form ($randomize,'randomize',%randomizes). '
'); @@ -241,8 +247,9 @@ ENDDOCUMENT $r->print( ''. '
Add new option: '. - 'Delete an option: '. + $options.'" />'.&mt('Add new option').': '. + ''. + &mt('Delete an option').': '. &Apache::loncommon::select_form('','delopt',('' => '',%optionshash)). '
'); } @@ -272,7 +279,7 @@ ENDDOCUMENT unless ($stringtypes{$stringtype}) { $stringtype='cs'; } $r->print( ''. - '
Correct answer:   '. + '
'.&mt('Correct answer').':   '. &Apache::loncommon::select_form ($stringtype,'stringtype',%stringtypes). '

'); @@ -281,9 +288,9 @@ ENDDOCUMENT } # Store Button $r->print( - ''); + ''); } else { - $r->print('Could not identify problem.'); + $r->print(&mt('Could not identify problem.')); } $r->print(''); return OK;