Annotation of loncom/homework/structuretags.pm, revision 1.561

1.34      albertel    1: # The LearningOnline Network with CAPA 
                      2: # definition of tags that give a structure to a document
1.74      albertel    3: #
1.561   ! raeburn     4: # $Id: structuretags.pm,v 1.560 2018/05/15 04:59:14 raeburn Exp $
1.74      albertel    5: #
                      6: # Copyright Michigan State University Board of Trustees
                      7: #
                      8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
                      9: #
                     10: # LON-CAPA is free software; you can redistribute it and/or modify
                     11: # it under the terms of the GNU General Public License as published by
                     12: # the Free Software Foundation; either version 2 of the License, or
                     13: # (at your option) any later version.
                     14: #
                     15: # LON-CAPA is distributed in the hope that it will be useful,
                     16: # but WITHOUT ANY WARRANTY; without even the implied warranty of
                     17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
                     18: # GNU General Public License for more details.
                     19: #
                     20: # You should have received a copy of the GNU General Public License
                     21: # along with LON-CAPA; if not, write to the Free Software
                     22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
                     23: #
                     24: # /home/httpd/html/adm/gpl.txt
                     25: #
                     26: # http://www.lon-capa.org/
                     27: #
1.254     www        28: ###
1.54      www        29: 
1.435     jms        30: =pod
                     31: 
                     32: =head1 NAME
                     33: 
                     34: Apache::structuretags
                     35: 
                     36: =head1 SYNOPSIS
                     37: 
                     38: 
                     39: This is part of the LearningOnline Network with CAPA project
                     40: described at http://www.lon-capa.org.
                     41: 
                     42: 
                     43: =head1 NOTABLE SUBROUTINES
                     44: 
                     45: =over
                     46: 
                     47: =item 
                     48: 
                     49: =back
                     50: 
                     51: =cut
                     52: 
1.133     sakharuk   53: 
1.1       albertel   54: package Apache::structuretags; 
                     55: 
                     56: use strict;
                     57: use Apache::lonnet;
1.101     sakharuk   58: use Apache::File();
1.147     www        59: use Apache::lonmenu;
1.210     albertel   60: use Apache::lonlocal;
1.231     sakharuk   61: use Apache::lonxml;
1.434     foxr       62: use Apache::londefdef;
1.338     albertel   63: use Apache::lonenc();
1.500     foxr       64: use Apache::loncommon();
1.267     albertel   65: use Time::HiRes qw( gettimeofday tv_interval );
1.356     www        66: use lib '/home/httpd/lib/perl/';
                     67: use LONCAPA;
                     68:  
1.78      harris41   69: BEGIN {
1.553     damieng    70:     &Apache::lonxml::register('Apache::structuretags',('block','languageblock','translated','instructorcomment','while','randomlist','problem','library','web','print','tex','part','preduedate','postanswerdate','solved','notsolved','problemtype','startpartmarker','startouttext','endpartmarker','endouttext','simpleeditbutton','definetag'));
1.10      albertel   71: }
                     72: 
1.500     foxr       73: 
                     74: #---------------------------------------------------------------------------------
                     75: # 
                     76: #  This section of code deals with hyphenation management.
                     77: #  We must do three things:
                     78: #  - keep track fo the desired languages to alter the header.
                     79: #  - provide hyphenation selection as needed by each language that appears in the
                     80: #    text.
                     81: #  - Provide the header text needed to make available the desired hyphenations.
                     82: #
                     83: #
                     84: 
                     85: # Hash whose keys are the languages encountered in the document/resource.
                     86: #
                     87: 
                     88: my %languages_required;
                     89: ##
                     90: #   Given a language selection as input returns a chunk of LaTeX that
                     91: #   selects the required hyphenator.
                     92: #
                     93: #  @param language - the language being selected.
                     94: #  @return string
                     95: #  @retval The LaTeX needed to select the hyphenation appropriate to the language. 
                     96: #   
                     97: sub select_hyphenation {
                     98:     my $language  = shift;
                     99: 
                    100:     $language = &Apache::loncommon::latexlanguage($language); # Translate -> latex language.
                    101: 
                    102:     # If there is no latex language there's not much we can do:
                    103: 
                    104:     if ($language) {
                    105: 	&require_language($language);
                    106: 	my $babel_hyphenation = "\\selectlanguage{$language}";
                    107: 	
                    108: 	return $babel_hyphenation;
                    109:     } else {
                    110: 	return '';
                    111:     }
                    112: }
                    113: ##
                    114: # Selects hyphenation based on the current problem metadata.
                    115: # This requires that
                    116: # - There is a language metadata item set for the problem.
                    117: # - The language has a latex/babel hyphenation.
                    118: #
                    119: # @note: Uses &Apache::lonxml::request to locate the Uri associated with
                    120: #        this problem.
                    121: # @return string (possibly empty).
                    122: # @retval If not empty an appropriate \selectlanguage{} directive.
                    123: #
                    124: sub select_metadata_hyphenation {
                    125:     my $uri      = $Apache::lonxml::request->uri;
                    126:     my $language = &Apache::lonnet::metadata($uri, 'language'); 
                    127:     my $latex_language = &Apache::loncommon::latexhyphenation($language);
                    128:     if ($latex_language) {
                    129: 	return '\selectlanguage{'.$latex_language."}\n";
                    130:     }
                    131:     return '';			# no latex hyphenation or no lang metadata.
                    132: }
                    133: 
                    134: 
                    135: ##
                    136: #  Clears the set of languages required by the document being rendered.
                    137: #
                    138: sub clear_required_languages {
                    139:     %languages_required = ();
                    140: }
                    141: ##
                    142: # Allows an external client of this module to register a need for a language:
                    143: #
                    144: # @param LaTeX language required:
                    145: #
                    146: sub require_language {
                    147:     my $language = shift;
                    148:     $languages_required{$language} = 1;
                    149: }
                    150: 
                    151: ##
                    152: # Provides the header for babel that indicates the languages
                    153: # the document requires.
                    154: # @return string
                    155: # @retval \usepackage[lang1,lang2...]{babel}
                    156: # @retval ''   if there are no languages_required.
                    157: sub languages_header {
                    158:     my $header    ='';
                    159:     my @languages = (keys(%languages_required));
                    160: 
                    161:     # Only generate the header if there are languages:
                    162: 
                    163:     if (scalar @languages) {
                    164: 	my $language_list = join(',', (@languages));
                    165: 	$header  = '\usepackage['.$language_list."]{babel}\n";
                    166:     }
                    167:     return $header;
                    168: }
                    169: 
                    170: #----------------------------------------------------------------------------------
                    171: 
1.10      albertel  172: sub start_web {
1.326     albertel  173:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.383     albertel  174:     if ($target ne 'edit' && $target ne 'modified') {
                    175: 	my $bodytext=&Apache::lonxml::get_all_text("/web",$parser,$style);
                    176: 	if ($target eq 'web' || $target eq 'webgrade') {
                    177: 	    return $bodytext;
                    178: 	}
                    179:     } elsif ($target eq "edit" ) {
                    180: 	my $bodytext = 
                    181: 	    &Apache::lonxml::get_all_text_unbalanced("/web",$parser);
                    182: 	my $result = &Apache::edit::tag_start($target,$token);
                    183: 	$result .= &Apache::edit::editfield($token->[1],$bodytext,'',80,1);
                    184: 	return $result;
                    185:     } elsif ( $target eq "modified" ) {
                    186: 	return $token->[4].&Apache::edit::modifiedfield("/web",$parser);
1.159     albertel  187:     }
                    188:     return '';
1.10      albertel  189: }
                    190: 
                    191: sub end_web {
1.44      ng        192:     return '';
1.10      albertel  193: }
                    194: 
1.553     damieng   195: sub start_print {
                    196:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
                    197:     if ($target ne 'edit' && $target ne 'modified') {
                    198:         if ($target ne 'tex') {
                    199:             my $skip = &Apache::lonxml::get_all_text("/print",$parser,$style);
                    200:             &Apache::lonxml::debug("skipping ahead :$skip: $$parser[-1]");
                    201:         }
                    202:     } elsif ($target eq "edit") {
                    203:         my $bodytext = &Apache::lonxml::get_all_text_unbalanced("/print",$parser);
                    204:         my $result = &Apache::edit::tag_start($target,$token);
                    205:         $result .= &Apache::edit::editfield($token->[1],$bodytext,'',80,1);
                    206:         return $result;
                    207:     } elsif ($target eq "modified") {
                    208:         return $token->[4].&Apache::edit::modifiedfield("/print",$parser);
                    209:     }
                    210:     return '';
                    211: }
                    212: 
                    213: sub end_print {
                    214:     return '';
                    215: }
                    216: 
1.10      albertel  217: sub start_tex {
1.326     albertel  218:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.198     sakharuk  219:     my $result='';
1.383     albertel  220:     if ($target ne 'edit' && $target ne 'modified') {
                    221: 	my $bodytext=&Apache::lonxml::get_all_text("/tex",$parser,$style);
                    222: 	if ($target eq 'tex') {
1.434     foxr      223: 	    
                    224: 	    # If inside a table, occurrences of \\ must be removed;
                    225: 	    # else the table blows up.
                    226: 
                    227: 	    if (&Apache::londefdef::is_inside_of($tagstack, "table")) {
                    228: 		$bodytext =~ s/\\\\//g;
                    229: 	    }
1.432     foxr      230: 	    return $bodytext.'{}';
1.383     albertel  231: 	}
                    232:     } elsif ($target eq "edit" ) {
                    233: 	my $bodytext = 
                    234: 	    &Apache::lonxml::get_all_text_unbalanced("/tex",$parser);
                    235: 	my $result = &Apache::edit::tag_start($target,$token);
                    236: 	$result .= &Apache::edit::editfield($token->[1],$bodytext,'',80,1);
                    237: 	return $result;
                    238:     } elsif ( $target eq "modified" ) {
                    239: 	return $token->[4].&Apache::edit::modifiedfield("/tex",$parser);
1.159     albertel  240:     }
1.198     sakharuk  241:     return $result;;
1.10      albertel  242: }
                    243: 
                    244: sub end_tex {
1.44      ng        245:     return '';
1.9       albertel  246: }
                    247: 
1.400     albertel  248: sub homework_js {
1.531     raeburn   249:     my ($postsubmit,$timeout);
                    250:     if (($env{'request.course.id'}) && ($env{'request.state'} ne 'construct')) {
1.546     raeburn   251:         my $crstype = &Apache::loncommon::course_type();
                    252:         if ($crstype eq 'Community') {
1.531     raeburn   253:             $crstype = 'community';
1.546     raeburn   254:         } elsif ($crstype eq 'Placement') {
                    255:             $crstype = 'placement'; 
1.531     raeburn   256:         } else {
                    257:             if ($env{'course.'.$env{'request.course.id'}.'.internal.coursecode'}) {
                    258:                 $crstype = 'official';
                    259:             } elsif ($env{'course.'.$env{'request.course.id'}.'.internal.textbook'}) {
                    260:                 $crstype = 'textbook';
                    261:             } else {
                    262:                 $crstype = 'unofficial';
                    263:             }
                    264:         }
                    265:         $postsubmit = $env{'course.'.$env{'request.course.id'}.'.internal.postsubmit'};
                    266:         if ($postsubmit eq '') {
                    267:             my %domdefs = &Apache::lonnet::get_domain_defaults($env{'course.'.$env{'request.course.id'}.'.domain'});
                    268:             $postsubmit = $domdefs{'postsubmit'};
                    269:             unless ($postsubmit eq 'off') {
                    270:                 $timeout = $domdefs{$crstype.'postsubtimeout'};
                    271:             }
                    272:         } elsif ($postsubmit eq '0') {
                    273:             $postsubmit = 'off';
                    274:         } elsif ($postsubmit eq '1') {
                    275:             $postsubmit = 'on';
                    276:             $timeout = $env{'course.'.$env{'request.course.id'}.'.internal.postsubtimeout'};
                    277:             if ($timeout eq '') {
                    278:                 my %domdefs = &Apache::lonnet::get_domain_defaults($env{'course.'.$env{'request.course.id'}.'.domain'});
                    279:                 $timeout = $domdefs{$crstype.'postsubtimeout'};
                    280:             }
                    281:         }
                    282:         if ($timeout eq '') {
                    283:             $timeout = 60;
                    284:         }
                    285:     } else {
                    286:         my %domdefs = &Apache::lonnet::get_domain_defaults($env{'request.role.domain'});
                    287:         $postsubmit = $domdefs{'postsubmit'};
                    288:         unless ($postsubmit eq 'off') {
                    289:             $timeout = 60;
                    290:         }
                    291:     }
                    292:     my $jstimeout = 0;
                    293:     if ($timeout) {
                    294:         $jstimeout = 1000 * $timeout;
                    295:     }
1.400     albertel  296:     return &Apache::loncommon::resize_textarea_js().
1.527     golterma  297:                 &Apache::loncommon::colorfuleditor_js().
1.416     raeburn   298:            &setmode_javascript().
1.531     raeburn   299: 	<<"JS";
1.400     albertel  300: <script type="text/javascript">
1.483     raeburn   301: // <![CDATA[
1.494     raeburn   302: function setSubmittedPart (part,prefix) {
                    303:     if (typeof(prefix) == 'undefined') {
                    304:         this.document.lonhomework.submitted.value="part_"+part;
                    305:     } else {
                    306:         for (var i=0;i<this.document.lonhomework.elements.length;i++) {
                    307:             if (this.document.lonhomework.elements[i].name == prefix+'submitted') {
                    308:                 this.document.lonhomework.elements[i].value="part_"+part;
                    309:             }
                    310:         }
                    311:     }
1.400     albertel  312: }
                    313: 
1.532     raeburn   314: function disableAutoComplete (id) {
                    315:     var field = document.getElementById(id);
                    316:     if (field != null && field != undefined){
                    317:         if ('autocomplete' in field) {
                    318:             field.autocomplete = "off";
                    319:         } else {
                    320:             field.setAttribute("autocomplete", "off");
                    321:         }
                    322:     }
                    323: }
                    324: 
1.400     albertel  325: function image_response_click (which, e) {
                    326:     init_geometry();
                    327:     if (!e) { e = window.event; } //IE
                    328:     var input_element = document.lonhomework.elements[which];
1.401     albertel  329:     var token_element = document.lonhomework.elements[which+'_token'];
1.400     albertel  330:     var token = token_element.value;
1.401     albertel  331:     var img_element   = document.getElementById(which+'_imageresponse');
1.400     albertel  332:     var x= e.clientX-getX(img_element)+Geometry.getHorizontalScroll();
                    333:     var y= e.clientY-getY(img_element)+Geometry.getVerticalScroll();
                    334:     var click = x+':'+y;
                    335:     input_element.value = click;
1.485     raeburn   336:     img_element.src = '/adm/randomlabel.png?token='+token+'&clickdata='+click;
1.400     albertel  337: }
1.520     raeburn   338: 
                    339: var submithandled = 0;
1.521     raeburn   340: var keypresshandled = 0;
1.531     raeburn   341: var postsubmit = '$postsubmit';
1.520     raeburn   342: 
1.531     raeburn   343: \$(document).ready(function(){
                    344:   if (postsubmit != 'off') {    
                    345:     \$(document).keypress(function(event){
1.521     raeburn   346:         var keycode = (event.keyCode ? event.keyCode : event.which);
                    347:         if ((keycode == '13') && (keypresshandled == 0)) {
1.531     raeburn   348:             if ( \$( document.activeElement ).hasClass("LC_textline") ) {
1.521     raeburn   349:                 keypresshandled = 1;
1.531     raeburn   350:                 var idsArray = \$( document.activeElement ).attr("id").split(/HWVAL_/);
1.521     raeburn   351:                 if (idsArray.length) {
                    352:                     event.preventDefault();
                    353:                     var itemsArray = idsArray[1].split(/_/);
                    354:                     var buttonId = idsArray[0]+'submit_'+itemsArray[0];
1.531     raeburn   355:                     \$("#"+buttonId).trigger("click");
1.521     raeburn   356:                 }
                    357:             }
                    358:         }
                    359:     });
                    360: 
1.531     raeburn   361:     \$(document).delegate('form :submit', 'click', function( event ) {
                    362:         if ( \$( this ).hasClass( "LC_hwk_submit" ) ) {
1.520     raeburn   363:             var buttonId = this.id;
1.531     raeburn   364:             var timeout = $jstimeout;
1.520     raeburn   365:             if (submithandled == 0) {
                    366:                 submithandled = 1;
1.531     raeburn   367:                 \$( "#msg_"+buttonId ).css({"display": "inline","background-color": "#87cefa",
1.521     raeburn   368:                                            "color": "black","padding": "2px"}) ;
1.531     raeburn   369:                 if (( \$(this.form).id == "LC_page" ) && (\$('input[name="all_submit"]').length )) {
1.522     raeburn   370:                     if (buttonId != "all_submit") {
1.531     raeburn   371:                         \$( ".LC_status_"+buttonId ).hide();
1.522     raeburn   372:                         if (( "#"+buttonId+"_pressed" ).length) {
1.531     raeburn   373:                             \$( "#"+buttonId+"_pressed" ).val( "1" );
1.522     raeburn   374:                         }
1.520     raeburn   375:                     }
1.522     raeburn   376:                 } else {
1.531     raeburn   377:                     \$( ".LC_status_"+buttonId ).hide();
1.520     raeburn   378:                 }
1.531     raeburn   379:                 \$(this.form).submit();
                    380:                 \$( ".LC_hwk_submit" ).prop( "disabled", true);
                    381:                 \$( ".LC_textline" ).prop( "readonly", "readonly");
1.520     raeburn   382:                 event.preventDefault();
1.531     raeburn   383: 
                    384:                 if (timeout > 0) {
                    385:                     setTimeout(function(){
                    386:                                        \$( "#msg_"+buttonId ).css({"display": "none"});
                    387:                                        if (( \$(this.form).id == "LC_page" ) && (\$('input[name="all_submit"]').length )) {
                    388:                                            if (buttonId != "all_submit") {
                    389:                                                if (( "#"+buttonId+"_pressed" ).length) {
                    390:                                                    \$( "#"+buttonId+"_pressed" ).val( "" );
                    391:                                                }
                    392:                                            }
                    393:                                        }
                    394:                                        \$( ".LC_hwk_submit" ).prop( "disabled", false);
                    395:                                        \$( ".LC_textline" ).prop( "readonly", false);
                    396:                                        submithandled = 0;
                    397:                                        keypresshandled = 0;
                    398:                                      }, timeout);
                    399:                 }
1.520     raeburn   400:                 return true;
                    401:             }
                    402:         }
                    403:     });
1.531     raeburn   404:   }
1.520     raeburn   405: });
                    406: 
1.483     raeburn   407: // ]]>
1.400     albertel  408: </script>
                    409: JS
                    410: }
                    411: 
1.416     raeburn   412: sub setmode_javascript {
                    413:     return <<"ENDSCRIPT";
                    414: <script type="text/javascript">
1.485     raeburn   415: // <![CDATA[
1.416     raeburn   416: function setmode(form,probmode) {
1.554     damieng   417:     var initial = form.problemmode.value;
1.416     raeburn   418:     form.problemmode.value = probmode;
                    419:     form.submit();
1.554     damieng   420:     form.problemmode.value = initial;
1.416     raeburn   421: }
1.485     raeburn   422: // ]]>
1.416     raeburn   423: </script>
                    424: ENDSCRIPT
                    425: }
                    426: 
1.48      albertel  427: sub page_start {
1.345     albertel  428:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$name,
                    429: 	$extra_head)=@_;
1.159     albertel  430:     my %found;
1.207     albertel  431:     foreach my $taginside (@$tagstack) {
1.159     albertel  432: 	foreach my $taglookedfor ('html','body','form') {
                    433: 	    if ($taginside =~ /^$taglookedfor$/i) {$found{$taglookedfor} = 1;}
                    434: 	}
                    435:     }
                    436: 
1.343     albertel  437:     if ($target eq 'tex') {
                    438: 	return
                    439: 	    &Apache::londefdef::start_html($target,$token,$tagstack,
                    440: 					   $parstack,$parser,$safeeval);
                    441:     }
                    442: 
1.474     raeburn   443:     $extra_head .= &homework_js().
                    444:                    &Apache::lonhtmlcommon::dragmath_js("EditMathPopup");
                    445:     if (&Apache::lonhtmlcommon::htmlareabrowser()) {
1.550     raeburn   446:         my %textarea_args;
                    447:         if (($env{'request.state'} ne 'construct') ||
                    448:             ($env{'environment.nocodemirror'})) {
                    449:             %textarea_args = (
1.474     raeburn   450:                                 dragmath => 'math',
                    451:                               );
1.550     raeburn   452:         }
1.474     raeburn   453:         $extra_head .= &Apache::lonhtmlcommon::htmlareaselectactive(\%textarea_args);
1.425     raeburn   454:     }
1.478     raeburn   455:     my $is_task = ($env{'request.uri'} =~ /\.task$/);
1.528     raeburn   456:     my ($needs_upload,$partlist);
1.495     raeburn   457:     my ($symb)= &Apache::lonnet::whichuser();
                    458:     my ($map,$resid,$resurl)=&Apache::lonnet::decode_symb($symb);
1.478     raeburn   459:     if ($is_task) {
1.495     raeburn   460:         $extra_head .= &Apache::lonhtmlcommon::file_submissionchk_js();
1.493     raeburn   461:     } else {
                    462:         if (&Apache::lonnet::EXT("resource.$Apache::inputtags::part.uploadedfiletypes") ne '') {
1.495     raeburn   463:             unless ($env{'request.state'} eq 'construct') {
                    464:                 my $navmap = Apache::lonnavmaps::navmap->new();
                    465:                 if (ref($navmap)) {
                    466:                     my $mapres = $navmap->getResourceByUrl($map);
1.496     raeburn   467:                     my $is_page;
                    468:                     if (ref($mapres)) {
                    469:                         $is_page = $mapres->is_page();
                    470:                     }
                    471:                     unless ($is_page) {
1.495     raeburn   472:                         $needs_upload = 1;
                    473:                     }
1.528     raeburn   474:                     if ((ref($tagstack) eq 'ARRAY') && ($tagstack->[-1] eq 'problem')) {
                    475:                         my $res = $navmap->getBySymb($symb);
                    476:                         if (ref($res)) {
                    477:                             $partlist = $res->parts();
                    478:                         }
                    479:                     }
1.495     raeburn   480:                 }
                    481:             }
1.493     raeburn   482:         } else {
                    483:             unless ($env{'request.state'} eq 'construct') {
                    484:                 my $navmap = Apache::lonnavmaps::navmap->new();
                    485:                 if (ref($navmap)) {
1.495     raeburn   486:                     my $mapres = $navmap->getResourceByUrl($map);
1.496     raeburn   487:                     my $is_page;
                    488:                     if (ref($mapres)) {
                    489:                         $is_page = $mapres->is_page();
                    490:                     }
1.528     raeburn   491:                     if ($is_page) {
                    492:                         if ((ref($tagstack) eq 'ARRAY') && ($tagstack->[-1] eq 'problem')) {
                    493:                             my $res = $navmap->getBySymb($symb);
                    494:                             if (ref($res)) {
                    495:                                 $partlist = $res->parts();
                    496:                             }
                    497:                         }
                    498:                     } else {
1.495     raeburn   499:                         my $res = $navmap->getBySymb($symb);
                    500:                         if (ref($res)) {
1.528     raeburn   501:                             $partlist = $res->parts();
1.495     raeburn   502:                             if (ref($partlist) eq 'ARRAY') {
                    503:                                 foreach my $part (@{$partlist}) {
                    504:                                     my @types = $res->responseType($part);
                    505:                                     my @ids = $res->responseIds($part);
                    506:                                     for (my $i=0; $i < scalar(@ids); $i++) {
                    507:                                         if ($types[$i] eq 'essay') {
                    508:                                             my $partid = $part.'_'.$ids[$i];
                    509:                                             if (&Apache::lonnet::EXT("resource.$partid.uploadedfiletypes") ne '') {
                    510:                                                 $needs_upload = 1;
                    511:                                                 last;
                    512:                                             }
1.493     raeburn   513:                                         }
                    514:                                     }
                    515:                                 }
1.495     raeburn   516:                             } 
                    517:                         }
1.493     raeburn   518:                     }
                    519:                 }
                    520:             }
                    521:         }
1.495     raeburn   522:         if ($needs_upload) {
1.538     musolffc  523:             $extra_head .= &Apache::lonhtmlcommon::file_submissionchk_js()
                    524:                             .'<script type="text/javascript" 
                    525:                                 src="/res/adm/includes/file_upload.js"></script>';
1.495     raeburn   526:         }
1.478     raeburn   527:     }
1.425     raeburn   528: 
1.344     albertel  529:     my %body_args;
                    530:     if (defined($found{'html'})) {
                    531: 	$body_args{'skip_phases'}{'head'}=1;
                    532:     } else {
1.343     albertel  533: 	
1.345     albertel  534: 	$extra_head .= &Apache::lonhtmlcommon::spellheader();
1.343     albertel  535: 
1.379     albertel  536: 	$extra_head .= &Apache::londefdef::generate_css_links();
                    537: 
1.384     albertel  538: 	if ($env{'request.state'} eq 'construct') {
1.343     albertel  539: 	    $extra_head.=&Apache::edit::js_change_detection().
                    540: 		"<script type=\"text/javascript\">\n".
                    541: 		"if (typeof swmenu != 'undefined') {swmenu.currentURL=null;}\n".
                    542: 		&Apache::loncommon::browser_and_searcher_javascript().
                    543:                 "\n</script>\n";
1.525     raeburn   544:             if ($target eq 'edit') {
                    545:                 $extra_head .= &Apache::edit::js_update_linknum();
                    546:             }
1.343     albertel  547: 	}
1.159     albertel  548:     }
1.343     albertel  549: 
1.446     bisitz    550:     my $pageheader = '';
1.344     albertel  551:     if (defined($found{'body'})) {
                    552: 	$body_args{'skip_phases'}{'body'}=1;
                    553:     } elsif (!defined($found{'body'}) 
                    554: 	     && $env{'request.state'} eq 'construct') {
1.343     albertel  555: 	if ($target eq 'web' || $target eq 'edit') {
1.542     raeburn   556:             unless ($env{'form.inhibitmenu'} eq 'yes') {
                    557:                 # Breadcrumbs for Authoring Space
                    558:                 &Apache::lonhtmlcommon::clear_breadcrumbs();
                    559:                 &Apache::lonhtmlcommon::add_breadcrumb({
                    560:                     'text'  => 'Authoring Space',
                    561:                     'href'  => &Apache::loncommon::authorspace($env{'request.uri'}),
                    562:                 });
                    563:                 # breadcrumbs (and tools) will be created 
                    564:                 # in start_page->bodytag->innerregister
1.460     droeschl  565: 
1.450     bisitz    566: # FIXME Where are we?
1.542     raeburn   567: #                &Apache::lonhtmlcommon::add_breadcrumb({
                    568: #                    'text'  => 'Problem Editing', # 'Problem Testing'
                    569: #                    'href'  => '',
                    570: #               });
                    571:                 $pageheader = &Apache::loncommon::head_subbox(
                    572:                                  &Apache::loncommon::CSTR_pageheader());
                    573: 	    }
                    574:         }
1.272     albertel  575:     } elsif (!defined($found{'body'})) {
1.343     albertel  576: 	my %add_entries;
1.159     albertel  577: 	my $background=&Apache::lonxml::get_param('background',$parstack,
                    578: 						  $safeeval);
1.343     albertel  579: 	if ($background ne '' ) {
                    580: 	    $add_entries{'background'} = $background;
                    581: 	}
1.344     albertel  582: 
1.290     albertel  583: 	my $bgcolor=&Apache::lonxml::get_param('bgcolor',$parstack,
                    584: 					       $safeeval);
1.446     bisitz    585:         if ($bgcolor eq '' ) { $bgcolor = '#FFFFFF'; }
1.344     albertel  586: 
1.446     bisitz    587:         $body_args{'bgcolor'}        = $bgcolor;
                    588:         # $body_args{'no_title'}       = 1;
                    589:         $body_args{'force_register'} = 1;
                    590:         $body_args{'add_entries'}    = \%add_entries;
1.466     droeschl  591:         if ( $env{'request.state'} eq   'construct') {
1.446     bisitz    592:             $body_args{'only_body'}  = 1;
1.518     raeburn   593:         } elsif ($target eq 'web') {
                    594:             $body_args{'print_suppress'} = 1;
1.446     bisitz    595:         }
1.344     albertel  596:     }
1.365     albertel  597:     $body_args{'no_auto_mt_title'} = 1;
1.344     albertel  598:     my $page_start = &Apache::loncommon::start_page($name,$extra_head,
                    599: 						    \%body_args);
1.446     bisitz    600:     $page_start .= $pageheader;
1.462     raeburn   601:     if (!defined($found{'body'}) 
                    602: 	&& $env{'request.state'} ne 'construct'
                    603: 	&& ($target eq 'web' || $target eq 'webgrade')) {
                    604: 
                    605: 	my ($symb,undef,undef,undef,$publicuser)= &Apache::lonnet::whichuser();
                    606:         if ($symb eq '' && !$publicuser) {
                    607:             $page_start .= '<p class="LC_info">'
                    608:                           .&mt('Browsing resource, all submissions are temporary.')
                    609:                           .'</p>';
1.457     bisitz    610:         }
1.344     albertel  611:     }
                    612: 
1.409     albertel  613:     if (!defined($found{'body'}) && $env{'request.state'} ne 'construct') {
1.343     albertel  614: 	$page_start .= &Apache::lonxml::message_location();
1.159     albertel  615:     }
                    616:     my $form_tag_start;
                    617:     if (!defined($found{'form'})) {
1.337     albertel  618: 	$form_tag_start='<form name="lonhomework" enctype="multipart/form-data" method="post" action="';
1.465     raeburn   619: 	my $uri = &Apache::loncommon::inhibit_menu_check(
1.455     droeschl  620:                 &Apache::lonenc::check_encrypt($env{'request.uri'}));
1.464     raeburn   621:         $uri = &HTML::Entities::encode($uri,'<>&"');
1.327     albertel  622: 	$form_tag_start.=$uri.'" ';
                    623: 	if ($target eq 'edit') {
                    624: 	    $form_tag_start.=&Apache::edit::form_change_detection();
                    625: 	}
1.493     raeburn   626:         my ($symb,$courseid,$udom,$uname)=&Apache::lonnet::whichuser();
                    627:         my ($path,$multiresp) = 
                    628:             &Apache::loncommon::get_turnedin_filepath($symb,$uname,$udom);
1.495     raeburn   629:         if (($is_task) || ($needs_upload)) {
                    630:             $form_tag_start .= ' onsubmit="return file_submission_check(this,'."'$path','$multiresp'".');"';
1.478     raeburn   631:         }
1.368     albertel  632: 	$form_tag_start.='>'."\n";
1.355     albertel  633: 
                    634: 	if ($symb =~ /\S/) {
                    635: 	    $symb=
                    636: 		&HTML::Entities::encode(&Apache::lonenc::check_encrypt($symb));
                    637: 	    $form_tag_start.=
1.368     albertel  638: 		"\t".'<input type="hidden" name="symb" value="'.$symb.'" />'."\n";
1.355     albertel  639: 	}
1.159     albertel  640:     }
1.528     raeburn   641:     return ($page_start,$form_tag_start,$partlist);
1.105     albertel  642: }
                    643: 
1.141     matthew   644: #use Time::HiRes();
1.105     albertel  645: sub get_resource_name {
1.159     albertel  646:     my ($parstack,$safeeval)=@_;
1.388     foxr      647:     my $name;
1.204     albertel  648:     if (defined($Apache::lonhomework::name)) {
1.388     foxr      649: 	$name = $Apache::lonhomework::name;
                    650:     } else {
                    651: 	my ($symb)=&Apache::lonnet::whichuser();
1.392     albertel  652: 	$name=&Apache::lonnet::gettitle($symb);
1.388     foxr      653: 	if ($name eq '') {
                    654: 	    $name=&Apache::lonnet::EXT('resource.title');
                    655: 	    if ($name eq 'con_lost') { $name = ''; }
                    656: 	}
                    657: 	if ($name!~/\S+/) {
                    658: 	    $name=$env{'request.uri'};
                    659: 	    $name=~s-.*/([^/]+)$-$1-;
                    660: 	}
                    661: 	# The name has had html tags escaped:
                    662:        
                    663: 	$name=~s/&lt;/</gs;
                    664: 	$name=~s/&gt;/>/gs;
                    665: 
                    666: 	$Apache::lonhomework::name=$name;
1.204     albertel  667:     }
1.159     albertel  668:     return $name;
1.105     albertel  669: }
                    670: 
                    671: sub setup_rndseed {
1.528     raeburn   672:     my ($safeeval,$target,$probpartlist)=@_;
1.367     albertel  673:     my ($symb)=&Apache::lonnet::whichuser();
1.479     raeburn   674:     my ($questiontype,$set_safespace,$rndseed);
                    675:     if ($target eq 'analyze') {
                    676:         $questiontype = $env{'form.grade_questiontype'};
                    677:     }
                    678:     unless (defined($questiontype)) {
                    679:         $questiontype = $Apache::lonhomework::type;
                    680:     }
1.555     raeburn   681:     if (($env{'request.state'} eq "construct")
                    682:         || ($symb eq '')
                    683:         || ($Apache::lonhomework::type eq 'practice')
                    684:         || ($Apache::lonhomework::history{'resource.CODE'})
                    685:         || (($env{'form.code_for_randomlist'}) && ($target eq 'analyze'))) {
1.316     www       686: 	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
1.317     albertel  687: 						['rndseed']);
1.284     albertel  688: 	$rndseed=$env{'form.rndseed'};
1.159     albertel  689: 	if (!$rndseed) {
1.162     albertel  690: 	    $rndseed=$Apache::lonhomework::history{'rndseed'};
                    691: 	    if (!$rndseed) {
                    692: 		$rndseed=time;
                    693: 	    }
1.555     raeburn   694:             unless ($env{'form.code_for_randomlist'}) {
                    695:                 $env{'form.rndseed'}=$rndseed;
                    696:             }
1.162     albertel  697: 	}
1.479     raeburn   698:         if (($env{'request.state'} eq "construct") && 
                    699:             ($Apache::lonhomework::type eq 'randomizetry')) {
                    700:             my $tries = $Apache::lonhomework::history{"resource.$Apache::inputtags::part.tries"};
                    701:             if ($tries) {
                    702:                 $rndseed += $tries;
                    703:             }
1.480     raeburn   704:             $env{'form.'.$Apache::inputtags::part.'.rndseed'}=$rndseed;
1.479     raeburn   705:         }
1.551     damieng   706: 	if ( ($env{'form.resetdata'} eq 'new_problem_variation'
1.374     albertel  707: 	      && $env{'form.submitted'} eq 'yes')  ||
1.284     albertel  708: 	    $env{'form.newrandomization'} eq &mt('New Randomization')) {
1.190     albertel  709: 	    srand(time);
                    710: 	    $rndseed=int(rand(2100000000));
1.284     albertel  711: 	    $env{'form.rndseed'}=$rndseed;
                    712: 	    delete($env{'form.resetdata'});
                    713: 	    delete($env{'form.newrandomization'});
1.159     albertel  714: 	}
1.488     www       715:         $rndseed=~s/\,/\:/g;
                    716:         $rndseed=~s/[^\w\d\:\-]//g;
1.489     www       717: 	if (defined($rndseed)) {
                    718:             my ($c1,$c2)=split(/\:/,$rndseed);
                    719:             unless ($c2) { $c2=0; }
                    720:             unless (($c1==int($c1)) && ($c2==int($c2))) {
                    721: 	       $rndseed=join(':',&Apache::lonnet::digest($rndseed));
                    722:             }
1.187     albertel  723:         }
1.555     raeburn   724:         if (($env{'form.code_for_randomlist'}) && ($target eq 'analyze')) {
                    725:             $env{'form.CODE'} = $env{'form.code_for_randomlist'};
                    726:             $rndseed=&Apache::lonnet::rndseed();
                    727:             undef($env{'form.CODE'});
                    728:         } elsif ($Apache::lonhomework::history{'resource.CODE'}) {
1.247     albertel  729: 	   $rndseed=&Apache::lonnet::rndseed();
                    730: 	}
1.479     raeburn   731:         $set_safespace = 1;
                    732:     } elsif ($questiontype eq 'randomizetry') {
                    733:         if ($target eq 'analyze') {
                    734:             if (defined($env{'form.grade_rndseed'})) {
                    735:                 $rndseed = $env{'form.grade_rndseed'};
                    736:             }
                    737:         }
                    738:         unless (($target eq 'analyze') && (defined($rndseed))) {
                    739:             $rndseed=&Apache::lonnet::rndseed();
1.528     raeburn   740:             my $partfortries = $Apache::inputtags::part;
                    741:             if (ref($probpartlist) eq 'ARRAY') {
                    742:                 if ((@{$probpartlist} == 1) && ($probpartlist->[0] ne $Apache::inputtags::part)) {
                    743:                     $partfortries = $probpartlist->[0];
                    744:                 }
                    745:             }
                    746:             my $curr_try = $Apache::lonhomework::history{"resource.$partfortries.tries"};
1.479     raeburn   747:             if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {
                    748:                 $curr_try ++;
                    749:             }
                    750:             if ($rndseed =~/^(\d+)[,:](\d+)$/) {
                    751:                 $rndseed = $1;
                    752:             }
                    753:             if ($curr_try) {
1.528     raeburn   754:                 my $reqtries = &Apache::lonnet::EXT("resource.$partfortries.randomizeontries");
1.479     raeburn   755:                 if (($reqtries =~ /^\d+$/) && ($reqtries > 1)) {
                    756:                     my $inc = int(($curr_try-1)/$reqtries);
                    757:                     $rndseed += $inc;
                    758:                 } else {
                    759:                     $rndseed += $curr_try;
                    760:                 }
                    761:             }
                    762:         }
                    763:         $set_safespace = 1;
1.528     raeburn   764:         if ($target eq 'grade') {
                    765:             $Apache::lonhomework::rawrndseed = $rndseed;
                    766:         }
1.479     raeburn   767:     }
                    768:     if ($set_safespace) {
                    769:         if ($safeeval) {
                    770:             &Apache::lonxml::debug("Setting rndseed to $rndseed");
                    771:             &Apache::run::run('$external::randomseed="'.$rndseed.'";',$safeeval);
                    772:         }
                    773:     }
                    774:     unless (($env{'request.state'} eq "construct") || ($symb eq '')) {
                    775:         $env{'form.'.$Apache::inputtags::part.'.rndseed'}=$rndseed;
1.159     albertel  776:     }
                    777:     return $rndseed;
1.105     albertel  778: }
                    779: 
1.268     albertel  780: sub remember_problem_state {
                    781:     return '
1.284     albertel  782:        <input type="hidden" name="problemstate" value="'.$env{'form.problemstate'}.'" />
                    783:        <input type="hidden" name="problemtype" value="'.$env{'form.problemtype'}.'" />
                    784:        <input type="hidden" name="problemstatus" value="'.$env{'form.problemstatus'}.'" />';
1.268     albertel  785: }
                    786: 
1.487     www       787: sub problem_edit_action_button {
                    788:     my ($name,$action,$accesskey,$text,$flag)=@_;
                    789:     my $actionscript="setmode(this.form,'$action')";
                    790:     return "\n<input type='button' name='$name' accesskey='$accesskey' value='".&mt($text)."'".
                    791:            ($flag?&Apache::edit::submit_ask_anyway($actionscript):&Apache::edit::submit_dont_ask($actionscript))." />";
                    792: }
                    793: 
1.423     www       794: sub problem_edit_buttons {
1.487     www       795:    my ($mode)=@_;
1.535     droeschl  796: # Buttons that save
                    797:    my $result = '<div style="float:right">';
                    798:    if ($mode eq 'editxml') {
                    799:        $result.=&problem_edit_action_button('subsaveedit','saveeditxml','s','Save and EditXML');
                    800:        $result.=&problem_edit_action_button('subsaveview','saveviewxml','v','Save and View');
                    801:    } else {
                    802:        $result.=&problem_edit_action_button('subsaveedit','saveedit','s','Save and Edit');
                    803:        $result.=&problem_edit_action_button('subsaveview','saveview','v','Save and View');
                    804:    }
                    805:    $result.="\n</div>\n";
1.487     www       806: # Buttons that do not save
1.535     droeschl  807:    $result .= '<div>'.
1.487     www       808:               &problem_edit_action_button('subdiscview','discard','d','Discard Edits and View',1);
                    809:    if ($mode eq 'editxml') {
                    810:        $result.=&problem_edit_action_button('subedit','edit','e','Edit',1);
                    811:        $result.=&problem_edit_action_button('subundo','undoxml','u','Undo',1);
1.550     raeburn   812:        if ($env{'environment.nocodemirror'}) {
                    813:            $result.=&Apache::lonhtmlcommon::dragmath_button("LC_editxmltext",1);
                    814:        }
1.487     www       815:    } else {
                    816:        $result.=&problem_edit_action_button('subeditxml','editxml','x','EditXML',1);
                    817:        $result.=&problem_edit_action_button('subundo','undo','u','Undo',1);
                    818:    }
                    819:    $result.="\n</div>";
                    820:    return $result;
1.423     www       821: }
                    822: 
                    823: sub problem_edit_header {
1.527     golterma  824:     my ($mode)=@_;
                    825:     my $return = '<input type="hidden" name="submitted" value="edit" />'.
1.487     www       826: 	&remember_problem_state('edit').'
1.527     golterma  827:         <div class="LC_edit_problem_header">
                    828:         <div class="LC_edit_problem_header_title">
                    829:         '.&mt('Problem Editing').$mode.&Apache::loncommon::help_open_menu('Problem Editing','Problem_Editor_XML_Index',5,'Authoring').'
                    830:         </div><div class="LC_edit_actionbar" id="actionbar">'.
                    831:         '<input type="hidden" name="problemmode" value="saveedit" />'.
                    832:         &problem_edit_buttons();
                    833: 
1.535     droeschl  834:     $return .= '</div></div>' . &Apache::lonxml::message_location();
1.527     golterma  835:     $return .= '<link rel="stylesheet" href="/adm/codemirror/codemirror-combined.css" />
                    836:     <script type="text/javascript" src="/adm/codemirror/codemirror-compressed-colorful.js"></script>';
                    837: 
                    838:     $return .= '<script type="text/javascript" src="/adm/jQuery/addons/jquery-scrolltofixed.js"></script>
                    839:         <script type="text/javascript">
                    840:             // unless internet explorer
                    841:             if (!(window.navigator.appName == "Microsoft Internet Explorer" && (document.documentMode || document.compatMode))){
                    842:                 $(document).ready(
                    843:                     function() {
                    844:                         $(\'.LC_edit_actionbar\').scrollToFixed(
                    845:                             {
                    846:                                 fixed: function(){
1.535     droeschl  847:                                     //$(this).find(\'.LC_edit_actionbar\').css(\'height\', \'31px\');
                    848:                                     $(this).find(\'.LC_edit_actionbar\');
1.527     golterma  849:                                 }
                    850:                             }
                    851:                         );
                    852:                     }
                    853:                 );
                    854:             }
                    855:         </script>
                    856:         <table id="LC_edit_problem_colorful" border="0" width="100%"><tr><td bgcolor="#F8F8F8">';
                    857:     return $return;
1.105     albertel  858: }
                    859: 
                    860: sub problem_edit_footer {
1.527     golterma  861:     my $resource = $env{'request.ambiguous'};
1.412     albertel  862:     return '</td></tr></table><br />
                    863: <div class="LC_edit_problem_footer">
1.453     bisitz    864:   <hr />'.
1.423     www       865: &problem_edit_buttons().'
1.459     bisitz    866:   <hr style="clear:both;" />
1.527     golterma  867:   <script type="text/javascript">
                    868:       restoreState("'.$resource.'");
                    869:       restoreScrollPosition("'.$resource.'");
                    870:   </script>
1.412     albertel  871: </div>
                    872: '.
1.342     albertel  873:     "\n</form>\n".&Apache::loncommon::end_page();
1.105     albertel  874: }
                    875: 
1.235     albertel  876: sub option {
                    877:     my ($value,$name) = @_;
                    878:     my $result ="<option value='".$value."' ";
1.284     albertel  879:     if ($env{'form.'.$name} eq $value) {
1.235     albertel  880: 	$result.=" selected='on' ";
                    881:     }
                    882:     $result.='>';
                    883:     return $result;
                    884: }
                    885: 
1.105     albertel  886: sub problem_web_to_edit_header {
1.159     albertel  887:     my ($rndseed)=@_;
1.406     albertel  888:     my $result .= '<div class="LC_edit_problem_header">';
                    889: 
                    890:     if (!$Apache::lonhomework::parsing_a_task) {
                    891: 	$result .= 
                    892: 	    '<div class="LC_edit_problem_header_title">'.
                    893: 	    &mt('Problem Testing').
                    894: 	    &Apache::loncommon::help_open_topic('Problem_Editor_Testing_Area').
                    895: 	    '</div>';
                    896:     } else {
                    897: 	$result .= 
                    898: 	    '<div class="LC_edit_problem_header_title">'.
                    899: 	    &mt('Task Testing').
                    900: 	    '</div>';
                    901:     }
                    902:     
1.315     albertel  903:     my $show_all_foils_text = 
                    904: 	($Apache::lonhomework::parsing_a_task) ?
1.452     bisitz    905: 	&mt('Show All Instances')
                    906: 	: &mt('Show All Foils');
1.315     albertel  907: 
1.452     bisitz    908:     my $show_all= '<span class="LC_nobreak"><label for="showallfoils">'
                    909:                  .'<input type="checkbox" name="showallfoils"';
1.440     bisitz    910:     if (defined($env{'form.showallfoils'})) { $show_all.=' checked="checked"'; }
1.452     bisitz    911:     $show_all.= ' /> '.$show_all_foils_text
                    912:                .'</label></span>';
1.406     albertel  913: 
                    914: 
1.384     albertel  915: 
1.406     albertel  916:     $result .= '<div class="LC_edit_problem_header_status_row">';
1.313     albertel  917:     if (!$Apache::lonhomework::parsing_a_task) {
                    918: 	$result.="
1.406     albertel  919: <div class='LC_edit_problem_header_row1'>
                    920: <span class=\"LC_nobreak\">
1.405     albertel  921: ".&mt("Problem Status:")."
1.235     albertel  922: <select name='problemstate'>
1.270     albertel  923:   <option value=''></option>
1.235     albertel  924:   ".&option('CLOSED'               ,'problemstate').&mt("Closed")."</option>
                    925:   ".&option('CAN_ANSWER'           ,'problemstate').&mt("Answerable")."</option>
                    926:   ".&option('CANNOT_ANSWER_tries'  ,'problemstate').&mt("Open with full tries")."</option>
                    927:   ".&option('CANNOT_ANSWER_correct','problemstate').&mt("Open and correct")."</option>
                    928:   ".&option('SHOW_ANSWER'          ,'problemstate').&mt("Show Answer")."</option>
                    929: </select>
1.406     albertel  930: </span>
                    931: <span class=\"LC_nobreak\">
1.405     albertel  932: ".&mt("Problem Type:")."
1.235     albertel  933: <select name='problemtype'>
1.270     albertel  934:   <option value=''></option>
1.509     bisitz    935:   ".&option('exam'   ,'problemtype').&mt("Bubblesheet Exam Problem")."</option>
1.428     raeburn   936:   ".&option('problem','problemtype').&mt("Homework Problem")."</option>
1.242     albertel  937:   ".&option('survey' ,'problemtype').&mt("Survey Question")."</option>
1.465     raeburn   938:   ".&option('surveycred' ,'problemtype').&mt("Survey Question (with credit)")."</option>
                    939:   ".&option('anonsurvey' ,'problemtype').&mt("Anonymous Survey Question")."</option>
                    940:   ".&option('anonsurveycred' ,'problemtype').&mt("Anonymous Survey Question (with credit)")."</option>
1.428     raeburn   941:   ".&option('practice' ,'problemtype').&mt("Practice Problem")."</option>
1.479     raeburn   942:   ".&option('randomizetry' ,'problemtype').&mt("New Randomization Each Try")."</option>
1.235     albertel  943: </select>
1.406     albertel  944: </span>
                    945: $show_all
                    946: </div>
                    947: <div class='LC_edit_problem_header_row2'>
                    948: <span class=\"LC_nobreak\">
1.405     albertel  949: ".&mt("Feedback Mode:")."
1.235     albertel  950: <select name='problemstatus'>
                    951:   <option value=''></option>
1.242     albertel  952:   ".&option('yes','problemstatus').&mt("Show Feedback")."</option>
1.517     bisitz    953:   ".&option('no', 'problemstatus').&mt("Don't Show Incorrect/Correct Feedback")."</option>
1.405     albertel  954:   ".&option('no_feedback_ever', 'problemstatus').&mt("Don't Show Any Feedback")."</option>
1.235     albertel  955: </select>
1.406     albertel  956: </span>
                    957: ";
                    958: 
1.376     albertel  959:     } elsif ($Apache::lonhomework::parsing_a_task) {
                    960: 	$result.="
1.406     albertel  961: <div class='LC_edit_problem_header_row1'>
                    962: <span class=\"LC_nobreak\">
1.405     albertel  963: ".&mt("Problem Status:")."
1.376     albertel  964: <select name='problemstate'>
                    965:   <option value=''></option>
                    966:   ".&option('CLOSED'               ,'problemstate').&mt("Closed")."</option>
                    967:   ".&option('CAN_ANSWER'           ,'problemstate').&mt("Answerable")."</option>
                    968:   ".&option('WEB_GRADE'            ,'problemstate').&mt("Criteria Grading")."</option>
                    969:   ".&option('SHOW_ANSWER'          ,'problemstate').&mt("Show Feedback")."</option>
                    970: </select>
1.406     albertel  971: </span>
                    972: $show_all
                    973: ";
                    974:     }
                    975:     $result.='
                    976:        <span class="LC_nobreak">
                    977:        '.&mt('Apply style file: ').'
                    978:          <input type="text" name="style_file" value="'.&HTML::Entities::encode($env{'construct.style'},'"<>&').'" />
                    979:          <a href="javascript:openbrowser(\'lonhomework\',\'style_file\',\'sty\')">'.&mt('Select').'</a>
                    980:        </span>
1.422     www       981:      </div>
                    982:      <div class="LC_edit_problem_header_row1">'.
                    983:        &Apache::lonxml::renderingoptions().'
1.406     albertel  984:      </div>
                    985:      <input type="submit" name="changeproblemmode" value="'.&mt("Change View").'" />
                    986:      <input type="submit" name="clear_style_file" accesskey="d" value="'.&mt('Show Default View').'" />
1.551     damieng   987:      <button type="submit" name="resetdata" accesskey="r" value="reset_submissions">
                    988:      '.&mt('Reset Submissions').'</button>
1.406     albertel  989:    </div>
1.453     bisitz    990:    <hr />
1.406     albertel  991:    <div class="LC_edit_problem_header_randomize_row">
                    992:      <input type="submit" name="newrandomization" accesskey="a" value="'.&mt('New Randomization').'" />
                    993:      <input type="submit" name="changerandseed" value="'.&mt('Change Random Seed To:').'" />
1.488     www       994:      <input type="text" name="rndseed" size="24" value="'.
1.406     albertel  995: 	       $rndseed.'"
                    996:              onchange="javascript:document.lonhomework.changerandseed.click()" />';
                    997: 
                    998:     if (!$Apache::lonhomework::parsing_a_task) {
                    999: 	my $numtoanalyze=$env{'form.numtoanalyze'};
                   1000: 	if (!$numtoanalyze) { $numtoanalyze=20; }
1.408     albertel 1001: 	$result .= '<span class="LC_nobreak">'.
                   1002: 	    &mt('[_1] for [_2] versions.',
1.416     raeburn  1003: 		'<input type="button" name="submitmode" value="'.&mt('Calculate answers').'" '.
1.419     bisitz   1004:                 'onclick="javascript:setmode(this.form,'."'calcanswers'".')" />'
                   1005:                ,'<input type="text" name="numtoanalyze" value="'.
1.408     albertel 1006: 		$numtoanalyze.'" size="5" />').
                   1007: 		&Apache::loncommon::help_open_topic("Analyze_Problem",'',undef,undef,300).
                   1008: 		'</span>';
                   1009: 						    
1.313     albertel 1010:     }
1.406     albertel 1011: 
                   1012:     $result.='
                   1013:    </div>
1.453     bisitz   1014:    <hr />
1.447     bisitz   1015:    <div>';
1.416     raeburn  1016:     $result.='<input type="hidden" name="problemmode" value="view" />';
                   1017:     $result .= '<input type="button" name="submitmode" accesskey="e" value="'.&mt('Edit').'" '.
                   1018:                'onclick="javascript:setmode(this.form,'."'edit'".')" />';
                   1019:     $result .= '<input type="button" name="submitmode" accesskey="x" value="'.&mt('EditXML').'" '.
                   1020:                'onclick="javascript:setmode(this.form,'."'editxml'".')" />';
1.541     damieng  1021:     if ($env{'browser.type'} ne 'explorer' || $env{'browser.version'} > 9) {
                   1022:         my $uri = $env{'request.uri'};
1.543     damieng  1023:         my $daxeurl = '/daxepage'.$uri;
1.541     damieng  1024:         $result .= '<input type="button" value="'.&mt('Edit with Daxe').'" '.
                   1025:                   'onclick="window.open(\''.$daxeurl.'\',\'_blank\');" />';
                   1026:     }
1.408     albertel 1027:     $result.='
                   1028:    </div>
1.453     bisitz   1029:    <hr />
1.409     albertel 1030:    '.&Apache::lonxml::message_location().'
1.406     albertel 1031: </div>';
1.159     albertel 1032:     return $result;
1.48      albertel 1033: }
                   1034: 
1.65      albertel 1035: sub initialize_storage {
1.357     albertel 1036:     my ($given_symb) = @_;
1.353     albertel 1037:     undef(%Apache::lonhomework::results);
                   1038:     undef(%Apache::lonhomework::history);
1.357     albertel 1039:     my ($symb,$courseid,$domain,$name) = 
1.367     albertel 1040: 	&Apache::lonnet::whichuser($given_symb);
1.353     albertel 1041:     
                   1042:     # anonymous users (CODEd exams) have no data
                   1043:     if ($name eq 'anonymous' 
                   1044: 	&& !defined($domain)) {
                   1045: 	return;
                   1046:     }
                   1047: 
1.333     albertel 1048:     if ($env{'request.state'} eq 'construct' 
                   1049: 	|| $symb eq ''
                   1050: 	|| $Apache::lonhomework::type eq 'practice') {
                   1051: 	
                   1052: 	my $namespace = $symb || $env{'request.uri'};
1.551     damieng  1053: 	if ($env{'form.resetdata'} eq 'reset_submissions' ||
                   1054: 	    ($env{'form.resetdata'} eq 'new_problem_variation'
1.374     albertel 1055: 	     && $env{'form.submitted'} eq 'yes') ||
1.333     albertel 1056: 	    $env{'form.newrandomization'} eq &mt('New Randomization')) {
                   1057: 	    &Apache::lonnet::tmpreset($namespace,'',$domain,$name);
                   1058: 	    &Apache::lonxml::debug("Attempt reset");
                   1059: 	}
1.159     albertel 1060: 	%Apache::lonhomework::history=
1.333     albertel 1061: 	    &Apache::lonnet::tmprestore($namespace,'',$domain,$name);
1.526     raeburn  1062: 	my ($temp)=keys(%Apache::lonhomework::history) ;
1.159     albertel 1063: 	&Apache::lonxml::debug("Return message of $temp");
                   1064:     } else {
                   1065: 	%Apache::lonhomework::history=
                   1066: 	    &Apache::lonnet::restore($symb,$courseid,$domain,$name);
                   1067:     }
1.353     albertel 1068: 
1.159     albertel 1069:     #ignore error conditions
1.526     raeburn  1070:     my ($temp)=keys(%Apache::lonhomework::history);
1.159     albertel 1071:     if ($temp =~ m/^error:.*/) { %Apache::lonhomework::history=(); }
1.65      albertel 1072: }
                   1073: 
1.435     jms      1074: =pod
                   1075: 
                   1076: =item finalize_storage()
                   1077: 
1.524     raeburn  1078: 	Stores away the result hash to a student's environment;
1.523     raeburn  1079: 	checks form.grade_ for specific values, otherwise stores
                   1080: 	to the running user's environment.
1.524     raeburn  1081: 
                   1082:         &check_correctness_changes() is called in two circumstances
                   1083:         in which the results hash is to be stored permanently, for
                   1084:         grading triggered by a student's submission, where feedback on
                   1085:         correctness is to be provided to the student. 
                   1086: 
                   1087:         1. Immediately prior to storing the results hash
                   1088: 
                   1089:         To handle the case where a student's submission (and award) were 
                   1090:         stored after history was retrieved in &initialize_storage(), e.g.,
                   1091:         if a student submitted answers in quick succession (e.g., from 
                   1092:         multiple tabs).  &Apache::inputtags::hidealldata() is called for
                   1093:         any parts with out-of-order storage (i.e., correct then incorrect,
                   1094:         where awarded >= 1 when correct).
                   1095: 
                   1096:         2. Immediately after storing the results hash
                   1097: 
                   1098:         To handle the case where lond on the student's homeserver returns
                   1099:         delay:N -- where N is the number of transactions between the last
                   1100:         retrieved in &initialize_storage() and the last stored immediately
                   1101:         before permanent storage of the current transaction via 
                   1102:         lond::store_handler().  &Apache::grades::makehidden() is called  
                   1103:         for any parts with out-of-order storage (i.e., correct then incorrect,
                   1104:         where awarded >= 1 when correct).
                   1105: 
                   1106: 	Will call &store_aggregates() to increment totals for attempts, 
                   1107:         students, and corrects, if running user has student role.
                   1108: 
1.435     jms      1109: =cut
                   1110: 
                   1111: 
1.65      albertel 1112: sub finalize_storage {
1.357     albertel 1113:     my ($given_symb) = @_;
1.159     albertel 1114:     my $result;
1.289     albertel 1115:     if (%Apache::lonhomework::results) {
1.323     albertel 1116: 	my @remove = grep(/^INTERNAL_/,keys(%Apache::lonhomework::results));
                   1117: 	delete(@Apache::lonhomework::results{@remove});
1.357     albertel 1118: 	my ($symb,$courseid,$domain,$name) = 
1.367     albertel 1119: 	    &Apache::lonnet::whichuser($given_symb);
1.560     raeburn  1120:         my ($passback,$ltiscope,$ltimap,$ltisymb,$ltiref,$total,$possible);
1.333     albertel 1121: 	if ($env{'request.state'} eq 'construct' 
                   1122: 	    || $symb eq ''
                   1123: 	    || $Apache::lonhomework::type eq 'practice') {
                   1124: 	    my $namespace = $symb || $env{'request.uri'};
1.284     albertel 1125: 	    $Apache::lonhomework::results{'rndseed'}=$env{'form.rndseed'};
1.159     albertel 1126: 	    $result=&Apache::lonnet::tmpstore(\%Apache::lonhomework::results,
1.333     albertel 1127: 					      $namespace,'',$domain,$name);
1.159     albertel 1128: 	    &Apache::lonxml::debug('Construct Store return message:'.$result);
                   1129: 	} else {
1.560     raeburn  1130:             my ($laststore,$checkedparts,@parts,%postcorrect,%record);
1.524     raeburn  1131:             if (($env{'user.name'} eq $name) && ($env{'user.domain'} eq $domain) &&
                   1132:                 (!$Apache::lonhomework::scantronmode) && (!defined($env{'form.grade_symb'})) &&
                   1133:                 (!defined($env{'form.grade_courseid'}))) {
1.560     raeburn  1134:                 if ($env{'request.lti.login'}) {
                   1135:                     my ($map)=&Apache::lonnet::decode_symb($symb);
                   1136:                     $map = &Apache::lonnet::clutter($map);
                   1137:                     ($passback,$ltiscope,$ltimap,$ltisymb,$ltiref) = 
                   1138:                         &needs_lti_passback($courseid,$symb,$map);
                   1139:                 }
1.524     raeburn  1140:                 if ($Apache::lonhomework::history{'version'}) {
                   1141:                     $laststore = $Apache::lonhomework::history{'version'}.'='.
                   1142:                                  $Apache::lonhomework::history{'timestamp'};
                   1143:                 } else {
                   1144:                     $laststore = '0=0';
                   1145:                 }
1.560     raeburn  1146:                 %record = &Apache::lonnet::restore($symb,$courseid,$domain,$name);
1.524     raeburn  1147:                 if ($record{'version'}) {
                   1148:                     my ($newversion,$oldversion,$oldtimestamp);
                   1149:                     if ($Apache::lonhomework::history{'version'}) {
                   1150:                         $oldversion = $Apache::lonhomework::history{'version'};
                   1151:                         $oldtimestamp = $Apache::lonhomework::history{'timestamp'};
                   1152:                     } else {
                   1153:                         $oldversion = 0;
                   1154:                         $oldtimestamp = 0;
                   1155:                     }
                   1156:                     if ($record{'version'} > $oldversion) {
                   1157:                         if ($record{'timestamp'} >= $oldtimestamp) {
                   1158:                             $laststore = $record{'version'}.'='.$record{'timestamp'};
                   1159:                             $newversion = $record{'version'} + 1;
                   1160:                             $checkedparts = 1;
                   1161:                             foreach my $key (keys(%Apache::lonhomework::results)) {
                   1162:                                 if ($key =~ /^resource\.([^\.]+)\.solved$/) {
                   1163:                                     my $part = $1;
                   1164:                                     if ($Apache::lonhomework::results{$key} eq 'incorrect_attempted') {
                   1165:                                         push(@parts,$part);
                   1166:                                     }
                   1167:                                 }
                   1168:                             }
                   1169:                             if (@parts) {
                   1170:                                 my @parts_to_hide = &check_correctness_changes($symb,$courseid,$domain,$name,
                   1171:                                                                                \%record,\@parts,$newversion,
                   1172:                                                                                $oldversion);
                   1173:                                 if (@parts_to_hide) {
                   1174:                                     foreach my $part (@parts_to_hide) {
                   1175:                                         $postcorrect{$part} = 1;
                   1176:                                         &Apache::inputtags::hidealldata($part);
                   1177:                                     }
                   1178:                                 }
                   1179:                             }
                   1180:                         }
                   1181:                     }
                   1182:                 }
                   1183:             }
1.159     albertel 1184: 	    $result=&Apache::lonnet::cstore(\%Apache::lonhomework::results,
1.524     raeburn  1185: 					    $symb,$courseid,$domain,$name,$laststore);
                   1186:             if ($result =~ /^delay\:(\d+)$/) {
                   1187:                 my $numtrans = $1;
                   1188:                 my ($oldversion) = split(/=/,$laststore);
                   1189:                 if ($numtrans) {
                   1190:                     my $newversion = $oldversion + 1 + $numtrans;
                   1191:                     my @possparts;
                   1192:                     if ($checkedparts) {
                   1193:                         foreach my $part (@parts) {
                   1194:                             unless ($postcorrect{$part}) {
                   1195:                                 push(@possparts,$part);
                   1196:                             }
                   1197:                         }
                   1198:                     } else {
                   1199:                         foreach my $key (keys(%Apache::lonhomework::results)) {
                   1200:                             if ($key =~ /^resource\.([^\.]+)\.solved$/) {
                   1201:                                 my $part = $1;
                   1202:                                 unless ($postcorrect{$part}) {
                   1203:                                     if ($Apache::lonhomework::results{$key} eq 'incorrect_attempted') {
                   1204:                                         push(@possparts,$part);
                   1205:                                     }
                   1206:                                 }
                   1207:                             }
                   1208:                         }
                   1209:                     }
                   1210:                     if (@possparts) {
                   1211:                         my %newrecord = &Apache::lonnet::restore($symb,$courseid,$domain,$name);
                   1212:                         my @parts_to_hide = &check_correctness_changes($symb,$courseid,$domain,$name,
                   1213:                                                                        \%newrecord,\@possparts,$newversion,
                   1214:                                                                        $oldversion);
                   1215:                         if (@parts_to_hide) {
                   1216:                             my $partslist = join(',',@parts_to_hide);
                   1217:                             &Apache::grades::makehidden($newversion,$partslist,\%newrecord,$symb,$domain,$name,1);
                   1218:                         }
                   1219:                     }
                   1220:                 }
                   1221:             }
1.560     raeburn  1222:             if (($passback) && ($ltiscope eq 'resource') && ($ltisymb eq $symb)) {
                   1223:                 $total = 0;
                   1224:                 $possible = 0;
                   1225:                 my $navmap = Apache::lonnavmaps::navmap->new();
                   1226:                 if (ref($navmap)) {
                   1227:                     my $res = $navmap->getBySymb($symb);
                   1228:                     if (ref($res)) {
                   1229:                         my $partlist = $res->parts();
                   1230:                         if (ref($partlist) eq 'ARRAY') {
                   1231:                             foreach my $part (@{$partlist}) {
                   1232:                                 unless (exists($Apache::lonhomework::results{"resource.$part.solved"})) {
                   1233:                                     next if ($Apache::lonhomework::record{"resource.$part.solved"} =~/^excused/);
                   1234:                                     my $weight = &Apache::lonnet::EXT("resource.$part.weight",$symb);
                   1235:                                     $possible += $weight;
                   1236:                                     if (($record{'version'}) && (exists($record{"resource.$part.awarded"}))) {
                   1237:                                         my $awarded = $record{"resource.$part.awarded"};
                   1238:                                         if ($awarded) {
                   1239:                                             $total += $weight * $awarded;
                   1240:                                         }
                   1241:                                     }
                   1242:                                 }
                   1243:                             }
                   1244:                         }
                   1245:                     }
                   1246:                 }
                   1247:                 foreach my $key (keys(%Apache::lonhomework::results)) {
                   1248:                     if ($key =~ /^resource\.([^\.]+)\.awarded$/) {
                   1249:                         my $part = $1;
                   1250:                         my $weight = &Apache::lonnet::EXT("resource.$part.weight",$symb);
                   1251:                         $possible += $weight;
                   1252:                         my $awarded = $Apache::lonhomework::results{$key};
                   1253:                         if ($awarded) {
                   1254:                             $total += $weight * $awarded;
                   1255:                         }
                   1256:                     }
                   1257:                 }
                   1258:             }
1.159     albertel 1259: 	    &Apache::lonxml::debug('Store return message:'.$result);
1.470     raeburn  1260:             &store_aggregates($symb,$courseid);
1.560     raeburn  1261:             if ($passback) {
                   1262:                 my $scoreformat = 'decimal';
                   1263:                 if (ref($ltiref) eq 'HASH') {
                   1264:                     if ($ltiref->{'scoreformat'} =~ /^(decimal|ratio|percentage)$/) {
                   1265:                         $scoreformat = $1;
                   1266:                     }
                   1267:                 }
                   1268:                 my $ltigrade = {
                   1269:                                  'lti'      => $ltiref,
                   1270:                                  'cid'      => $courseid,
                   1271:                                  'uname'    => $env{'user.name'},
                   1272:                                  'udom'     => $env{'user.domain'},
                   1273:                                  'pbid'     => $env{'request.lti.passbackid'},
                   1274:                                  'pburl'    => $env{'request.lti.passbackurl'},
                   1275:                                  'scope'    => $ltiscope,
                   1276:                                  'ltimap'   => $ltimap,
                   1277:                                  'ltisymb'  => $ltisymb,
                   1278:                                  'format'   => $scoreformat,
                   1279:                                };
                   1280:                 if ($ltiscope eq 'resource') {
                   1281:                     $ltigrade->{'total'} = $total;
                   1282:                     $ltigrade->{'possible'} = $possible;
                   1283:                 }
                   1284:                 push(@Apache::lonhomework::ltipassback,$ltigrade);
                   1285:             }
1.159     albertel 1286: 	}
1.323     albertel 1287:     } else {
                   1288: 	&Apache::lonxml::debug('Nothing to store');
1.67      albertel 1289:     }
1.159     albertel 1290:     return $result;
1.65      albertel 1291: }
                   1292: 
1.560     raeburn  1293: sub needs_lti_passback {
                   1294:     my ($courseid,$symb,$map) = @_;
                   1295:     if (($env{'request.lti.passbackid'}) && ($env{'request.lti.passbackurl'})) {
                   1296:         if ($courseid =~ /^($LONCAPA::match_domain)_($LONCAPA::match_courseid)$/) {
                   1297:             my ($cdom,$cnum) = ($1,$2);
                   1298:             my %lti = &Apache::lonnet::get_domain_lti($cdom,'provider');
                   1299:             if (ref($lti{$env{'request.lti.login'}}) eq 'HASH') {
                   1300:                 if ($lti{$env{'request.lti.login'}}{'passback'}) {
                   1301:                     my ($ltiscope,$ltiuri,$ltisymb) =
                   1302:                         &LONCAPA::ltiutils::lti_provider_scope($env{'request.lti.uri'},
                   1303:                                                                $cdom,$cnum,1);
                   1304:                     my ($passback,$ltimap);
                   1305:                     if ($ltiscope eq 'resource') {
                   1306:                         if ($ltisymb eq $symb) {
                   1307:                             $passback = 1;
                   1308:                         }
                   1309:                     } elsif ($ltiscope eq 'map') {
                   1310:                         if ($ltiuri eq $map) {
                   1311:                             $passback = 1;
                   1312:                             $ltimap = $map;
                   1313:                         }
                   1314:                     } elsif ($ltiscope eq 'course') {
                   1315:                         if (($env{'request.lti.uri'} eq "/$cdom/$cnum") || ($env{'request.lti.uri'} eq '')) {
                   1316:                             $passback = 1;
                   1317:                         }
                   1318:                     }
                   1319:                     return ($passback,$ltiscope,$ltimap,$ltisymb,$lti{$env{'request.lti.login'}});
                   1320:                 }
                   1321:             }
                   1322:         }
                   1323:     }
                   1324:     return;
                   1325: }
                   1326: 
1.435     jms      1327: =pod
                   1328: 
1.524     raeburn  1329: =item check_correctness_changes()
                   1330: 
                   1331:         For all parts for which current results contain a solved status
                   1332:         of "incorrect_attempted", check if there was a transaction in which  
                   1333:         solved was set to "correct_by_student" in the time since the last 
                   1334:         transaction (retrieved when &initialize_storage() was called i.e., 
                   1335:         when &start_problem() was called), unless:
                   1336:         (a) questiontype parameter is set to survey or anonymous survey (+/- credit)
                   1337:         (b) problemstatus is set to no or no_feedback_ever
                   1338:         If such a transaction exists, and did not occur after "reset status" 
                   1339:         by a user with grading privileges, then the current transaction is an
                   1340:         example of an out-of-order transaction (i.e., incorrect occurring after
                   1341:         correct).  Accordingly, the current transaction should be hidden.
                   1342: 
                   1343: =cut
                   1344: 
                   1345: 
                   1346: sub check_correctness_changes {
                   1347:     my ($symb,$courseid,$domain,$name,$record,$parts,$newversion,$oldversion) = @_;
                   1348:     my @parts_to_hide;
                   1349:     unless ((ref($record) eq 'HASH') && (ref($parts) eq 'ARRAY')) {
                   1350:         return @parts_to_hide;
                   1351:     }
                   1352:     if (@{$parts}) {
                   1353:         my $usec;
                   1354:         if (($env{'user.name'} eq $name) && ($env{'user.domain'} eq $domain) &&
                   1355:             ($env{'request.course.id'} eq $courseid)) {
                   1356:             $usec = $env{'request.course.sec'};
                   1357:         } else {
                   1358:             $usec = &Apache::lonnet::getsection($domain,$name,$courseid);
                   1359:         }
                   1360:         foreach my $id (@{$parts}) {
                   1361:             next if (($Apache::lonhomework::results{'resource.'.$id.'.type'} =~ /survey/) ||
                   1362:                      (&Apache::lonnet::EXT("resource.$id.problemstatus",$symb,
                   1363:                                            $domain,$name,$usec,undef,$courseid) =~ /^no/));
                   1364:             my $reset;
                   1365:             for (my $i=$newversion-1; $i>=$oldversion; $i--) {
                   1366:                 if (($record->{$i.':resource.'.$id.'.regrader'}) &&
                   1367:                     ($record->{$i.':resource.'.$id.'.tries'} eq '') &&
                   1368:                     ($record->{$i.':resource.'.$id.'.award'} eq '')) {
                   1369:                     $reset = 1;
                   1370:                 } elsif (($record->{$i.":resource.$id.solved"} eq 'correct_by_student') &&
                   1371:                          ($record->{$i.":resource.$id.awarded"} >= 1)) {
                   1372:                     unless ($reset) {
                   1373:                         push(@parts_to_hide,$id);
                   1374:                         last;
                   1375:                     }
                   1376:                 }
                   1377:             }
                   1378:         }
                   1379:     }
                   1380:     return @parts_to_hide;
                   1381: }
                   1382: 
                   1383: =pod
                   1384: 
1.435     jms      1385: item store_aggregates()
                   1386: 
                   1387: 	Sends hash of values to be incremented in nohist_resourcetracker.db
                   1388: 	for the course. Increments total number of attempts, unique students 
                   1389: 	and corrects for each part for an instance of a problem, as appropriate.
                   1390: 	
                   1391: =cut
                   1392: 
1.285     raeburn  1393: sub store_aggregates {
                   1394:     my ($symb,$courseid) = @_;
1.479     raeburn  1395:     my (%aggregate,%anoncounter,%randtrycounter);
1.286     albertel 1396:     my @parts;
1.288     albertel 1397:     my $cdomain = $env{'course.'.$env{'request.course.id'}.'.domain'};
                   1398:     my $cname = $env{'course.'.$env{'request.course.id'}.'.num'};
1.286     albertel 1399:     foreach my $key (keys(%Apache::lonhomework::results)) {
1.287     albertel 1400:         if ($key =~ /resource\.([^\.]+)\.tries/) {
1.286     albertel 1401:             push(@parts, $1);
1.285     raeburn  1402:         }
                   1403:     }
1.286     albertel 1404:     foreach my $part (@parts) {
1.470     raeburn  1405:         if ($env{'request.role'} =~/^st/) {
                   1406:             if ($Apache::lonhomework::results{'resource.'.$part.'.award'}
                   1407: 	        eq 'APPROX_ANS' ||
                   1408: 	        $Apache::lonhomework::results{'resource.'.$part.'.award'}
                   1409: 	        eq 'EXACT_ANS') {
                   1410:                 $aggregate{$symb."\0".$part."\0correct"} = 1;
                   1411:             }
                   1412:             if ($Apache::lonhomework::results{'resource.'.$part.'.tries'} == 1) {
                   1413:                 $aggregate{$symb."\0".$part."\0users"} = 1;
                   1414:             } else {
                   1415:                 my (undef,$last_reset) = &Apache::grades::get_last_resets($symb,$env{'request.course.id'},[$part]); 
                   1416:                 if ($last_reset) {
                   1417:                     if (&Apache::grades::get_num_tries(\%Apache::lonhomework::history,$last_reset,$part) == 0) {
                   1418:                         $aggregate{$symb."\0".$part."\0users"} = 1;
                   1419:                     }
                   1420:                 }
                   1421:             }
                   1422:             $aggregate{$symb."\0".$part."\0attempts"} = 1;
1.285     raeburn  1423:         }
1.470     raeburn  1424:         if (($Apache::lonhomework::results{'resource.'.$part.'.type'} eq 'anonsurvey') || 
1.479     raeburn  1425:             ($Apache::lonhomework::results{'resource.'.$part.'.type'} eq 'anonsurveycred') ||
                   1426:             ($Apache::lonhomework::results{'resource.'.$part.'.type'} eq 'randomizetry')) {
                   1427:             if ($Apache::lonhomework::results{'resource.'.$part.'.type'} eq 'randomizetry') {
                   1428:                 $randtrycounter{$symb."\0".$part} = 1;
                   1429:             } else {
                   1430:                 $anoncounter{$symb."\0".$part} = 1;
                   1431:             }
1.545     raeburn  1432:             my $needsrelease = $Apache::lonnet::needsrelease{'parameter:type:'.$Apache::lonhomework::results{'resource.'.$part.'.type'}.'::'};
1.537     raeburn  1433:             if ($needsrelease) {
1.470     raeburn  1434:                 my $curr_required = $env{'course.'.$env{'request.course.id'}.'.internal.releaserequired'};
                   1435:                 if ($curr_required eq '') {
1.471     raeburn  1436:                     &Apache::lonnet::update_released_required($needsrelease);
1.470     raeburn  1437:                 } else {
                   1438:                     my ($currmajor,$currminor) = split(/\./,$curr_required);
                   1439:                     my ($needsmajor,$needsminor) = split(/\./,$needsrelease);
                   1440:                     if (($currmajor < $needsmajor) || ($currmajor == $needsmajor && $currminor < $needsminor)) {
1.471     raeburn  1441:                         &Apache::lonnet::update_released_required($needsrelease);
1.470     raeburn  1442:                     }
1.292     raeburn  1443:                 }
                   1444:             }
1.285     raeburn  1445:         }
                   1446:     }
1.526     raeburn  1447:     if (keys(%aggregate) > 0) {
1.289     albertel 1448: 	&Apache::lonnet::cinc('nohist_resourcetracker',\%aggregate,
1.292     raeburn  1449:                             $cdomain,$cname);
                   1450:     }
1.472     raeburn  1451:     if (keys(%anoncounter) > 0) {
1.481     raeburn  1452:         &Apache::lonnet::cput('nohist_anonsurveys',\%anoncounter,
                   1453:                               $cdomain,$cname);
1.472     raeburn  1454:     }
1.479     raeburn  1455:     if (keys(%randtrycounter) > 0) {
1.481     raeburn  1456:         &Apache::lonnet::cput('nohist_randomizetry',\%randtrycounter,
                   1457:                               $cdomain,$cname);
1.479     raeburn  1458:     }
1.292     raeburn  1459: }
1.289     albertel 1460: 
1.557     raeburn  1461: sub access_status_msg {
                   1462:     my ($mode,$status,$symb,$target,$ipused,$accessmsg) = @_;
                   1463:     my $msg;
                   1464:     if ($target eq 'web') {
                   1465:         if ($status eq 'UNAVAILABLE') {
                   1466:             $msg.='<p class="LC_error">'.&mt('Unable to determine if this resource is open due to network problems. Please try again later.').'</p>';
                   1467:         } elsif ($status eq 'NOT_IN_A_SLOT') {
                   1468:             $msg.='<p class="LC_warning">'.&mt('You are not currently signed up to work at this time and/or place.').'</p>';
                   1469:         } elsif (($status eq 'RESERVABLE') || ($status eq 'RESERVABLE_LATER') ||
                   1470:                  ($status eq 'NOTRESERVABLE')) {
                   1471:             $msg.='<p class="LC_warning">'.&mt('Access requires reservation to work at specific time/place.').'</p>';
                   1472:         } elsif ($status ne 'NOT_YET_VIEWED') {
                   1473:             $msg.='<p class="LC_warning">'.&mt('Not open to be viewed').'</p>';
                   1474:         }
                   1475:         if ($status eq 'CLOSED' || $status eq 'INVALID_ACCESS') {
                   1476:             $msg.=&mt('The problem ').$accessmsg;
                   1477:         } elsif ($status eq 'UNCHECKEDOUT') {
                   1478:             $msg.=&checkout_msg();
                   1479:         } elsif ($status eq 'NOT_YET_VIEWED') {
                   1480:             $msg.=&firstaccess_msg($accessmsg,$symb);
                   1481:         } elsif ($status eq 'NOT_IN_A_SLOT') {
                   1482:             $msg.=&Apache::bridgetask::add_request_another_attempt_button("Sign up for time to work");
                   1483:         } elsif ($status eq 'RESERVABLE') {
                   1484:             $msg.=&mt('Available to make a reservation.').' '.&mt('Reservation window closes [_1].',
                   1485:                       &Apache::lonnavmaps::timeToHumanString($accessmsg,'end')).
                   1486:                       '<br />'.
                   1487:                       &Apache::bridgetask::add_request_another_attempt_button("Sign up for time to work");
                   1488:         } elsif ($status eq 'RESERVABLE_LATER') {
                   1489:             $msg.=&mt('Window to make a reservation will open [_1].',
                   1490:                       &Apache::lonnavmaps::timeToHumanString($accessmsg,'start'));
                   1491:         } elsif ($status eq 'NOTRESERVABLE') {
                   1492:             $msg.=&mt('Not available to make a reservation.');
                   1493:         } elsif ($status eq 'NEED_DIFFERENT_IP') {
                   1494:             if ($ipused) {
                   1495:                 $msg.=&mt('You must use the same computer ([_1]) you used when you first accessed this resource using your time/place-based reservation.',"IP: $ipused");
                   1496:             } else {
                   1497:                 $msg.=&mt('Each student must use a different computer to access this resource at this time and/or place.').'<br />'.
                   1498:                       &mt('Somebody else has already used this particular computer for that purpose.');
                   1499:             }
                   1500:         }
                   1501:         $msg.='<br />';
                   1502:     } elsif ($target eq 'tex') {
                   1503:         my $startminipage = ($env{'form.problem_split'}=~/yes/i)? ''
                   1504:                              : '\begin{minipage}{\textwidth}';
                   1505: 
                   1506:         $msg ='\noindent \vskip 1 mm '.
                   1507:               $startminipage.'\vskip 0 mm';
                   1508:         if ($status eq 'UNAVAILABLE') {
                   1509:             $msg.=&mt('Unable to determine if this resource is open due to network problems. Please try again later.').'\vskip 0 mm ';
                   1510:         } else {
                   1511:             $msg.=&mt('Problem is not open to be viewed. It')." $accessmsg \\vskip 0 mm ";
                   1512:         }
                   1513:     }
                   1514:     return $msg;
                   1515: }
                   1516: 
                   1517: sub checkin_prompt {
                   1518:     my ($target,$slot_name,$slot,$type) = @_;
                   1519:     my $result; 
                   1520:     if ($target eq 'web') {
                   1521:         $result = &Apache::bridgetask::proctor_validation_screen($slot);
                   1522:     } elsif ($target eq 'grade') {
                   1523:         if (!&Apache::bridgetask::proctor_check_auth($slot_name,$slot,$type)) {
                   1524:             $result = &mt('An error occurred during check-in');
                   1525:         }
                   1526:     }
                   1527:     return $result;
                   1528: }
                   1529: 
                   1530: sub selfcheckin_resource {
                   1531:     my ($resource_due,$slot_name,$slot,$symb) = @_;
                   1532:     if ($slot_name ne '') {
                   1533:         my $checked_in =
                   1534:             $Apache::lonhomework::history{'resource.0.checkedin'};
                   1535:         if ($checked_in eq '') {
                   1536:             # unproctored slot access, self checkin
                   1537:             my $needsiptied;
                   1538:             if (ref($slot)) {
                   1539:                 $needsiptied = $slot->{'iptied'};
                   1540:             }
                   1541:             my $check = &Apache::bridgetask::check_in('problem',undef,undef,
                   1542:                                                       $slot_name,$needsiptied);
                   1543:             if ($check =~ /^error: /) {
                   1544:                 &Apache::lonnet::logthis("Error during self-checkin of problem (symb: $symb) using slot: $slot_name");
                   1545:             } else {
                   1546:                 $checked_in = $Apache::lonhomework::results{"resource.0.checkedin"};
                   1547:             }
                   1548:         }
                   1549:         if ((ref($slot) eq 'HASH') && ($checked_in ne '')) {
                   1550:             if ($slot->{'starttime'} < time()) {
                   1551:                 if (!$resource_due) {
                   1552:                     $resource_due = $slot->{'endtime'};
                   1553:                 } elsif ($slot->{'endtime'} < $resource_due) {
                   1554:                     $resource_due = $slot->{'endtime'};
                   1555:                 }
                   1556:             }
                   1557:         }
                   1558:     }
                   1559:     return $resource_due;
                   1560: }
                   1561: 
1.65      albertel 1562: sub checkout_msg {
1.211     albertel 1563:     my %lt=&Apache::lonlocal::texthash( 
                   1564: 		'resource'=>'The resource needs to be checked out',
                   1565: 		'id_expln'=>'As a resource gets checked out, a unique timestamped ID is given to it, and a permanent record is left in the system.',
                   1566:                 'warning'=>'Checking out resources is subject to course policies, and may exclude future credit even if done erroneously.',
1.509     bisitz   1567:                 'checkout'=>'Check out Bubblesheet Exam for Viewing',
                   1568: 		'checkout?'=>'Check out Bubblesheet Exam?');
1.352     albertel 1569:     my $uri = &Apache::lonenc::check_encrypt($env{'request.uri'});
1.159     albertel 1570:     return (<<ENDCHECKOUT);
1.211     albertel 1571: <h2>$lt{'resource'}</h2>
                   1572:     <p>$lt{'id_expln'}</p>
1.449     bisitz   1573: <p class="LC_warning">$lt{'warning'}</p>
1.444     bisitz   1574: <form name="checkout" method="post" action="$uri">
1.91      albertel 1575: <input type="hidden" name="doescheckout" value="yes" />
1.514     bisitz   1576: <input type="button" name="checkoutbutton" value="$lt{'checkout'}" onclick="javascript:if (confirm('$lt{'checkout?'}')) { document.checkout.submit(); }" />
1.65      albertel 1577: </form>
                   1578: ENDCHECKOUT
                   1579: }
                   1580: 
1.252     albertel 1581: sub firstaccess_msg {
1.253     albertel 1582:     my ($time,$symb)=@_;
1.414     albertel 1583:     my $result;
                   1584:     my @interval=&Apache::lonnet::EXT("resource.0.interval");
                   1585:     if ($interval[1] eq 'map') {
                   1586: 	my ($map)=&Apache::lonnet::decode_symb($symb);
                   1587: 	my $foldertitle=&Apache::lonnet::gettitle($map);
                   1588:     
                   1589: 	&Apache::lonxml::debug("map is $map title is $foldertitle");
1.504     golterma 1590: 	$result .= "<h2>".&mt('The resources in "[_1]" are open for a limited time.',$foldertitle)."</h2>"
                   1591:                              .'<p>'.&mt('Once you click the "Show Resource" button below you have [_2] to complete all resources "[_1]".'
                   1592:                              ,$foldertitle,$time)."</p>";
1.414     albertel 1593:     } elsif ($interval[1] eq 'course') {
                   1594: 	my $course = $env{'course.'.$env{'request.course.id'}.'.description'};
1.504     golterma 1595:         $result .= "<h2>".&mt('The resources in "[_1]" are open for a limited time.',$course)."</h2>"
1.505     golterma 1596:                              .'<p>'.&mt('Once you click the "Show Resource" button below you have [_2] to complete all resources "[_1]".'
1.504     golterma 1597:                              ,$course,$time)."</p>";
1.414     albertel 1598:     } else {
                   1599: 	my $title=&Apache::lonnet::gettitle($symb);
1.504     golterma 1600:         $result .= "<h2>".&mt('This resource "[_1]" is open for a limited time.',$title)."</h2>"
                   1601:                              .'<p>'.&mt('Once you click the "Show Resource" button below you have [_2] to complete this resource "[_1]".'
                   1602:                              ,$title,$time)."</p>";
1.414     albertel 1603:     }
1.352     albertel 1604:     my $uri = &Apache::lonenc::check_encrypt($env{'request.uri'});
1.418     bisitz   1605:     my $buttontext = &mt('Show Resource');
                   1606:     my $timertext = &mt('Start Timer?');
1.414     albertel 1607:     $result .= (<<ENDCHECKOUT);
1.444     bisitz   1608: <form name="markaccess" method="post" action="$uri">
1.252     albertel 1609: <input type="hidden" name="markaccess" value="yes" />
1.514     bisitz   1610: <input type="button" name="accessbutton" value="$buttontext" onclick="javascript:if (confirm('$timertext')) { document.markaccess.submit(); }" />
1.252     albertel 1611: </form>
                   1612: ENDCHECKOUT
1.414     albertel 1613:     return $result;
1.252     albertel 1614: }
                   1615: 
1.204     albertel 1616: sub init_problem_globals {
                   1617:     my ($type)=@_;
                   1618:     #initialize globals
1.308     foxr     1619:     #   For problems, we start out in part 0 (outside a <part> tag).
                   1620:     #   and part 0 is used to describe the main body of the <problem>
                   1621:     #
1.204     albertel 1622:     if ($type eq 'problem') {
                   1623: 	$Apache::inputtags::part='0';
                   1624: 	@Apache::inputtags::partlist=('0');
1.405     albertel 1625: 	&Apache::lonhomework::set_show_problem_status(&get_problem_status('0'));
1.266     albertel 1626: 	$Apache::lonhomework::ignore_response_errors=0;
1.308     foxr     1627: 
1.266     albertel 1628:     } elsif ($type eq 'library') {
1.204     albertel 1629: 	$Apache::inputtags::part='';
                   1630: 	@Apache::inputtags::partlist=();
1.405     albertel 1631: 	&Apache::lonhomework::reset_show_problem_status();
1.266     albertel 1632: 	$Apache::lonhomework::ignore_response_errors=1;
1.308     foxr     1633: 
1.304     albertel 1634:     } elsif ($type eq 'Task') {
                   1635: 	$Apache::inputtags::part='0';
                   1636: 	@Apache::inputtags::partlist=('0');
1.405     albertel 1637: 	&Apache::lonhomework::reset_show_problem_status();
1.304     albertel 1638: 	$Apache::lonhomework::ignore_response_errors=1;
1.204     albertel 1639:     }
1.477     www      1640:     @Apache::functionplotresponse::callscripts=();
1.204     albertel 1641:     @Apache::inputtags::responselist = ();
                   1642:     @Apache::inputtags::importlist = ();
                   1643:     @Apache::inputtags::previous=();
                   1644:     @Apache::inputtags::previous_version=();
1.536     raeburn  1645:     $Apache::inputtags::leniency='';
1.204     albertel 1646:     $Apache::structuretags::printanswer='No';
                   1647:     @Apache::structuretags::whileconds=();
                   1648:     @Apache::structuretags::whilebody=();
                   1649:     @Apache::structuretags::whileline=();
                   1650:     $Apache::lonhomework::scantronmode=0;
                   1651:     undef($Apache::lonhomework::name);
1.358     albertel 1652:     undef($Apache::lonhomework::default_type);
                   1653:     undef($Apache::lonhomework::type);
1.204     albertel 1654: }
                   1655: 
                   1656: sub reset_problem_globals {
                   1657:     my ($type)=@_;
                   1658:     undef(%Apache::lonhomework::history);
                   1659:     undef(%Apache::lonhomework::results);
                   1660:     undef($Apache::inputtags::part);
1.536     raeburn  1661:     undef($Apache::inputtags::leniency);
1.498     raeburn  1662:     if ($type eq 'Task') {
                   1663:         undef($Apache::inputtags::slot_name);
1.528     raeburn  1664:     } elsif ($type eq 'problem') {
                   1665:         undef($Apache::lonhomework::rawrndseed);
1.498     raeburn  1666:     }
1.208     albertel 1667: #don't undef this, lonhomework.pm takes care of this, we use this to 
                   1668: #detect if we try to do 2 problems in one file
                   1669: #   undef($Apache::lonhomework::parsing_a_problem);
1.204     albertel 1670:     undef($Apache::lonhomework::name);
1.358     albertel 1671:     undef($Apache::lonhomework::default_type);
                   1672:     undef($Apache::lonhomework::type);
                   1673:     undef($Apache::lonhomework::scantronmode);
                   1674:     undef($Apache::lonhomework::ignore_response_errors);
1.477     www      1675:     undef(@Apache::functionplotresponse::callscripts);
1.405     albertel 1676:     &Apache::lonhomework::reset_show_problem_status();
1.204     albertel 1677: }
                   1678: 
1.241     albertel 1679: sub set_problem_state {
1.240     albertel 1680:     my ($part)=@_;
1.284     albertel 1681:     if ($env{'form.problemstate'} eq 'CANNOT_ANSWER_correct') {
1.240     albertel 1682: 	$Apache::lonhomework::history{"resource.$part.solved"}=
                   1683: 	    'correct_by_student';
                   1684:     }
                   1685: }
                   1686: 
1.241     albertel 1687: sub get_problem_status {
                   1688:     my ($part)=@_;
1.267     albertel 1689:     my $problem_status;
1.284     albertel 1690:     if ($env{'request.state'} eq 'construct' &&
                   1691: 	defined($env{'form.problemstatus'})) {
                   1692: 	$problem_status=$env{'form.problemstatus'};
1.267     albertel 1693:     } else {
                   1694: 	$problem_status=&Apache::lonnet::EXT("resource.$part.problemstatus");
                   1695: 	&Apache::lonxml::debug("problem status for $part is $problem_status");
1.284     albertel 1696: 	&Apache::lonxml::debug("env probstat is ".$env{'form.problemstatus'});
1.241     albertel 1697:     }
                   1698:     return $problem_status;
                   1699: }
                   1700: 
1.9       albertel 1701: sub start_problem {
1.326     albertel 1702:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.19      albertel 1703: 
1.311     foxr     1704:     # We'll use the redirection to fix up printing of duedates.
1.321     albertel 1705:     if (!$Apache::lonxml::metamode) {
                   1706: 	&Apache::lonxml::startredirection();
                   1707:     }
1.311     foxr     1708: 
1.308     foxr     1709:     # Problems don't nest and we don't allow more than one <problem> in
                   1710:     # a .problem file.
                   1711:     #
1.184     albertel 1712:     if ( $Apache::inputtags::part ne '' ||
                   1713: 	 $Apache::lonhomework::parsing_a_problem) {
                   1714: 	&Apache::lonxml::error('Only one &lt;problem&gt; allowed in a .problem file');
1.326     albertel 1715: 	#my $bodytext=&Apache::lonxml::get_all_text("/problem",$parser,$style);
1.159     albertel 1716: 	return '';
                   1717:     }
1.184     albertel 1718: 
                   1719:     $Apache::lonhomework::parsing_a_problem=1;
1.204     albertel 1720:     &init_problem_globals('problem');
1.166     albertel 1721: 
1.284     albertel 1722:     if (defined($env{'scantron.maxquest'})) {
1.166     albertel 1723: 	$Apache::lonhomework::scantronmode=1;
                   1724:     }
1.161     albertel 1725: 
1.159     albertel 1726:     if ($target ne 'analyze') {
1.415     raeburn  1727:         my $type = &Apache::lonnet::EXT('resource.0.type');
                   1728: 	$Apache::lonhomework::type=$type;
1.284     albertel 1729: 	if (($env{'request.state'} eq 'construct') &&
1.410     albertel 1730: 	    $env{'form.problemtype'} =~ /\S/) {
1.284     albertel 1731: 	    $Apache::lonhomework::type=$env{'form.problemtype'};
1.237     albertel 1732: 	}
1.332     albertel 1733: 	&Apache::lonxml::debug("Found this to be of type :$Apache::lonhomework::type:");
1.159     albertel 1734:     }
1.164     albertel 1735:     if ($Apache::lonhomework::type eq '' ) {
1.284     albertel 1736: 	my $uri=$env{'request.uri'};
1.159     albertel 1737: 	if ($uri=~/\.(\w+)$/) {
                   1738: 	    $Apache::lonhomework::type=$1;
                   1739: 	    &Apache::lonxml::debug("Using type of $1");
                   1740: 	} else {
                   1741: 	    $Apache::lonhomework::type='problem';
                   1742: 	    &Apache::lonxml::debug("Using default type, problem, :$uri:");
                   1743: 	}
1.87      albertel 1744:     }
1.301     albertel 1745:     $Apache::lonhomework::default_type = $Apache::lonhomework::type;
1.58      www      1746: 
1.363     albertel 1747:     &initialize_storage();
1.389     albertel 1748:     if ($target ne 'analyze'
                   1749:        	&& $env{'request.state'} eq 'construct') {
                   1750: 	&set_problem_state('0');
                   1751:     }
                   1752: 
1.366     albertel 1753:     if ($target eq 'web') {
                   1754: 	&Apache::lonxml::debug(" grading history ");
                   1755: 	&Apache::lonhomework::showhash(%Apache::lonhomework::history);
                   1756:     }
1.363     albertel 1757: 
1.159     albertel 1758:     #added vars to the scripting enviroment
1.213     albertel 1759:     my $expression='$external::part=\''.$Apache::inputtags::part.'\';';
1.248     albertel 1760:     $expression.='$external::type=\''.$Apache::lonhomework::type.'\';';
1.24      albertel 1761:     &Apache::run::run($expression,$safeeval);
1.159     albertel 1762:     my $status;
                   1763:     my $accessmsg;
1.508     raeburn  1764:     my $resource_due;
1.540     raeburn  1765:     my $ipused;
1.159     albertel 1766: 
1.343     albertel 1767:     my $name= &get_resource_name($parstack,$safeeval);
1.561   ! raeburn  1768:     my ($result,$form_tag_start,$slot_name,$slot,$probpartlist,$firstaccres);
1.506     raeburn  1769: 
                   1770:     if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
                   1771:         $target eq 'tex') {
                   1772:         if ($env{'form.markaccess'}) {
                   1773:             my @interval=&Apache::lonnet::EXT("resource.0.interval");
1.539     raeburn  1774:             my ($timelimit) = split(/_/,$interval[0]);
1.561   ! raeburn  1775:             my $is_set = &Apache::lonnet::set_first_access($interval[1],$timelimit);
        !          1776:             unless (($is_set eq 'ok') || ($is_set eq 'already_set')) {
        !          1777:                 $firstaccres = $is_set;
        !          1778:             }
1.506     raeburn  1779:         }
                   1780:     }
                   1781: 
1.354     albertel 1782:     if ($target eq 'web' || $target eq 'webgrade' || $target eq 'tex'
                   1783: 	|| $target eq 'edit') {
1.528     raeburn  1784: 	($result,$form_tag_start,$probpartlist) =
1.350     albertel 1785: 	    &page_start($target,$token,$tagstack,$parstack,$parser,$safeeval,
                   1786: 			$name);
1.552     raeburn  1787:     } elsif ((($target eq 'grade') && ($Apache::lonhomework::type eq 'randomizetry')) ||
                   1788:              ($target eq 'answer')) {
1.528     raeburn  1789:         my ($symb)= &Apache::lonnet::whichuser();
                   1790:         my $navmap = Apache::lonnavmaps::navmap->new();
                   1791:         if (ref($navmap)) {
                   1792:             my $res = $navmap->getBySymb($symb);
                   1793:             if (ref($res)) {
                   1794:                 $probpartlist = $res->parts();
                   1795:             }
                   1796:         }
1.350     albertel 1797:     }
                   1798: 
1.552     raeburn  1799:     if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
                   1800:         $target eq 'tex') {
                   1801: 
                   1802:         my ($symb)= &Apache::lonnet::whichuser();
                   1803:         ($status,$accessmsg,$slot_name,$slot,$ipused) =
                   1804:             &Apache::lonhomework::check_slot_access('0','problem',$symb,$probpartlist);
                   1805:         push (@Apache::inputtags::status,$status);
                   1806:     }
                   1807: 
1.284     albertel 1808:     if ($target eq 'tex' and $env{'request.symb'} =~ m/\.page_/) {$result='';}
1.159     albertel 1809: 
1.479     raeburn  1810:     if ($target eq 'analyze') { my $rndseed=&setup_rndseed($safeeval,$target); }
1.159     albertel 1811:     if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
                   1812: 	$target eq 'tex') {
1.479     raeburn  1813: 
1.159     albertel 1814: 	#handle rand seed in construction space
1.528     raeburn  1815: 	my $rndseed=&setup_rndseed($safeeval,$target,$probpartlist);
                   1816:         if (($target eq 'grade') && &Apache::response::submitted()) {
                   1817:             if ($Apache::lonhomework::type eq 'randomizetry') {
1.529     raeburn  1818:                 $Apache::lonhomework::results{'resource.0.rndseed'}=$rndseed;
1.528     raeburn  1819:             } else {
                   1820:                 my @parts;
                   1821:                 if (ref($probpartlist) eq 'ARRAY') {
                   1822:                     @parts = @{$probpartlist};
                   1823:                 }
                   1824:                 unless (@parts) {
1.529     raeburn  1825:                     $Apache::lonhomework::results{'resource.0.rndseed'}=$Apache::lonhomework::rawrndseed;
1.528     raeburn  1826:                 }
                   1827:             }
                   1828:         }
1.367     albertel 1829: 	my ($symb)=&Apache::lonnet::whichuser();
1.479     raeburn  1830: 
1.333     albertel 1831: 	if ($env{'request.state'} ne "construct" && 
                   1832: 	    ($symb eq '' || $Apache::lonhomework::type eq 'practice')) {
1.162     albertel 1833: 	    $form_tag_start.='<input type="hidden" name="rndseed" value="'.
1.462     raeburn  1834: 		$rndseed.'" />'.
1.551     damieng  1835: 		    '<button type="submit" name="resetdata"
                   1836:                         value="new_problem_variation">'.&mt('New Problem Variation').'</button>';
1.334     albertel 1837: 	    if (exists($env{'form.username'})) {
                   1838: 		$form_tag_start.=
1.164     albertel 1839: 		    '<input type="hidden" name="username"
1.284     albertel 1840:                              value="'.$env{'form.username'}.'" />';
1.334     albertel 1841: 	    }
1.462     raeburn  1842: 	    if ($env{'request.role.adv'}) {
                   1843: 		$form_tag_start.= ' <label class="LC_nobreak">'
                   1844:                          .'<input type="checkbox" name="showallfoils"';
                   1845: 		if (defined($env{'form.showallfoils'})) {
                   1846: 		    $form_tag_start.=' checked="checked"';
                   1847: 		}
                   1848:                 $form_tag_start.= ' /> '
                   1849:                                  .&mt('Show All Foils')
                   1850:                                  .'</label>';
                   1851: 	    }
1.417     www      1852:             if ($Apache::lonhomework::type eq 'practice') {
1.428     raeburn  1853:                 $form_tag_start.=&practice_problem_header();
1.417     www      1854:             }
1.462     raeburn  1855: 	    $form_tag_start.='<hr />';
1.479     raeburn  1856:         } elsif (($env{'request.state'} ne "construct") &&
                   1857:                  ($Apache::lonhomework::type eq 'randomizetry') &&
1.546     raeburn  1858:                  ($status eq 'CAN_ANSWER') &&
1.549     raeburn  1859:                  ($env{'course.'.$env{'request.course.id'}.'.type'} ne 'Placement') &&
                   1860:                  (!$env{'request.role.adv'})) {
                   1861: # "New Problem Variation Each Try" header suppressed for Placement Tests, unless course personnel. 
1.479     raeburn  1862:             my $reqtries = &Apache::lonnet::EXT("resource.$Apache::inputtags::part.randomizeontries");
                   1863:             my $problemstatus = &get_problem_status($Apache::inputtags::part);
                   1864:             $form_tag_start.=&randomizetry_problem_header($problemstatus,$reqtries);
                   1865:         }
1.324     albertel 1866: 
1.159     albertel 1867: 	my $expression='$external::datestatus="'.$status.'";';
                   1868: 	$expression.='$external::gradestatus="'.$Apache::lonhomework::history{"resource.0.solved"}.'";';
                   1869: 	&Apache::run::run($expression,$safeeval);
                   1870: 	&Apache::lonxml::debug("Got $status");
1.324     albertel 1871: 
1.159     albertel 1872: 	if (( $status eq 'CLOSED' ) ||
                   1873: 	    ( $status eq 'UNCHECKEDOUT') ||
1.252     albertel 1874: 	    ( $status eq 'NOT_YET_VIEWED') ||
1.159     albertel 1875: 	    ( $status eq 'BANNED') ||
1.216     albertel 1876: 	    ( $status eq 'UNAVAILABLE') ||
1.324     albertel 1877: 	    ( $status eq 'NOT_IN_A_SLOT') ||
1.499     raeburn  1878:             ( $status eq 'NOTRESERVABLE') ||
                   1879:             ( $status eq 'RESERVABLE') ||
                   1880:             ( $status eq 'RESERVABLE_LATER') ||
1.540     raeburn  1881: 	    ( $status eq 'INVALID_ACCESS') ||
                   1882:             ( $status eq 'NEED_DIFFERENT_IP')) {
1.326     albertel 1883: 	    my $bodytext=&Apache::lonxml::get_all_text("/problem",$parser,
                   1884: 						       $style);
1.561   ! raeburn  1885:             if (($status eq 'NOT_YET_VIEWED') && ($firstaccres)) {
        !          1886:                 $result .= '<p class="LC_error">'.
        !          1887:                            &mt('A problem occurred when trying to start the timer.').'</p>';
        !          1888:             }
1.557     raeburn  1889:             $result .= &access_status_msg('problem',$status,$symb,$target,$ipused,$accessmsg);
1.324     albertel 1890: 	} elsif ($status eq 'NEEDS_CHECKIN') {
1.326     albertel 1891: 	    my $bodytext=&Apache::lonxml::get_all_text("/problem",$parser,
                   1892: 						       $style);
1.557     raeburn  1893:             $result .= &checkin_prompt($target,$slot_name,$slot,'problem');
1.159     albertel 1894: 	} elsif ($target eq 'web') {
1.508     raeburn  1895: 	    if ($status eq 'CAN_ANSWER') {
                   1896:                 $resource_due = &Apache::lonhomework::due_date(0, $env{'request.symb'});
                   1897:                 if ($slot_name ne '') {
1.557     raeburn  1898:                     $resource_due = &selfcheckin_resource($resource_due,$slot_name,$slot,
                   1899:                                                           $env{'request.symb'});
1.508     raeburn  1900:                 }
                   1901:                 if ($resource_due) {
                   1902:                     my $time_left = $resource_due - time();
                   1903:                     if ($resource_due && ($time_left > 0) && ($target eq 'web')) {
                   1904:                         $result .= &Apache::lonhtmlcommon::set_due_date($resource_due);
                   1905:                     }
                   1906:                 }
                   1907:             }
1.368     albertel 1908: 	    $result.="\n $form_tag_start \t".	
1.227     albertel 1909: 	      '<input type="hidden" name="submitted" value="yes" />';
                   1910: 	    # create a page header and exit
1.284     albertel 1911: 	    if ($env{'request.state'} eq "construct") {
1.544     damieng  1912:                 if ($env{'form.inhibitmenu'} eq 'yes') {
                   1913:                     # error messages can be useful in any case
                   1914:                     $result.= &Apache::lonxml::message_location();
                   1915:                 } else {
1.542     raeburn  1916: 		    $result.= &problem_web_to_edit_header($env{'form.rndseed'});
                   1917:                 }
1.428     raeburn  1918:                 if ($Apache::lonhomework::type eq 'practice') {
1.551     damieng  1919:                     $result.= '<button type="submit" name="resetdata" '.
                   1920:                         'value="new_problem_variation">'.&mt('New Problem Variation').'</button>'.
                   1921:                         &practice_problem_header().'<hr />';
1.428     raeburn  1922:                 }
1.227     albertel 1923: 	    }
                   1924: 	    # if we are viewing someone else preserve that info
1.284     albertel 1925: 	    if (defined $env{'form.grade_symb'}) {
1.227     albertel 1926: 		foreach my $field ('symb','courseid','domain','username') {
                   1927: 		    $result .= '<input type="hidden" name="grade_'.$field.
1.284     albertel 1928: 			'" value="'.$env{"form.grade_$field"}.'" />'."\n";
1.159     albertel 1929: 		}
1.479     raeburn  1930:                 foreach my $field ('trial','questiontype') {
                   1931:                     if ($env{"form.grade_$field"} ne '') {
                   1932:                         $result .= '<input type="hidden" name="grade_'.$field.
                   1933:                             '" value="'.$env{"form.grade_$field"}.'" />'."\n";
                   1934:                     }
                   1935:                 }
1.159     albertel 1936: 	    }
1.490     raeburn  1937:             if ($env{'form.grade_imsexport'}) {
                   1938:                 $result = '';
                   1939:             }
1.159     albertel 1940: 	} elsif ($target eq 'tex') {
1.319     foxr     1941: 	    $result .= 'INSERTTEXFRONTMATTERHERE';
1.500     foxr     1942: 	    $result .= &select_metadata_hyphenation();
1.99      sakharuk 1943: 	}
1.159     albertel 1944:     } elsif ($target eq 'edit') {
1.343     albertel 1945: 	$result .= $form_tag_start.&problem_edit_header();
1.226     albertel 1946: 	$Apache::lonxml::warnings_error_header=
                   1947: 	    &mt("Editor Errors - these errors might not effect the running of the problem, but they will likely cause problems with further use of the Edit mode. Please use the EditXML mode to fix these errors.")."<br />";
1.159     albertel 1948: 	my $temp=&Apache::edit::insertlist($target,$token);
                   1949: 	$result.=$temp;
                   1950:     } elsif ($target eq 'modified') {
                   1951: 	$result=$token->[4];
                   1952:     } else {
                   1953: 	# page_start returned a starting result, delete it if we don't need it
                   1954: 	$result = '';
1.99      sakharuk 1955:     }
1.159     albertel 1956:     return $result;
1.9       albertel 1957: }
                   1958: 
                   1959: sub end_problem {
1.159     albertel 1960:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.321     albertel 1961:     my $result;
1.310     foxr     1962: 
1.321     albertel 1963:     if (!$Apache::lonxml::metamode) {
                   1964: 	$result = &Apache::lonxml::endredirection(); #started in &start_problem
1.329     albertel 1965: 	$Apache::lonxml::post_evaluate=0;
1.321     albertel 1966:     }
1.319     foxr     1967: 
                   1968:     if ($target eq 'tex') {
1.321     albertel 1969: 	# Figure out the front matter and replace the
                   1970: 	# INSERTTEXFRONTMATTERHERE in result with it.  note that we do
                   1971: 	# this in end_problem because whether or not we display due
                   1972: 	# dates depends on whether due dates have already been
                   1973: 	# displayed in the problem parts.
                   1974: 
1.319     foxr     1975: 	my $frontmatter   = '';
                   1976: 	my $startminipage = '';
                   1977: 	if (not $env{'form.problem_split'}=~/yes/) {
                   1978: 	    $startminipage = '\begin{minipage}{\textwidth}';
                   1979: 	}
                   1980: 	my $id = $Apache::inputtags::part;
                   1981: 	my $weight = &Apache::lonnet::EXT("resource.$id.weight");
                   1982: 	my $packages=&Apache::lonnet::metadata($env{'request.uri'},'packages');
1.526     raeburn  1983: 	my @packages = split(/,/,$packages);
1.319     foxr     1984: 	my $allow_print_points = 0;
                   1985: 	foreach my $partial_key (@packages) {
                   1986: 	    if ($partial_key=~m/^part_0$/) {
                   1987: 		$allow_print_points=1;
                   1988: 	    }
                   1989: 	}
                   1990: 	my $maxtries = &Apache::lonnet::EXT("resource.$id.maxtries");
                   1991: 	if (defined($maxtries) && $maxtries < 0) { $allow_print_points=0; }
                   1992: 	if (lc($env{'course.'.$env{'request.course.id'}.
                   1993: 			'.disableexampointprint'}) eq 'yes') {
                   1994: 	    $allow_print_points=0;
                   1995: 	}
                   1996: 	my $name_of_resourse= &Apache::lonxml::latex_special_symbols(&get_resource_name($parstack,$safeeval),'header');
1.443     foxr     1997: 	my $begin_doc=' \typeout{STAMPOFPASSEDRESOURCESTART Resource <h2>"'.$name_of_resourse.'"</h2> located in <br /><small><b>'.$env{'request.uri'}.'</b></small><br /> STAMPOFPASSEDRESOURCEEND} \noindent ';
1.500     foxr     1998: 	&clear_required_languages();
1.319     foxr     1999: 	my $toc_line='\vskip 1 mm\noindent '.$startminipage.
                   2000: 	    '\addcontentsline{toc}{subsection}{'.$name_of_resourse.'}';
                   2001: 	
                   2002: 	#  Figure out what the due date is and if we need to print
                   2003: 	#  it in the problem header.  We have been logging the
                   2004: 	#  last due date written to file. 
                   2005: 	
                   2006: 	my $duetime = &Apache::lonnet::EXT("resource.$id.duedate"); 
                   2007: 	my $duedate = POSIX::strftime("%c",localtime($duetime));
1.448     bisitz   2008:         my $duedate_text = &mt('Due date: [_1]'
                   2009:                               ,&Apache::lonlocal::locallocaltime($duetime));
1.319     foxr     2010: 	my $temp_file;
                   2011: 	my $filename = "/home/httpd/prtspool/$env{'user.name'}_$env{'user.domain'}_printout.due";
                   2012: 	
                   2013: 	# Figure out what the last printed due date is or set it
                   2014: 	# to the epoch if no duedates have been printed.
                   2015: 	
                   2016: 	my $due_file_content = 0;      #   If the file does not yet exist, time is the epoch.
                   2017: 	if (-e $filename) {
                   2018: 	    $temp_file = Apache::File->new($filename);
                   2019: 	    my @due_file      = <$temp_file>;
                   2020: 	    $due_file_content = $due_file[$#due_file];
                   2021: 	    chomp $due_file_content;
                   2022: 	} 
                   2023: 	
                   2024: 	# We display the due date iff it is not the same as the last
                   2025: 	# duedate in problem header ($due_file_content), and
                   2026: 	# none of our parts displayed a duedate.
                   2027: 	#
                   2028: 	my $parts_with_displayduedate;
                   2029: 	if (defined $Apache::outputtags::showonce{'displayduedate'}) {
                   2030: 	    $parts_with_displayduedate = 
                   2031: 		scalar(@{$Apache::outputtags::showonce{'displayduedate'}});
                   2032: 	} else {
                   2033: 	    $parts_with_displayduedate = 0;
                   2034: 	}
                   2035: 	if (($due_file_content != $duetime) && ($parts_with_displayduedate == 0) ) {
                   2036: 	    $temp_file = Apache::File->new('>'.$filename);
                   2037: 	    print $temp_file "$duetime\n";
                   2038: 	    if (not $env{'request.symb'} =~ m/\.page_/) {
                   2039: 		if(not $duedate=~m/1969/ and $Apache::lonhomework::type ne 'exam') {
                   2040: 		    $frontmatter .= $begin_doc.
1.448     bisitz   2041: 			'\textit{'.$duedate_text.'} '.$toc_line;
1.319     foxr     2042: 		} else {
                   2043: 		    $frontmatter.= $begin_doc.$toc_line;
1.463     foxr     2044: 		    if ($Apache::lonhomework::type eq 'exam' and $allow_print_points==1) { 
1.492     christia 2045: 			$frontmatter .= '\fbox{\textit{'.&mt('[quant,_1,pt,pt]',$weight ).'}}';
1.463     foxr     2046: 		    }
1.319     foxr     2047: 		}
                   2048: 	    } else {
1.448     bisitz   2049: 		$frontmatter .= '\vskip 1mm\textit{'.$duedate_text.'} \\\\\\\\'.$startminipage;
1.319     foxr     2050: 	    }
                   2051: 	} else {
                   2052: 	    if (not $env{'request.symb'} =~ m/\.page_/) {
                   2053: 		$frontmatter .= $begin_doc.$toc_line;
1.463     foxr     2054: 		if (($Apache::lonhomework::type eq 'exam') and ($allow_print_points==1)) { 
1.492     christia 2055: 		    $frontmatter .= '\fbox{\textit{'.&mt('[quant,_1,pt,pt]',$weight ).'}}';
1.463     foxr     2056: 		}
1.319     foxr     2057: 	    } else {
1.381     albertel 2058: 		$frontmatter .= '\vskip 1mm \\\\\\\\'.$startminipage;
1.319     foxr     2059: 	    }
                   2060: 	}
                   2061: 	$result =~ s/INSERTTEXFRONTMATTERHERE/$frontmatter/;
                   2062:     }
                   2063: 
1.159     albertel 2064:     my $status=$Apache::inputtags::status['-1'];
                   2065:     if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' ||
                   2066: 	$target eq 'tex') {
1.249     albertel 2067: 	if ( $target eq 'grade' && $Apache::inputtags::part eq '0') {
1.159     albertel 2068: 	    # if part is zero, no <part>s existed, so we need to the grading
1.249     albertel 2069: 	    if ($status eq 'CAN_ANSWER' ||$Apache::lonhomework::scantronmode) {
                   2070: 		&Apache::inputtags::grade;
1.324     albertel 2071: 	    } elsif ($status eq 'NEEDS_CHECKIN') {
                   2072: 		# no need to grade, and don't want to hide data
1.249     albertel 2073: 	    } else {
                   2074: 		# move any submission data to .hidden
                   2075: 		&Apache::inputtags::hidealldata($Apache::inputtags::part);
                   2076: 	    }
1.159     albertel 2077: 	} elsif ( ($target eq 'web' || $target eq 'tex') &&
                   2078: 		  $Apache::inputtags::part eq '0' &&
1.490     raeburn  2079: 		  $status ne 'UNCHECKEDOUT' && $status ne 'NOT_YET_VIEWED'
                   2080:                   && !$env{'form.grade_imsexport'}) {
1.159     albertel 2081: 	    # if part is zero, no <part>s existed, so we need show the current
                   2082: 	    # grading status
                   2083: 	    my $gradestatus = &Apache::inputtags::gradestatus($Apache::inputtags::part,$target);
                   2084: 	    $result.= $gradestatus;
                   2085: 	}
                   2086: 	if (
1.284     albertel 2087: 	    (($target eq 'web') && ($env{'request.state'} ne 'construct')) ||
1.159     albertel 2088: 	    ($target eq 'answer') || ($target eq 'tex')
                   2089: 	   ) {
1.490     raeburn  2090: 	    if (($target ne 'tex') &&
                   2091: 		($env{'form.answer_output_mode'} ne 'tex') && 
                   2092:                 (!$env{'form.grade_imsexport'})) {
1.254     www      2093: 		$result.="</form>";
1.159     albertel 2094: 	    }
                   2095: 	    if ($target eq 'web') {
1.507     raeburn  2096:                 #
                   2097:                 # Closing </body></html> not added by end_page().
                   2098:                 # Added separately at end of this routine, after added
                   2099:                 # <script></script> so document will be valid xhtml.
                   2100:                 #
1.546     raeburn  2101:                 my $showdisc = 1;
1.547     raeburn  2102:                 if (($env{'course.'.$env{'request.course.id'}.'.type'} eq 'Placement') &&
                   2103:                     (!$env{'request.role.adv'})) { 
                   2104: # For Placement Tests footer with "Post Discussion" and "Send Feedback" links is suppressed.
1.546     raeburn  2105:                     $showdisc = 0;
1.547     raeburn  2106:                     my ($symb)= &Apache::lonnet::whichuser();
                   2107:                     if ($symb) {
                   2108:                         my $navmap = Apache::lonnavmaps::navmap->new();
                   2109:                         if (ref($navmap)) {
                   2110:                             my $hastries = &Apache::lonplacementtest::has_tries($symb,$navmap);  
                   2111: # For Placement Tests test status is displayed if this is the last resource in the course
1.549     raeburn  2112: # and there are no tries left
1.547     raeburn  2113:                             unless ($hastries) {
                   2114:                                 if (&Apache::lonplacementtest::is_lastres($symb,$navmap)) {
                   2115:                                     my ($score,$incomplete) = 
                   2116:                                         &Apache::lonplacementtest::check_completion(undef,undef,1);
                   2117:                                     if (!$incomplete) {
                   2118:                                         $result .= &Apache::lonplacementtest::showresult(1,1);
                   2119:                                     } elsif ($incomplete < 100) { 
                   2120:                                         $result.= &Apache::lonplacementtest::showincomplete($incomplete,1);
                   2121:                                     }
                   2122:                                 } else {
                   2123: # For Placement Tests score is displayed if test has just been completed
                   2124:                                     my ($score,$incomplete) = &Apache::lonplacementtest::check_completion(undef,undef,1);
                   2125:                                     if (!$incomplete) {
                   2126:                                         $result.= &Apache::lonplacementtest::showresult(1,1);
                   2127:                                     }
                   2128:                                 }
                   2129:                             }
                   2130:                         }
                   2131:                     }
1.546     raeburn  2132:                 }
                   2133: 		$result.= &Apache::loncommon::end_page({'discussion' => $showdisc,
1.507     raeburn  2134: 							'notbody'    => 1});
1.159     albertel 2135: 	    } elsif ($target eq 'tex') {
1.178     sakharuk 2136: 		my $endminipage = '';
1.284     albertel 2137: 		if (not $env{'form.problem_split'}=~/yes/) {
1.178     sakharuk 2138: 		    $endminipage = '\end{minipage}';
                   2139: 		}
1.284     albertel 2140:                 if ($env{'form.print_discussions'} eq 'yes') {
1.263     sakharuk 2141: 		    $result.=&Apache::lonxml::xmlend($target,$parser);
1.159     albertel 2142: 		} else {
1.262     sakharuk 2143: 		    $result .= '\keephidden{ENDOFPROBLEM}\vskip 0.5mm\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}';
1.284     albertel 2144: 		    if (not $env{'request.symb'} =~ m/\.page_/) {
1.262     sakharuk 2145: 			$result .= $endminipage.'\end{document} ';
                   2146: 		    } else {
1.382     albertel 2147: 			$result .= $endminipage;
1.262     sakharuk 2148: 		    }
1.159     albertel 2149: 		}
                   2150: 	    }
                   2151: 	}
1.476     www      2152:         if ($target eq 'web') {
                   2153:            $result.=&Apache::functionplotresponse::init_script();
                   2154:         }
1.159     albertel 2155: 	if ($target eq 'grade') {
                   2156: 	    &Apache::lonhomework::showhash(%Apache::lonhomework::results);
                   2157: 	    &finalize_storage();
                   2158: 	}
1.284     albertel 2159: 	if ($target eq 'answer' && ($env{'request.state'} eq 'construct')
                   2160: 	    && $env{'form.answer_output_mode'} ne 'tex') {
1.346     albertel 2161: 	    $result.=&Apache::loncommon::end_page({'discussion' => 1});
1.294     albertel 2162: 	                        # normally we get it from above, but in CSTR
1.172     albertel 2163: 	                        # we always show answer mode too.
1.159     albertel 2164: 	}
                   2165:     } elsif ($target eq 'meta') {
                   2166: 	if ($Apache::inputtags::part eq '0') {
1.179     albertel 2167: 	    @Apache::inputtags::response=();
1.159     albertel 2168: 	    $result=&Apache::response::mandatory_part_meta;
                   2169: 	}
1.559     raeburn  2170: 	$result.=&Apache::response::meta_part_order('problem');
1.258     albertel 2171: 	$result.=&Apache::response::meta_response_order();
1.159     albertel 2172:     } elsif ($target eq 'edit') {
                   2173: 	&Apache::lonxml::debug("in end_problem with $target, edit");
1.314     albertel 2174: 	$result .= &problem_edit_footer();
1.320     albertel 2175:     } elsif ($target eq 'modified') {
                   2176: 	 $result .= $token->[2];
1.159     albertel 2177:     }
1.155     albertel 2178: 
1.284     albertel 2179:     if ($env{'request.state'} eq 'construct' && $target eq 'web') {
1.177     albertel 2180: 	&Apache::inputtags::check_for_duplicate_ids();
                   2181:     }
1.204     albertel 2182: 
                   2183:     &reset_problem_globals('problem');
1.159     albertel 2184: 
1.502     foxr     2185:     #
                   2186:     # This shouild be just above the return so that the
                   2187:     # time put in the javascript is as late as possible in the
                   2188:     # computation:
                   2189:     #
                   2190:     if ($target eq 'web') {
                   2191:         $result .= &Apache::lonhtmlcommon::set_compute_end_time();
1.507     raeburn  2192:         #
                   2193:         # Closing tags delayed so any <script></script> tags 
                   2194:         # not in head can appear inside body, for valid xhtml.
                   2195:         # 
                   2196:         $result .= "</body>\n</html>";
1.502     foxr     2197:     }
1.159     albertel 2198:     return $result;
1.48      albertel 2199: }
                   2200: 
1.108     albertel 2201: 
1.48      albertel 2202: sub start_library {
1.159     albertel 2203:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.343     albertel 2204:     my ($result,$form_tag_start);
1.371     albertel 2205:     if ($#$tagstack eq 0 && $$tagstack[0] eq 'library') {
1.244     albertel 2206: 	&init_problem_globals('library');
                   2207: 	$Apache::lonhomework::type='problem';
                   2208:     }
1.159     albertel 2209:     if ($target eq 'edit') {
1.343     albertel 2210: 	($result,$form_tag_start)=
                   2211: 	    &page_start($target,$token,$tagstack,$parstack,$parser,$safeeval,
                   2212: 			'Edit');
                   2213: 	$result.=$form_tag_start.&problem_edit_header();
1.159     albertel 2214: 	my $temp=&Apache::edit::insertlist($target,$token);
                   2215: 	$result.=$temp;
                   2216:     } elsif ($target eq 'modified') {
                   2217: 	$result=$token->[4];
1.340     albertel 2218:     } elsif (($target eq 'web' || $target eq 'webgrade')
1.371     albertel 2219: 	     && ($#$tagstack eq 0 && $$tagstack[0] eq 'library')
1.340     albertel 2220: 	     && $env{'request.state'} eq "construct" ) {
1.159     albertel 2221: 	my $name=&get_resource_name($parstack,$safeeval);
1.343     albertel 2222: 	($result,$form_tag_start)=
                   2223: 	    &page_start($target,$token,$tagstack,$parstack,$parser,$safeeval,
                   2224: 			$name);
1.479     raeburn  2225: 	my $rndseed=&setup_rndseed($safeeval,$target);
1.343     albertel 2226: 	$result.=" \n $form_tag_start".	
1.159     albertel 2227: 		  '<input type="hidden" name="submitted" value="yes" />';
                   2228: 	$result.=&problem_web_to_edit_header($rndseed);
1.428     raeburn  2229:         if ($Apache::lonhomework::type eq 'practice') {
1.551     damieng  2230:             $result.= '<button type="submit" name="resetdata" '.
                   2231:                 'value="new_problem_variation">'.&mt('New Problem Variation').'</button>'.
                   2232:                 &practice_problem_header().'<hr />';
1.428     raeburn  2233:         }
1.159     albertel 2234:     }
                   2235:     return $result;
1.48      albertel 2236: }
                   2237: 
                   2238: sub end_library {
1.159     albertel 2239:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   2240:     my $result='';
                   2241:     if ($target eq 'edit') {
                   2242: 	$result=&problem_edit_footer();
1.371     albertel 2243:     } elsif ($target eq 'web' 
                   2244: 	     && ($#$tagstack eq 0 && $$tagstack[0] eq 'library') 
                   2245: 	     && $env{'request.state'} eq "construct") {
1.349     albertel 2246: 	$result.='</form>'.&Apache::loncommon::end_page({'discussion' => 1});
1.558     raeburn  2247:     } elsif ($target eq 'meta') {
1.559     raeburn  2248:         $result.=&Apache::response::meta_part_order('library');
1.558     raeburn  2249:         $result.=&Apache::response::meta_response_order();
1.159     albertel 2250:     }
1.371     albertel 2251:     if ( $#$tagstack eq 0 && $$tagstack[0] eq 'library') {
                   2252: 	&reset_problem_globals('library');
                   2253:     }
1.159     albertel 2254:     return $result;
1.197     www      2255: }
                   2256: 
                   2257: sub start_definetag {
1.326     albertel 2258:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.197     www      2259: 
                   2260:     my $result;
                   2261: 
                   2262:     my $name = $token->[2]->{'name'};
1.326     albertel 2263:     my $skip=&Apache::lonxml::get_all_text("/definetag",$parser,$style);
1.396     albertel 2264:     if ($target eq 'web') {
                   2265: 	if ($name=~/^\//) {
                   2266: 	    $result=
                   2267: 		'<br /><table class="LC_sty_end"><tr><th>'.
                   2268: 		&mt('END [_1]'.'<tt>'.$name.'</tt>').'</th></tr>';
                   2269: 	} else {
                   2270: 	    $result=
                   2271: 		'<br /><table class="LC_sty_begin"><tr><th>'.
                   2272: 		&mt('BEGIN [_1]'.'<tt>'.$name.'</tt>').'</th></tr>';
                   2273: 	}
                   2274: 	$skip = &HTML::Entities::encode($skip, '<>&"');
                   2275: 	$result.='<tr><td><pre>'.$skip.'</pre></td></tr></table>';
1.197     www      2276:     }
                   2277:     return $result;
                   2278: }
                   2279: 
                   2280: sub end_definetag {
                   2281:     return '';
1.1       albertel 2282: }
                   2283: 
                   2284: sub start_block {
1.201     albertel 2285:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.131     albertel 2286: 
                   2287:     my $result;
1.1       albertel 2288: 
1.339     albertel 2289:     if ($target eq 'web' || $target eq 'grade'   || $target eq 'answer'  ||
                   2290: 	$target eq 'tex' || $target eq 'analyze' || $target eq 'webgrade') {
1.159     albertel 2291: 	my $code = $token->[2]->{'condition'};
1.385     albertel 2292: 	if (defined($code) && $code ne '') {
1.137     albertel 2293: 	    if (!$Apache::lonxml::default_homework_loaded) {
                   2294: 		&Apache::lonxml::default_homework_load($safeeval);
                   2295: 	    }
1.131     albertel 2296: 	    $result = &Apache::run::run($code,$safeeval);
                   2297: 	    &Apache::lonxml::debug("block :$code: returned :$result:");
                   2298: 	} else {
                   2299: 	    $result='1';
                   2300: 	}
                   2301: 	if ( ! $result ) {
1.201     albertel 2302: 	    my $skip=&Apache::lonxml::get_all_text("/block",$parser,$style);
1.131     albertel 2303: 	    &Apache::lonxml::debug("skipping ahead :$skip: $$parser[-1]");
                   2304: 	}
                   2305: 	$result='';
                   2306:     } elsif ($target eq 'edit') {
                   2307: 	$result .=&Apache::edit::tag_start($target,$token);
                   2308: 	$result .=&Apache::edit::text_arg('Test Condition:','condition',
                   2309: 					  $token,40);
                   2310: 	$result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
                   2311:     } elsif ($target eq 'modified') {
                   2312: 	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
                   2313: 						     $safeeval,'condition');
                   2314: 	if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
1.38      albertel 2315:     }
1.131     albertel 2316:     return $result;
1.1       albertel 2317: }
                   2318: 
                   2319: sub end_block {
1.167     www      2320:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   2321:     my $result;
                   2322:     if ($target eq "edit") {
                   2323: 	$result.= &Apache::edit::tag_end($target,$token,'');
                   2324:     }
                   2325:     return $result;
                   2326: }
1.500     foxr     2327: #
                   2328: #  <languageblock [include='lang1,lang2...'] [exclude='lang1,lang2...']>
                   2329: #  ...
                   2330: #  </languageblock>
                   2331: #
                   2332: #   This declares the intent to provide content that can be rendered in the
                   2333: #   set of languages in the include specificatino but not in the exclude
                   2334: #   specification.  If a currently preferred language is in the include list
                   2335: #   the content in the <languageblock>...</languageblock> is rendered
                   2336: #   If the currently preferred language is in the exclude list,
                   2337: #   the content in the <languageblock>..></languageblock is not rendered.
                   2338: #
                   2339: #   Pathalogical case handling:
                   2340: #     - Include specified, without the preferred language but exclude  specified
                   2341: #       also without the preferred langauge results in rendering the block.
                   2342: #     - Exclude specified without include and excluden not containing a 
                   2343: #       preferred language renders the block.
                   2344: #     - Include and exclude both specifying the preferred language does not
                   2345: #       render the block.
                   2346: #     - If neither include/exclude is specified, the block gets rendered.
                   2347: #
                   2348: #  This tag has no effect when target is in {edit, modified}
                   2349: #
1.167     www      2350: sub start_languageblock {
1.201     albertel 2351:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.167     www      2352: 
1.500     foxr     2353:     my $result = '';
1.167     www      2354: 
1.339     albertel 2355:     if ($target eq 'web' || $target eq 'grade'   || $target eq 'answer' ||
                   2356: 	$target eq 'tex' || $target eq 'analyze' || $target eq 'webgrade') {
1.201     albertel 2357: 	my $include = $token->[2]->{'include'};
                   2358: 	my $exclude = $token->[2]->{'exclude'};
1.436     raeburn  2359:         my @preferred_languages=&Apache::lonlocal::preferred_languages();
1.500     foxr     2360: 
                   2361:         # This should not even happen, since we should at least have the server language
                   2362: 
                   2363:         if (!$preferred_languages[0]) { 
                   2364: 	    $preferred_languages[0]='en'; 
                   2365: 	}
                   2366: 
                   2367:         # Now loop over all languages in order of preference
                   2368: 
                   2369: 	my $render;
1.398     www      2370:         foreach my $preferred_language (@preferred_languages) {
1.500     foxr     2371: 
                   2372: 	    # If neither include/nor exlude is present the block is going
                   2373: 	    # to get rendered.
                   2374: 
1.399     www      2375:            my $found=0;
1.500     foxr     2376:            $render=1;
                   2377: 
                   2378: 	   #  If include is specified,  don't render the block
                   2379: 	   #  unless the preferred language is included in the set.
                   2380: 
1.398     www      2381: 	   if ($include) {
1.500     foxr     2382:               $render=0;
1.398     www      2383:               foreach my $included_language (split(/\,/,$include)) {
                   2384:                  if ($included_language eq $preferred_language) {
1.500     foxr     2385:                     $render=1; 
1.399     www      2386:                     $found=1; 
1.500     foxr     2387: 		    last;	# Only need to find the first.
1.398     www      2388:                  }
                   2389:               }
                   2390: 	   }
1.500     foxr     2391:            # Do we have an exclude argument?
                   2392: 	   # If so, and one of the languages matches a preferred language
                   2393: 	   # inhibit rendering the block.  Note that in the pathalogical case the
                   2394: 	   # author has specified a preferred language in both the include and exclude
                   2395: 	   # attribte exclude is preferred.  
                   2396: 
1.398     www      2397:            if ($exclude) {
1.500     foxr     2398:               $render=1;
1.398     www      2399:               foreach my $excluded_language (split(/\,/,$exclude)) {
                   2400:                  if ($excluded_language eq $preferred_language) {
1.500     foxr     2401:                     $render=0;
1.399     www      2402:                     $found=1;
1.500     foxr     2403: 		    last;	# Only need to find the first.
1.398     www      2404:                  }
                   2405:               }
                   2406: 	   }
1.500     foxr     2407:            if ($found) { 
                   2408: 	       last; 		# Done on any match of include or exclude.
                   2409: 	   }
1.398     www      2410:         }
1.500     foxr     2411: 	# If $render not true skip the entire block until </languageblock>
                   2412: 	#
                   2413: 
                   2414: 	if ( ! $render ) {
1.201     albertel 2415: 	    my $skip=&Apache::lonxml::get_all_text("/languageblock",$parser,
                   2416: 						   $style);
                   2417: 	    &Apache::lonxml::debug("skipping ahead :$skip: $$parser[-1]");
                   2418: 	}
1.500     foxr     2419: 	# If $render is true, we've not skipped the contents of the <languageglock>
                   2420: 	# and the normal loncapa processing flow will render it as a matter of course.
                   2421: 
1.167     www      2422:     } elsif ($target eq 'edit') {
                   2423: 	$result .=&Apache::edit::tag_start($target,$token);
1.211     albertel 2424: 	$result .=&Apache::edit::text_arg(&mt('Include Language:'),'include',
1.167     www      2425: 					  $token,40);
1.211     albertel 2426: 	$result .=&Apache::edit::text_arg(&mt('Exclude Language:'),'exclude',
1.167     www      2427: 					  $token,40);
                   2428: 	$result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
                   2429:     } elsif ($target eq 'modified') {
                   2430: 	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
1.168     albertel 2431: 						     $safeeval,'include',
                   2432: 						     'exclude');
1.167     www      2433: 	if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
                   2434:     }
                   2435:     return $result;
                   2436: }
                   2437: 
                   2438: sub end_languageblock {
1.170     www      2439:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   2440:     my $result;
1.201     albertel 2441:     if ($target eq "edit") {
1.170     www      2442: 	$result.= &Apache::edit::tag_end($target,$token,'');
                   2443:     }
                   2444:     return $result;
                   2445: }
1.500     foxr     2446: #  languagblock specific tags:
                   2447: {
                   2448:     # For chunks of a resource that has translations, this hash contains
                   2449:     # the translations available indexed by language name.
                   2450:     #
                   2451: 
                   2452:     my %available_texts;       
1.170     www      2453: 
1.500     foxr     2454:     # <translated> starts a block of a resource that has multiple translations.
                   2455:     # See the <lang> tag as well.
                   2456:     # When </translated> is encountered if there is a translation for the 
                   2457:     # currently preferred language, that is rendered inthe web/tex/webgrade
                   2458:     # targets.  Otherwise, the default text is rendered.
                   2459:     #
                   2460:     # Note that <lang> is only registered for the duration of the 
                   2461:     #  <translated>...</translated> block 
                   2462:     #
                   2463:     # Pathalogical case handling:
                   2464:     #   - If there is no <lang> that specifies a 'default' and there is no
                   2465:     #     translation that matches a preferred language, nothing is rendered.
                   2466:     #   - Nested <translated>...</translated> might be linguistically supported by
                   2467:     #     XML due to the stack nature of tag registration(?) however the rendered
                   2468:     #     output will be incorrect because there is only one %available_texts
                   2469:     #     has and end_translated clears it.
                   2470:     #   - Material outside of a <lang>...</lang> block within the
                   2471:     #     <translated>...<translated> block won't render either e.g.:
                   2472:     #    <translated>
                   2473:     #      The following will be in your preferred langauge:
                   2474:     #      <lang which='en'>
                   2475:     #         This section in english
                   2476:     #      </lang>
                   2477:     #      <lang which='sgeiso'>
                   2478:     #         Hier es ist auf Deutsch.
                   2479:     #      </lang>
                   2480:     #      <lang which='sfriso'>
                   2481:     #         En Francais
                   2482:     #      </lang>
                   2483:     #    </translated>
                   2484:     #
                   2485:     #    The introductory text prior to the first <lang> tag is not rendered.
                   2486:     #
1.397     albertel 2487:     sub start_translated {
                   2488: 	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
                   2489: 	&Apache::lonxml::register('Apache::structuretags',('lang'));
                   2490: 	undef(%available_texts);
                   2491:     }
                   2492:     
                   2493:     sub end_translated {
                   2494: 	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
                   2495: 	my $result;
                   2496: 	#show the translation on viewable targets
                   2497: 	if ($target eq 'web'     || $target eq 'tex' || $target eq 'webgrade'||
                   2498: 	    # or non-viewable targets, if it's embedded in something that
                   2499: 	    # wants the output
                   2500: 	    (($target eq 'answer' || $target eq 'analyze'|| $target eq 'grade')
                   2501: 	     && &Apache::lonxml::in_redirection() ) ) {
                   2502: 	    my @possibilities = keys(%available_texts);
                   2503: 	    my $which = 
                   2504: 		&Apache::loncommon::languages(\@possibilities) || 'default';
1.500     foxr     2505: 	    if ($target eq 'tex') {
                   2506: 		$result = &select_hyphenation($which);
                   2507: 	    }
                   2508: 	    $result .= $available_texts{$which};
                   2509: 	    if ($target eq 'tex') {
                   2510: 		$result .= &select_metadata_hyphenation(); # Restore original language.
                   2511: 	    }
1.397     albertel 2512: 	}
                   2513: 	undef(%available_texts);
                   2514: 	&Apache::lonxml::deregister('Apache::structuretags',('lang'));
                   2515: 	return $result;
                   2516:     }
                   2517: 
1.500     foxr     2518:     # <lang [which='language-name'] [other='lang1,lang2...']>  
                   2519:     #  Specifies that the block contained within it is a translation 
                   2520:     #  for a specific language specified by the 'which' attribute. The
                   2521:     #   'other' attribute can be used by itself or in conjunction with
                   2522:     #   which to specify this tag _may_ be used as a translation for some
                   2523:     #   list of languages. e.g.:  <lang which='senisoUS' other='senisoCA,senisoAU,seniso'>
                   2524:     #   specifying that the block provides a translation for US (primary)
                   2525:     #   Canadian, Australian and UK Englush.
                   2526:     #   
                   2527:     # Comment: this seems a bit silly why not just support a list of languages
                   2528:     #           e.g. <lang which='l1,l2...'> and ditch the other attribute?
                   2529:     #
                   2530:     #  Effect:
                   2531:     #    The material within the <lang>..</lang> block is stored in the
                   2532:     #    specified set of $available_texts hash entries, the appropriate one
                   2533:     #    is selected at </translated> time.
                   2534:     #
                   2535:     #  Pathalogical case handling:
                   2536:     #    If a language occurs multiple times within a <translated> block,
                   2537:     #    only the last one is rendered e.g.:
                   2538:     #
                   2539:     #    <translated>
                   2540:     #       <lang which='senisoUS', other='senisoCA,senisoAU,seniso'>
                   2541:     #          Red green color blindness is quite common affecting about 7.8% of 
                   2542:     #          the male population, but onloy about .65% of the female population.
                   2543:     #       </lang>
                   2544:     #          Red green colour blindness is quite common affecting about 7.8% of 
                   2545:     #          the male population, but onloy about .65% of the female population.
                   2546:     #       <lang which='seniso', other='senisoCA,senisoAU'>
                   2547:     #     </translated>
                   2548:     #
                   2549:     #    renders the correct spelling of color (colour) for people who have specified
                   2550:     #    a preferred language that is one of the British Commonwealth languages
                   2551:     #    even though those are also listed as valid selections for the US english
                   2552:     #    <lang> block.
                   2553:     #
1.397     albertel 2554:     sub start_lang {
                   2555: 	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
                   2556: 	if ($target eq 'web' || $target eq 'grade'   || $target eq 'answer' ||
                   2557: 	    $target eq 'tex' || $target eq 'analyze' || $target eq 'webgrade') {
                   2558: 	    &Apache::lonxml::startredirection();
                   2559: 	}
                   2560: 	return '';
                   2561:     }
                   2562: 
                   2563:     sub end_lang {
                   2564: 	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
                   2565: 	if ($target eq 'web' || $target eq 'grade'   || $target eq 'answer' ||
                   2566: 	    $target eq 'tex' || $target eq 'analyze' || $target eq 'webgrade') {
                   2567: 	    my $result = &Apache::lonxml::endredirection();
                   2568: 	    my $which = &Apache::lonxml::get_param('which',$parstack,
                   2569: 						   $safeeval);
1.431     raeburn  2570:             if ($which=~/\w/) {
                   2571:                 $available_texts{$which} = $result;
                   2572:             }
                   2573:             my $otherlangs = &Apache::lonxml::get_param('other',$parstack,
                   2574:                                                         $safeeval);
                   2575:             foreach my $language (split(/\s*\,\s*/,$otherlangs)) {
                   2576:                 if ($language=~/\w/) {
                   2577:                     $available_texts{$language} = $result;
                   2578:                 }
1.427     bisitz   2579:             }
                   2580: 
1.397     albertel 2581: 	}
                   2582: 	return '';
                   2583:     }
1.500     foxr     2584: }				# end langauge block specific tags.
                   2585: 
1.397     albertel 2586: 
1.170     www      2587: sub start_instructorcomment {
1.201     albertel 2588:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.170     www      2589: 
                   2590:     my $result;
                   2591: 
1.339     albertel 2592:     if ($target eq 'web' || $target eq 'grade'   || $target eq 'answer' ||
                   2593: 	$target eq 'tex' || $target eq 'analyze' || $target eq 'webgrade') {
1.468     raeburn  2594:         $result=($env{'request.role'}=~/^(in|cc|co|au|ca|li)/);
1.284     albertel 2595: 	if ( (! $result) or ($env{'form.instructor_comments'} eq 'hide')) {
1.201     albertel 2596: 	    my $skip=&Apache::lonxml::get_all_text("/instructorcomment",
                   2597: 						   $parser,$style);
1.170     www      2598: 	    &Apache::lonxml::debug("skipping ahead :$skip: $$parser[-1]");
                   2599: 	}
                   2600: 	$result='';
                   2601:     } elsif ($target eq 'edit') {
                   2602: 	$result .=&Apache::edit::tag_start($target,$token);
                   2603: 	$result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
                   2604:     }
                   2605:     return $result;
                   2606: }
                   2607: 
                   2608: sub end_instructorcomment {
1.159     albertel 2609:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.160     albertel 2610:     my $result;
                   2611:     if ($target eq "edit") {
                   2612: 	$result.= &Apache::edit::tag_end($target,$token,'');
                   2613:     }
                   2614:     return $result;
1.4       tsai     2615: }
                   2616: 
                   2617: sub start_while {
1.326     albertel 2618:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.159     albertel 2619: 
1.160     albertel 2620:     my $result;
1.339     albertel 2621:     if ($target eq 'web' || $target eq 'grade'   || $target eq 'answer' ||
                   2622: 	$target eq 'tex' || $target eq 'analyze' || $target eq 'webgrade') {
1.160     albertel 2623: 	my $code = $token->[2]->{'condition'};
1.4       tsai     2624: 
1.160     albertel 2625: 	push( @Apache::structuretags::whileconds, $code);
                   2626: 	if (!$Apache::lonxml::default_homework_loaded) {
                   2627: 	    &Apache::lonxml::default_homework_load($safeeval);
                   2628: 	}
                   2629: 	my $result = &Apache::run::run($code,$safeeval);
1.326     albertel 2630: 	my $bodytext=&Apache::lonxml::get_all_text("/while",$parser,$style);
1.160     albertel 2631: 	push( @Apache::structuretags::whilebody, $bodytext);
1.161     albertel 2632: 	push( @Apache::structuretags::whileline, $token->[5]);
                   2633: 	&Apache::lonxml::debug("s code $code got -$result-");
1.160     albertel 2634: 	if ( $result ) {
                   2635: 	    &Apache::lonxml::newparser($parser,\$bodytext);
                   2636: 	}
                   2637:     } elsif ($target eq 'edit') {
                   2638: 	$result .=&Apache::edit::tag_start($target,$token);
1.211     albertel 2639: 	$result .=&Apache::edit::text_arg(&mt('Test Condition:'),'condition',
1.160     albertel 2640: 					  $token,40);
                   2641: 	$result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
                   2642:     } elsif ($target eq 'modified') {
                   2643: 	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
                   2644: 						     $safeeval,'condition');
                   2645: 	if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
1.159     albertel 2646:     }
1.160     albertel 2647:     return $result;
1.4       tsai     2648: }
                   2649: 
                   2650: sub end_while {
1.159     albertel 2651:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.160     albertel 2652:     my $result;
                   2653: 
1.339     albertel 2654:     if ($target eq 'web' || $target eq 'grade'   || $target eq 'answer' ||
                   2655: 	$target eq 'tex' || $target eq 'analyze' || $target eq 'webgrade') {
1.160     albertel 2656: 	my $code = pop(@Apache::structuretags::whileconds);
                   2657: 	my $bodytext = pop(@Apache::structuretags::whilebody);
1.161     albertel 2658: 	my $line = pop(@Apache::structuretags::whileline);
                   2659: 	my $return = &Apache::run::run($code,$safeeval);
                   2660: 	my $starttime=time;
                   2661: 	my $error=0;
                   2662: 	while ($return) {
                   2663: 	    if (time-$starttime >
                   2664: 		$Apache::lonnet::perlvar{'lonScriptTimeout'}) {
1.378     albertel 2665: 		$return = 0; $error=1; next;
1.161     albertel 2666: 	    }
                   2667: 	    $result.=&Apache::scripttag::xmlparse($bodytext);
1.380     albertel 2668: 	    if ($target eq 'grade' || $target eq 'answer' ||
                   2669: 		$target eq 'analyze') {
                   2670: 		# grade/answer/analyze should produce no output but if we
                   2671: 		# are redirecting, the redirecter should know what to do
                   2672: 		# with the output
                   2673: 		if (!$Apache::lonxml::redirection) { undef($result); }
                   2674: 	    }
1.161     albertel 2675: 	    $return = &Apache::run::run($code,$safeeval);
                   2676: 	}
1.516     bisitz   2677:         if ($error) {
                   2678:             &Apache::lonxml::error(
                   2679:                 '<pre>'
                   2680:                .&mt('Code ran too long. It ran for more than [_1] seconds.',
                   2681:                         $Apache::lonnet::perlvar{'lonScriptTimeout'})
                   2682:                .&mt('This occurred while running &lt;while&gt; on line [_1].',
                   2683:                         $line)
                   2684:                .'</pre>');
                   2685:         }
1.160     albertel 2686:     } elsif ($target eq "edit") {
                   2687: 	$result.= &Apache::edit::tag_end($target,$token,'');
1.159     albertel 2688:     }
1.160     albertel 2689:     return $result;
1.1       albertel 2690: }
1.6       tsai     2691: 
1.160     albertel 2692: # <randomlist show="1">
1.6       tsai     2693: #  <tag1>..</tag1>
                   2694: #  <tag2>..</tag2>
                   2695: #  <tag3>..</tag3>
1.160     albertel 2696: #  ...
1.6       tsai     2697: # </randomlist>
                   2698: sub start_randomlist {
1.326     albertel 2699:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.159     albertel 2700:     my $result;
1.339     albertel 2701:     if ($target eq 'answer' || $target eq 'grade'   || $target eq 'web' ||
                   2702: 	$target eq 'tex'    || $target eq 'analyze' || $target eq 'webgrade') {
1.331     albertel 2703: 	my $body= &Apache::lonxml::get_all_text("/randomlist",$parser);
1.305     albertel 2704: 	my $b_parser= HTML::LCParser->new(\$body);
                   2705: 	$b_parser->xml_mode(1);
                   2706: 	$b_parser->marked_sections(1);
1.159     albertel 2707: 	my $b_tok;
                   2708: 	my @randomlist;
                   2709: 	my $list_item;
                   2710: 	while($b_tok = $b_parser->get_token() ) {
                   2711: 	    if($b_tok->[0] eq 'S') { # start tag
                   2712: 		# get content of the tag until matching end tag
                   2713: 		# get all text upto the matching tag
                   2714: 		# and push the content into @randomlist
                   2715: 		$list_item = &Apache::lonxml::get_all_text('/'.$b_tok->[1],
                   2716: 							   $b_parser);
                   2717: 		$list_item = "$b_tok->[4]"."$list_item"."</$b_tok->[1]>";
                   2718: 		push(@randomlist,$list_item);
                   2719: 		#  print "<br /><b>START-TAG $b_tok->[1], $b_tok->[4],
                   2720:                 #         $list_item</b>";
                   2721: 	    }
                   2722: 	    if($b_tok->[0] eq 'T') { # text
                   2723: 		# what to do with text in between tags?
                   2724: 		#  print "<b>TEXT $b_tok->[1]</b><br />";
                   2725: 	    }
                   2726: 	    # if($b_tok->[0] eq 'E') { # end tag, should not happen
                   2727: 	    #  print "<b>END-TAG $b_tok->[1]</b><br />";
                   2728: 	    # }
                   2729: 	}
1.303     albertel 2730: 	if (@randomlist) {
                   2731: 	    my @idx_arr = (0 .. $#randomlist);
1.555     raeburn  2732:             if ($env{'form.code_for_randomlist'}) {
                   2733:                 &Apache::structuretags::shuffle(\@idx_arr,$target);
                   2734:                 undef($env{'form.code_for_randomlist'});
                   2735:             } else {
                   2736:                 &Apache::structuretags::shuffle(\@idx_arr);
                   2737:             }
1.303     albertel 2738: 	    my $bodytext = '';
                   2739: 	    my $show=$#randomlist;
                   2740: 	    my $showarg=&Apache::lonxml::get_param('show',$parstack,$safeeval);
                   2741: 	    $showarg--;
                   2742: 	    if ( ($showarg >= 0) && ($showarg < $show) ) { $show = $showarg; }
1.439     raeburn  2743:             if (($target eq 'analyze') && ($env{'form.check_parts_withrandomlist'})) {
                   2744:                 my @currlist;
                   2745:                 my $part = $Apache::inputtags::part;
                   2746:                 if ($part ne '') {
                   2747:                     if (ref($Apache::lonhomework::analyze{'parts_withrandomlist'}) eq 'ARRAY') {
                   2748:                         my @currlist = @{$Apache::lonhomework::analyze{'parts_withrandomlist'}};
                   2749:                         if (!(grep(/^\Q$part\E$/,@currlist))) {
                   2750:                             push(@{$Apache::lonhomework::analyze{'parts_withrandomlist'}},$part);
                   2751:                         }
                   2752:                     } else {
                   2753:                         push(@{$Apache::lonhomework::analyze{'parts_withrandomlist'}},$part);
                   2754:                     }
                   2755:                 }
                   2756:             }
1.526     raeburn  2757: 	    for my $i (0 .. $show) {
                   2758: 		$bodytext .= "$randomlist[ $idx_arr[$i] ]";
1.303     albertel 2759: 	    }
                   2760: 	    &Apache::lonxml::newparser($parser,\$bodytext);
1.159     albertel 2761: 	}
                   2762:     } elsif ($target eq 'edit' ) {
                   2763: 	$result .=&Apache::edit::tag_start($target,$token);
                   2764: 	$result .=&Apache::edit::text_arg('Maximum Tags to Show:','show',
                   2765: 					   $token,5);
                   2766: 	$result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
                   2767:     } elsif ($target eq 'modified' ) {
                   2768: 	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
                   2769: 						     $safeeval,'show');
                   2770: 	if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
                   2771:     }
                   2772:     return $result;
1.7       tsai     2773: }
                   2774: 
                   2775: sub shuffle {
1.555     raeburn  2776:     my ($a,$target) = @_;
1.7       tsai     2777:     my $i;
1.303     albertel 2778:     if (ref($a) eq 'ARRAY' && @$a) {
1.555     raeburn  2779: 	&Apache::response::pushrandomnumber(undef,$target);
1.159     albertel 2780: 	for($i=@$a;--$i;) {
                   2781: 	    my $j=int(&Math::Random::random_uniform() * ($i+1));
                   2782: 	    next if $i == $j;
                   2783: 	    @$a[$i,$j] = @$a[$j,$i];
                   2784: 	}
1.251     albertel 2785: 	&Apache::response::poprandomnumber();
1.7       tsai     2786:     }
1.6       tsai     2787: }
                   2788: 
                   2789: sub end_randomlist {
1.159     albertel 2790:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   2791:     my $result;
                   2792:     if ($target eq 'edit' ) {
                   2793: 	$result=&Apache::edit::tag_end($target,$token,
                   2794: 				       'End Randomly Parsed Block');
                   2795:     }
                   2796:     return $result;
1.6       tsai     2797: }
                   2798: 
1.283     albertel 2799: sub ordered_show_check {
                   2800:     my $last_part=$Apache::inputtags::partlist[-2];
                   2801:     my $in_order=
                   2802: 	&Apache::lonnet::EXT('resource.'.$Apache::inputtags::part.'.ordered');
                   2803:     my $in_order_show=1;
                   2804:     if ($last_part ne '0' && lc($in_order) eq 'yes') {
                   2805: 	$in_order_show=&Apache::response::check_status($last_part);
                   2806:     }
                   2807:     return $in_order_show;
                   2808: }
                   2809: 
1.469     www      2810: 
                   2811: sub start_startpartmarker {
                   2812:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   2813:     my $result='';
                   2814:     if ($target eq 'edit') {
                   2815:         $result=&Apache::edit::tag_start($target,$token);
                   2816:         $result.=&mt('Marker for the start of a part. Place end marker below to wrap in-between tags into a new part.').'</td></tr>';
                   2817:         $result.=&Apache::edit::end_table();
                   2818: 
                   2819:     } 
                   2820:     return $result;
                   2821: }
                   2822: 
                   2823: sub end_startpartmarker {
                   2824:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   2825:     my @result;
                   2826:     if ($target eq 'edit') { $result[1]='no'; }
                   2827:     return @result;
                   2828: }
                   2829: 
                   2830: sub start_endpartmarker {
                   2831:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   2832:     my $result='';
                   2833:     if ($target eq 'edit') {
                   2834:         $result=&Apache::edit::tag_start($target,$token);
                   2835:         $result.=&mt('Marker for the end of a part. Place start marker above to wrap in-between tags into a new part.').'</td></tr>';
                   2836:         $result.=&Apache::edit::end_table();
                   2837: 
                   2838:     }
                   2839:     return $result;
                   2840: }
                   2841: 
                   2842: sub end_endpartmarker {
                   2843:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   2844:     my @result;
                   2845:     if ($target eq 'edit') { $result[1]='no'; }
                   2846:     return @result;
                   2847: }
                   2848: 
                   2849: 
                   2850: 
                   2851: 
                   2852: 
1.11      albertel 2853: sub start_part {
1.326     albertel 2854:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.321     albertel 2855:     if (!$Apache::lonxml::metamode) {
                   2856: 	&Apache::lonxml::startredirection(); # we'll use redirection to fix up 
                   2857: 	                                     # duedates.
                   2858:     }
1.159     albertel 2859:     my $result='';
1.386     albertel 2860:     my $id= &Apache::lonxml::get_id($parstack,$safeeval);
1.159     albertel 2861:     $Apache::inputtags::part=$id;
1.177     albertel 2862:     push(@Apache::inputtags::partlist,$id);
1.536     raeburn  2863:     $Apache::inputtags::leniency='';
1.177     albertel 2864:     @Apache::inputtags::response=();
1.159     albertel 2865:     @Apache::inputtags::previous=();
                   2866:     @Apache::inputtags::previous_version=();
1.405     albertel 2867:     &Apache::lonhomework::set_show_problem_status(&get_problem_status($id));
1.403     albertel 2868:     &Apache::response::reset_params();
                   2869: 
1.159     albertel 2870:     my $hidden=&Apache::loncommon::check_if_partid_hidden($Apache::inputtags::part);
1.259     albertel 2871:     my $newtype=&Apache::lonnet::EXT("resource.$id.type");
                   2872:     if ($newtype) { $Apache::lonhomework::type=$newtype; }
1.528     raeburn  2873:     if ($Apache::lonhomework::type eq 'randomizetry') {
                   2874:         my $rndseed=&setup_rndseed($safeeval,$target);
                   2875:         if (($target eq 'grade') && &Apache::response::submitted()) {
1.529     raeburn  2876:             $Apache::lonhomework::results{"resource.$id.rndseed"}=$rndseed;
1.528     raeburn  2877:         }
                   2878:     } elsif (($target eq 'grade') && &Apache::response::submitted()) {
1.529     raeburn  2879:         $Apache::lonhomework::results{"resource.$id.rndseed"}=$Apache::lonhomework::rawrndseed;
1.528     raeburn  2880:     }
1.283     albertel 2881:     my $in_order_show=&ordered_show_check();
1.214     albertel 2882:     my $expression='$external::part=\''.$Apache::inputtags::part.'\';';
1.259     albertel 2883:     $expression.='$external::type=\''.$Apache::lonhomework::type.'\';';
1.209     albertel 2884:     &Apache::run::run($expression,$safeeval);
1.159     albertel 2885: 
                   2886:     if ($target eq 'meta') {
1.224     www      2887: 	my $display=&Apache::lonxml::get_param('display',$parstack,$safeeval);
                   2888: 	return &Apache::response::mandatory_part_meta.
                   2889: 	       &Apache::response::meta_parameter_write('display','string',$display,'Part Description');
1.159     albertel 2890:     } elsif ($target eq 'web' || $target eq 'grade' ||
                   2891: 	     $target eq 'answer' || $target eq 'tex') {
1.283     albertel 2892: 	if ($hidden || !$in_order_show) {
1.326     albertel 2893: 	    my $bodytext=&Apache::lonxml::get_all_text("/part",$parser,$style);
1.159     albertel 2894: 	} else {
                   2895: 	    my ($status,$accessmsg) = &Apache::lonhomework::check_access($id);
                   2896: 	    push (@Apache::inputtags::status,$status);
                   2897: 	    my $expression='$external::datestatus="'.$status.'";';
                   2898: 	    $expression.='$external::gradestatus="'.$Apache::lonhomework::history{"resource.$id.solved"}.'";';
                   2899: 	    &Apache::run::run($expression,$safeeval);
1.284     albertel 2900: 	    if ($env{'request.state'} eq 'construct') {
1.241     albertel 2901: 		&set_problem_state($Apache::inputtags::part); 
1.240     albertel 2902: 	    }
1.216     albertel 2903: 	    if (( $status eq 'CLOSED' ) ||
                   2904: 		( $status eq 'UNCHECKEDOUT') ||
1.252     albertel 2905: 		( $status eq 'NOT_YET_VIEWED') ||
1.216     albertel 2906: 		( $status eq 'BANNED') ||
                   2907: 		( $status eq 'UNAVAILABLE') ||
                   2908: 		( $status eq 'INVALID_ACCESS')) {
1.326     albertel 2909: 		my $bodytext=&Apache::lonxml::get_all_text("/part",$parser,
                   2910: 							   $style);
1.159     albertel 2911: 		if ( $target eq "web" ) {
1.211     albertel 2912: 		    $result="<br />".&mt('Part is not open to be viewed. It')." $accessmsg<br />";
1.159     albertel 2913: 		} elsif ( $target eq 'tex' ) {
1.284     albertel 2914: 		    if (not $env{'form.problem_split'}=~/yes/) {
1.211     albertel 2915: 			$result="\\end{minipage}\\vskip 0 mm ".&mt('Part is not open to be viewed. It')." $accessmsg \\\\\\begin{minipage}{\\textwidth}";
1.195     sakharuk 2916: 		    } else {
1.211     albertel 2917: 			$result="\\vskip 0 mm ".&mt('Part is not open to be viewed. It')." $accessmsg \\\\";
1.195     sakharuk 2918: 		    }
1.159     albertel 2919: 		}
                   2920: 	    } else {
                   2921: 		if ($target eq 'tex') {
1.284     albertel 2922: 		    if (not $env{'form.problem_split'}=~/yes/) {
1.264     sakharuk 2923: 			if ($$tagstack[-2] eq 'td') {
1.388     foxr     2924: 			    $result.='\noindent \begin{minipage}{\textwidth}\noindent';
1.264     sakharuk 2925: 			} else {
                   2926: 			    $result.='\noindent \end{minipage}\vskip 0 mm \noindent \begin{minipage}{\textwidth}\noindent';
                   2927: 			}
1.195     sakharuk 2928: 		    }
1.159     albertel 2929: 		    my $weight = &Apache::lonnet::EXT("resource.$id.weight");
1.284     albertel 2930: 		    my $allkeys=&Apache::lonnet::metadata($env{'request.uri'},'packages');
1.526     raeburn  2931: 		    my @allkeys = split(/,/,$allkeys);
1.222     sakharuk 2932: 		    my $allow_print_points = 0;
                   2933: 		    foreach my $partial_key (@allkeys) {
1.230     albertel 2934: 			if ($partial_key=~m/^part_(.*)$/) {
1.222     sakharuk 2935: 			    if ($1 ne '0') {$allow_print_points=1;}
                   2936: 			}
                   2937: 		    }
1.275     albertel 2938: 		    my $maxtries = &Apache::lonnet::EXT("resource.$id.maxtries");
                   2939: 		    if (defined($maxtries) && $maxtries < 0) {
                   2940: 			$allow_print_points=0;
                   2941: 		    }
1.302     albertel 2942: 		    if (lc($env{'course.'.$env{'request.course.id'}.
                   2943: 				    '.disableexampointprint'}) eq 'yes') {
                   2944: 			$allow_print_points=0;
                   2945: 		    }
1.463     foxr     2946: 		    if (($Apache::lonhomework::type eq 'exam') && ($allow_print_points)) { 
1.492     christia 2947: 			$result .= '\vskip 10mm\fbox{\textit{'.&mt('[quant,_1,pt,pt]',$weight ).'}}';
1.463     foxr     2948: 
                   2949: 		    }
1.233     www      2950: 		} elsif ($target eq 'web') {
1.479     raeburn  2951:                     if ($status eq 'CAN_ANSWER') {
                   2952:                         my $problemstatus = &get_problem_status($Apache::inputtags::part); 
                   2953:                         my $probrandomize = &Apache::lonnet::EXT("resource.$Apache::inputtags::partlist[0].type");
                   2954:                         my $probrandtries = &Apache::lonnet::EXT("resource.$Apache::inputtags::partlist[0].randomizeontries");
                   2955:                         my $num = scalar(@Apache::inputtags::partlist)-1;
                   2956:                         if ($probrandomize eq 'randomizetry') {
                   2957:                             if (&Apache::lonnet::EXT("resource.$Apache::inputtags::part.type") ne 'randomizetry') {
                   2958:                                 $result .= &randomizetry_part_header($problemstatus,'none',$num);
                   2959:                             } else {
                   2960:                                 my $reqtries = &Apache::lonnet::EXT("resource.$Apache::inputtags::part.randomizeontries");
                   2961:                                 if ($probrandtries ne $reqtries) {
                   2962:                                     $result .= &randomizetry_part_header($problemstatus,$reqtries,$num);
                   2963:                                 }
                   2964:                             }
                   2965:                         } elsif (&Apache::lonnet::EXT("resource.$Apache::inputtags::part.type") eq 'randomizetry') {
                   2966:                             my $reqtries = &Apache::lonnet::EXT("resource.$Apache::inputtags::part.randomizeontries");
                   2967:                             $result .= &randomizetry_part_header($problemstatus,$reqtries,$num);
                   2968:                         }
                   2969:                     }
1.475     raeburn  2970: 		    $result.='<a name="'.&escape($Apache::inputtags::part).'" ></a>';
1.159     albertel 2971: 		}
                   2972: 	    }
                   2973: 	}
                   2974:     } elsif ($target eq 'edit') {
                   2975: 	$result.=&Apache::edit::tag_start($target,$token);
                   2976: 	$result.=&Apache::edit::text_arg('Part ID:','id',$token).
                   2977: 	    &Apache::loncommon::help_open_topic("Part_Tag_Edit_Help").
1.224     www      2978: 	    '&nbsp;&nbsp;'.
                   2979: &Apache::edit::text_arg('Displayed Part Description:','display',$token).
1.159     albertel 2980: 		&Apache::edit::end_row().&Apache::edit::start_spanning_row();
                   2981:     } elsif ($target eq 'modified') {
                   2982: 	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
1.225     albertel 2983: 						     $safeeval,'id','display');
1.159     albertel 2984: 	if ($constructtag) {
1.225     albertel 2985: 	    #limiting ids to only letters numbers, and space
1.224     www      2986: 	    $token->[2]->{'id'}=~s/[^A-Za-z0-9 ]//gs;
1.159     albertel 2987: 	    $result = &Apache::edit::rebuild_tag($token);
                   2988: 	}
                   2989:     }
                   2990:     return $result;
1.11      albertel 2991: }
                   2992: 
                   2993: sub end_part {
1.159     albertel 2994:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   2995:     &Apache::lonxml::debug("in end_part $target ");
                   2996:     my $status=$Apache::inputtags::status['-1'];
                   2997:     my $hidden=&Apache::loncommon::check_if_partid_hidden($Apache::inputtags::part);
1.283     albertel 2998:     my $in_order_show=&ordered_show_check();
1.321     albertel 2999:     my $result;
                   3000:     if (!$Apache::lonxml::metamode) {
                   3001: 	$result = &Apache::lonxml::endredirection(); # started in &start_part
1.329     albertel 3002: 	$Apache::lonxml::post_evaluate=0;
1.321     albertel 3003:     }
1.312     albertel 3004:     if ($target eq 'grade') {
1.249     albertel 3005: 	if (($status eq 'CAN_ANSWER' || $Apache::lonhomework::scantronmode) &&
1.283     albertel 3006: 	    !$hidden && $in_order_show) {
1.311     foxr     3007: 	    $result.=&Apache::inputtags::grade;
1.249     albertel 3008: 	} else {
                   3009: 	    # move any submission data to .hidden
                   3010: 	    &Apache::inputtags::hidealldata($Apache::inputtags::part);
                   3011: 	}
1.283     albertel 3012:     } elsif (($target eq 'web' || $target eq 'tex') &&
                   3013: 	     !$hidden && $in_order_show) {
1.159     albertel 3014: 	my $gradestatus=&Apache::inputtags::gradestatus($Apache::inputtags::part,
                   3015: 							$target);
1.490     raeburn  3016: 	if (($Apache::lonhomework::type eq 'exam' && $target eq 'tex') ||
                   3017:              ($env{'form.grade_imsexport'})) {
1.212     albertel 3018: 	    $gradestatus='';
                   3019: 	}
1.311     foxr     3020: 	$result.=$gradestatus;
1.265     sakharuk 3021: 	if ($$tagstack[-2] eq 'td' and $target eq 'tex') {$result.='\end{minipage}';} 
1.181     albertel 3022:     } elsif ($target eq 'edit') {
1.311     foxr     3023: 	$result.=&Apache::edit::end_table();
1.322     albertel 3024:     } elsif ($target eq 'modified') {
                   3025: 	 $result .= $token->[2];
1.159     albertel 3026:     }
                   3027:     pop @Apache::inputtags::status;
                   3028:     $Apache::inputtags::part='';
1.536     raeburn  3029:     $Apache::inputtags::leniency='';
1.295     albertel 3030:     $Apache::lonhomework::type = $Apache::lonhomework::default_type;
1.159     albertel 3031:     return $result;
1.11      albertel 3032: }
1.1       albertel 3033: 
1.25      albertel 3034: sub start_preduedate {
1.326     albertel 3035:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.339     albertel 3036:     if ($target eq 'web' || $target eq 'grade'    || $target eq 'answer' ||
                   3037: 	$target eq 'tex' || $target eq 'webgrade') {
1.236     albertel 3038: 	&Apache::lonxml::debug("State in preduedate is ". $Apache::inputtags::status['-1']);
1.300     albertel 3039: 	if (!$Apache::lonhomework::scantronmode &&
                   3040: 	    $Apache::inputtags::status['-1'] ne 'CAN_ANSWER' &&
1.236     albertel 3041: 	    $Apache::inputtags::status['-1'] ne 'CANNOT_ANSWER') {
                   3042: 	    &Apache::lonxml::debug("Wha? ". ($Apache::inputtags::status['-1'] ne 'SHOW_ANSWER'));
1.326     albertel 3043: 	    &Apache::lonxml::get_all_text("/preduedate",$parser,$style);
1.159     albertel 3044: 	}
1.24      albertel 3045:     }
1.159     albertel 3046:     return '';
1.24      albertel 3047: }
                   3048: 
1.25      albertel 3049: sub end_preduedate {
1.159     albertel 3050:     return '';
1.24      albertel 3051: }
                   3052: 
1.369     foxr     3053: # In all the modes where <postanswerdate> text is 
                   3054: # displayable,  all we do is eat up the text between the start/stop
                   3055: # tags if the conditions are not right to display it.
1.25      albertel 3056: sub start_postanswerdate {
1.326     albertel 3057:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.370     foxr     3058:     my $pav = &Apache::lonnet::allowed('pav', $env{'request.course.id'}) ||
                   3059: 	&Apache::lonnet::allowed('pav',
                   3060: 			   $env{'request.course.id'}.'/'.$env{'request.course.sec'});
1.369     foxr     3061:     if ($target eq 'web' || $target eq 'grade' || $target eq 'webgrade' ||
1.370     foxr     3062: 	$target eq 'tex' ) {
1.300     albertel 3063: 	if ($Apache::lonhomework::scantronmode ||
1.370     foxr     3064: 	    $Apache::inputtags::status['-1'] ne 'SHOW_ANSWER' ||
                   3065: 	    (($target eq 'tex') && !$pav)) {
1.326     albertel 3066: 	    &Apache::lonxml::get_all_text("/postanswerdate",$parser,$style);
1.159     albertel 3067: 	}
                   3068:     }
                   3069:     return '';
1.24      albertel 3070: }
                   3071: 
1.25      albertel 3072: sub end_postanswerdate {
1.159     albertel 3073:     return '';
1.24      albertel 3074: }
                   3075: 
1.25      albertel 3076: sub start_notsolved {
1.326     albertel 3077:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.159     albertel 3078:     if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
1.339     albertel 3079: 	$target eq 'tex' || $target eq 'webgrade') {
1.159     albertel 3080: 	my $gradestatus=$Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"};
                   3081: 	&Apache::lonxml::debug("not solved has :$gradestatus:");
1.239     albertel 3082: 	if ($gradestatus =~ /^correct/ &&
                   3083: 	    &Apache::response::show_answer()) {
1.159     albertel 3084: 	    &Apache::lonxml::debug("skipping");
1.326     albertel 3085: 	    &Apache::lonxml::get_all_text("/notsolved",$parser,$style);
1.159     albertel 3086: 	}
1.24      albertel 3087:     }
1.159     albertel 3088:     return '';
1.24      albertel 3089: }
                   3090: 
1.25      albertel 3091: sub end_notsolved {
1.159     albertel 3092:     return '';
1.24      albertel 3093: }
                   3094: 
                   3095: sub start_solved {
1.326     albertel 3096:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.159     albertel 3097:     if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
                   3098: 	$target eq 'tex') {
                   3099: 	my $gradestatus=$Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"};
1.239     albertel 3100: 	if ($gradestatus !~ /^correct/ ||
                   3101: 	    !&Apache::response::show_answer()) {
1.326     albertel 3102: 	    &Apache::lonxml::get_all_text("/solved",$parser,$style);
1.159     albertel 3103: 	}
1.24      albertel 3104:     }
1.159     albertel 3105:     return '';
1.24      albertel 3106: }
                   3107: 
                   3108: sub end_solved {
1.248     albertel 3109:     return '';
                   3110: }
                   3111: 
                   3112: sub start_problemtype {
1.326     albertel 3113:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.248     albertel 3114:     my $result;
1.339     albertel 3115:     if ($target eq 'web' || $target eq 'grade'   || $target eq 'answer' ||
                   3116: 	$target eq 'tex' || $target eq 'analyze' || $target eq 'webgrade') {
1.248     albertel 3117: 	my $mode=lc(&Apache::lonxml::get_param('mode',$parstack,$safeeval));
                   3118: 	if (!defined($mode)) { $mode='show'; }
                   3119: 	my $for=&Apache::lonxml::get_param('for',$parstack,$safeeval);
                   3120: 	my $found=0;
                   3121: 	foreach my $type (split(',',$for)) {
                   3122: 	    if ($Apache::lonhomework::type eq lc($type)) { $found=1; }
                   3123: 	}
                   3124: 	if ($mode eq 'show' && !$found) {
1.326     albertel 3125: 	    &Apache::lonxml::get_all_text("/problemtype",$parser,$style);
1.248     albertel 3126: 	}
                   3127: 	if ($mode eq 'hide' && $found) {
1.326     albertel 3128: 	    &Apache::lonxml::get_all_text("/problemtype",$parser,$style);
1.248     albertel 3129: 	}
                   3130:     } elsif ($target eq 'edit') {
                   3131: 	$result .=&Apache::edit::tag_start($target,$token);
                   3132: 	$result.=&Apache::edit::select_arg('Mode:','mode',
                   3133: 					   [['show','Show'],
                   3134: 					    ['hide','Hide']]
                   3135: 					   ,$token);
                   3136: 	$result .=&Apache::edit::checked_arg('When used as type(s):','for',
1.511     bisitz   3137: 					     [ ['exam','Bubblesheet Exam/Quiz Problem'],
1.248     albertel 3138: 					       ['survey','Survey'],
1.465     raeburn  3139:                                                ['surveycred','Survey (with credit)'],
                   3140:                                                ['anonsurvey','Anonymous Survey'],
                   3141:                                                ['anonsurveycred','Anonymous Survey (with credit)'],
1.428     raeburn  3142: 					       ['problem','Homework Problem'],
1.479     raeburn  3143:                                                ['practice','Practice Problem'],
                   3144:                                                ['randomizetry','New Randomization Each Try'] ]
1.248     albertel 3145: 					     ,$token);
                   3146: 	$result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
                   3147:     } elsif ($target eq 'modified') {
                   3148: 	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
                   3149: 						     $safeeval,'mode','for');
                   3150: 	if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
                   3151:     }
                   3152:     return $result;
                   3153: }
                   3154: 
                   3155: sub end_problemtype {
1.159     albertel 3156:     return '';
1.24      albertel 3157: }
1.34      albertel 3158: 
                   3159: sub start_startouttext {
1.159     albertel 3160:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   3161:     my @result=(''.'');
                   3162:     if ($target eq 'edit' || $target eq 'modified' ) { @result=('','no'); }
1.404     albertel 3163:     
                   3164:     my $nesting = 
                   3165: 	&Apache::lonxml::set_state('outtext',
                   3166: 				   &Apache::lonxml::get_state('outtext')+1);
                   3167:     if ($nesting > 1 && $env{'request.state'} eq 'construct') {
                   3168: 	&Apache::lonxml::error("Nesting of &lt;startouttext /&gt; not allowed, on line ".$token->[5]);
                   3169:     }
1.159     albertel 3170:     return (@result);
1.34      albertel 3171: }
1.159     albertel 3172: 
1.34      albertel 3173: sub end_startouttext {
1.326     albertel 3174:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.159     albertel 3175:     my $result='';
                   3176:     my $text='';
                   3177:     if ($target eq 'edit') {
1.424     foxr     3178: 	my $areaid = 'homework_edit_'.$Apache::lonxml::curdepth;
1.326     albertel 3179: 	$text=&Apache::lonxml::get_all_text("endouttext",$parser,$style);
1.527     golterma 3180:         $result.=&Apache::edit::start_table($token)."<tr><td>".&Apache::loncommon::insert_folding_button()
                   3181:                  ." ".&mt('Text Block')."</td>"
1.438     bisitz   3182:                  .'<td><span class="LC_nobreak">'.&mt('Delete?').' '
1.437     raeburn  3183:                  .&Apache::edit::deletelist($target,$token)
1.474     raeburn  3184:                  .'</span></td>'
1.550     raeburn  3185: 	         .'<td><span id="math_'.$areaid.'">';
                   3186: 	if ($env{'environment.nocodemirror'}) {
                   3187: 	    $result.=&Apache::lonhtmlcommon::dragmath_button($areaid,1);
                   3188: 	} else {
                   3189: 	    $result.='&nbsp;';
                   3190: 	}
                   3191: 	$result.='</span></td>'
1.474     raeburn  3192: 		 .'<td>'
                   3193: 		 .&Apache::edit::insertlist($target,$token)
                   3194: 		 .'</td>'
1.515     golterma 3195: 	         .'<td class="LC_edit_problem_latexhelper">' .
1.474     raeburn  3196: 	         &Apache::loncommon::helpLatexCheatsheet().
1.159     albertel 3197: 		 &Apache::edit::end_row().
1.362     albertel 3198:                  &Apache::edit::start_spanning_row()."\n".
1.255     www      3199: 		 &Apache::edit::editfield($token->[1],$text,"",80,8,1);
1.159     albertel 3200:     }
                   3201:     if ($target eq 'modified') {
1.219     albertel 3202: 	$result='<startouttext />'.&Apache::edit::modifiedfield("endouttext",$parser);
1.159     albertel 3203:     }
                   3204:     if ($target eq 'tex') {
                   3205: 	$result .= '\noindent ';
                   3206:     }
                   3207:     return $result;
1.34      albertel 3208: }
1.159     albertel 3209: 
1.34      albertel 3210: sub start_endouttext {
1.159     albertel 3211:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   3212:     my $result='';
                   3213:     if ($target eq "edit" ) { $result="</td></tr>".&Apache::edit::end_table()."\n"; }
                   3214:     if ($target eq "modified") {
                   3215: 	$result='<endouttext />'.
1.377     albertel 3216: 	    &Apache::edit::handle_insertafter('startouttext');
                   3217:     }
1.404     albertel 3218: 
                   3219:     my $nesting = 
                   3220: 	&Apache::lonxml::set_state('outtext',
                   3221: 				   &Apache::lonxml::get_state('outtext')-1);
                   3222:     if ($nesting < 0 && $env{'request.state'} eq 'construct') {
                   3223: 	&Apache::lonxml::error(" Extraneous &lt;endouttext /&gt; not allowed on line ".$token->[5]);
                   3224: 	&Apache::lonxml::set_state('outtext', 0);
                   3225:     }
1.159     albertel 3226:     return $result;
1.34      albertel 3227: }
1.159     albertel 3228: 
1.34      albertel 3229: sub end_endouttext {
1.159     albertel 3230:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   3231:     my @result=('','');
                   3232:     if ($target eq "edit" || $target eq 'modified') { @result=('','no'); }
                   3233:     return (@result);
1.34      albertel 3234: }
1.159     albertel 3235: 
1.45      albertel 3236: sub delete_startouttext {
1.326     albertel 3237:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
                   3238:     #  my $text=&Apache::lonxml::get_all_text("endouttext",$parser,$style);
1.159     albertel 3239:     my $text=$$parser['-1']->get_text("/endouttext");
                   3240:     my $ntoken=$$parser['-1']->get_token();
                   3241:     &Apache::lonxml::debug("Deleting :$text: and :$ntoken->[0]:$ntoken->[1]:$ntoken->[2]: for startouttext");
                   3242:     &Apache::lonxml::end_tag($tagstack,$parstack,$ntoken);
                   3243:     # Deleting 2 parallel tag pairs, but we need the numbers later to look like
                   3244:     # they did the last time round
                   3245:     &Apache::lonxml::increasedepth($ntoken);
                   3246:     &Apache::lonxml::decreasedepth($ntoken);
                   3247:     return 1;
1.193     www      3248: }
                   3249: 
                   3250: sub start_simpleeditbutton {
                   3251:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   3252:     my $result='';
1.284     albertel 3253:     if (($env{'form.simple_edit_button'} ne 'off') &&
1.273     albertel 3254: 	($target eq 'web') &&
1.330     albertel 3255:         (&Apache::lonnet::allowed('mdc',$env{'request.course.id'}))) {
1.284     albertel 3256:         my $url=$env{'request.noversionuri'};
1.193     www      3257:         $url=~s/\?.*$//;
1.367     albertel 3258: 	my ($symb) = &Apache::lonnet::whichuser();
1.451     bisitz   3259: #       Warning makes more sense and is more important on edit screen
1.442     bisitz   3260: #       $result='<p class="LC_warning">'
                   3261: #              .&mt('Note: it can take up to 10 minutes for changes to take effect for all users.')
                   3262: #              .&Apache::loncommon::help_open_topic('Caching')
                   3263: #              .'</p>';
1.486     www      3264:         $result.=&Apache::loncommon::head_subbox(
                   3265:                  &Apache::lonhtmlcommon::start_funclist()
1.451     bisitz   3266:                 .&Apache::lonhtmlcommon::add_item_funclist(
                   3267:                      '<a href="'.$url.'/smpedit?symb='.&escape($symb).'">'
                   3268:                     .&mt('Edit').'</a>')
1.486     www      3269:                 .&Apache::lonhtmlcommon::end_funclist());
1.442     bisitz   3270: 
1.193     www      3271:     }
                   3272:     return $result;
                   3273: }
                   3274: 
                   3275: sub end_simpleeditbutton {
                   3276:     return '';
1.45      albertel 3277: }
1.34      albertel 3278: 
1.428     raeburn  3279: sub practice_problem_header {
1.556     raeburn  3280:     return '<h3 class="LC_info">'.&mt('Practice Problem').'</h3>'.
1.428     raeburn  3281:            '<span class="LC_info">'.&mt('Submissions are not permanently recorded').
                   3282:            '</span>';
                   3283: }
                   3284: 
1.479     raeburn  3285: sub randomizetry_problem_header {
                   3286:     my ($problemstatus,$reqtries) = @_;
                   3287:     my ($header,$text);
                   3288:     if ($reqtries > 1) {
                   3289:         $header = &mt('New Problem Variation After Every [quant,_1,Try,Tries]',$reqtries);
                   3290:         if (($problemstatus eq 'no') ||
                   3291:             ($problemstatus eq 'no_feedback_ever')) {
                   3292:             $text = &mt('A new variation will be generated after every [quant,_1,try,tries], until the tries limit is reached.',$reqtries);
                   3293:         } else {
                   3294:             $text = &mt('A new variation will be generated after every [quant,_1,try,tries], until correct or tries limit is reached.',$reqtries);
                   3295:         }
                   3296:     } else {
                   3297:         $header = &mt('New Problem Variation Each Try');
                   3298:         if (($problemstatus eq 'no') ||
                   3299:             ($problemstatus eq 'no_feedback_ever')) {
                   3300:             $text = &mt('A new variation will be generated after each try until the tries limit is reached.');
                   3301: 
                   3302:         } else {
                   3303:             $text = &mt('A new variation will be generated after each try until correct or tries limit is reached.');
                   3304:         }
                   3305:     }
1.556     raeburn  3306:     return '<h3 class="LC_info">'.$header.'</h3>'.
1.479     raeburn  3307:            '<span class="LC_info">'.$text.'</span><hr />';
                   3308: }
                   3309: 
                   3310: sub randomizetry_part_header {
                   3311:     my ($problemstatus,$reqtries,$num) = @_;
                   3312:     my ($header,$text);
                   3313:     if ($reqtries eq 'none') {
                   3314:         $header = &mt('No Question Variation');
                   3315:         $text = &mt('For this question there will no new variation after a try.');
                   3316:     } elsif ($reqtries > 1) {
                   3317:         $header = &mt('New Question Variation After Every [quant,_1,Try,Tries]',$reqtries);
                   3318:         if (($problemstatus eq 'no') ||
                   3319:             ($problemstatus eq 'no_feedback_ever')) {
                   3320:             $text = &mt('For this question a new variation will be generated after every [quant,_1,try,tries], until the tries limit is reached.',$reqtries);
                   3321:         } else {
                   3322:             $text = &mt('For this question a new variation will be generated after every [quant,_1,try,tries], until correct or tries limit is reached.',$reqtries);
                   3323:         }
                   3324:     } else {
                   3325:         $header = &mt('New Question Variation For Each Try');
                   3326:         if (($problemstatus eq 'no') ||
                   3327:             ($problemstatus eq 'no_feedback_ever')) {
                   3328:             $text =  &mt('For this question a new variation will be generated after each try until the tries limit is reached.');
                   3329:         } else {
                   3330:             $text = &mt('For this question a new variation will be generated after each try until correct or tries limit is reached.');
                   3331:         }
                   3332:     }
                   3333:     my $output;
                   3334:     if ($num > 1) {
                   3335:         $output .= '<hr />';
                   3336:     }
1.556     raeburn  3337:     $output .=  '<h4 class="LC_info">'.$header.'</h4>'.
1.479     raeburn  3338:                   '<span class="LC_info">'.$text.'</span><br /><br />';
                   3339:     return $output;
                   3340: }
                   3341: 
1.1       albertel 3342: 1;
                   3343: __END__
1.435     jms      3344: 
                   3345: =pod
                   3346: 
                   3347: =back
                   3348: 
                   3349: =cut

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>