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

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

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