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

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

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