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

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

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