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

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

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