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

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

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