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

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

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