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

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

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