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

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

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