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

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

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