--- loncom/homework/structuretags.pm 2004/02/06 22:38:24 1.227.2.2 +++ loncom/homework/structuretags.pm 2004/02/02 17:28:53 1.231 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: structuretags.pm,v 1.227.2.2 2004/02/06 22:38:24 albertel Exp $ +# $Id: structuretags.pm,v 1.231 2004/02/02 17:28:53 sakharuk Exp $ # # Copyright Michigan State University Board of Trustees # @@ -37,6 +37,7 @@ use Apache::lonnet; use Apache::File(); use Apache::lonmenu; use Apache::lonlocal; +use Apache::lonxml; BEGIN { &Apache::lonxml::register('Apache::structuretags',('block','languageblock','instructorcomment','while','randomlist','problem','library','web','tex','part','preduedate','postanswerdate','solved','notsolved','startouttext','endouttext', @@ -186,8 +187,12 @@ sub problem_edit_header {
-

 

- '; +
'. + &Apache::loncommon::help_open_topic('Problem_Editor_XML_Index', + 'Problem Editing Help').''. + &Apache::loncommon::help_open_faq(5). + &Apache::loncommon::help_open_bug('Authoring').'
'. + '
'; } sub problem_edit_footer { @@ -208,8 +213,9 @@ sub problem_web_to_edit_header { onChange="javascript:document.lonhomework.changerandseed.click()" /> '; + $result.= ' />'.&mt(' Show All Foils'). + &Apache::loncommon::help_open_topic('Problem_Editor_Testing_Area','Testing Problems'). + '
'; my $numtoanalyze=$ENV{'form.numtoanalyze'}; if (!$numtoanalyze) { $numtoanalyze=20; } $result.= ''.$filename); print $temp_file "$duedate\n"; @@ -517,7 +523,7 @@ sub end_problem { if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || $target eq 'tex') { if ( $target eq 'grade' && $Apache::inputtags::part eq '0' && - ($status eq 'CAN_ANSWER' || $Apache::lonhomework::scantronmode)) { + $status eq 'CAN_ANSWER' ) { # if part is zero, no s existed, so we need to the grading &Apache::inputtags::grade; } elsif ( ($target eq 'web' || $target eq 'tex') && @@ -1009,9 +1015,7 @@ sub end_part { my $result=''; if ( $target eq 'meta' ) { $result=''; - } elsif ($target eq 'grade' && - ($status eq 'CAN_ANSWER' || $Apache::lonhomework::scantronmode) && - !$hidden) { + } elsif ( $target eq 'grade' && $status eq 'CAN_ANSWER' && !$hidden) { $result=&Apache::inputtags::grade; } elsif (($target eq 'web' || $target eq 'tex') && !$hidden ) { my $gradestatus=&Apache::inputtags::gradestatus($Apache::inputtags::part,