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

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.496   ! raeburn     4: # $Id: structuretags.pm,v 1.495 2011/07/28 03:13:58 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',
                    286:             'href'  => &Apache::loncommon::authorspace(),
                    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.208     albertel  963: #don't undef this, lonhomework.pm takes care of this, we use this to 
                    964: #detect if we try to do 2 problems in one file
                    965: #   undef($Apache::lonhomework::parsing_a_problem);
1.204     albertel  966:     undef($Apache::lonhomework::name);
1.358     albertel  967:     undef($Apache::lonhomework::default_type);
                    968:     undef($Apache::lonhomework::type);
                    969:     undef($Apache::lonhomework::scantronmode);
                    970:     undef($Apache::lonhomework::ignore_response_errors);
1.477     www       971:     undef(@Apache::functionplotresponse::callscripts);
1.405     albertel  972:     &Apache::lonhomework::reset_show_problem_status();
1.204     albertel  973: }
                    974: 
1.241     albertel  975: sub set_problem_state {
1.240     albertel  976:     my ($part)=@_;
1.284     albertel  977:     if ($env{'form.problemstate'} eq 'CANNOT_ANSWER_correct') {
1.240     albertel  978: 	$Apache::lonhomework::history{"resource.$part.solved"}=
                    979: 	    'correct_by_student';
                    980:     }
                    981: }
                    982: 
1.241     albertel  983: sub get_problem_status {
                    984:     my ($part)=@_;
1.267     albertel  985:     my $problem_status;
1.284     albertel  986:     if ($env{'request.state'} eq 'construct' &&
                    987: 	defined($env{'form.problemstatus'})) {
                    988: 	$problem_status=$env{'form.problemstatus'};
1.267     albertel  989:     } else {
                    990: 	$problem_status=&Apache::lonnet::EXT("resource.$part.problemstatus");
                    991: 	&Apache::lonxml::debug("problem status for $part is $problem_status");
1.284     albertel  992: 	&Apache::lonxml::debug("env probstat is ".$env{'form.problemstatus'});
1.241     albertel  993:     }
                    994:     return $problem_status;
                    995: }
                    996: 
1.9       albertel  997: sub start_problem {
1.326     albertel  998:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.19      albertel  999: 
1.311     foxr     1000:     # We'll use the redirection to fix up printing of duedates.
1.321     albertel 1001:     if (!$Apache::lonxml::metamode) {
                   1002: 	&Apache::lonxml::startredirection();
                   1003:     }
1.311     foxr     1004: 
1.308     foxr     1005:     # Problems don't nest and we don't allow more than one <problem> in
                   1006:     # a .problem file.
                   1007:     #
1.184     albertel 1008:     if ( $Apache::inputtags::part ne '' ||
                   1009: 	 $Apache::lonhomework::parsing_a_problem) {
                   1010: 	&Apache::lonxml::error('Only one &lt;problem&gt; allowed in a .problem file');
1.326     albertel 1011: 	#my $bodytext=&Apache::lonxml::get_all_text("/problem",$parser,$style);
1.159     albertel 1012: 	return '';
                   1013:     }
1.184     albertel 1014: 
                   1015:     $Apache::lonhomework::parsing_a_problem=1;
1.204     albertel 1016:     &init_problem_globals('problem');
1.166     albertel 1017: 
1.284     albertel 1018:     if (defined($env{'scantron.maxquest'})) {
1.166     albertel 1019: 	$Apache::lonhomework::scantronmode=1;
                   1020:     }
1.161     albertel 1021: 
1.159     albertel 1022:     if ($target ne 'analyze') {
1.415     raeburn  1023:         my $type = &Apache::lonnet::EXT('resource.0.type');
                   1024: 	$Apache::lonhomework::type=$type;
1.284     albertel 1025: 	if (($env{'request.state'} eq 'construct') &&
1.410     albertel 1026: 	    $env{'form.problemtype'} =~ /\S/) {
1.284     albertel 1027: 	    $Apache::lonhomework::type=$env{'form.problemtype'};
1.237     albertel 1028: 	}
1.332     albertel 1029: 	&Apache::lonxml::debug("Found this to be of type :$Apache::lonhomework::type:");
1.159     albertel 1030:     }
1.164     albertel 1031:     if ($Apache::lonhomework::type eq '' ) {
1.284     albertel 1032: 	my $uri=$env{'request.uri'};
1.159     albertel 1033: 	if ($uri=~/\.(\w+)$/) {
                   1034: 	    $Apache::lonhomework::type=$1;
                   1035: 	    &Apache::lonxml::debug("Using type of $1");
                   1036: 	} else {
                   1037: 	    $Apache::lonhomework::type='problem';
                   1038: 	    &Apache::lonxml::debug("Using default type, problem, :$uri:");
                   1039: 	}
1.87      albertel 1040:     }
1.301     albertel 1041:     $Apache::lonhomework::default_type = $Apache::lonhomework::type;
1.58      www      1042: 
1.363     albertel 1043:     &initialize_storage();
1.389     albertel 1044:     if ($target ne 'analyze'
                   1045:        	&& $env{'request.state'} eq 'construct') {
                   1046: 	&set_problem_state('0');
                   1047:     }
                   1048: 
1.366     albertel 1049:     if ($target eq 'web') {
                   1050: 	&Apache::lonxml::debug(" grading history ");
                   1051: 	&Apache::lonhomework::showhash(%Apache::lonhomework::history);
                   1052:     }
1.363     albertel 1053: 
1.159     albertel 1054:     #added vars to the scripting enviroment
1.213     albertel 1055:     my $expression='$external::part=\''.$Apache::inputtags::part.'\';';
1.248     albertel 1056:     $expression.='$external::type=\''.$Apache::lonhomework::type.'\';';
1.24      albertel 1057:     &Apache::run::run($expression,$safeeval);
1.159     albertel 1058:     my $status;
                   1059:     my $accessmsg;
                   1060: 
1.343     albertel 1061:     my $name= &get_resource_name($parstack,$safeeval);
1.350     albertel 1062:     my ($result,$form_tag_start);
1.354     albertel 1063:     if ($target eq 'web' || $target eq 'webgrade' || $target eq 'tex'
                   1064: 	|| $target eq 'edit') {
1.350     albertel 1065: 	($result,$form_tag_start) =
                   1066: 	    &page_start($target,$token,$tagstack,$parstack,$parser,$safeeval,
                   1067: 			$name);
                   1068:     }
                   1069: 
1.284     albertel 1070:     if ($target eq 'tex' and $env{'request.symb'} =~ m/\.page_/) {$result='';}
1.159     albertel 1071: 
1.479     raeburn  1072:     if ($target eq 'analyze') { my $rndseed=&setup_rndseed($safeeval,$target); }
1.159     albertel 1073:     if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
                   1074: 	$target eq 'tex') {
1.284     albertel 1075: 	if ($env{'form.markaccess'}) {
1.414     albertel 1076: 	    my @interval=&Apache::lonnet::EXT("resource.0.interval");
                   1077: 	    &Apache::lonnet::set_first_access($interval[1]);
1.252     albertel 1078: 	}
1.479     raeburn  1079: 
                   1080:         ($status,$accessmsg,my $slot_name,my $slot) =
                   1081:             &Apache::lonhomework::check_slot_access('0','problem');
                   1082:         push (@Apache::inputtags::status,$status);
                   1083: 
1.159     albertel 1084: 	#handle rand seed in construction space
1.479     raeburn  1085: 	my $rndseed=&setup_rndseed($safeeval,$target);
1.367     albertel 1086: 	my ($symb)=&Apache::lonnet::whichuser();
1.479     raeburn  1087: 
1.333     albertel 1088: 	if ($env{'request.state'} ne "construct" && 
                   1089: 	    ($symb eq '' || $Apache::lonhomework::type eq 'practice')) {
1.162     albertel 1090: 	    $form_tag_start.='<input type="hidden" name="rndseed" value="'.
1.462     raeburn  1091: 		$rndseed.'" />'.
                   1092: 		    '<input type="submit" name="resetdata"
                   1093:                              value="'.&mt('New Problem Variation').'" />';
1.334     albertel 1094: 	    if (exists($env{'form.username'})) {
                   1095: 		$form_tag_start.=
1.164     albertel 1096: 		    '<input type="hidden" name="username"
1.284     albertel 1097:                              value="'.$env{'form.username'}.'" />';
1.334     albertel 1098: 	    }
1.462     raeburn  1099: 	    if ($env{'request.role.adv'}) {
                   1100: 		$form_tag_start.= ' <label class="LC_nobreak">'
                   1101:                          .'<input type="checkbox" name="showallfoils"';
                   1102: 		if (defined($env{'form.showallfoils'})) {
                   1103: 		    $form_tag_start.=' checked="checked"';
                   1104: 		}
                   1105:                 $form_tag_start.= ' /> '
                   1106:                                  .&mt('Show All Foils')
                   1107:                                  .'</label>';
                   1108: 	    }
1.417     www      1109:             if ($Apache::lonhomework::type eq 'practice') {
1.428     raeburn  1110:                 $form_tag_start.=&practice_problem_header();
1.417     www      1111:             }
1.462     raeburn  1112: 	    $form_tag_start.='<hr />';
1.479     raeburn  1113:         } elsif (($env{'request.state'} ne "construct") &&
                   1114:                  ($Apache::lonhomework::type eq 'randomizetry') &&
                   1115:                  ($status eq 'CAN_ANSWER')) {
                   1116:             my $reqtries = &Apache::lonnet::EXT("resource.$Apache::inputtags::part.randomizeontries");
                   1117:             my $problemstatus = &get_problem_status($Apache::inputtags::part);
                   1118:             $form_tag_start.=&randomizetry_problem_header($problemstatus,$reqtries);
                   1119:         }
1.324     albertel 1120: 
1.159     albertel 1121: 	my $expression='$external::datestatus="'.$status.'";';
                   1122: 	$expression.='$external::gradestatus="'.$Apache::lonhomework::history{"resource.0.solved"}.'";';
                   1123: 	&Apache::run::run($expression,$safeeval);
                   1124: 	&Apache::lonxml::debug("Got $status");
1.324     albertel 1125: 
1.159     albertel 1126: 	if (( $status eq 'CLOSED' ) ||
                   1127: 	    ( $status eq 'UNCHECKEDOUT') ||
1.252     albertel 1128: 	    ( $status eq 'NOT_YET_VIEWED') ||
1.159     albertel 1129: 	    ( $status eq 'BANNED') ||
1.216     albertel 1130: 	    ( $status eq 'UNAVAILABLE') ||
1.324     albertel 1131: 	    ( $status eq 'NOT_IN_A_SLOT') ||
1.216     albertel 1132: 	    ( $status eq 'INVALID_ACCESS')) {
1.326     albertel 1133: 	    my $bodytext=&Apache::lonxml::get_all_text("/problem",$parser,
                   1134: 						       $style);
1.159     albertel 1135: 	    if ( $target eq "web" ) {
1.343     albertel 1136: 		my $msg;
1.159     albertel 1137: 		if ($status eq 'UNAVAILABLE') {
1.245     albertel 1138: 		    $msg.='<h1>'.&mt('Unable to determine if this resource is open due to network problems. Please try again later.').'</h1>';
1.441     raeburn  1139:                 } elsif ($status eq 'NOT_IN_A_SLOT') {
                   1140:                     $msg.='<h1>'.&mt('You are not currently signed up to work at this time and/or place.').'</h1>';
1.253     albertel 1141: 		} elsif ($status ne 'NOT_YET_VIEWED') {
1.245     albertel 1142: 		    $msg.='<h1>'.&mt('Not open to be viewed').'</h1>';
1.159     albertel 1143: 		}
1.216     albertel 1144: 		if ($status eq 'CLOSED' || $status eq 'INVALID_ACCESS') {
1.393     www      1145: 		    $msg.=&mt('The problem ').$accessmsg;
1.159     albertel 1146: 		} elsif ($status eq 'UNCHECKEDOUT') {
1.343     albertel 1147: 		    $msg.=&checkout_msg();
1.252     albertel 1148: 		} elsif ($status eq 'NOT_YET_VIEWED') {
1.253     albertel 1149: 		    $msg.=&firstaccess_msg($accessmsg,$symb);
1.325     albertel 1150: 		} elsif ($status eq 'NOT_IN_A_SLOT') {
1.441     raeburn  1151: 		    $msg.=&Apache::bridgetask::add_request_another_attempt_button("Sign up for time to work");
1.159     albertel 1152: 		}
                   1153: 		$result.=$msg.'<br />';
                   1154: 	    } elsif ($target eq 'tex') {
1.332     albertel 1155: 		my $startminipage = ($env{'form.problem_split'}=~/yes/i)? ''
                   1156: 		                    : '\begin{minipage}{\textwidth}';
1.443     foxr     1157: 		$result.='\noindent \vskip 1 mm '.
1.332     albertel 1158: 		    $startminipage.'\vskip 0 mm';
1.159     albertel 1159: 		if ($status eq 'UNAVAILABLE') {
1.211     albertel 1160: 		    $result.=&mt('Unable to determine if this resource is open due to network problems. Please try again later.').'\vskip 0 mm ';
1.159     albertel 1161: 		} else {
1.211     albertel 1162: 		    $result.=&mt('Problem is not open to be viewed. It')." $accessmsg \\vskip 0 mm ";
1.159     albertel 1163: 		}
                   1164: 	    }
1.324     albertel 1165: 	} elsif ($status eq 'NEEDS_CHECKIN') {
1.326     albertel 1166: 	    my $bodytext=&Apache::lonxml::get_all_text("/problem",$parser,
                   1167: 						       $style);
1.324     albertel 1168: 	    if ($target eq 'web') {
1.375     albertel 1169: 		$result .= 
                   1170: 		    &Apache::bridgetask::proctor_validation_screen($slot);
1.324     albertel 1171: 	    } elsif ($target eq 'grade') {
                   1172: 		&Apache::bridgetask::proctor_check_auth($slot_name,$slot,
                   1173: 							'problem');
                   1174: 	    }
1.159     albertel 1175: 	} elsif ($target eq 'web') {
1.360     albertel 1176: 	    if ($status eq 'CAN_ANSWER' 
                   1177: 		&& $slot_name ne ''
                   1178: 		&& $Apache::lonhomework::history{'resource.0.checkedin'} eq '') {
                   1179: 		# unproctored slot access, self checkin
                   1180: 		&Apache::bridgetask::check_in('problem',undef,undef,
                   1181: 					      $slot_name);
                   1182: 	    }
1.368     albertel 1183: 	    $result.="\n $form_tag_start \t".	
1.227     albertel 1184: 	      '<input type="hidden" name="submitted" value="yes" />';
                   1185: 	    # create a page header and exit
1.284     albertel 1186: 	    if ($env{'request.state'} eq "construct") {
                   1187: 		$result.= &problem_web_to_edit_header($env{'form.rndseed'});
1.428     raeburn  1188:                 if ($Apache::lonhomework::type eq 'practice') {
                   1189:                     $result.= '<input type="submit" name="resetdata" '.
                   1190:                               'value="'.&mt('New Problem Variation').'" />'.
                   1191:                               &practice_problem_header().'<hr />';
                   1192:                 }
1.227     albertel 1193: 	    }
                   1194: 	    # if we are viewing someone else preserve that info
1.284     albertel 1195: 	    if (defined $env{'form.grade_symb'}) {
1.227     albertel 1196: 		foreach my $field ('symb','courseid','domain','username') {
                   1197: 		    $result .= '<input type="hidden" name="grade_'.$field.
1.284     albertel 1198: 			'" value="'.$env{"form.grade_$field"}.'" />'."\n";
1.159     albertel 1199: 		}
1.479     raeburn  1200:                 foreach my $field ('trial','questiontype') {
                   1201:                     if ($env{"form.grade_$field"} ne '') {
                   1202:                         $result .= '<input type="hidden" name="grade_'.$field.
                   1203:                             '" value="'.$env{"form.grade_$field"}.'" />'."\n";
                   1204:                     }
                   1205:                 }
1.159     albertel 1206: 	    }
1.490     raeburn  1207:             if ($env{'form.grade_imsexport'}) {
                   1208:                 $result = '';
                   1209:             }
1.159     albertel 1210: 	} elsif ($target eq 'tex') {
1.319     foxr     1211: 	    $result .= 'INSERTTEXFRONTMATTERHERE';
                   1212: 
1.99      sakharuk 1213: 	}
1.159     albertel 1214:     } elsif ($target eq 'edit') {
1.343     albertel 1215: 	$result .= $form_tag_start.&problem_edit_header();
1.226     albertel 1216: 	$Apache::lonxml::warnings_error_header=
                   1217: 	    &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 1218: 	my $temp=&Apache::edit::insertlist($target,$token);
                   1219: 	$result.=$temp;
                   1220:     } elsif ($target eq 'modified') {
                   1221: 	$result=$token->[4];
                   1222:     } else {
                   1223: 	# page_start returned a starting result, delete it if we don't need it
                   1224: 	$result = '';
1.99      sakharuk 1225:     }
1.159     albertel 1226:     return $result;
1.9       albertel 1227: }
                   1228: 
                   1229: sub end_problem {
1.159     albertel 1230:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.321     albertel 1231:     my $result;
1.310     foxr     1232: 
1.321     albertel 1233:     if (!$Apache::lonxml::metamode) {
                   1234: 	$result = &Apache::lonxml::endredirection(); #started in &start_problem
1.329     albertel 1235: 	$Apache::lonxml::post_evaluate=0;
1.321     albertel 1236:     }
1.319     foxr     1237: 
                   1238:     if ($target eq 'tex') {
1.321     albertel 1239: 	# Figure out the front matter and replace the
                   1240: 	# INSERTTEXFRONTMATTERHERE in result with it.  note that we do
                   1241: 	# this in end_problem because whether or not we display due
                   1242: 	# dates depends on whether due dates have already been
                   1243: 	# displayed in the problem parts.
                   1244: 
1.319     foxr     1245: 	my $frontmatter   = '';
                   1246: 	my $startminipage = '';
                   1247: 	if (not $env{'form.problem_split'}=~/yes/) {
                   1248: 	    $startminipage = '\begin{minipage}{\textwidth}';
                   1249: 	}
                   1250: 	my $id = $Apache::inputtags::part;
                   1251: 	my $weight = &Apache::lonnet::EXT("resource.$id.weight");
                   1252: 	my $packages=&Apache::lonnet::metadata($env{'request.uri'},'packages');
                   1253: 	my @packages = split /,/,$packages;
                   1254: 	my $allow_print_points = 0;
                   1255: 	foreach my $partial_key (@packages) {
                   1256: 	    if ($partial_key=~m/^part_0$/) {
                   1257: 		$allow_print_points=1;
                   1258: 	    }
                   1259: 	}
                   1260: 	my $maxtries = &Apache::lonnet::EXT("resource.$id.maxtries");
                   1261: 	if (defined($maxtries) && $maxtries < 0) { $allow_print_points=0; }
                   1262: 	if (lc($env{'course.'.$env{'request.course.id'}.
                   1263: 			'.disableexampointprint'}) eq 'yes') {
                   1264: 	    $allow_print_points=0;
                   1265: 	}
                   1266: 	my $name_of_resourse= &Apache::lonxml::latex_special_symbols(&get_resource_name($parstack,$safeeval),'header');
1.443     foxr     1267: 	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     1268: 	my $toc_line='\vskip 1 mm\noindent '.$startminipage.
                   1269: 	    '\addcontentsline{toc}{subsection}{'.$name_of_resourse.'}';
                   1270: 	
                   1271: 	#  Figure out what the due date is and if we need to print
                   1272: 	#  it in the problem header.  We have been logging the
                   1273: 	#  last due date written to file. 
                   1274: 	
                   1275: 	my $duetime = &Apache::lonnet::EXT("resource.$id.duedate"); 
                   1276: 	my $duedate = POSIX::strftime("%c",localtime($duetime));
1.448     bisitz   1277:         my $duedate_text = &mt('Due date: [_1]'
                   1278:                               ,&Apache::lonlocal::locallocaltime($duetime));
1.319     foxr     1279: 	my $temp_file;
                   1280: 	my $filename = "/home/httpd/prtspool/$env{'user.name'}_$env{'user.domain'}_printout.due";
                   1281: 	
                   1282: 	# Figure out what the last printed due date is or set it
                   1283: 	# to the epoch if no duedates have been printed.
                   1284: 	
                   1285: 	my $due_file_content = 0;      #   If the file does not yet exist, time is the epoch.
                   1286: 	if (-e $filename) {
                   1287: 	    $temp_file = Apache::File->new($filename);
                   1288: 	    my @due_file      = <$temp_file>;
                   1289: 	    $due_file_content = $due_file[$#due_file];
                   1290: 	    chomp $due_file_content;
                   1291: 	} 
                   1292: 	
                   1293: 	# We display the due date iff it is not the same as the last
                   1294: 	# duedate in problem header ($due_file_content), and
                   1295: 	# none of our parts displayed a duedate.
                   1296: 	#
                   1297: 	my $parts_with_displayduedate;
                   1298: 	if (defined $Apache::outputtags::showonce{'displayduedate'}) {
                   1299: 	    $parts_with_displayduedate = 
                   1300: 		scalar(@{$Apache::outputtags::showonce{'displayduedate'}});
                   1301: 	} else {
                   1302: 	    $parts_with_displayduedate = 0;
                   1303: 	}
                   1304: 	if (($due_file_content != $duetime) && ($parts_with_displayduedate == 0) ) {
                   1305: 	    $temp_file = Apache::File->new('>'.$filename);
                   1306: 	    print $temp_file "$duetime\n";
                   1307: 	    if (not $env{'request.symb'} =~ m/\.page_/) {
                   1308: 		if(not $duedate=~m/1969/ and $Apache::lonhomework::type ne 'exam') {
                   1309: 		    $frontmatter .= $begin_doc.
1.448     bisitz   1310: 			'\textit{'.$duedate_text.'} '.$toc_line;
1.319     foxr     1311: 		} else {
                   1312: 		    $frontmatter.= $begin_doc.$toc_line;
1.463     foxr     1313: 		    if ($Apache::lonhomework::type eq 'exam' and $allow_print_points==1) { 
1.492     christia 1314: 			$frontmatter .= '\fbox{\textit{'.&mt('[quant,_1,pt,pt]',$weight ).'}}';
1.463     foxr     1315: 		    }
1.319     foxr     1316: 		}
                   1317: 	    } else {
1.448     bisitz   1318: 		$frontmatter .= '\vskip 1mm\textit{'.$duedate_text.'} \\\\\\\\'.$startminipage;
1.319     foxr     1319: 	    }
                   1320: 	} else {
                   1321: 	    if (not $env{'request.symb'} =~ m/\.page_/) {
                   1322: 		$frontmatter .= $begin_doc.$toc_line;
1.463     foxr     1323: 		if (($Apache::lonhomework::type eq 'exam') and ($allow_print_points==1)) { 
1.492     christia 1324: 		    $frontmatter .= '\fbox{\textit{'.&mt('[quant,_1,pt,pt]',$weight ).'}}';
1.463     foxr     1325: 		}
1.319     foxr     1326: 	    } else {
1.381     albertel 1327: 		$frontmatter .= '\vskip 1mm \\\\\\\\'.$startminipage;
1.319     foxr     1328: 	    }
                   1329: 	}
                   1330: 	$result =~ s/INSERTTEXFRONTMATTERHERE/$frontmatter/;
                   1331:     }
                   1332: 
1.159     albertel 1333:     my $status=$Apache::inputtags::status['-1'];
                   1334:     if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' ||
                   1335: 	$target eq 'tex') {
1.249     albertel 1336: 	if ( $target eq 'grade' && $Apache::inputtags::part eq '0') {
1.159     albertel 1337: 	    # if part is zero, no <part>s existed, so we need to the grading
1.249     albertel 1338: 	    if ($status eq 'CAN_ANSWER' ||$Apache::lonhomework::scantronmode) {
                   1339: 		&Apache::inputtags::grade;
1.324     albertel 1340: 	    } elsif ($status eq 'NEEDS_CHECKIN') {
                   1341: 		# no need to grade, and don't want to hide data
1.249     albertel 1342: 	    } else {
                   1343: 		# move any submission data to .hidden
                   1344: 		&Apache::inputtags::hidealldata($Apache::inputtags::part);
                   1345: 	    }
1.159     albertel 1346: 	} elsif ( ($target eq 'web' || $target eq 'tex') &&
                   1347: 		  $Apache::inputtags::part eq '0' &&
1.490     raeburn  1348: 		  $status ne 'UNCHECKEDOUT' && $status ne 'NOT_YET_VIEWED'
                   1349:                   && !$env{'form.grade_imsexport'}) {
1.159     albertel 1350: 	    # if part is zero, no <part>s existed, so we need show the current
                   1351: 	    # grading status
                   1352: 	    my $gradestatus = &Apache::inputtags::gradestatus($Apache::inputtags::part,$target);
                   1353: 	    $result.= $gradestatus;
                   1354: 	}
                   1355: 	if (
1.284     albertel 1356: 	    (($target eq 'web') && ($env{'request.state'} ne 'construct')) ||
1.159     albertel 1357: 	    ($target eq 'answer') || ($target eq 'tex')
                   1358: 	   ) {
1.490     raeburn  1359: 	    if (($target ne 'tex') &&
                   1360: 		($env{'form.answer_output_mode'} ne 'tex') && 
                   1361:                 (!$env{'form.grade_imsexport'})) {
1.254     www      1362: 		$result.="</form>";
1.159     albertel 1363: 	    }
                   1364: 	    if ($target eq 'web') {
1.346     albertel 1365: 		$result.= &Apache::loncommon::end_page({'discussion' => 1});
1.159     albertel 1366: 	    } elsif ($target eq 'tex') {
1.178     sakharuk 1367: 		my $endminipage = '';
1.284     albertel 1368: 		if (not $env{'form.problem_split'}=~/yes/) {
1.178     sakharuk 1369: 		    $endminipage = '\end{minipage}';
                   1370: 		}
1.284     albertel 1371:                 if ($env{'form.print_discussions'} eq 'yes') {
1.263     sakharuk 1372: 		    $result.=&Apache::lonxml::xmlend($target,$parser);
1.159     albertel 1373: 		} else {
1.262     sakharuk 1374: 		    $result .= '\keephidden{ENDOFPROBLEM}\vskip 0.5mm\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}';
1.284     albertel 1375: 		    if (not $env{'request.symb'} =~ m/\.page_/) {
1.262     sakharuk 1376: 			$result .= $endminipage.'\end{document} ';
                   1377: 		    } else {
1.382     albertel 1378: 			$result .= $endminipage;
1.262     sakharuk 1379: 		    }
1.159     albertel 1380: 		}
                   1381: 	    }
                   1382: 	}
1.476     www      1383:         if ($target eq 'web') {
                   1384:            $result.=&Apache::functionplotresponse::init_script();
                   1385:         }
1.159     albertel 1386: 	if ($target eq 'grade') {
                   1387: 	    &Apache::lonhomework::showhash(%Apache::lonhomework::results);
                   1388: 	    &finalize_storage();
                   1389: 	}
1.284     albertel 1390: 	if ($target eq 'answer' && ($env{'request.state'} eq 'construct')
                   1391: 	    && $env{'form.answer_output_mode'} ne 'tex') {
1.346     albertel 1392: 	    $result.=&Apache::loncommon::end_page({'discussion' => 1});
1.294     albertel 1393: 	                        # normally we get it from above, but in CSTR
1.172     albertel 1394: 	                        # we always show answer mode too.
1.159     albertel 1395: 	}
                   1396:     } elsif ($target eq 'meta') {
                   1397: 	if ($Apache::inputtags::part eq '0') {
1.179     albertel 1398: 	    @Apache::inputtags::response=();
1.159     albertel 1399: 	    $result=&Apache::response::mandatory_part_meta;
                   1400: 	}
1.215     albertel 1401: 	$result.=&Apache::response::meta_part_order();
1.258     albertel 1402: 	$result.=&Apache::response::meta_response_order();
1.159     albertel 1403:     } elsif ($target eq 'edit') {
                   1404: 	&Apache::lonxml::debug("in end_problem with $target, edit");
1.314     albertel 1405: 	$result .= &problem_edit_footer();
1.320     albertel 1406:     } elsif ($target eq 'modified') {
                   1407: 	 $result .= $token->[2];
1.159     albertel 1408:     }
1.155     albertel 1409: 
1.284     albertel 1410:     if ($env{'request.state'} eq 'construct' && $target eq 'web') {
1.177     albertel 1411: 	&Apache::inputtags::check_for_duplicate_ids();
                   1412:     }
1.204     albertel 1413: 
                   1414:     &reset_problem_globals('problem');
1.159     albertel 1415: 
                   1416:     return $result;
1.48      albertel 1417: }
                   1418: 
1.108     albertel 1419: 
1.48      albertel 1420: sub start_library {
1.159     albertel 1421:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.343     albertel 1422:     my ($result,$form_tag_start);
1.371     albertel 1423:     if ($#$tagstack eq 0 && $$tagstack[0] eq 'library') {
1.244     albertel 1424: 	&init_problem_globals('library');
                   1425: 	$Apache::lonhomework::type='problem';
                   1426:     }
1.159     albertel 1427:     if ($target eq 'edit') {
1.343     albertel 1428: 	($result,$form_tag_start)=
                   1429: 	    &page_start($target,$token,$tagstack,$parstack,$parser,$safeeval,
                   1430: 			'Edit');
                   1431: 	$result.=$form_tag_start.&problem_edit_header();
1.159     albertel 1432: 	my $temp=&Apache::edit::insertlist($target,$token);
                   1433: 	$result.=$temp;
                   1434:     } elsif ($target eq 'modified') {
                   1435: 	$result=$token->[4];
1.340     albertel 1436:     } elsif (($target eq 'web' || $target eq 'webgrade')
1.371     albertel 1437: 	     && ($#$tagstack eq 0 && $$tagstack[0] eq 'library')
1.340     albertel 1438: 	     && $env{'request.state'} eq "construct" ) {
1.159     albertel 1439: 	my $name=&get_resource_name($parstack,$safeeval);
1.343     albertel 1440: 	($result,$form_tag_start)=
                   1441: 	    &page_start($target,$token,$tagstack,$parstack,$parser,$safeeval,
                   1442: 			$name);
1.479     raeburn  1443: 	my $rndseed=&setup_rndseed($safeeval,$target);
1.343     albertel 1444: 	$result.=" \n $form_tag_start".	
1.159     albertel 1445: 		  '<input type="hidden" name="submitted" value="yes" />';
                   1446: 	$result.=&problem_web_to_edit_header($rndseed);
1.428     raeburn  1447:         if ($Apache::lonhomework::type eq 'practice') {
                   1448:             $result.= '<input type="submit" name="resetdata" '.
                   1449:                       'value="'.&mt('New Problem Variation').'" />'.
                   1450:                       &practice_problem_header().'<hr />';
                   1451:         }
1.159     albertel 1452:     }
                   1453:     return $result;
1.48      albertel 1454: }
                   1455: 
                   1456: sub end_library {
1.159     albertel 1457:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   1458:     my $result='';
                   1459:     if ($target eq 'edit') {
                   1460: 	$result=&problem_edit_footer();
1.371     albertel 1461:     } elsif ($target eq 'web' 
                   1462: 	     && ($#$tagstack eq 0 && $$tagstack[0] eq 'library') 
                   1463: 	     && $env{'request.state'} eq "construct") {
1.349     albertel 1464: 	$result.='</form>'.&Apache::loncommon::end_page({'discussion' => 1});
1.159     albertel 1465:     }
1.371     albertel 1466:     if ( $#$tagstack eq 0 && $$tagstack[0] eq 'library') {
                   1467: 	&reset_problem_globals('library');
                   1468:     }
1.159     albertel 1469:     return $result;
1.197     www      1470: }
                   1471: 
                   1472: sub start_definetag {
1.326     albertel 1473:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.197     www      1474: 
                   1475:     my $result;
                   1476: 
                   1477:     my $name = $token->[2]->{'name'};
1.326     albertel 1478:     my $skip=&Apache::lonxml::get_all_text("/definetag",$parser,$style);
1.396     albertel 1479:     if ($target eq 'web') {
                   1480: 	if ($name=~/^\//) {
                   1481: 	    $result=
                   1482: 		'<br /><table class="LC_sty_end"><tr><th>'.
                   1483: 		&mt('END [_1]'.'<tt>'.$name.'</tt>').'</th></tr>';
                   1484: 	} else {
                   1485: 	    $result=
                   1486: 		'<br /><table class="LC_sty_begin"><tr><th>'.
                   1487: 		&mt('BEGIN [_1]'.'<tt>'.$name.'</tt>').'</th></tr>';
                   1488: 	}
                   1489: 	$skip = &HTML::Entities::encode($skip, '<>&"');
                   1490: 	$result.='<tr><td><pre>'.$skip.'</pre></td></tr></table>';
1.197     www      1491:     }
                   1492:     return $result;
                   1493: }
                   1494: 
                   1495: sub end_definetag {
                   1496:     return '';
1.1       albertel 1497: }
                   1498: 
                   1499: sub start_block {
1.201     albertel 1500:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.131     albertel 1501: 
                   1502:     my $result;
1.1       albertel 1503: 
1.339     albertel 1504:     if ($target eq 'web' || $target eq 'grade'   || $target eq 'answer'  ||
                   1505: 	$target eq 'tex' || $target eq 'analyze' || $target eq 'webgrade') {
1.159     albertel 1506: 	my $code = $token->[2]->{'condition'};
1.385     albertel 1507: 	if (defined($code) && $code ne '') {
1.137     albertel 1508: 	    if (!$Apache::lonxml::default_homework_loaded) {
                   1509: 		&Apache::lonxml::default_homework_load($safeeval);
                   1510: 	    }
1.131     albertel 1511: 	    $result = &Apache::run::run($code,$safeeval);
                   1512: 	    &Apache::lonxml::debug("block :$code: returned :$result:");
                   1513: 	} else {
                   1514: 	    $result='1';
                   1515: 	}
                   1516: 	if ( ! $result ) {
1.201     albertel 1517: 	    my $skip=&Apache::lonxml::get_all_text("/block",$parser,$style);
1.131     albertel 1518: 	    &Apache::lonxml::debug("skipping ahead :$skip: $$parser[-1]");
                   1519: 	}
                   1520: 	$result='';
                   1521:     } elsif ($target eq 'edit') {
                   1522: 	$result .=&Apache::edit::tag_start($target,$token);
                   1523: 	$result .=&Apache::edit::text_arg('Test Condition:','condition',
                   1524: 					  $token,40);
                   1525: 	$result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
                   1526:     } elsif ($target eq 'modified') {
                   1527: 	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
                   1528: 						     $safeeval,'condition');
                   1529: 	if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
1.38      albertel 1530:     }
1.131     albertel 1531:     return $result;
1.1       albertel 1532: }
                   1533: 
                   1534: sub end_block {
1.167     www      1535:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   1536:     my $result;
                   1537:     if ($target eq "edit") {
                   1538: 	$result.= &Apache::edit::tag_end($target,$token,'');
                   1539:     }
                   1540:     return $result;
                   1541: }
                   1542: 
                   1543: sub start_languageblock {
1.201     albertel 1544:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.167     www      1545: 
                   1546:     my $result;
                   1547: 
1.339     albertel 1548:     if ($target eq 'web' || $target eq 'grade'   || $target eq 'answer' ||
                   1549: 	$target eq 'tex' || $target eq 'analyze' || $target eq 'webgrade') {
1.201     albertel 1550: 	my $include = $token->[2]->{'include'};
                   1551: 	my $exclude = $token->[2]->{'exclude'};
1.436     raeburn  1552:         my @preferred_languages=&Apache::lonlocal::preferred_languages();
1.394     www      1553: # This should not even happen, since we should at least have the server language
1.398     www      1554:         if (!$preferred_languages[0]) { $preferred_languages[0]='en'; }
                   1555: # Now loop over all languages in order of preference
                   1556:         foreach my $preferred_language (@preferred_languages) {
1.394     www      1557: # If the languageblock has no arguments, show the contents
1.399     www      1558:            $result=1;
                   1559:            my $found=0;
1.394     www      1560: # Do we have an include argument?
1.398     www      1561: 	   if ($include) {
1.394     www      1562: # If include is specified, by default, don't render the block
1.399     www      1563:               $result=0;
1.398     www      1564:               foreach my $included_language (split(/\,/,$include)) {
1.394     www      1565: # ... but if my preferred language is included, render it
1.398     www      1566:                  if ($included_language eq $preferred_language) {
1.399     www      1567:                     $result=1; 
                   1568:                     $found=1; 
1.398     www      1569:                  }
                   1570:               }
                   1571: 	   }
1.394     www      1572: # Do we have an exclude argument?
1.398     www      1573:            if ($exclude) {
1.399     www      1574:               $result=1;
1.398     www      1575:               foreach my $excluded_language (split(/\,/,$exclude)) {
                   1576:                  if ($excluded_language eq $preferred_language) {
1.399     www      1577:                     $result=0;
                   1578:                     $found=1;
1.398     www      1579:                  }
                   1580:               }
                   1581: 	   }
1.399     www      1582:            if ($found) { last; }
1.398     www      1583:         }
1.201     albertel 1584: 	if ( ! $result ) {
                   1585: 	    my $skip=&Apache::lonxml::get_all_text("/languageblock",$parser,
                   1586: 						   $style);
                   1587: 	    &Apache::lonxml::debug("skipping ahead :$skip: $$parser[-1]");
                   1588: 	}
                   1589: 	$result='';
1.167     www      1590:     } elsif ($target eq 'edit') {
                   1591: 	$result .=&Apache::edit::tag_start($target,$token);
1.211     albertel 1592: 	$result .=&Apache::edit::text_arg(&mt('Include Language:'),'include',
1.167     www      1593: 					  $token,40);
1.211     albertel 1594: 	$result .=&Apache::edit::text_arg(&mt('Exclude Language:'),'exclude',
1.167     www      1595: 					  $token,40);
                   1596: 	$result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
                   1597:     } elsif ($target eq 'modified') {
                   1598: 	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
1.168     albertel 1599: 						     $safeeval,'include',
                   1600: 						     'exclude');
1.167     www      1601: 	if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
                   1602:     }
                   1603:     return $result;
                   1604: }
                   1605: 
                   1606: sub end_languageblock {
1.170     www      1607:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   1608:     my $result;
1.201     albertel 1609:     if ($target eq "edit") {
1.170     www      1610: 	$result.= &Apache::edit::tag_end($target,$token,'');
                   1611:     }
                   1612:     return $result;
                   1613: }
                   1614: 
1.397     albertel 1615: {
                   1616:     my %available_texts;
                   1617:     sub start_translated {
                   1618: 	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
                   1619: 	&Apache::lonxml::register('Apache::structuretags',('lang'));
                   1620: 	undef(%available_texts);
                   1621:     }
                   1622:     
                   1623:     sub end_translated {
                   1624: 	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
                   1625: 	my $result;
                   1626: 	#show the translation on viewable targets
                   1627: 	if ($target eq 'web'     || $target eq 'tex' || $target eq 'webgrade'||
                   1628: 	    # or non-viewable targets, if it's embedded in something that
                   1629: 	    # wants the output
                   1630: 	    (($target eq 'answer' || $target eq 'analyze'|| $target eq 'grade')
                   1631: 	     && &Apache::lonxml::in_redirection() ) ) {
                   1632: 	    my @possibilities = keys(%available_texts);
                   1633: 	    my $which = 
                   1634: 		&Apache::loncommon::languages(\@possibilities) || 'default';
                   1635: 	    $result = $available_texts{$which};
                   1636: 	}
                   1637: 	undef(%available_texts);
                   1638: 	&Apache::lonxml::deregister('Apache::structuretags',('lang'));
                   1639: 	return $result;
                   1640:     }
                   1641: 
                   1642: 
                   1643:     sub start_lang {
                   1644: 	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
                   1645: 	if ($target eq 'web' || $target eq 'grade'   || $target eq 'answer' ||
                   1646: 	    $target eq 'tex' || $target eq 'analyze' || $target eq 'webgrade') {
                   1647: 	    &Apache::lonxml::startredirection();
                   1648: 	}
                   1649: 	return '';
                   1650:     }
                   1651: 
                   1652:     sub end_lang {
                   1653: 	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
                   1654: 	if ($target eq 'web' || $target eq 'grade'   || $target eq 'answer' ||
                   1655: 	    $target eq 'tex' || $target eq 'analyze' || $target eq 'webgrade') {
                   1656: 	    my $result = &Apache::lonxml::endredirection();
                   1657: 	    my $which = &Apache::lonxml::get_param('which',$parstack,
                   1658: 						   $safeeval);
1.431     raeburn  1659:             if ($which=~/\w/) {
                   1660:                 $available_texts{$which} = $result;
                   1661:             }
                   1662:             my $otherlangs = &Apache::lonxml::get_param('other',$parstack,
                   1663:                                                         $safeeval);
                   1664:             foreach my $language (split(/\s*\,\s*/,$otherlangs)) {
                   1665:                 if ($language=~/\w/) {
                   1666:                     $available_texts{$language} = $result;
                   1667:                 }
1.427     bisitz   1668:             }
                   1669: 
1.397     albertel 1670: 	}
                   1671: 	return '';
                   1672:     }
                   1673: }
                   1674: 
1.170     www      1675: sub start_instructorcomment {
1.201     albertel 1676:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.170     www      1677: 
                   1678:     my $result;
                   1679: 
1.339     albertel 1680:     if ($target eq 'web' || $target eq 'grade'   || $target eq 'answer' ||
                   1681: 	$target eq 'tex' || $target eq 'analyze' || $target eq 'webgrade') {
1.468     raeburn  1682:         $result=($env{'request.role'}=~/^(in|cc|co|au|ca|li)/);
1.284     albertel 1683: 	if ( (! $result) or ($env{'form.instructor_comments'} eq 'hide')) {
1.201     albertel 1684: 	    my $skip=&Apache::lonxml::get_all_text("/instructorcomment",
                   1685: 						   $parser,$style);
1.170     www      1686: 	    &Apache::lonxml::debug("skipping ahead :$skip: $$parser[-1]");
                   1687: 	}
                   1688: 	$result='';
                   1689:     } elsif ($target eq 'edit') {
                   1690: 	$result .=&Apache::edit::tag_start($target,$token);
                   1691: 	$result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
                   1692:     }
                   1693:     return $result;
                   1694: }
                   1695: 
                   1696: sub end_instructorcomment {
1.159     albertel 1697:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.160     albertel 1698:     my $result;
                   1699:     if ($target eq "edit") {
                   1700: 	$result.= &Apache::edit::tag_end($target,$token,'');
                   1701:     }
                   1702:     return $result;
1.4       tsai     1703: }
                   1704: 
                   1705: sub start_while {
1.326     albertel 1706:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.159     albertel 1707: 
1.160     albertel 1708:     my $result;
1.339     albertel 1709:     if ($target eq 'web' || $target eq 'grade'   || $target eq 'answer' ||
                   1710: 	$target eq 'tex' || $target eq 'analyze' || $target eq 'webgrade') {
1.160     albertel 1711: 	my $code = $token->[2]->{'condition'};
1.4       tsai     1712: 
1.160     albertel 1713: 	push( @Apache::structuretags::whileconds, $code);
                   1714: 	if (!$Apache::lonxml::default_homework_loaded) {
                   1715: 	    &Apache::lonxml::default_homework_load($safeeval);
                   1716: 	}
                   1717: 	my $result = &Apache::run::run($code,$safeeval);
1.326     albertel 1718: 	my $bodytext=&Apache::lonxml::get_all_text("/while",$parser,$style);
1.160     albertel 1719: 	push( @Apache::structuretags::whilebody, $bodytext);
1.161     albertel 1720: 	push( @Apache::structuretags::whileline, $token->[5]);
                   1721: 	&Apache::lonxml::debug("s code $code got -$result-");
1.160     albertel 1722: 	if ( $result ) {
                   1723: 	    &Apache::lonxml::newparser($parser,\$bodytext);
                   1724: 	}
                   1725:     } elsif ($target eq 'edit') {
                   1726: 	$result .=&Apache::edit::tag_start($target,$token);
1.211     albertel 1727: 	$result .=&Apache::edit::text_arg(&mt('Test Condition:'),'condition',
1.160     albertel 1728: 					  $token,40);
                   1729: 	$result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
                   1730:     } elsif ($target eq 'modified') {
                   1731: 	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
                   1732: 						     $safeeval,'condition');
                   1733: 	if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
1.159     albertel 1734:     }
1.160     albertel 1735:     return $result;
1.4       tsai     1736: }
                   1737: 
                   1738: sub end_while {
1.159     albertel 1739:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.160     albertel 1740:     my $result;
                   1741: 
1.339     albertel 1742:     if ($target eq 'web' || $target eq 'grade'   || $target eq 'answer' ||
                   1743: 	$target eq 'tex' || $target eq 'analyze' || $target eq 'webgrade') {
1.160     albertel 1744: 	my $code = pop(@Apache::structuretags::whileconds);
                   1745: 	my $bodytext = pop(@Apache::structuretags::whilebody);
1.161     albertel 1746: 	my $line = pop(@Apache::structuretags::whileline);
                   1747: 	my $return = &Apache::run::run($code,$safeeval);
                   1748: 	my $starttime=time;
                   1749: 	my $error=0;
                   1750: 	while ($return) {
                   1751: 	    if (time-$starttime >
                   1752: 		$Apache::lonnet::perlvar{'lonScriptTimeout'}) {
1.378     albertel 1753: 		$return = 0; $error=1; next;
1.161     albertel 1754: 	    }
                   1755: 	    $result.=&Apache::scripttag::xmlparse($bodytext);
1.380     albertel 1756: 	    if ($target eq 'grade' || $target eq 'answer' ||
                   1757: 		$target eq 'analyze') {
                   1758: 		# grade/answer/analyze should produce no output but if we
                   1759: 		# are redirecting, the redirecter should know what to do
                   1760: 		# with the output
                   1761: 		if (!$Apache::lonxml::redirection) { undef($result); }
                   1762: 	    }
1.161     albertel 1763: 	    $return = &Apache::run::run($code,$safeeval);
                   1764: 	}
                   1765: 	if ($error) {
1.430     bisitz   1766: 	    &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 1767: 	}
                   1768:     } elsif ($target eq "edit") {
                   1769: 	$result.= &Apache::edit::tag_end($target,$token,'');
1.159     albertel 1770:     }
1.160     albertel 1771:     return $result;
1.1       albertel 1772: }
1.6       tsai     1773: 
1.160     albertel 1774: # <randomlist show="1">
1.6       tsai     1775: #  <tag1>..</tag1>
                   1776: #  <tag2>..</tag2>
                   1777: #  <tag3>..</tag3>
1.160     albertel 1778: #  ...
1.6       tsai     1779: # </randomlist>
                   1780: sub start_randomlist {
1.326     albertel 1781:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.159     albertel 1782:     my $result;
1.339     albertel 1783:     if ($target eq 'answer' || $target eq 'grade'   || $target eq 'web' ||
                   1784: 	$target eq 'tex'    || $target eq 'analyze' || $target eq 'webgrade') {
1.331     albertel 1785: 	my $body= &Apache::lonxml::get_all_text("/randomlist",$parser);
1.305     albertel 1786: 	my $b_parser= HTML::LCParser->new(\$body);
                   1787: 	$b_parser->xml_mode(1);
                   1788: 	$b_parser->marked_sections(1);
1.159     albertel 1789: 	my $b_tok;
                   1790: 	my @randomlist;
                   1791: 	my $list_item;
                   1792: 	while($b_tok = $b_parser->get_token() ) {
                   1793: 	    if($b_tok->[0] eq 'S') { # start tag
                   1794: 		# get content of the tag until matching end tag
                   1795: 		# get all text upto the matching tag
                   1796: 		# and push the content into @randomlist
                   1797: 		$list_item = &Apache::lonxml::get_all_text('/'.$b_tok->[1],
                   1798: 							   $b_parser);
                   1799: 		$list_item = "$b_tok->[4]"."$list_item"."</$b_tok->[1]>";
                   1800: 		push(@randomlist,$list_item);
                   1801: 		#  print "<br /><b>START-TAG $b_tok->[1], $b_tok->[4],
                   1802:                 #         $list_item</b>";
                   1803: 	    }
                   1804: 	    if($b_tok->[0] eq 'T') { # text
                   1805: 		# what to do with text in between tags?
                   1806: 		#  print "<b>TEXT $b_tok->[1]</b><br />";
                   1807: 	    }
                   1808: 	    # if($b_tok->[0] eq 'E') { # end tag, should not happen
                   1809: 	    #  print "<b>END-TAG $b_tok->[1]</b><br />";
                   1810: 	    # }
                   1811: 	}
1.303     albertel 1812: 	if (@randomlist) {
                   1813: 	    my @idx_arr = (0 .. $#randomlist);
                   1814: 	    &Apache::structuretags::shuffle(\@idx_arr);
                   1815: 	    my $bodytext = '';
                   1816: 	    my $show=$#randomlist;
                   1817: 	    my $showarg=&Apache::lonxml::get_param('show',$parstack,$safeeval);
                   1818: 	    $showarg--;
                   1819: 	    if ( ($showarg >= 0) && ($showarg < $show) ) { $show = $showarg; }
1.439     raeburn  1820:             if (($target eq 'analyze') && ($env{'form.check_parts_withrandomlist'})) {
                   1821:                 my @currlist;
                   1822:                 my $part = $Apache::inputtags::part;
                   1823:                 if ($part ne '') {
                   1824:                     if (ref($Apache::lonhomework::analyze{'parts_withrandomlist'}) eq 'ARRAY') {
                   1825:                         my @currlist = @{$Apache::lonhomework::analyze{'parts_withrandomlist'}};
                   1826:                         if (!(grep(/^\Q$part\E$/,@currlist))) {
                   1827:                             push(@{$Apache::lonhomework::analyze{'parts_withrandomlist'}},$part);
                   1828:                         }
                   1829:                     } else {
                   1830:                         push(@{$Apache::lonhomework::analyze{'parts_withrandomlist'}},$part);
                   1831:                     }
                   1832:                 }
                   1833:             }
1.303     albertel 1834: 	    for(0 .. $show) {
                   1835: 		$bodytext .= "$randomlist[ $idx_arr[$_] ]";
                   1836: 	    }
                   1837: 	    &Apache::lonxml::newparser($parser,\$bodytext);
1.159     albertel 1838: 	}
                   1839:     } elsif ($target eq 'edit' ) {
                   1840: 	$result .=&Apache::edit::tag_start($target,$token);
                   1841: 	$result .=&Apache::edit::text_arg('Maximum Tags to Show:','show',
                   1842: 					   $token,5);
                   1843: 	$result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
                   1844:     } elsif ($target eq 'modified' ) {
                   1845: 	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
                   1846: 						     $safeeval,'show');
                   1847: 	if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
                   1848:     }
                   1849:     return $result;
1.7       tsai     1850: }
                   1851: 
                   1852: sub shuffle {
                   1853:     my $a=shift;
                   1854:     my $i;
1.303     albertel 1855:     if (ref($a) eq 'ARRAY' && @$a) {
1.251     albertel 1856: 	&Apache::response::pushrandomnumber();
1.159     albertel 1857: 	for($i=@$a;--$i;) {
                   1858: 	    my $j=int(&Math::Random::random_uniform() * ($i+1));
                   1859: 	    next if $i == $j;
                   1860: 	    @$a[$i,$j] = @$a[$j,$i];
                   1861: 	}
1.251     albertel 1862: 	&Apache::response::poprandomnumber();
1.7       tsai     1863:     }
1.6       tsai     1864: }
                   1865: 
                   1866: sub end_randomlist {
1.159     albertel 1867:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   1868:     my $result;
                   1869:     if ($target eq 'edit' ) {
                   1870: 	$result=&Apache::edit::tag_end($target,$token,
                   1871: 				       'End Randomly Parsed Block');
                   1872:     }
                   1873:     return $result;
1.6       tsai     1874: }
                   1875: 
1.283     albertel 1876: sub ordered_show_check {
                   1877:     my $last_part=$Apache::inputtags::partlist[-2];
                   1878:     my $in_order=
                   1879: 	&Apache::lonnet::EXT('resource.'.$Apache::inputtags::part.'.ordered');
                   1880:     my $in_order_show=1;
                   1881:     if ($last_part ne '0' && lc($in_order) eq 'yes') {
                   1882: 	$in_order_show=&Apache::response::check_status($last_part);
                   1883:     }
                   1884:     return $in_order_show;
                   1885: }
                   1886: 
1.469     www      1887: 
                   1888: sub start_startpartmarker {
                   1889:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   1890:     my $result='';
                   1891:     if ($target eq 'edit') {
                   1892:         $result=&Apache::edit::tag_start($target,$token);
                   1893:         $result.=&mt('Marker for the start of a part. Place end marker below to wrap in-between tags into a new part.').'</td></tr>';
                   1894:         $result.=&Apache::edit::end_table();
                   1895: 
                   1896:     } 
                   1897:     return $result;
                   1898: }
                   1899: 
                   1900: sub end_startpartmarker {
                   1901:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   1902:     my @result;
                   1903:     if ($target eq 'edit') { $result[1]='no'; }
                   1904:     return @result;
                   1905: }
                   1906: 
                   1907: sub start_endpartmarker {
                   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 end of a part. Place start marker above 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_endpartmarker {
                   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: 
                   1927: 
                   1928: 
                   1929: 
1.11      albertel 1930: sub start_part {
1.326     albertel 1931:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.321     albertel 1932:     if (!$Apache::lonxml::metamode) {
                   1933: 	&Apache::lonxml::startredirection(); # we'll use redirection to fix up 
                   1934: 	                                     # duedates.
                   1935:     }
1.159     albertel 1936:     my $result='';
1.386     albertel 1937:     my $id= &Apache::lonxml::get_id($parstack,$safeeval);
1.159     albertel 1938:     $Apache::inputtags::part=$id;
1.177     albertel 1939:     push(@Apache::inputtags::partlist,$id);
                   1940:     @Apache::inputtags::response=();
1.159     albertel 1941:     @Apache::inputtags::previous=();
                   1942:     @Apache::inputtags::previous_version=();
1.405     albertel 1943:     &Apache::lonhomework::set_show_problem_status(&get_problem_status($id));
1.403     albertel 1944:     &Apache::response::reset_params();
                   1945: 
1.159     albertel 1946:     my $hidden=&Apache::loncommon::check_if_partid_hidden($Apache::inputtags::part);
1.259     albertel 1947:     my $newtype=&Apache::lonnet::EXT("resource.$id.type");
                   1948:     if ($newtype) { $Apache::lonhomework::type=$newtype; }
1.283     albertel 1949:     my $in_order_show=&ordered_show_check();
1.214     albertel 1950:     my $expression='$external::part=\''.$Apache::inputtags::part.'\';';
1.259     albertel 1951:     $expression.='$external::type=\''.$Apache::lonhomework::type.'\';';
1.209     albertel 1952:     &Apache::run::run($expression,$safeeval);
1.159     albertel 1953: 
                   1954:     if ($target eq 'meta') {
1.224     www      1955: 	my $display=&Apache::lonxml::get_param('display',$parstack,$safeeval);
                   1956: 	return &Apache::response::mandatory_part_meta.
                   1957: 	       &Apache::response::meta_parameter_write('display','string',$display,'Part Description');
1.159     albertel 1958:     } elsif ($target eq 'web' || $target eq 'grade' ||
                   1959: 	     $target eq 'answer' || $target eq 'tex') {
1.283     albertel 1960: 	if ($hidden || !$in_order_show) {
1.326     albertel 1961: 	    my $bodytext=&Apache::lonxml::get_all_text("/part",$parser,$style);
1.159     albertel 1962: 	} else {
                   1963: 	    my ($status,$accessmsg) = &Apache::lonhomework::check_access($id);
                   1964: 	    push (@Apache::inputtags::status,$status);
                   1965: 	    my $expression='$external::datestatus="'.$status.'";';
                   1966: 	    $expression.='$external::gradestatus="'.$Apache::lonhomework::history{"resource.$id.solved"}.'";';
                   1967: 	    &Apache::run::run($expression,$safeeval);
1.284     albertel 1968: 	    if ($env{'request.state'} eq 'construct') {
1.241     albertel 1969: 		&set_problem_state($Apache::inputtags::part); 
1.240     albertel 1970: 	    }
1.216     albertel 1971: 	    if (( $status eq 'CLOSED' ) ||
                   1972: 		( $status eq 'UNCHECKEDOUT') ||
1.252     albertel 1973: 		( $status eq 'NOT_YET_VIEWED') ||
1.216     albertel 1974: 		( $status eq 'BANNED') ||
                   1975: 		( $status eq 'UNAVAILABLE') ||
                   1976: 		( $status eq 'INVALID_ACCESS')) {
1.326     albertel 1977: 		my $bodytext=&Apache::lonxml::get_all_text("/part",$parser,
                   1978: 							   $style);
1.159     albertel 1979: 		if ( $target eq "web" ) {
1.211     albertel 1980: 		    $result="<br />".&mt('Part is not open to be viewed. It')." $accessmsg<br />";
1.159     albertel 1981: 		} elsif ( $target eq 'tex' ) {
1.284     albertel 1982: 		    if (not $env{'form.problem_split'}=~/yes/) {
1.211     albertel 1983: 			$result="\\end{minipage}\\vskip 0 mm ".&mt('Part is not open to be viewed. It')." $accessmsg \\\\\\begin{minipage}{\\textwidth}";
1.195     sakharuk 1984: 		    } else {
1.211     albertel 1985: 			$result="\\vskip 0 mm ".&mt('Part is not open to be viewed. It')." $accessmsg \\\\";
1.195     sakharuk 1986: 		    }
1.159     albertel 1987: 		}
                   1988: 	    } else {
                   1989: 		if ($target eq 'tex') {
1.284     albertel 1990: 		    if (not $env{'form.problem_split'}=~/yes/) {
1.264     sakharuk 1991: 			if ($$tagstack[-2] eq 'td') {
1.388     foxr     1992: 			    $result.='\noindent \begin{minipage}{\textwidth}\noindent';
1.264     sakharuk 1993: 			} else {
                   1994: 			    $result.='\noindent \end{minipage}\vskip 0 mm \noindent \begin{minipage}{\textwidth}\noindent';
                   1995: 			}
1.195     sakharuk 1996: 		    }
1.159     albertel 1997: 		    my $weight = &Apache::lonnet::EXT("resource.$id.weight");
1.284     albertel 1998: 		    my $allkeys=&Apache::lonnet::metadata($env{'request.uri'},'packages');
1.222     sakharuk 1999: 		    my @allkeys = split /,/,$allkeys;
                   2000: 		    my $allow_print_points = 0;
                   2001: 		    foreach my $partial_key (@allkeys) {
1.230     albertel 2002: 			if ($partial_key=~m/^part_(.*)$/) {
1.222     sakharuk 2003: 			    if ($1 ne '0') {$allow_print_points=1;}
                   2004: 			}
                   2005: 		    }
1.275     albertel 2006: 		    my $maxtries = &Apache::lonnet::EXT("resource.$id.maxtries");
                   2007: 		    if (defined($maxtries) && $maxtries < 0) {
                   2008: 			$allow_print_points=0;
                   2009: 		    }
1.302     albertel 2010: 		    if (lc($env{'course.'.$env{'request.course.id'}.
                   2011: 				    '.disableexampointprint'}) eq 'yes') {
                   2012: 			$allow_print_points=0;
                   2013: 		    }
1.463     foxr     2014: 		    if (($Apache::lonhomework::type eq 'exam') && ($allow_print_points)) { 
1.492     christia 2015: 			$result .= '\vskip 10mm\fbox{\textit{'.&mt('[quant,_1,pt,pt]',$weight ).'}}';
1.463     foxr     2016: 
                   2017: 		    }
1.233     www      2018: 		} elsif ($target eq 'web') {
1.479     raeburn  2019:                     if ($status eq 'CAN_ANSWER') {
                   2020:                         my $problemstatus = &get_problem_status($Apache::inputtags::part); 
                   2021:                         my $probrandomize = &Apache::lonnet::EXT("resource.$Apache::inputtags::partlist[0].type");
                   2022:                         my $probrandtries = &Apache::lonnet::EXT("resource.$Apache::inputtags::partlist[0].randomizeontries");
                   2023:                         my $num = scalar(@Apache::inputtags::partlist)-1;
                   2024:                         if ($probrandomize eq 'randomizetry') {
                   2025:                             if (&Apache::lonnet::EXT("resource.$Apache::inputtags::part.type") ne 'randomizetry') {
                   2026:                                 $result .= &randomizetry_part_header($problemstatus,'none',$num);
                   2027:                             } else {
                   2028:                                 my $reqtries = &Apache::lonnet::EXT("resource.$Apache::inputtags::part.randomizeontries");
                   2029:                                 if ($probrandtries ne $reqtries) {
                   2030:                                     $result .= &randomizetry_part_header($problemstatus,$reqtries,$num);
                   2031:                                 }
                   2032:                             }
                   2033:                         } elsif (&Apache::lonnet::EXT("resource.$Apache::inputtags::part.type") eq 'randomizetry') {
                   2034:                             my $reqtries = &Apache::lonnet::EXT("resource.$Apache::inputtags::part.randomizeontries");
                   2035:                             $result .= &randomizetry_part_header($problemstatus,$reqtries,$num);
                   2036:                         }
                   2037:                     }
1.475     raeburn  2038: 		    $result.='<a name="'.&escape($Apache::inputtags::part).'" ></a>';
1.159     albertel 2039: 		}
                   2040: 	    }
                   2041: 	}
                   2042:     } elsif ($target eq 'edit') {
                   2043: 	$result.=&Apache::edit::tag_start($target,$token);
                   2044: 	$result.=&Apache::edit::text_arg('Part ID:','id',$token).
                   2045: 	    &Apache::loncommon::help_open_topic("Part_Tag_Edit_Help").
1.224     www      2046: 	    '&nbsp;&nbsp;'.
                   2047: &Apache::edit::text_arg('Displayed Part Description:','display',$token).
1.159     albertel 2048: 		&Apache::edit::end_row().&Apache::edit::start_spanning_row();
                   2049:     } elsif ($target eq 'modified') {
                   2050: 	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
1.225     albertel 2051: 						     $safeeval,'id','display');
1.159     albertel 2052: 	if ($constructtag) {
1.225     albertel 2053: 	    #limiting ids to only letters numbers, and space
1.224     www      2054: 	    $token->[2]->{'id'}=~s/[^A-Za-z0-9 ]//gs;
1.159     albertel 2055: 	    $result = &Apache::edit::rebuild_tag($token);
                   2056: 	}
                   2057:     }
                   2058:     return $result;
1.11      albertel 2059: }
                   2060: 
                   2061: sub end_part {
1.159     albertel 2062:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   2063:     &Apache::lonxml::debug("in end_part $target ");
                   2064:     my $status=$Apache::inputtags::status['-1'];
                   2065:     my $hidden=&Apache::loncommon::check_if_partid_hidden($Apache::inputtags::part);
1.283     albertel 2066:     my $in_order_show=&ordered_show_check();
1.321     albertel 2067:     my $result;
                   2068:     if (!$Apache::lonxml::metamode) {
                   2069: 	$result = &Apache::lonxml::endredirection(); # started in &start_part
1.329     albertel 2070: 	$Apache::lonxml::post_evaluate=0;
1.321     albertel 2071:     }
1.312     albertel 2072:     if ($target eq 'grade') {
1.249     albertel 2073: 	if (($status eq 'CAN_ANSWER' || $Apache::lonhomework::scantronmode) &&
1.283     albertel 2074: 	    !$hidden && $in_order_show) {
1.311     foxr     2075: 	    $result.=&Apache::inputtags::grade;
1.249     albertel 2076: 	} else {
                   2077: 	    # move any submission data to .hidden
                   2078: 	    &Apache::inputtags::hidealldata($Apache::inputtags::part);
                   2079: 	}
1.283     albertel 2080:     } elsif (($target eq 'web' || $target eq 'tex') &&
                   2081: 	     !$hidden && $in_order_show) {
1.159     albertel 2082: 	my $gradestatus=&Apache::inputtags::gradestatus($Apache::inputtags::part,
                   2083: 							$target);
1.490     raeburn  2084: 	if (($Apache::lonhomework::type eq 'exam' && $target eq 'tex') ||
                   2085:              ($env{'form.grade_imsexport'})) {
1.212     albertel 2086: 	    $gradestatus='';
                   2087: 	}
1.311     foxr     2088: 	$result.=$gradestatus;
1.265     sakharuk 2089: 	if ($$tagstack[-2] eq 'td' and $target eq 'tex') {$result.='\end{minipage}';} 
1.181     albertel 2090:     } elsif ($target eq 'edit') {
1.311     foxr     2091: 	$result.=&Apache::edit::end_table();
1.322     albertel 2092:     } elsif ($target eq 'modified') {
                   2093: 	 $result .= $token->[2];
1.159     albertel 2094:     }
                   2095:     pop @Apache::inputtags::status;
                   2096:     $Apache::inputtags::part='';
1.295     albertel 2097:     $Apache::lonhomework::type = $Apache::lonhomework::default_type;
1.159     albertel 2098:     return $result;
1.11      albertel 2099: }
1.1       albertel 2100: 
1.25      albertel 2101: sub start_preduedate {
1.326     albertel 2102:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.339     albertel 2103:     if ($target eq 'web' || $target eq 'grade'    || $target eq 'answer' ||
                   2104: 	$target eq 'tex' || $target eq 'webgrade') {
1.236     albertel 2105: 	&Apache::lonxml::debug("State in preduedate is ". $Apache::inputtags::status['-1']);
1.300     albertel 2106: 	if (!$Apache::lonhomework::scantronmode &&
                   2107: 	    $Apache::inputtags::status['-1'] ne 'CAN_ANSWER' &&
1.236     albertel 2108: 	    $Apache::inputtags::status['-1'] ne 'CANNOT_ANSWER') {
                   2109: 	    &Apache::lonxml::debug("Wha? ". ($Apache::inputtags::status['-1'] ne 'SHOW_ANSWER'));
1.326     albertel 2110: 	    &Apache::lonxml::get_all_text("/preduedate",$parser,$style);
1.159     albertel 2111: 	}
1.24      albertel 2112:     }
1.159     albertel 2113:     return '';
1.24      albertel 2114: }
                   2115: 
1.25      albertel 2116: sub end_preduedate {
1.159     albertel 2117:     return '';
1.24      albertel 2118: }
                   2119: 
1.369     foxr     2120: # In all the modes where <postanswerdate> text is 
                   2121: # displayable,  all we do is eat up the text between the start/stop
                   2122: # tags if the conditions are not right to display it.
1.25      albertel 2123: sub start_postanswerdate {
1.326     albertel 2124:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.370     foxr     2125:     my $pav = &Apache::lonnet::allowed('pav', $env{'request.course.id'}) ||
                   2126: 	&Apache::lonnet::allowed('pav',
                   2127: 			   $env{'request.course.id'}.'/'.$env{'request.course.sec'});
1.369     foxr     2128:     if ($target eq 'web' || $target eq 'grade' || $target eq 'webgrade' ||
1.370     foxr     2129: 	$target eq 'tex' ) {
1.300     albertel 2130: 	if ($Apache::lonhomework::scantronmode ||
1.370     foxr     2131: 	    $Apache::inputtags::status['-1'] ne 'SHOW_ANSWER' ||
                   2132: 	    (($target eq 'tex') && !$pav)) {
1.326     albertel 2133: 	    &Apache::lonxml::get_all_text("/postanswerdate",$parser,$style);
1.159     albertel 2134: 	}
                   2135:     }
                   2136:     return '';
1.24      albertel 2137: }
                   2138: 
1.25      albertel 2139: sub end_postanswerdate {
1.159     albertel 2140:     return '';
1.24      albertel 2141: }
                   2142: 
1.25      albertel 2143: sub start_notsolved {
1.326     albertel 2144:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.159     albertel 2145:     if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
1.339     albertel 2146: 	$target eq 'tex' || $target eq 'webgrade') {
1.159     albertel 2147: 	my $gradestatus=$Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"};
                   2148: 	&Apache::lonxml::debug("not solved has :$gradestatus:");
1.239     albertel 2149: 	if ($gradestatus =~ /^correct/ &&
                   2150: 	    &Apache::response::show_answer()) {
1.159     albertel 2151: 	    &Apache::lonxml::debug("skipping");
1.326     albertel 2152: 	    &Apache::lonxml::get_all_text("/notsolved",$parser,$style);
1.159     albertel 2153: 	}
1.24      albertel 2154:     }
1.159     albertel 2155:     return '';
1.24      albertel 2156: }
                   2157: 
1.25      albertel 2158: sub end_notsolved {
1.159     albertel 2159:     return '';
1.24      albertel 2160: }
                   2161: 
                   2162: sub start_solved {
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' ||
                   2165: 	$target eq 'tex') {
                   2166: 	my $gradestatus=$Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"};
1.239     albertel 2167: 	if ($gradestatus !~ /^correct/ ||
                   2168: 	    !&Apache::response::show_answer()) {
1.326     albertel 2169: 	    &Apache::lonxml::get_all_text("/solved",$parser,$style);
1.159     albertel 2170: 	}
1.24      albertel 2171:     }
1.159     albertel 2172:     return '';
1.24      albertel 2173: }
                   2174: 
                   2175: sub end_solved {
1.248     albertel 2176:     return '';
                   2177: }
                   2178: 
                   2179: sub start_problemtype {
1.326     albertel 2180:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.248     albertel 2181:     my $result;
1.339     albertel 2182:     if ($target eq 'web' || $target eq 'grade'   || $target eq 'answer' ||
                   2183: 	$target eq 'tex' || $target eq 'analyze' || $target eq 'webgrade') {
1.248     albertel 2184: 	my $mode=lc(&Apache::lonxml::get_param('mode',$parstack,$safeeval));
                   2185: 	if (!defined($mode)) { $mode='show'; }
                   2186: 	my $for=&Apache::lonxml::get_param('for',$parstack,$safeeval);
                   2187: 	my $found=0;
                   2188: 	foreach my $type (split(',',$for)) {
                   2189: 	    if ($Apache::lonhomework::type eq lc($type)) { $found=1; }
                   2190: 	}
                   2191: 	if ($mode eq 'show' && !$found) {
1.326     albertel 2192: 	    &Apache::lonxml::get_all_text("/problemtype",$parser,$style);
1.248     albertel 2193: 	}
                   2194: 	if ($mode eq 'hide' && $found) {
1.326     albertel 2195: 	    &Apache::lonxml::get_all_text("/problemtype",$parser,$style);
1.248     albertel 2196: 	}
                   2197:     } elsif ($target eq 'edit') {
                   2198: 	$result .=&Apache::edit::tag_start($target,$token);
                   2199: 	$result.=&Apache::edit::select_arg('Mode:','mode',
                   2200: 					   [['show','Show'],
                   2201: 					    ['hide','Hide']]
                   2202: 					   ,$token);
                   2203: 	$result .=&Apache::edit::checked_arg('When used as type(s):','for',
                   2204: 					     [ ['exam','Exam/Quiz Problem'],
                   2205: 					       ['survey','Survey'],
1.465     raeburn  2206:                                                ['surveycred','Survey (with credit)'],
                   2207:                                                ['anonsurvey','Anonymous Survey'],
                   2208:                                                ['anonsurveycred','Anonymous Survey (with credit)'],
1.428     raeburn  2209: 					       ['problem','Homework Problem'],
1.479     raeburn  2210:                                                ['practice','Practice Problem'],
                   2211:                                                ['randomizetry','New Randomization Each Try'] ]
1.248     albertel 2212: 					     ,$token);
                   2213: 	$result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
                   2214:     } elsif ($target eq 'modified') {
                   2215: 	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
                   2216: 						     $safeeval,'mode','for');
                   2217: 	if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
                   2218:     }
                   2219:     return $result;
                   2220: }
                   2221: 
                   2222: sub end_problemtype {
1.159     albertel 2223:     return '';
1.24      albertel 2224: }
1.34      albertel 2225: 
                   2226: sub start_startouttext {
1.159     albertel 2227:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   2228:     my @result=(''.'');
                   2229:     if ($target eq 'edit' || $target eq 'modified' ) { @result=('','no'); }
1.404     albertel 2230:     
                   2231:     my $nesting = 
                   2232: 	&Apache::lonxml::set_state('outtext',
                   2233: 				   &Apache::lonxml::get_state('outtext')+1);
                   2234:     if ($nesting > 1 && $env{'request.state'} eq 'construct') {
                   2235: 	&Apache::lonxml::error("Nesting of &lt;startouttext /&gt; not allowed, on line ".$token->[5]);
                   2236:     }
1.159     albertel 2237:     return (@result);
1.34      albertel 2238: }
1.159     albertel 2239: 
1.34      albertel 2240: sub end_startouttext {
1.326     albertel 2241:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.159     albertel 2242:     my $result='';
                   2243:     my $text='';
                   2244:     if ($target eq 'edit') {
1.424     foxr     2245: 	my $areaid = 'homework_edit_'.$Apache::lonxml::curdepth;
1.326     albertel 2246: 	$text=&Apache::lonxml::get_all_text("endouttext",$parser,$style);
1.437     raeburn  2247: 	$result.=&Apache::edit::start_table($token)."<tr><td>".&mt('Text Block')."</td>"
1.438     bisitz   2248:                  .'<td><span class="LC_nobreak">'.&mt('Delete?').' '
1.437     raeburn  2249:                  .&Apache::edit::deletelist($target,$token)
1.474     raeburn  2250:                  .'</span></td>'
                   2251: 	         .'<td align="left"><span id="math_'.$areaid.'" />'
                   2252: 		 .&Apache::lonhtmlcommon::dragmath_button($areaid,1)
                   2253: 		 .'<span></td>'
                   2254: 		 .'<td>'
                   2255: 		 .&Apache::edit::insertlist($target,$token)
                   2256: 		 .'</td>'
                   2257: 	         .'<td align="right" valign="top">' .
                   2258: 	         &Apache::loncommon::helpLatexCheatsheet().
1.159     albertel 2259: 		 &Apache::edit::end_row().
1.362     albertel 2260:                  &Apache::edit::start_spanning_row()."\n".
1.255     www      2261: 		 &Apache::edit::editfield($token->[1],$text,"",80,8,1);
1.159     albertel 2262:     }
                   2263:     if ($target eq 'modified') {
1.219     albertel 2264: 	$result='<startouttext />'.&Apache::edit::modifiedfield("endouttext",$parser);
1.159     albertel 2265:     }
                   2266:     if ($target eq 'tex') {
                   2267: 	$result .= '\noindent ';
                   2268:     }
                   2269:     return $result;
1.34      albertel 2270: }
1.159     albertel 2271: 
1.34      albertel 2272: sub start_endouttext {
1.159     albertel 2273:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   2274:     my $result='';
                   2275:     if ($target eq "edit" ) { $result="</td></tr>".&Apache::edit::end_table()."\n"; }
                   2276:     if ($target eq "modified") {
                   2277: 	$result='<endouttext />'.
1.377     albertel 2278: 	    &Apache::edit::handle_insertafter('startouttext');
                   2279:     }
1.404     albertel 2280: 
                   2281:     my $nesting = 
                   2282: 	&Apache::lonxml::set_state('outtext',
                   2283: 				   &Apache::lonxml::get_state('outtext')-1);
                   2284:     if ($nesting < 0 && $env{'request.state'} eq 'construct') {
                   2285: 	&Apache::lonxml::error(" Extraneous &lt;endouttext /&gt; not allowed on line ".$token->[5]);
                   2286: 	&Apache::lonxml::set_state('outtext', 0);
                   2287:     }
1.159     albertel 2288:     return $result;
1.34      albertel 2289: }
1.159     albertel 2290: 
1.34      albertel 2291: sub end_endouttext {
1.159     albertel 2292:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   2293:     my @result=('','');
                   2294:     if ($target eq "edit" || $target eq 'modified') { @result=('','no'); }
                   2295:     return (@result);
1.34      albertel 2296: }
1.159     albertel 2297: 
1.45      albertel 2298: sub delete_startouttext {
1.326     albertel 2299:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
                   2300:     #  my $text=&Apache::lonxml::get_all_text("endouttext",$parser,$style);
1.159     albertel 2301:     my $text=$$parser['-1']->get_text("/endouttext");
                   2302:     my $ntoken=$$parser['-1']->get_token();
                   2303:     &Apache::lonxml::debug("Deleting :$text: and :$ntoken->[0]:$ntoken->[1]:$ntoken->[2]: for startouttext");
                   2304:     &Apache::lonxml::end_tag($tagstack,$parstack,$ntoken);
                   2305:     # Deleting 2 parallel tag pairs, but we need the numbers later to look like
                   2306:     # they did the last time round
                   2307:     &Apache::lonxml::increasedepth($ntoken);
                   2308:     &Apache::lonxml::decreasedepth($ntoken);
                   2309:     return 1;
1.193     www      2310: }
                   2311: 
                   2312: sub start_simpleeditbutton {
                   2313:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   2314:     my $result='';
1.284     albertel 2315:     if (($env{'form.simple_edit_button'} ne 'off') &&
1.273     albertel 2316: 	($target eq 'web') &&
1.330     albertel 2317:         (&Apache::lonnet::allowed('mdc',$env{'request.course.id'}))) {
1.284     albertel 2318:         my $url=$env{'request.noversionuri'};
1.193     www      2319:         $url=~s/\?.*$//;
1.367     albertel 2320: 	my ($symb) = &Apache::lonnet::whichuser();
1.451     bisitz   2321: #       Warning makes more sense and is more important on edit screen
1.442     bisitz   2322: #       $result='<p class="LC_warning">'
                   2323: #              .&mt('Note: it can take up to 10 minutes for changes to take effect for all users.')
                   2324: #              .&Apache::loncommon::help_open_topic('Caching')
                   2325: #              .'</p>';
1.486     www      2326:         $result.=&Apache::loncommon::head_subbox(
                   2327:                  &Apache::lonhtmlcommon::start_funclist()
1.451     bisitz   2328:                 .&Apache::lonhtmlcommon::add_item_funclist(
                   2329:                      '<a href="'.$url.'/smpedit?symb='.&escape($symb).'">'
                   2330:                     .&mt('Edit').'</a>')
1.486     www      2331:                 .&Apache::lonhtmlcommon::end_funclist());
1.442     bisitz   2332: 
1.193     www      2333:     }
                   2334:     return $result;
                   2335: }
                   2336: 
                   2337: sub end_simpleeditbutton {
                   2338:     return '';
1.45      albertel 2339: }
1.34      albertel 2340: 
1.428     raeburn  2341: sub practice_problem_header {
                   2342:     return '<span class="LC_info"><h3>'.&mt('Practice Problem').'</h3></span>'.
                   2343:            '<span class="LC_info">'.&mt('Submissions are not permanently recorded').
                   2344:            '</span>';
                   2345: }
                   2346: 
1.479     raeburn  2347: sub randomizetry_problem_header {
                   2348:     my ($problemstatus,$reqtries) = @_;
                   2349:     my ($header,$text);
                   2350:     if ($reqtries > 1) {
                   2351:         $header = &mt('New Problem Variation After Every [quant,_1,Try,Tries]',$reqtries);
                   2352:         if (($problemstatus eq 'no') ||
                   2353:             ($problemstatus eq 'no_feedback_ever')) {
                   2354:             $text = &mt('A new variation will be generated after every [quant,_1,try,tries], until the tries limit is reached.',$reqtries);
                   2355:         } else {
                   2356:             $text = &mt('A new variation will be generated after every [quant,_1,try,tries], until correct or tries limit is reached.',$reqtries);
                   2357:         }
                   2358:     } else {
                   2359:         $header = &mt('New Problem Variation Each Try');
                   2360:         if (($problemstatus eq 'no') ||
                   2361:             ($problemstatus eq 'no_feedback_ever')) {
                   2362:             $text = &mt('A new variation will be generated after each try until the tries limit is reached.');
                   2363: 
                   2364:         } else {
                   2365:             $text = &mt('A new variation will be generated after each try until correct or tries limit is reached.');
                   2366:         }
                   2367:     }
                   2368:     return '<span class="LC_info"><h3>'.$header.'</h3></span>'.
                   2369:            '<span class="LC_info">'.$text.'</span><hr />';
                   2370: }
                   2371: 
                   2372: sub randomizetry_part_header {
                   2373:     my ($problemstatus,$reqtries,$num) = @_;
                   2374:     my ($header,$text);
                   2375:     if ($reqtries eq 'none') {
                   2376:         $header = &mt('No Question Variation');
                   2377:         $text = &mt('For this question there will no new variation after a try.');
                   2378:     } elsif ($reqtries > 1) {
                   2379:         $header = &mt('New Question Variation After Every [quant,_1,Try,Tries]',$reqtries);
                   2380:         if (($problemstatus eq 'no') ||
                   2381:             ($problemstatus eq 'no_feedback_ever')) {
                   2382:             $text = &mt('For this question a new variation will be generated after every [quant,_1,try,tries], until the tries limit is reached.',$reqtries);
                   2383:         } else {
                   2384:             $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);
                   2385:         }
                   2386:     } else {
                   2387:         $header = &mt('New Question Variation For Each Try');
                   2388:         if (($problemstatus eq 'no') ||
                   2389:             ($problemstatus eq 'no_feedback_ever')) {
                   2390:             $text =  &mt('For this question a new variation will be generated after each try until the tries limit is reached.');
                   2391:         } else {
                   2392:             $text = &mt('For this question a new variation will be generated after each try until correct or tries limit is reached.');
                   2393:         }
                   2394:     }
                   2395:     my $output;
                   2396:     if ($num > 1) {
                   2397:         $output .= '<hr />';
                   2398:     }
                   2399:     $output .=  '<span class="LC_info"><h4>'.$header.'</h4></span>'.
                   2400:                   '<span class="LC_info">'.$text.'</span><br /><br />';
                   2401:     return $output;
                   2402: }
                   2403: 
1.1       albertel 2404: 1;
                   2405: __END__
1.435     jms      2406: 
                   2407: =pod
                   2408: 
                   2409: =back
                   2410: 
                   2411: =cut

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