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

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

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