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

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

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