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

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

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