--- loncom/homework/lonhomework.pm 2011/10/06 12:32:52 1.317.4.4 +++ loncom/homework/lonhomework.pm 2010/11/01 16:19:49 1.322 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Homework handler # -# $Id: lonhomework.pm,v 1.317.4.4 2011/10/06 12:32:52 raeburn Exp $ +# $Id: lonhomework.pm,v 1.322 2010/11/01 16:19:49 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -112,7 +112,7 @@ sub get_target { } elsif ( $env{'form.grade_target'} eq 'webgrade' && ($Apache::lonhomework::queuegrade eq 'F' )) { return ($env{'form.grade_target'}); - } elsif ($env{'form.grade_target'} eq 'answer') { + } elsif ($env{'form.grade_target'} eq 'answer') { if ($env{'form.answer_output_mode'} eq 'tex') { return ($env{'form.grade_target'}); } @@ -129,46 +129,43 @@ sub get_target { return ('web'); } } elsif ($env{'request.state'} eq "construct") { -# -# We are in construction space, editing and testing problems -# if ( defined($env{'form.grade_target'}) ) { return ($env{'form.grade_target'}); } if ( defined($env{'form.preview'})) { if ( defined($env{'form.submitted'})) { -# -# We are doing a problem preview -# return ('grade', 'web'); } else { return ('web'); } } else { if ($env{'form.problemstate'} eq 'WEB_GRADE') { - return ('grade','webgrade','answer'); - } elsif ($env{'form.problemmode'} eq 'view') { - return ('grade','web','answer'); - } elsif ($env{'form.problemmode'} eq 'saveview') { - return ('modified','web','answer'); - } elsif ($env{'form.problemmode'} eq 'discard') { - return ('web','answer'); - } elsif (($env{'form.problemmode'} eq 'saveedit') || - ($env{'form.problemmode'} eq 'undo')) { - return ('modified','no_output_web','edit'); - } elsif ($env{'form.problemmode'} eq 'edit') { - return ('no_output_web','edit'); - } else { - return ('web'); - } + #$env{'form.webgrade'} = 'yes'; + return ('grade','webgrade','answer'); + } elsif (($env{'form.problemmode'} eq 'view') || + ($env{'form.problemmode'} eq 'discard')) { + if ( defined($env{'form.submitted'}) && + (!defined($env{'form.resetdata'})) && + (!defined($env{'form.newrandomization'}))) { + return ('grade', 'web','answer'); + } else { + return ('web','answer'); + } + } elsif ($env{'form.problemmode'} eq 'edit') { + if ( $env{'form.submitted'} eq 'edit' ) { + if ( $env{'form.submitbutton'} eq &mt('Save and View') ) { + return ('modified','web','answer'); + } else { + return ('modified','no_output_web','edit'); + } + } else { + return ('no_output_web','edit'); + } + } else { + return ('web'); + } } -# -# End of Construction Space -# } -# -# Huh? We are nowhere, so do nothing. -# return (); } @@ -178,16 +175,6 @@ sub setup_vars { # return ';$external::target='.$target.';'; } -sub createmenu { - my ($which,$request)=@_; - if ($which eq 'grade') { - $request->print(''); - } -} - sub proctor_checked_in { my ($slot_name,$slot,$type)=@_; my @possible_proctors=split(",",$slot->{'proctor'}); @@ -386,7 +373,7 @@ sub check_access { $date=&mt("can not be accessed from your location."); return($status,$date); } - + foreach my $temp ("opendate","duedate","answerdate") { $lastdate = $date; if ($temp eq 'duedate') { @@ -641,12 +628,11 @@ sub setupheader { sub handle_save_or_undo { my ($request,$problem,$result) = @_; - my $file = &Apache::lonnet::filelocation("",$request->uri); my $filebak =$file.".bak"; my $filetmp =$file.".tmp"; my $error=0; - if (($env{'form.problemmode'} eq 'undo') || ($env{'form.problemmode'} eq 'undoxml')) { + if ($env{'form.Undo'} eq &mt('undo')) { my $error=0; if (!&File::Copy::copy($file,$filetmp)) { $error=1; } if ((!$error) && (!&File::Copy::copy($filebak,$file))) { $error=1; } @@ -669,7 +655,6 @@ sub handle_save_or_undo { } } else { &Apache::lonnet::correct_line_ends($result); - my $fs=Apache::File->new(">$filebak"); if (defined($fs)) { print $fs $$problem; @@ -906,22 +891,20 @@ sub editxmlmode { my $problem=&Apache::lonnet::getfile($file); if ($problem eq -1) { &Apache::lonxml::error( - '
' + ' ' .&mt('Unable to find [_1]', ''.$file.'') - .'
'); + .''); $problem=''; } - if (($env{'form.problemmode'} eq 'saveeditxml') || - ($env{'form.problemmode'} eq 'saveviewxml') || - ($env{'form.problemmode'} eq 'undoxml')) { + if (defined($env{'form.editxmltext'}) || defined($env{'form.Undo'})) { my $error=&handle_save_or_undo($request,\$problem, \$env{'form.editxmltext'}); if (!$error) { $problem=&Apache::lonnet::getfile($file); } } &Apache::lonhomework::showhashsubset(\%env,'^form'); - if ($env{'form.problemmode'} eq 'saveviewxml') { + if ( $env{'form.submitbutton'} eq &mt('Save and View') ) { &Apache::lonhomework::showhashsubset(\%env,'^form'); $env{'form.problemmode'}='view'; &renderpage($request,$file); @@ -935,7 +918,8 @@ sub editxmlmode { &Apache::loncommon::resize_textarea_js(). &Apache::structuretags::setmode_javascript(). &Apache::lonhtmlcommon::dragmath_js("EditMathPopup"); - my $only_body = ($env{'environment.remote'} eq 'off')? 0 : 1; + my $dragmath_button = + &Apache::lonhtmlcommon::dragmath_button("LC_editxmltext",1); # Breadcrumbs my $brcrum = [{'href' => &Apache::loncommon::authorspace(), @@ -946,13 +930,13 @@ sub editxmlmode { my $start_page = &Apache::loncommon::start_page(&mt("EditXML [_1]",$file),$js, {'no_auto_mt_title' => 1, - 'only_body' => $only_body, + 'only_body' => 0, 'add_entries' => { 'onresize' => q[resize_textarea('LC_editxmltext','LC_aftertextarea')], 'onload' => q[resize_textarea('LC_editxmltext','LC_aftertextarea')], }, 'bread_crumbs' => $brcrum, - }); +}); $result=$start_page .&Apache::loncommon::head_subbox( @@ -967,13 +951,25 @@ sub editxmlmode {