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

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.331   ! albertel    4: # $Id: structuretags.pm,v 1.330 2006/01/09 20:47:52 albertel 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.133     sakharuk   30: 
1.1       albertel   31: package Apache::structuretags; 
                     32: 
                     33: use strict;
                     34: use Apache::lonnet;
1.101     sakharuk   35: use Apache::File();
1.147     www        36: use Apache::lonmenu;
1.210     albertel   37: use Apache::lonlocal;
1.231     sakharuk   38: use Apache::lonxml;
1.267     albertel   39: use Time::HiRes qw( gettimeofday tv_interval );
1.78      harris41   40: BEGIN {
1.248     albertel   41:     &Apache::lonxml::register('Apache::structuretags',('block','languageblock','instructorcomment','while','randomlist','problem','library','web','tex','part','preduedate','postanswerdate','solved','notsolved','problemtype','startouttext','endouttext','simpleeditbutton','definetag'));
1.10      albertel   42: }
                     43: 
                     44: sub start_web {
1.326     albertel   45:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
                     46:     my $bodytext=&Apache::lonxml::get_all_text("/web",$parser,$style);
1.200     albertel   47:     if ($target eq 'web') {
                     48: 	return $bodytext;
1.159     albertel   49:     }
                     50:     return '';
1.10      albertel   51: }
                     52: 
                     53: sub end_web {
1.44      ng         54:     return '';
1.10      albertel   55: }
                     56: 
                     57: sub start_tex {
1.326     albertel   58:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.198     sakharuk   59:     my $result='';
1.326     albertel   60:     my $bodytext=&Apache::lonxml::get_all_text("/tex",$parser,$style);
1.200     albertel   61:     if ($target eq 'tex') {
                     62: 	return $bodytext.' ';
1.159     albertel   63:     }
1.198     sakharuk   64:     return $result;;
1.10      albertel   65: }
                     66: 
                     67: sub end_tex {
1.44      ng         68:     return '';
1.9       albertel   69: }
                     70: 
1.290     albertel   71: sub body_tag_start {
                     72:     my ($target,$background,$bgcolor)=@_;
                     73:     my $body_tag_start='<body onload="'.&Apache::lonmenu::loadevents().'" '.
                     74: 	'onunload="'.&Apache::lonmenu::unloadevents().'" ';
                     75:     if ($env{'browser.imagesuppress'} eq 'on') { $background=''; }
                     76:     if ($background) {
1.306     albertel   77: 	&Apache::lonxml::extlink($background);
1.290     albertel   78: 	$body_tag_start.='background="'.$background.'" ';
                     79:     } else {
                     80: 	if (($bgcolor) && ($env{'browser.blackwhite'} ne 'on')) {
                     81: 	    $body_tag_start.='bgcolor="'.$bgcolor.'" ';
                     82: 	} else {
                     83: 	    $body_tag_start.='bgcolor="#ffffff"';
                     84: 	}
                     85:     }
                     86:     if ($env{'browser.fontenhance'} eq 'on') {
                     87: 	$body_tag_start.=' style="font-size: x-large;" ';
                     88:     }
                     89:     $body_tag_start.='>'.&Apache::lonmenu::menubuttons(undef,$target,1);
1.297     albertel   90:     
                     91:     &Apache::lontexconvert::jsMath_reset();
1.290     albertel   92:     if ($env{'environment.texengine'} eq 'jsMath') {
1.297     albertel   93: 	$body_tag_start.=&Apache::lontexconvert::jsMath_header();
1.290     albertel   94:     }
                     95:     return $body_tag_start;
                     96: }
1.291     albertel   97: 
1.48      albertel   98: sub page_start {
1.159     albertel   99:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                    100:     my %found;
1.207     albertel  101:     foreach my $taginside (@$tagstack) {
1.159     albertel  102: 	foreach my $taglookedfor ('html','body','form') {
                    103: 	    if ($taginside =~ /^$taglookedfor$/i) {$found{$taglookedfor} = 1;}
                    104: 	}
                    105:     }
                    106: 
                    107:     my $result;
                    108:     my $head_tag_start;
                    109:     if (!defined($found{'html'})) {
                    110: 	$result=&Apache::londefdef::start_html($target,$token,$tagstack,
                    111: 					       $parstack,$parser,$safeeval);
1.254     www       112: 	$head_tag_start='<head>'.&Apache::lonmenu::registerurl(undef,$target).
1.261     www       113: 	    &Apache::lonhtmlcommon::htmlareaheaders().
1.270     albertel  114: 	    &Apache::lonhtmlcommon::spellheader().
                    115: 	    &Apache::lonxml::fontsettings();     
1.327     albertel  116: 	if ($target eq 'edit') {
                    117: 	    $head_tag_start.=&Apache::edit::js_change_detection();
                    118: 	}
1.159     albertel  119:     }
                    120:     my $body_tag_start;
1.318     albertel  121:     if (!defined($found{'body'}) && $env{'request.state'} eq 'construct') {
                    122: 	if ($env{'environment.remote'} eq 'off') {
                    123: 	    if ($target eq 'web' || $target eq 'edit') {
                    124: 		$body_tag_start=&Apache::loncommon::bodytag();
                    125: 		$body_tag_start.=&Apache::lonxml::message_location();
                    126: 	    }
                    127: 	} else {
                    128: 	    if ($target eq 'web' || $target eq 'edit') {
                    129: 		$body_tag_start=&Apache::loncommon::bodytag(undef,undef,undef,1);
                    130: 		$body_tag_start.=&Apache::lonxml::message_location();
                    131: 	    }
1.297     albertel  132: 	}
1.272     albertel  133:     } elsif (!defined($found{'body'})) {
1.159     albertel  134: 	my $background=&Apache::lonxml::get_param('background',$parstack,
                    135: 						  $safeeval);
1.290     albertel  136: 	my $bgcolor=&Apache::lonxml::get_param('bgcolor',$parstack,
                    137: 					       $safeeval);
1.299     albertel  138: 	$body_tag_start=&body_tag_start($target,$background,$bgcolor);
1.291     albertel  139: 	if ( ($target eq 'web' || $target eq 'webgrade')
                    140: 	     && $env{'request.state'} ne 'construct') {
1.165     albertel  141: 	    my ($symb,undef,undef,undef,$publicuser)=
                    142: 		&Apache::lonxml::whichuser();
                    143: 	    if ($symb eq '' && !$publicuser) {
1.159     albertel  144: 		my $help = &Apache::loncommon::help_open_topic("Ambiguous_Reference");
1.211     albertel  145: 		$help=&mt("Browsing resource, all submissions are temporary.")."<br />";
1.159     albertel  146: 		$body_tag_start.=$help;
                    147: 	    }
                    148: 	}
1.245     albertel  149: 	$body_tag_start.=&Apache::lonxml::message_location();
1.159     albertel  150:     }
                    151:     my $form_tag_start;
                    152:     if (!defined($found{'form'})) {
1.281     albertel  153: 	$form_tag_start='<form name="lonhomework" enctype="multipart/form-data" method="POST" action="';
1.284     albertel  154: 	my $uri=$env{'request.uri'};
                    155: 	if ($env{'request.enc'}) { $uri=&Apache::lonenc::encrypted($uri); }
1.327     albertel  156: 	$form_tag_start.=$uri.'" ';
                    157: 	if ($target eq 'edit') {
                    158: 	    $form_tag_start.=&Apache::edit::form_change_detection();
                    159: 	}
                    160: 	$form_tag_start.='>';
1.159     albertel  161:     }
                    162:     return ($result,$head_tag_start,$body_tag_start,$form_tag_start);
1.105     albertel  163: }
                    164: 
1.141     matthew   165: #use Time::HiRes();
1.105     albertel  166: sub get_resource_name {
1.159     albertel  167:     my ($parstack,$safeeval)=@_;
1.204     albertel  168:     if (defined($Apache::lonhomework::name)) {
                    169: 	return $Apache::lonhomework::name;
                    170:     }
1.279     albertel  171:     my ($symb)=&Apache::lonxml::whichuser();
                    172:     my $name=&Apache::lonnet::gettitle($symb);
1.159     albertel  173:     if ($name eq '') {
                    174: 	$name=&Apache::lonnet::EXT('resource.title');
                    175: 	if ($name eq 'con_lost') { $name = ''; }
                    176:     }
1.204     albertel  177:     if ($name!~/\S+/) {
1.284     albertel  178: 	$name=$env{'request.uri'};
1.205     albertel  179: 	$name=~s-.*/([^/]+)$-$1-;
1.204     albertel  180:     }
1.159     albertel  181:     $Apache::lonhomework::name=$name;
                    182:     return $name;
1.105     albertel  183: }
                    184: 
                    185: sub setup_rndseed {
1.159     albertel  186:     my ($safeeval)=@_;
                    187:     my $rndseed;
1.162     albertel  188:     my ($symb)=&Apache::lonxml::whichuser();
1.284     albertel  189:     if ($env{'request.state'} eq "construct" || $symb eq '' ||
1.247     albertel  190:           $Apache::lonhomework::history{'resource.CODE'}) {
1.316     www       191: 	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
1.317     albertel  192: 						['rndseed']);
1.284     albertel  193: 	$rndseed=$env{'form.rndseed'};
1.159     albertel  194: 	if (!$rndseed) {
1.162     albertel  195: 	    $rndseed=$Apache::lonhomework::history{'rndseed'};
                    196: 	    if (!$rndseed) {
                    197: 		$rndseed=time;
                    198: 	    }
1.284     albertel  199: 	    $env{'form.rndseed'}=$rndseed;
1.162     albertel  200: 	}
1.284     albertel  201: 	if ($env{'form.resetdata'} eq &mt('New Problem Variation') ||
                    202: 	    $env{'form.newrandomization'} eq &mt('New Randomization')) {
1.190     albertel  203: 	    srand(time);
                    204: 	    $rndseed=int(rand(2100000000));
1.284     albertel  205: 	    $env{'form.rndseed'}=$rndseed;
                    206: 	    delete($env{'form.resetdata'});
                    207: 	    delete($env{'form.newrandomization'});
1.159     albertel  208: 	}
1.187     albertel  209: 	if (defined($rndseed) && $rndseed ne int($rndseed)) {
1.307     albertel  210: 	    $rndseed=join(':',&Apache::lonnet::digest($rndseed));
1.187     albertel  211:         }
1.247     albertel  212:         if ($Apache::lonhomework::history{'resource.CODE'}) {
                    213: 	   $rndseed=&Apache::lonnet::rndseed();
                    214: 	}
1.221     albertel  215: 	if ($safeeval) {
                    216: 	    &Apache::lonxml::debug("Setting rndseed to $rndseed");
1.250     albertel  217: 	    &Apache::run::run('$external::randomseed="'.$rndseed.'";',$safeeval);
1.221     albertel  218: 	}
1.159     albertel  219:     }
                    220:     return $rndseed;
1.105     albertel  221: }
                    222: 
1.268     albertel  223: sub remember_problem_state {
                    224:     return '
1.284     albertel  225:        <input type="hidden" name="problemstate" value="'.$env{'form.problemstate'}.'" />
                    226:        <input type="hidden" name="problemtype" value="'.$env{'form.problemtype'}.'" />
                    227:        <input type="hidden" name="problemstatus" value="'.$env{'form.problemstatus'}.'" />';
1.268     albertel  228: }
                    229: 
1.105     albertel  230: sub problem_edit_header {
1.268     albertel  231:     return '<input type="hidden" name="submitted" value="edit" />'.
                    232: 	&Apache::structuretags::remember_problem_state().'
1.210     albertel  233:        <input type="hidden" name="problemmode" value="'.&mt('Edit').'" />
1.243     matthew   234:        <input type="submit" name="problemmode" accesskey="d" value="'.&mt('Discard Edits and View').'" />
1.328     albertel  235:        <input '.&Apache::edit::submit_ask_anyway().' type="submit" name="problemmode" accesskey="x" value="'.&mt('EditXML').'" />
1.243     matthew   236:        <input type="submit" name="Undo" accesskey="u" value="'.&mt('undo').'" /> <hr />
                    237:        <input type="submit" name="submit" accesskey="s" value="'.&mt('Submit Changes and Edit').'" />
                    238:        <input type="submit" name="submit" accesskey="v" value="'.&mt('Submit Changes and View').'" /><table><tr><td>'.
1.260     albertel  239:        &Apache::loncommon::help_open_menu('','Problem Editing Help','Problem_Editor_XML_Index','',5,'Authoring',undef,undef,undef,'Problem Editing Help')
                    240:        .'</td></tr></table>'.
1.282     albertel  241:        '<table border="0" width="100%"><tr><td bgcolor="#DDDDDD">';
1.105     albertel  242: }
                    243: 
                    244: sub problem_edit_footer {
1.210     albertel  245:     return '</td></tr></table><br /><input type="submit" name="submit" value="'.&mt('Submit Changes and Edit').'" />
1.255     www       246:     <input type="submit" name="submit" value="'.&mt('Submit Changes and View').'" />'.
                    247:     &Apache::lonhtmlcommon::htmlareaselectactive(@Apache::lonxml::htmlareafields).
1.280     albertel  248:     "\n</form>\n".&Apache::loncommon::endbodytag()."\n</html>";
1.105     albertel  249: }
                    250: 
1.235     albertel  251: sub option {
                    252:     my ($value,$name) = @_;
                    253:     my $result ="<option value='".$value."' ";
1.284     albertel  254:     if ($env{'form.'.$name} eq $value) {
1.235     albertel  255: 	$result.=" selected='on' ";
                    256:     }
                    257:     $result.='>';
                    258:     return $result;
                    259: }
                    260: 
1.105     albertel  261: sub problem_web_to_edit_header {
1.159     albertel  262:     my ($rndseed)=@_;
1.313     albertel  263:     my $result.='<input type="hidden" name="problemmode" value="'.&mt('View').'" />';
                    264:     if (!$Apache::lonhomework::parsing_a_task) {
                    265: 	$result .= '<input type="submit" name="problemmode" accesskey="e" value="'.&mt('Edit').'" />';
                    266:     }
                    267:     $result .= '<input type="submit" name="problemmode" accesskey="x" value="'.&mt('EditXML').'" />
1.243     matthew   268:              <input type="submit" name="newrandomization" accesskey="a" value="'.&mt('New Randomization').'" />
                    269:              <input type="submit" name="resetdata" accesskey="r" value="'.&mt('Reset Submissions').'" />
1.210     albertel  270:              <nobr><input type="submit" name="changerandseed" value="'.&mt('Change Random Seed To:').'" />
1.270     albertel  271:               <input type="text" name="rndseed" size="10" value="'.
1.175     albertel  272: 	       $rndseed.'"
1.270     albertel  273:            onchange="javascript:document.lonhomework.changerandseed.click()" /></nobr>
1.281     albertel  274:              <label><input type="checkbox" name="showallfoils" ';
1.315     albertel  275:     my $show_all_foils_text = 
                    276: 	($Apache::lonhomework::parsing_a_task) ?
                    277: 	&mt('&nbsp;Show&nbsp;All&nbsp;Instances')
                    278: 	: &mt('&nbsp;Show&nbsp;All&nbsp;Foils');
                    279: 
1.284     albertel  280:     if (defined($env{'form.showallfoils'})) { $result.='checked="on"'; }
1.315     albertel  281:     $result.= ' />'.$show_all_foils_text.
1.228     www       282: 	&Apache::loncommon::help_open_topic('Problem_Editor_Testing_Area','Testing Problems').
1.281     albertel  283: 	'</label><hr />';
1.313     albertel  284:     if (!$Apache::lonhomework::parsing_a_task) {
                    285: 	$result.="
1.235     albertel  286: <nobr>
                    287: Problem Status:
                    288: <select name='problemstate'>
1.270     albertel  289:   <option value=''></option>
1.235     albertel  290:   ".&option('CLOSED'               ,'problemstate').&mt("Closed")."</option>
                    291:   ".&option('CAN_ANSWER'           ,'problemstate').&mt("Answerable")."</option>
                    292:   ".&option('CANNOT_ANSWER_tries'  ,'problemstate').&mt("Open with full tries")."</option>
                    293:   ".&option('CANNOT_ANSWER_correct','problemstate').&mt("Open and correct")."</option>
                    294:   ".&option('SHOW_ANSWER'          ,'problemstate').&mt("Show Answer")."</option>
                    295: </select>
                    296: </nobr>
                    297: <nobr>
                    298: Problem Type:
                    299: <select name='problemtype'>
1.270     albertel  300:   <option value=''></option>
1.242     albertel  301:   ".&option('exam'   ,'problemtype').&mt("Exam Problem")."</option>
                    302:   ".&option('problem','problemtype').&mt("Homework problem")."</option>
                    303:   ".&option('survey' ,'problemtype').&mt("Survey Question")."</option>
1.235     albertel  304: </select>
                    305: </nobr>
                    306: <nobr>
                    307: Feedback Mode:
                    308: <select name='problemstatus'>
                    309:   <option value=''></option>
1.242     albertel  310:   ".&option('yes','problemstatus').&mt("Show Feedback")."</option>
                    311:   ".&option('no', 'problemstatus').&mt("Don't Show Feedback")."</option>
1.235     albertel  312: </select>
                    313: </nobr>
1.242     albertel  314: <input type='submit' name='changeproblemmode' value='".&mt("Change")."' />
1.235     albertel  315: <hr />";
1.313     albertel  316: 	my $numtoanalyze=$env{'form.numtoanalyze'};
                    317: 	if (!$numtoanalyze) { $numtoanalyze=20; }
                    318: 	$result.= '<input type="submit" name="problemmode" value='.
                    319: 	    &mt('"Calculate answers').'" /> for
1.136     albertel  320:              <input type="text" name="numtoanalyze" value="'.
1.210     albertel  321: 	     $numtoanalyze.'" size="5" /> '.&mt('versions of this problem').
                    322: 	     '.'.&Apache::loncommon::help_open_topic("Analyze_Problem",
1.176     albertel  323: 						     '',undef,undef,300).
1.210     albertel  324: 						     '<hr />';
1.313     albertel  325:     }
1.159     albertel  326:     return $result;
1.48      albertel  327: }
                    328: 
1.65      albertel  329: sub initialize_storage {
1.159     albertel  330:     %Apache::lonhomework::results=();
1.162     albertel  331:     %Apache::lonhomework::history=();
1.159     albertel  332:     my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser();
1.284     albertel  333:     if ($env{'request.state'} eq 'construct' || $symb eq '') {
1.159     albertel  334: 	%Apache::lonhomework::history=
1.284     albertel  335: 	    &Apache::lonnet::tmprestore($env{'request.uri'},'',$domain,$name);
1.159     albertel  336: 	my ($temp)=keys %Apache::lonhomework::history ;
                    337: 	&Apache::lonxml::debug("Return message of $temp");
                    338:     } else {
                    339: 	%Apache::lonhomework::history=
                    340: 	    &Apache::lonnet::restore($symb,$courseid,$domain,$name);
                    341:     }
                    342:     #ignore error conditions
1.67      albertel  343:     my ($temp)=keys %Apache::lonhomework::history ;
1.159     albertel  344:     if ($temp =~ m/^error:.*/) { %Apache::lonhomework::history=(); }
1.65      albertel  345: }
                    346: 
                    347: # -------------------------------------------------------------finalize_storage
                    348: # Stores away the result has to a student's environment
                    349: # checks form.grade_ for specific values, other wises stores
                    350: # to the running users environment
1.285     raeburn   351: # Will increment totals for attempts, students, and corrects
                    352: # if running user has student role.  
1.65      albertel  353: sub finalize_storage {
1.159     albertel  354:     my $result;
1.289     albertel  355:     if (%Apache::lonhomework::results) {
1.323     albertel  356: 	my @remove = grep(/^INTERNAL_/,keys(%Apache::lonhomework::results));
                    357: 	delete(@Apache::lonhomework::results{@remove});
1.159     albertel  358: 	my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser();
1.284     albertel  359: 	if ($env{'request.state'} eq 'construct' || $symb eq '') {
                    360: 	    $Apache::lonhomework::results{'rndseed'}=$env{'form.rndseed'};
1.159     albertel  361: 	    $result=&Apache::lonnet::tmpstore(\%Apache::lonhomework::results,
1.284     albertel  362: 					$env{'request.uri'},'',$domain,$name);
1.159     albertel  363: 	    &Apache::lonxml::debug('Construct Store return message:'.$result);
                    364: 	} else {
                    365: 	    $result=&Apache::lonnet::cstore(\%Apache::lonhomework::results,
                    366: 					    $symb,$courseid,$domain,$name);
                    367: 	    &Apache::lonxml::debug('Store return message:'.$result);
1.285     raeburn   368:             if ($env{'request.role'} =~/^st/) {
                    369:                 &store_aggregates($symb,$courseid);
                    370:             }
1.159     albertel  371: 	}
1.323     albertel  372:     } else {
                    373: 	&Apache::lonxml::debug('Nothing to store');
1.67      albertel  374:     }
1.159     albertel  375:     return $result;
1.65      albertel  376: }
1.289     albertel  377: use Data::Dumper;
1.65      albertel  378: 
1.285     raeburn   379: # -------------------------------------------------------------store_aggregates
                    380: # Sends hash of values to be incremented in nohist_resourcetracker.db
                    381: # for the course. Increments total number of attempts, unique students 
                    382: # and corrects for each part for an instance of a problem, as appropriate.
                    383: sub store_aggregates {
                    384:     my ($symb,$courseid) = @_;
1.286     albertel  385:     my %aggregate;
                    386:     my @parts;
1.288     albertel  387:     my $cdomain = $env{'course.'.$env{'request.course.id'}.'.domain'};
                    388:     my $cname = $env{'course.'.$env{'request.course.id'}.'.num'};
1.286     albertel  389:     foreach my $key (keys(%Apache::lonhomework::results)) {
1.287     albertel  390:         if ($key =~ /resource\.([^\.]+)\.tries/) {
1.286     albertel  391:             push(@parts, $1);
1.285     raeburn   392:         }
                    393:     }
1.286     albertel  394:     foreach my $part (@parts) {
                    395:         if ($Apache::lonhomework::results{'resource.'.$part.'.award'}
                    396: 	    eq 'APPROX_ANS' ||
                    397: 	    $Apache::lonhomework::results{'resource.'.$part.'.award'}
                    398: 	    eq 'EXACT_ANS') {
1.287     albertel  399:             $aggregate{$symb."\0".$part."\0correct"} = 1;
1.285     raeburn   400:         }
1.286     albertel  401:         if ($Apache::lonhomework::results{'resource.'.$part.'.tries'} == 1) {
1.287     albertel  402:             $aggregate{$symb."\0".$part."\0users"} = 1;
1.292     raeburn   403:         } else {
1.293     albertel  404:             my (undef,$last_reset) = &Apache::grades::get_last_resets($symb,$env{'request.course.id'},[$part]); 
1.292     raeburn   405:             if ($last_reset) {
1.293     albertel  406:                 if (&Apache::grades::get_num_tries(\%Apache::lonhomework::history,$last_reset,$part) == 0) {
1.292     raeburn   407:                     $aggregate{$symb."\0".$part."\0users"} = 1;
                    408:                 }
                    409:             }
1.285     raeburn   410:         }
1.287     albertel  411:         $aggregate{$symb."\0".$part."\0attempts"} = 1;
1.285     raeburn   412:     }
1.292     raeburn   413:     if (keys (%aggregate) > 0) {
1.289     albertel  414: 	&Apache::lonnet::cinc('nohist_resourcetracker',\%aggregate,
1.292     raeburn   415:                             $cdomain,$cname);
                    416:     }
                    417: }
1.289     albertel  418: 
1.65      albertel  419: sub checkout_msg {
1.211     albertel  420:     my %lt=&Apache::lonlocal::texthash( 
                    421: 		'resource'=>'The resource needs to be checked out',
                    422: 		'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.',
                    423:                 'warning'=>'Checking out resources is subject to course policies, and may exclude future credit even if done erroneously.',
                    424:                 'checkout'=>'Check out Exam for Viewing',
                    425: 		'checkout?'=>'Check out Exam?');
1.159     albertel  426:     return (<<ENDCHECKOUT);
1.211     albertel  427: <h2>$lt{'resource'}</h2>
                    428:     <p>$lt{'id_expln'}</p>
                    429: <font color="red">
                    430: <p>$lt{'warning'}</p>
1.91      albertel  431: </font>
1.284     albertel  432: <form name="checkout" method="POST" action="$env{'request.uri'}">
1.91      albertel  433: <input type="hidden" name="doescheckout" value="yes" />
1.211     albertel  434: <input type="button" name="checkoutbutton" value="$lt{'checkout'}" onClick="javascript:if (confirm('$lt{'checkout?'}')) { document.checkout.submit(); }" />
1.65      albertel  435: </form>
                    436: ENDCHECKOUT
                    437: }
                    438: 
1.252     albertel  439: sub firstaccess_msg {
1.253     albertel  440:     my ($time,$symb)=@_;
                    441:     my ($map)=&Apache::lonnet::decode_symb($symb);
                    442:     my $foldertitle=&Apache::lonnet::gettitle($map);
                    443:     &Apache::lonxml::debug("map is $map title is $foldertitle");
1.252     albertel  444:     return (<<ENDCHECKOUT);
1.253     albertel  445: <h2>The resources in "$foldertitle" are open for a limited time. Once you click the 'Show Resource' button below you have $time to complete all resources "$foldertitle".</h2>
1.284     albertel  446: <form name="markaccess" method="POST" action="$env{'request.uri'}">
1.252     albertel  447: <input type="hidden" name="markaccess" value="yes" />
                    448: <input type="button" name="accessbutton" value="Show Resource" onClick="javascript:if (confirm('Start Timer?')) { document.markaccess.submit(); }" />
                    449: </form>
                    450: ENDCHECKOUT
                    451: }
                    452: 
1.204     albertel  453: sub init_problem_globals {
                    454:     my ($type)=@_;
                    455:     #initialize globals
1.308     foxr      456:     #   For problems, we start out in part 0 (outside a <part> tag).
                    457:     #   and part 0 is used to describe the main body of the <problem>
                    458:     #
1.204     albertel  459:     if ($type eq 'problem') {
                    460: 	$Apache::inputtags::part='0';
                    461: 	@Apache::inputtags::partlist=('0');
1.266     albertel  462: 	$Apache::lonhomework::problemstatus=&get_problem_status('0');
                    463: 	$Apache::lonhomework::ignore_response_errors=0;
1.308     foxr      464: 
1.266     albertel  465:     } elsif ($type eq 'library') {
1.204     albertel  466: 	$Apache::inputtags::part='';
                    467: 	@Apache::inputtags::partlist=();
                    468: 	$Apache::lonhomework::problemstatus='';	
1.266     albertel  469: 	$Apache::lonhomework::ignore_response_errors=1;
1.308     foxr      470: 
1.304     albertel  471:     } elsif ($type eq 'Task') {
                    472: 	$Apache::inputtags::part='0';
                    473: 	@Apache::inputtags::partlist=('0');
                    474: 	$Apache::lonhomework::problemstatus='';	
                    475: 	$Apache::lonhomework::ignore_response_errors=1;
1.204     albertel  476:     }
                    477:     @Apache::inputtags::responselist = ();
                    478:     @Apache::inputtags::importlist = ();
                    479:     @Apache::inputtags::previous=();
                    480:     @Apache::inputtags::previous_version=();
                    481:     $Apache::structuretags::printanswer='No';
                    482:     @Apache::structuretags::whileconds=();
                    483:     @Apache::structuretags::whilebody=();
                    484:     @Apache::structuretags::whileline=();
                    485:     $Apache::lonhomework::scantronmode=0;
                    486:     undef($Apache::lonhomework::name);
                    487: 
                    488: }
                    489: 
                    490: sub reset_problem_globals {
                    491:     my ($type)=@_;
                    492:     undef(%Apache::lonhomework::history);
                    493:     undef(%Apache::lonhomework::results);
                    494:     undef($Apache::inputtags::part);
1.208     albertel  495: #don't undef this, lonhomework.pm takes care of this, we use this to 
                    496: #detect if we try to do 2 problems in one file
                    497: #   undef($Apache::lonhomework::parsing_a_problem);
1.204     albertel  498:     undef($Apache::lonhomework::name);
                    499: }
                    500: 
1.241     albertel  501: sub set_problem_state {
1.240     albertel  502:     my ($part)=@_;
1.284     albertel  503:     if ($env{'form.problemstate'} eq 'CANNOT_ANSWER_correct') {
1.240     albertel  504: 	$Apache::lonhomework::history{"resource.$part.solved"}=
                    505: 	    'correct_by_student';
                    506:     }
                    507: }
                    508: 
1.241     albertel  509: sub get_problem_status {
                    510:     my ($part)=@_;
1.267     albertel  511:     my $problem_status;
1.284     albertel  512:     if ($env{'request.state'} eq 'construct' &&
                    513: 	defined($env{'form.problemstatus'})) {
                    514: 	$problem_status=$env{'form.problemstatus'};
1.267     albertel  515:     } else {
                    516: 	$problem_status=&Apache::lonnet::EXT("resource.$part.problemstatus");
                    517: 	&Apache::lonxml::debug("problem status for $part is $problem_status");
1.284     albertel  518: 	&Apache::lonxml::debug("env probstat is ".$env{'form.problemstatus'});
1.241     albertel  519:     }
                    520:     return $problem_status;
                    521: }
                    522: 
1.9       albertel  523: sub start_problem {
1.326     albertel  524:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.19      albertel  525: 
1.311     foxr      526:     # We'll use the redirection to fix up printing of duedates.
1.321     albertel  527:     if (!$Apache::lonxml::metamode) {
                    528: 	&Apache::lonxml::startredirection();
                    529:     }
1.311     foxr      530: 
1.308     foxr      531:     # Problems don't nest and we don't allow more than one <problem> in
                    532:     # a .problem file.
                    533:     #
1.184     albertel  534:     if ( $Apache::inputtags::part ne '' ||
                    535: 	 $Apache::lonhomework::parsing_a_problem) {
                    536: 	&Apache::lonxml::error('Only one &lt;problem&gt; allowed in a .problem file');
1.326     albertel  537: 	#my $bodytext=&Apache::lonxml::get_all_text("/problem",$parser,$style);
1.159     albertel  538: 	return '';
                    539:     }
1.184     albertel  540: 
                    541:     $Apache::lonhomework::parsing_a_problem=1;
1.204     albertel  542:     &init_problem_globals('problem');
1.166     albertel  543: 
1.284     albertel  544:     if (defined($env{'scantron.maxquest'})) {
1.166     albertel  545: 	$Apache::lonhomework::scantronmode=1;
                    546:     }
1.161     albertel  547: 
1.246     albertel  548:     &initialize_storage();
1.159     albertel  549:     if ($target ne 'analyze') {
                    550: 	if ($target eq 'web') {
                    551: 	    &Apache::lonhomework::showhash(%Apache::lonhomework::history);
1.238     albertel  552: 	}
1.284     albertel  553:        	if ($env{'request.state'} eq 'construct') { &set_problem_state('0'); }
1.159     albertel  554: 	$Apache::lonhomework::type=&Apache::lonnet::EXT('resource.0.type');
1.284     albertel  555: 	if (($env{'request.state'} eq 'construct') &&
                    556: 	    defined($env{'form.problemtype'})) {
                    557: 	    $Apache::lonhomework::type=$env{'form.problemtype'};
1.237     albertel  558: 	}
1.240     albertel  559: 	&Apache::lonxml::debug("Found this to be of type :$Apache::ltonhomework::type:");
1.159     albertel  560:     }
1.164     albertel  561:     if ($Apache::lonhomework::type eq '' ) {
1.284     albertel  562: 	my $uri=$env{'request.uri'};
1.159     albertel  563: 	if ($uri=~/\.(\w+)$/) {
                    564: 	    $Apache::lonhomework::type=$1;
                    565: 	    &Apache::lonxml::debug("Using type of $1");
                    566: 	} else {
                    567: 	    $Apache::lonhomework::type='problem';
                    568: 	    &Apache::lonxml::debug("Using default type, problem, :$uri:");
                    569: 	}
1.87      albertel  570:     }
1.301     albertel  571:     $Apache::lonhomework::default_type = $Apache::lonhomework::type;
1.58      www       572: 
1.159     albertel  573:     #added vars to the scripting enviroment
1.213     albertel  574:     my $expression='$external::part=\''.$Apache::inputtags::part.'\';';
1.248     albertel  575:     $expression.='$external::type=\''.$Apache::lonhomework::type.'\';';
1.24      albertel  576:     &Apache::run::run($expression,$safeeval);
1.159     albertel  577:     my $status;
                    578:     my $accessmsg;
                    579: 
                    580:     #should get back a <html> or the neccesary stuff to start XML/MathML
                    581:     my ($result,$head_tag_start,$body_tag_start,$form_tag_start)=
                    582: 	&page_start($target,$token,$tagstack,$parstack,$parser,$safeeval);
1.284     albertel  583:     if ($target eq 'tex' and $env{'request.symb'} =~ m/\.page_/) {$result='';}
1.159     albertel  584: 
                    585:     if ($target eq 'analyze') { my $rndseed=&setup_rndseed($safeeval); }
                    586:     if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
                    587: 	$target eq 'tex') {
                    588: 	#handle exam checkout
                    589: 	if ($Apache::lonhomework::type eq 'exam') {
                    590: 	    my $token=
                    591: 		$Apache::lonhomework::history{"resource.0.outtoken"};
1.284     albertel  592: 	    if (($env{'form.doescheckout'}) && (!$token)) {
1.159     albertel  593: 		$token=&Apache::lonxml::maketoken();
                    594: 		$Apache::lonhomework::history{"resource.0.outtoken"}=
                    595: 		    $token;
                    596: 	    }
                    597: 	    $body_tag_start.=&Apache::lonxml::printtokenheader($target,$token);
1.142     albertel  598: 	}
1.284     albertel  599: 	if ($env{'form.markaccess'}) {
1.252     albertel  600: 	    &Apache::lonnet::set_first_access('map');
                    601: 	}
1.159     albertel  602: 	#handle rand seed in construction space
                    603: 	my $rndseed=&setup_rndseed($safeeval);
1.162     albertel  604: 	my ($symb)=&Apache::lonxml::whichuser();
1.284     albertel  605: 	if ($env{'request.state'} ne "construct" && $symb eq '') {
1.162     albertel  606: 	    $form_tag_start.='<input type="hidden" name="rndseed" value="'.
                    607: 		$rndseed.'" />'.
                    608: 		    '<input type="submit" name="resetdata"
1.211     albertel  609:                              value="'.&mt('New Problem Variation').'" />'.
1.164     albertel  610: 		    '<input type="hidden" name="username"
1.284     albertel  611:                              value="'.$env{'form.username'}.'" />';
                    612: 	    if ($env{'user.adv'}) {
1.267     albertel  613: 		$form_tag_start.=
1.300     albertel  614: 		    ' <label><input type="checkbox" name="showallfoils" ';
1.284     albertel  615: 		if (defined($env{'form.showallfoils'})) {
1.267     albertel  616: 		    $form_tag_start.='checked="on"';
                    617: 		}
1.300     albertel  618: 		$form_tag_start.= ' />'.&mt('&nbsp;Show&nbsp;All&nbsp;Foils').
                    619: 		    '</label>';
1.267     albertel  620: 	    }
                    621: 	    $form_tag_start.='<hr />';
1.162     albertel  622: 	}
1.324     albertel  623: 
                    624: 	($status,$accessmsg,my $slot_name,my $slot) = 
                    625: 	    &Apache::lonhomework::check_slot_access('0','problem');
1.159     albertel  626: 	push (@Apache::inputtags::status,$status);
1.324     albertel  627: 
1.159     albertel  628: 	my $expression='$external::datestatus="'.$status.'";';
                    629: 	$expression.='$external::gradestatus="'.$Apache::lonhomework::history{"resource.0.solved"}.'";';
                    630: 	&Apache::run::run($expression,$safeeval);
                    631: 	&Apache::lonxml::debug("Got $status");
1.324     albertel  632: 
1.159     albertel  633: 	if (( $status eq 'CLOSED' ) ||
                    634: 	    ( $status eq 'UNCHECKEDOUT') ||
1.252     albertel  635: 	    ( $status eq 'NOT_YET_VIEWED') ||
1.159     albertel  636: 	    ( $status eq 'BANNED') ||
1.216     albertel  637: 	    ( $status eq 'UNAVAILABLE') ||
1.324     albertel  638: 	    ( $status eq 'NOT_IN_A_SLOT') ||
1.216     albertel  639: 	    ( $status eq 'INVALID_ACCESS')) {
1.326     albertel  640: 	    my $bodytext=&Apache::lonxml::get_all_text("/problem",$parser,
                    641: 						       $style);
1.159     albertel  642: 	    if ( $target eq "web" ) {
                    643: 		$result.= $head_tag_start.'</head>';
                    644: 		my $msg=$body_tag_start;
                    645: 		if ($status eq 'UNAVAILABLE') {
1.245     albertel  646: 		    $msg.='<h1>'.&mt('Unable to determine if this resource is open due to network problems. Please try again later.').'</h1>';
1.253     albertel  647: 		} elsif ($status ne 'NOT_YET_VIEWED') {
1.245     albertel  648: 		    $msg.='<h1>'.&mt('Not open to be viewed').'</h1>';
1.159     albertel  649: 		}
1.216     albertel  650: 		if ($status eq 'CLOSED' || $status eq 'INVALID_ACCESS') {
1.159     albertel  651: 		    $msg.='The problem '.$accessmsg;
                    652: 		} elsif ($status eq 'UNCHECKEDOUT') {
                    653: 		    $msg.=&checkout_msg;
1.252     albertel  654: 		} elsif ($status eq 'NOT_YET_VIEWED') {
1.253     albertel  655: 		    $msg.=&firstaccess_msg($accessmsg,$symb);
1.325     albertel  656: 		} elsif ($status eq 'NOT_IN_A_SLOT') {
                    657: 		    $msg.=&Apache::bridgetask::add_request_another_attempt_button("Sign up for time to work.");
1.159     albertel  658: 		}
                    659: 		$result.=$msg.'<br />';
                    660: 	    } elsif ($target eq 'tex') {
                    661: 		$result.='\begin{document}\noindent \vskip 1 mm  \begin{minipage}{\textwidth}\vskip 0 mm';
                    662: 		if ($status eq 'UNAVAILABLE') {
1.211     albertel  663: 		    $result.=&mt('Unable to determine if this resource is open due to network problems. Please try again later.').'\vskip 0 mm ';
1.159     albertel  664: 		} else {
1.211     albertel  665: 		    $result.=&mt('Problem is not open to be viewed. It')." $accessmsg \\vskip 0 mm ";
1.159     albertel  666: 		}
                    667: 	    }
1.324     albertel  668: 	} elsif ($status eq 'NEEDS_CHECKIN') {
1.326     albertel  669: 	    my $bodytext=&Apache::lonxml::get_all_text("/problem",$parser,
                    670: 						       $style);
1.324     albertel  671: 	    if ($target eq 'web') {
                    672: 		$result .= $head_tag_start.'</head>';
                    673: 		$result .= $body_tag_start;
                    674: 		$result .= &Apache::bridgetask::proctor_validation_screen();
                    675: 	    } elsif ($target eq 'grade') {
                    676: 		&Apache::bridgetask::proctor_check_auth($slot_name,$slot,
                    677: 							'problem');
                    678: 	    }
1.159     albertel  679: 	} elsif ($target eq 'web') {
                    680: 	    my $name= &get_resource_name($parstack,$safeeval);
1.227     albertel  681: 	    $result.="$head_tag_start<title>$name</title></head>
1.158     sakharuk  682:               $body_tag_start \n $form_tag_start".	
1.227     albertel  683: 	      '<input type="hidden" name="submitted" value="yes" />';
                    684: 	    # create a page header and exit
1.284     albertel  685: 	    if ($env{'request.state'} eq "construct") {
                    686: 		$result.= &problem_web_to_edit_header($env{'form.rndseed'});
1.227     albertel  687: 	    }
                    688: 	    # if we are viewing someone else preserve that info
1.284     albertel  689: 	    if (defined $env{'form.grade_symb'}) {
1.227     albertel  690: 		foreach my $field ('symb','courseid','domain','username') {
                    691: 		    $result .= '<input type="hidden" name="grade_'.$field.
1.284     albertel  692: 			'" value="'.$env{"form.grade_$field"}.'" />'."\n";
1.159     albertel  693: 		}
                    694: 	    }
                    695: 	} elsif ($target eq 'tex') {
1.319     foxr      696: 	    $result .= 'INSERTTEXFRONTMATTERHERE';
                    697: 
1.99      sakharuk  698: 	}
1.159     albertel  699:     } elsif ($target eq 'edit') {
                    700: 	$result.=$head_tag_start."</head>".$body_tag_start.$form_tag_start.
                    701: 	    &problem_edit_header();
1.226     albertel  702: 	$Apache::lonxml::warnings_error_header=
                    703: 	    &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  704: 	my $temp=&Apache::edit::insertlist($target,$token);
                    705: 	$result.=$temp;
                    706:     } elsif ($target eq 'modified') {
                    707: 	$result=$token->[4];
                    708: 	$result.=&Apache::edit::handle_insert();
                    709:     } else {
                    710: 	# page_start returned a starting result, delete it if we don't need it
                    711: 	$result = '';
1.99      sakharuk  712:     }
1.159     albertel  713:     return $result;
1.9       albertel  714: }
                    715: 
                    716: sub end_problem {
1.159     albertel  717:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.321     albertel  718:     my $result;
1.310     foxr      719: 
1.321     albertel  720:     if (!$Apache::lonxml::metamode) {
                    721: 	$result = &Apache::lonxml::endredirection(); #started in &start_problem
1.329     albertel  722: 	$Apache::lonxml::post_evaluate=0;
1.321     albertel  723:     }
1.319     foxr      724: 
                    725:     if ($target eq 'tex') {
1.321     albertel  726: 
                    727: 	# Figure out the front matter and replace the
                    728: 	# INSERTTEXFRONTMATTERHERE in result with it.  note that we do
                    729: 	# this in end_problem because whether or not we display due
                    730: 	# dates depends on whether due dates have already been
                    731: 	# displayed in the problem parts.
                    732: 
1.319     foxr      733: 	my $frontmatter   = '';
                    734: 	my $startminipage = '';
                    735: 	if (not $env{'form.problem_split'}=~/yes/) {
                    736: 	    $startminipage = '\begin{minipage}{\textwidth}';
                    737: 	}
                    738: 	my $id = $Apache::inputtags::part;
                    739: 	my $weight = &Apache::lonnet::EXT("resource.$id.weight");
                    740: 	my $packages=&Apache::lonnet::metadata($env{'request.uri'},'packages');
                    741: 	my @packages = split /,/,$packages;
                    742: 	my $allow_print_points = 0;
                    743: 	foreach my $partial_key (@packages) {
                    744: 	    if ($partial_key=~m/^part_0$/) {
                    745: 		$allow_print_points=1;
                    746: 	    }
                    747: 	}
                    748: 	my $maxtries = &Apache::lonnet::EXT("resource.$id.maxtries");
                    749: 	if (defined($maxtries) && $maxtries < 0) { $allow_print_points=0; }
                    750: 	if (lc($env{'course.'.$env{'request.course.id'}.
                    751: 			'.disableexampointprint'}) eq 'yes') {
                    752: 	    $allow_print_points=0;
                    753: 	}
                    754: 	my $name_of_resourse= &Apache::lonxml::latex_special_symbols(&get_resource_name($parstack,$safeeval),'header');
                    755: 	my $begin_doc='\begin{document} \typeout{STAMPOFPASSEDRESOURCESTART Resource <h2>"'.$name_of_resourse.'"</h2> located in <br /><small><b>'.$env{'request.uri'}.'</b></small><br /> STAMPOFPASSEDRESOURCEEND} \noindent ';
                    756: 	my $toc_line='\vskip 1 mm\noindent '.$startminipage.
                    757: 	    '\addcontentsline{toc}{subsection}{'.$name_of_resourse.'}';
                    758: 	
                    759: 	#  Figure out what the due date is and if we need to print
                    760: 	#  it in the problem header.  We have been logging the
                    761: 	#  last due date written to file. 
                    762: 	
                    763: 	my $duetime = &Apache::lonnet::EXT("resource.$id.duedate"); 
                    764: 	my $duedate = POSIX::strftime("%c",localtime($duetime));
                    765: 	my $temp_file;
                    766: 	my $filename = "/home/httpd/prtspool/$env{'user.name'}_$env{'user.domain'}_printout.due";
                    767: 	
                    768: 	# Figure out what the last printed due date is or set it
                    769: 	# to the epoch if no duedates have been printed.
                    770: 	
                    771: 	my $due_file_content = 0;      #   If the file does not yet exist, time is the epoch.
                    772: 	if (-e $filename) {
                    773: 	    $temp_file = Apache::File->new($filename);
                    774: 	    my @due_file      = <$temp_file>;
                    775: 	    $due_file_content = $due_file[$#due_file];
                    776: 	    chomp $due_file_content;
                    777: 	} 
                    778: 	
                    779: 	# We display the due date iff it is not the same as the last
                    780: 	# duedate in problem header ($due_file_content), and
                    781: 	# none of our parts displayed a duedate.
                    782: 	#
                    783: 	my $parts_with_displayduedate;
                    784: 	if (defined $Apache::outputtags::showonce{'displayduedate'}) {
                    785: 	    $parts_with_displayduedate = 
                    786: 		scalar(@{$Apache::outputtags::showonce{'displayduedate'}});
                    787: 	} else {
                    788: 	    $parts_with_displayduedate = 0;
                    789: 	}
                    790: 	if (($due_file_content != $duetime) && ($parts_with_displayduedate == 0) ) {
                    791: 	    $temp_file = Apache::File->new('>'.$filename);
                    792: 	    print $temp_file "$duetime\n";
                    793: 	    if (not $env{'request.symb'} =~ m/\.page_/) {
                    794: 		if(not $duedate=~m/1969/ and $Apache::lonhomework::type ne 'exam') {
                    795: 		    $frontmatter .= $begin_doc.
                    796: 			'\textit{Due date: '.$duedate.'} '.$toc_line;
                    797: 		} else {
                    798: 		    $frontmatter.= $begin_doc.$toc_line;
                    799: 		    if ($Apache::lonhomework::type eq 'exam' and $allow_print_points==1) { $frontmatter .= '\fbox{\textit{'.$weight.' pt}}';}
                    800: 		}
                    801: 	    } else {
                    802: 		$frontmatter .= '\vskip 1mm\textit{Due date: '.$duedate.'} \\\\\\\\';
                    803: 	    }
                    804: 	} else {
                    805: 	    if (not $env{'request.symb'} =~ m/\.page_/) {
                    806: 		$frontmatter .= $begin_doc.$toc_line;
                    807: 		if (($Apache::lonhomework::type eq 'exam') and ($allow_print_points==1)) { $frontmatter .= '\fbox{\textit{'.$weight.' pt}}';}
                    808: 	    } else {
                    809: 		$frontmatter .= '\vskip 1mm \\\\\\\\';
                    810: 	    }
                    811: 	}
                    812: 	$result =~ s/INSERTTEXFRONTMATTERHERE/$frontmatter/;
                    813:     }
                    814: 
1.159     albertel  815:     my $status=$Apache::inputtags::status['-1'];
                    816:     if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' ||
                    817: 	$target eq 'tex') {
1.249     albertel  818: 	if ( $target eq 'grade' && $Apache::inputtags::part eq '0') {
1.159     albertel  819: 	    # if part is zero, no <part>s existed, so we need to the grading
1.249     albertel  820: 	    if ($status eq 'CAN_ANSWER' ||$Apache::lonhomework::scantronmode) {
                    821: 		&Apache::inputtags::grade;
1.324     albertel  822: 	    } elsif ($status eq 'NEEDS_CHECKIN') {
                    823: 		# no need to grade, and don't want to hide data
1.249     albertel  824: 	    } else {
                    825: 		# move any submission data to .hidden
                    826: 		&Apache::inputtags::hidealldata($Apache::inputtags::part);
                    827: 	    }
1.159     albertel  828: 	} elsif ( ($target eq 'web' || $target eq 'tex') &&
                    829: 		  $Apache::inputtags::part eq '0' &&
1.252     albertel  830: 		  $status ne 'UNCHECKEDOUT' && $status ne 'NOT_YET_VIEWED') {
1.159     albertel  831: 	    # if part is zero, no <part>s existed, so we need show the current
                    832: 	    # grading status
                    833: 	    my $gradestatus = &Apache::inputtags::gradestatus($Apache::inputtags::part,$target);
                    834: 	    $result.= $gradestatus;
                    835: 	}
                    836: 	if (
1.284     albertel  837: 	    (($target eq 'web') && ($env{'request.state'} ne 'construct')) ||
1.159     albertel  838: 	    ($target eq 'answer') || ($target eq 'tex')
                    839: 	   ) {
1.227     albertel  840: 	    if ($target ne 'tex' &&
1.284     albertel  841: 		$env{'form.answer_output_mode'} ne 'tex') {
1.254     www       842: 		$result.="</form>";
                    843: 		$result.=&Apache::lonhtmlcommon::htmlareaselectactive(@Apache::lonxml::htmlareafields);
1.159     albertel  844: 	    }
                    845: 	    if ($target eq 'web') {
1.281     albertel  846: 		$result.=&Apache::lonxml::xmlend().'</html>';
1.159     albertel  847: 	    } elsif ($target eq 'tex') {
1.178     sakharuk  848: 		my $endminipage = '';
1.284     albertel  849: 		if (not $env{'form.problem_split'}=~/yes/) {
1.178     sakharuk  850: 		    $endminipage = '\end{minipage}';
                    851: 		}
1.284     albertel  852:                 if ($env{'form.print_discussions'} eq 'yes') {
1.263     sakharuk  853: 		    $result.=&Apache::lonxml::xmlend($target,$parser);
1.257     sakharuk  854: 		    $result=~s/<\/html>//;
1.159     albertel  855: 		} else {
1.262     sakharuk  856: 		    $result .= '\keephidden{ENDOFPROBLEM}\vskip 0.5mm\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}';
1.284     albertel  857: 		    if (not $env{'request.symb'} =~ m/\.page_/) {
1.262     sakharuk  858: 			$result .= $endminipage.'\end{document} ';
                    859: 		    } else {
                    860: 			$result .= '';
                    861: 		    }
1.159     albertel  862: 		}
                    863: 	    }
                    864: 	}
                    865: 	if ($target eq 'grade') {
                    866: 	    &Apache::lonhomework::showhash(%Apache::lonhomework::results);
                    867: 	    &finalize_storage();
                    868: 	}
1.284     albertel  869: 	if ($target eq 'answer' && ($env{'request.state'} eq 'construct')
                    870: 	    && $env{'form.answer_output_mode'} ne 'tex') {
1.294     albertel  871: 	    $result.=&Apache::lonxml::xmlend().'</html>';
                    872: 	                        # normally we get it from above, but in CSTR
1.172     albertel  873: 	                        # we always show answer mode too.
1.159     albertel  874: 	}
                    875:     } elsif ($target eq 'meta') {
                    876: 	if ($Apache::inputtags::part eq '0') {
1.179     albertel  877: 	    @Apache::inputtags::response=();
1.159     albertel  878: 	    $result=&Apache::response::mandatory_part_meta;
                    879: 	}
1.215     albertel  880: 	$result.=&Apache::response::meta_part_order();
1.258     albertel  881: 	$result.=&Apache::response::meta_response_order();
1.159     albertel  882:     } elsif ($target eq 'edit') {
                    883: 	&Apache::lonxml::debug("in end_problem with $target, edit");
1.314     albertel  884: 	$result .= &problem_edit_footer();
1.320     albertel  885:     } elsif ($target eq 'modified') {
                    886: 	 $result .= $token->[2];
                    887: 	 $result.=&Apache::edit::handle_insertafter($token->[1]);
1.159     albertel  888:     }
1.155     albertel  889: 
1.284     albertel  890:     if ($env{'request.state'} eq 'construct' && $target eq 'web') {
1.177     albertel  891: 	&Apache::inputtags::check_for_duplicate_ids();
                    892:     }
1.204     albertel  893: 
                    894:     &reset_problem_globals('problem');
1.159     albertel  895: 
                    896:     return $result;
1.48      albertel  897: }
                    898: 
1.108     albertel  899: 
1.48      albertel  900: sub start_library {
1.159     albertel  901:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                    902:     my ($result,$head_tag_start,$body_tag_start,$form_tag_start);
1.244     albertel  903:     if ($$tagstack[0] eq 'library') {
                    904: 	&init_problem_globals('library');
                    905: 	$Apache::lonhomework::type='problem';
                    906:     }
1.159     albertel  907:     if ($target eq 'edit') {
                    908: 	($result,$head_tag_start,$body_tag_start,$form_tag_start)=
                    909: 	    &page_start($target,$token,$tagstack,$parstack,$parser,$safeeval);
                    910: 	$result.=$head_tag_start."</head>".$body_tag_start.$form_tag_start.
                    911: 	    &problem_edit_header();
                    912: 	my $temp=&Apache::edit::insertlist($target,$token);
                    913: 	$result.=$temp;
                    914:     } elsif ($target eq 'modified') {
                    915: 	$result=$token->[4];
                    916: 	$result.=&Apache::edit::handle_insert();
                    917:     } elsif ($target eq 'web' && $$tagstack[0] ne 'problem' &&
1.284     albertel  918: 	     $env{'request.state'} eq "construct" ) {
1.159     albertel  919: 	($result,$head_tag_start,$body_tag_start,$form_tag_start)=
                    920: 	    &page_start($target,$token,$tagstack,$parstack,$parser,$safeeval);
                    921: 	my $name=&get_resource_name($parstack,$safeeval);
                    922: 	my $rndseed=&setup_rndseed($safeeval);
                    923: 	$result.="$head_tag_start<title>$name</title></head>
1.105     albertel  924:               $body_tag_start \n $form_tag_start".	
1.159     albertel  925: 		  '<input type="hidden" name="submitted" value="yes" />';
                    926: 	$result.=&problem_web_to_edit_header($rndseed);
                    927:     }
                    928:     return $result;
1.48      albertel  929: }
                    930: 
                    931: sub end_library {
1.159     albertel  932:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                    933:     my $result='';
                    934:     if ($target eq 'edit') {
                    935: 	$result=&problem_edit_footer();
                    936:     } elsif ($target eq 'web' && $$tagstack[0] ne 'problem' &&
1.284     albertel  937: 	     $env{'request.state'} eq "construct") {
1.280     albertel  938: 	$result.='</form>'.&Apache::loncommon::endbodytag().
                    939: 	    &Apache::lonxml::xmlend();
1.159     albertel  940:     }
1.204     albertel  941:     if ($$tagstack[0] eq 'library') { &reset_problem_globals('library') };
1.159     albertel  942:     return $result;
1.197     www       943: }
                    944: 
                    945: sub start_definetag {
1.326     albertel  946:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.197     www       947: 
                    948:     my $result;
                    949: 
                    950:     my $name = $token->[2]->{'name'};
1.326     albertel  951:     my $skip=&Apache::lonxml::get_all_text("/definetag",$parser,$style);
1.197     www       952:     if ($name=~/^\//) {
                    953: 	$result=
                    954:  '<br /><table bgcolor="#FFBBBB"><tr><th>END <tt>'.$name.'</tt></th></tr>';
                    955:     } else {
                    956: 	$result=
                    957:  '<br /><table bgcolor="#BBFFBB"><tr><th>BEGIN <tt>'.$name.'</tt></th></tr>';
                    958:     }
                    959:     $skip=~s/\</\&lt\;/gs;
                    960:     $skip=~s/\>/\&gt\;/gs;
                    961:     $result.='<tr><td><pre>'.$skip.'</pre></td></tr></table>';
                    962:     return $result;
                    963: }
                    964: 
                    965: sub end_definetag {
                    966:     return '';
1.1       albertel  967: }
                    968: 
                    969: sub start_block {
1.201     albertel  970:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.131     albertel  971: 
                    972:     my $result;
1.1       albertel  973: 
1.160     albertel  974:     if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
1.131     albertel  975: 	$target eq 'tex' || $target eq 'analyze') {
1.159     albertel  976: 	my $code = $token->[2]->{'condition'};
1.201     albertel  977: 	if (defined($code)) {
1.137     albertel  978: 	    if (!$Apache::lonxml::default_homework_loaded) {
                    979: 		&Apache::lonxml::default_homework_load($safeeval);
                    980: 	    }
1.131     albertel  981: 	    $result = &Apache::run::run($code,$safeeval);
                    982: 	    &Apache::lonxml::debug("block :$code: returned :$result:");
                    983: 	} else {
                    984: 	    $result='1';
                    985: 	}
                    986: 	if ( ! $result ) {
1.201     albertel  987: 	    my $skip=&Apache::lonxml::get_all_text("/block",$parser,$style);
1.131     albertel  988: 	    &Apache::lonxml::debug("skipping ahead :$skip: $$parser[-1]");
                    989: 	}
                    990: 	$result='';
                    991:     } elsif ($target eq 'edit') {
                    992: 	$result .=&Apache::edit::tag_start($target,$token);
                    993: 	$result .=&Apache::edit::text_arg('Test Condition:','condition',
                    994: 					  $token,40);
                    995: 	$result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
                    996:     } elsif ($target eq 'modified') {
                    997: 	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
                    998: 						     $safeeval,'condition');
                    999: 	if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
1.38      albertel 1000:     }
1.131     albertel 1001:     return $result;
1.1       albertel 1002: }
                   1003: 
                   1004: sub end_block {
1.167     www      1005:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   1006:     my $result;
                   1007:     if ($target eq "edit") {
                   1008: 	$result.= &Apache::edit::tag_end($target,$token,'');
                   1009:     }
                   1010:     return $result;
                   1011: }
                   1012: 
                   1013: sub start_languageblock {
1.201     albertel 1014:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.167     www      1015: 
                   1016:     my $result;
                   1017: 
                   1018:     if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
                   1019: 	$target eq 'tex' || $target eq 'analyze') {
1.201     albertel 1020: 	my $include = $token->[2]->{'include'};
                   1021: 	my $exclude = $token->[2]->{'exclude'};
                   1022:         my %languages=&Apache::loncommon::display_languages();
                   1023:         $result='1';
                   1024: 	if ($include) {
                   1025:             $result='';
                   1026:             foreach (split(/\,/,$include)) {
                   1027:                 if ($languages{$_}) { $result='1'; }
                   1028:             }
                   1029: 	}
                   1030:         if ($exclude) {
                   1031:             foreach (split(/\,/,$exclude)) {
                   1032:                 if ($languages{$_}) { $result='0'; }
                   1033:             }
                   1034: 	}
                   1035: 	if ( ! $result ) {
                   1036: 	    my $skip=&Apache::lonxml::get_all_text("/languageblock",$parser,
                   1037: 						   $style);
                   1038: 	    &Apache::lonxml::debug("skipping ahead :$skip: $$parser[-1]");
                   1039: 	}
                   1040: 	$result='';
1.167     www      1041:     } elsif ($target eq 'edit') {
                   1042: 	$result .=&Apache::edit::tag_start($target,$token);
1.211     albertel 1043: 	$result .=&Apache::edit::text_arg(&mt('Include Language:'),'include',
1.167     www      1044: 					  $token,40);
1.211     albertel 1045: 	$result .=&Apache::edit::text_arg(&mt('Exclude Language:'),'exclude',
1.167     www      1046: 					  $token,40);
                   1047: 	$result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
                   1048:     } elsif ($target eq 'modified') {
                   1049: 	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
1.168     albertel 1050: 						     $safeeval,'include',
                   1051: 						     'exclude');
1.167     www      1052: 	if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
                   1053:     }
                   1054:     return $result;
                   1055: }
                   1056: 
                   1057: sub end_languageblock {
1.170     www      1058:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   1059:     my $result;
1.201     albertel 1060:     if ($target eq "edit") {
1.170     www      1061: 	$result.= &Apache::edit::tag_end($target,$token,'');
                   1062:     }
                   1063:     return $result;
                   1064: }
                   1065: 
                   1066: sub start_instructorcomment {
1.201     albertel 1067:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.170     www      1068: 
                   1069:     my $result;
                   1070: 
                   1071:     if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
                   1072: 	$target eq 'tex' || $target eq 'analyze') {
1.284     albertel 1073:         $result=($env{'request.role'}=~/^(in|cc|au|ca|li)/);
                   1074: 	if ( (! $result) or ($env{'form.instructor_comments'} eq 'hide')) {
1.201     albertel 1075: 	    my $skip=&Apache::lonxml::get_all_text("/instructorcomment",
                   1076: 						   $parser,$style);
1.170     www      1077: 	    &Apache::lonxml::debug("skipping ahead :$skip: $$parser[-1]");
                   1078: 	}
                   1079: 	$result='';
                   1080:     } elsif ($target eq 'edit') {
                   1081: 	$result .=&Apache::edit::tag_start($target,$token);
                   1082: 	$result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
                   1083:     }
                   1084:     return $result;
                   1085: }
                   1086: 
                   1087: sub end_instructorcomment {
1.159     albertel 1088:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.160     albertel 1089:     my $result;
                   1090:     if ($target eq "edit") {
                   1091: 	$result.= &Apache::edit::tag_end($target,$token,'');
                   1092:     }
                   1093:     return $result;
1.4       tsai     1094: }
                   1095: 
                   1096: sub start_while {
1.326     albertel 1097:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.159     albertel 1098: 
1.160     albertel 1099:     my $result;
1.161     albertel 1100:     if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
1.160     albertel 1101: 	$target eq 'tex' || $target eq 'analyze') {
                   1102: 	my $code = $token->[2]->{'condition'};
1.4       tsai     1103: 
1.160     albertel 1104: 	push( @Apache::structuretags::whileconds, $code);
                   1105: 	if (!$Apache::lonxml::default_homework_loaded) {
                   1106: 	    &Apache::lonxml::default_homework_load($safeeval);
                   1107: 	}
                   1108: 	my $result = &Apache::run::run($code,$safeeval);
1.326     albertel 1109: 	my $bodytext=&Apache::lonxml::get_all_text("/while",$parser,$style);
1.160     albertel 1110: 	push( @Apache::structuretags::whilebody, $bodytext);
1.161     albertel 1111: 	push( @Apache::structuretags::whileline, $token->[5]);
                   1112: 	&Apache::lonxml::debug("s code $code got -$result-");
1.160     albertel 1113: 	if ( $result ) {
                   1114: 	    &Apache::lonxml::newparser($parser,\$bodytext);
                   1115: 	}
                   1116:     } elsif ($target eq 'edit') {
                   1117: 	$result .=&Apache::edit::tag_start($target,$token);
1.211     albertel 1118: 	$result .=&Apache::edit::text_arg(&mt('Test Condition:'),'condition',
1.160     albertel 1119: 					  $token,40);
                   1120: 	$result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
                   1121:     } elsif ($target eq 'modified') {
                   1122: 	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
                   1123: 						     $safeeval,'condition');
                   1124: 	if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
1.159     albertel 1125:     }
1.160     albertel 1126:     return $result;
1.4       tsai     1127: }
                   1128: 
                   1129: sub end_while {
1.159     albertel 1130:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.160     albertel 1131:     my $result;
                   1132: 
                   1133:     if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
                   1134: 	$target eq 'tex' || $target eq 'analyze') {
                   1135: 	my $code = pop(@Apache::structuretags::whileconds);
                   1136: 	my $bodytext = pop(@Apache::structuretags::whilebody);
1.161     albertel 1137: 	my $line = pop(@Apache::structuretags::whileline);
                   1138: 	my $return = &Apache::run::run($code,$safeeval);
                   1139: 	my $starttime=time;
                   1140: 	my $error=0;
                   1141: 	while ($return) {
                   1142: 	    if (time-$starttime >
                   1143: 		$Apache::lonnet::perlvar{'lonScriptTimeout'}) {
1.270     albertel 1144: 		#$return = 0; $error=1; next;
1.161     albertel 1145: 	    }
                   1146: 	    $result.=&Apache::scripttag::xmlparse($bodytext);
                   1147: 	    $return = &Apache::run::run($code,$safeeval);
                   1148: 	}
                   1149: 	if ($error) {
1.270     albertel 1150: 	    &Apache::lonxml::error('<pre>'.&mt('Code ran too long. It ran for more than').' '.$Apache::lonnet::perlvar{'lonScriptTimeout'}.' '.&mt('seconds occured while running &lt;while&gt; on line').' '.$line.'</pre>');
1.160     albertel 1151: 	}
                   1152:     } elsif ($target eq "edit") {
                   1153: 	$result.= &Apache::edit::tag_end($target,$token,'');
1.159     albertel 1154:     }
1.160     albertel 1155:     return $result;
1.1       albertel 1156: }
1.6       tsai     1157: 
1.160     albertel 1158: # <randomlist show="1">
1.6       tsai     1159: #  <tag1>..</tag1>
                   1160: #  <tag2>..</tag2>
                   1161: #  <tag3>..</tag3>
1.160     albertel 1162: #  ...
1.6       tsai     1163: # </randomlist>
                   1164: sub start_randomlist {
1.326     albertel 1165:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.159     albertel 1166:     my $result;
                   1167:     if ($target eq 'answer' || $target eq 'grade' || $target eq 'web' ||
                   1168: 	$target eq 'tex' || $target eq 'analyze') {
1.331   ! albertel 1169: 	my $body= &Apache::lonxml::get_all_text("/randomlist",$parser);
1.305     albertel 1170: 	my $b_parser= HTML::LCParser->new(\$body);
                   1171: 	$b_parser->xml_mode(1);
                   1172: 	$b_parser->marked_sections(1);
1.159     albertel 1173: 	my $b_tok;
                   1174: 	my @randomlist;
                   1175: 	my $list_item;
                   1176: 	while($b_tok = $b_parser->get_token() ) {
                   1177: 	    if($b_tok->[0] eq 'S') { # start tag
                   1178: 		# get content of the tag until matching end tag
                   1179: 		# get all text upto the matching tag
                   1180: 		# and push the content into @randomlist
                   1181: 		$list_item = &Apache::lonxml::get_all_text('/'.$b_tok->[1],
                   1182: 							   $b_parser);
                   1183: 		$list_item = "$b_tok->[4]"."$list_item"."</$b_tok->[1]>";
                   1184: 		push(@randomlist,$list_item);
                   1185: 		#  print "<br /><b>START-TAG $b_tok->[1], $b_tok->[4],
                   1186:                 #         $list_item</b>";
                   1187: 	    }
                   1188: 	    if($b_tok->[0] eq 'T') { # text
                   1189: 		# what to do with text in between tags?
                   1190: 		#  print "<b>TEXT $b_tok->[1]</b><br />";
                   1191: 	    }
                   1192: 	    # if($b_tok->[0] eq 'E') { # end tag, should not happen
                   1193: 	    #  print "<b>END-TAG $b_tok->[1]</b><br />";
                   1194: 	    # }
                   1195: 	}
1.303     albertel 1196: 	if (@randomlist) {
                   1197: 	    my @idx_arr = (0 .. $#randomlist);
                   1198: 	    &Apache::structuretags::shuffle(\@idx_arr);
                   1199: 	    my $bodytext = '';
                   1200: 	    my $show=$#randomlist;
                   1201: 	    my $showarg=&Apache::lonxml::get_param('show',$parstack,$safeeval);
                   1202: 	    $showarg--;
                   1203: 	    if ( ($showarg >= 0) && ($showarg < $show) ) { $show = $showarg; }
                   1204: 	    for(0 .. $show) {
                   1205: 		$bodytext .= "$randomlist[ $idx_arr[$_] ]";
                   1206: 	    }
                   1207: 	    &Apache::lonxml::newparser($parser,\$bodytext);
1.159     albertel 1208: 	}
                   1209:     } elsif ($target eq 'edit' ) {
                   1210: 	$result .=&Apache::edit::tag_start($target,$token);
                   1211: 	$result .=&Apache::edit::text_arg('Maximum Tags to Show:','show',
                   1212: 					   $token,5);
                   1213: 	$result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
                   1214:     } elsif ($target eq 'modified' ) {
                   1215: 	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
                   1216: 						     $safeeval,'show');
                   1217: 	if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
                   1218:     }
                   1219:     return $result;
1.7       tsai     1220: }
                   1221: 
                   1222: sub shuffle {
                   1223:     my $a=shift;
                   1224:     my $i;
1.303     albertel 1225:     if (ref($a) eq 'ARRAY' && @$a) {
1.251     albertel 1226: 	&Apache::response::pushrandomnumber();
1.159     albertel 1227: 	for($i=@$a;--$i;) {
                   1228: 	    my $j=int(&Math::Random::random_uniform() * ($i+1));
                   1229: 	    next if $i == $j;
                   1230: 	    @$a[$i,$j] = @$a[$j,$i];
                   1231: 	}
1.251     albertel 1232: 	&Apache::response::poprandomnumber();
1.7       tsai     1233:     }
1.6       tsai     1234: }
                   1235: 
                   1236: sub end_randomlist {
1.159     albertel 1237:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   1238:     my $result;
                   1239:     if ($target eq 'edit' ) {
                   1240: 	$result=&Apache::edit::tag_end($target,$token,
                   1241: 				       'End Randomly Parsed Block');
                   1242:     }
                   1243:     return $result;
1.6       tsai     1244: }
                   1245: 
1.283     albertel 1246: sub ordered_show_check {
                   1247:     my $last_part=$Apache::inputtags::partlist[-2];
                   1248:     my $in_order=
                   1249: 	&Apache::lonnet::EXT('resource.'.$Apache::inputtags::part.'.ordered');
                   1250:     my $in_order_show=1;
                   1251:     if ($last_part ne '0' && lc($in_order) eq 'yes') {
                   1252: 	$in_order_show=&Apache::response::check_status($last_part);
                   1253:     }
                   1254:     return $in_order_show;
                   1255: }
                   1256: 
1.11      albertel 1257: sub start_part {
1.326     albertel 1258:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.321     albertel 1259:     if (!$Apache::lonxml::metamode) {
                   1260: 	&Apache::lonxml::startredirection(); # we'll use redirection to fix up 
                   1261: 	                                     # duedates.
                   1262:     }
1.159     albertel 1263:     my $result='';
                   1264:     my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval);
1.296     albertel 1265:     if ($id =~ /^\s*$/) { $id = $Apache::lonxml::curdepth; }
1.159     albertel 1266:     $Apache::inputtags::part=$id;
1.177     albertel 1267:     push(@Apache::inputtags::partlist,$id);
                   1268:     @Apache::inputtags::response=();
1.159     albertel 1269:     @Apache::inputtags::previous=();
                   1270:     @Apache::inputtags::previous_version=();
1.241     albertel 1271:     $Apache::lonhomework::problemstatus=&get_problem_status($id);
1.159     albertel 1272:     my $hidden=&Apache::loncommon::check_if_partid_hidden($Apache::inputtags::part);
1.259     albertel 1273:     my $newtype=&Apache::lonnet::EXT("resource.$id.type");
                   1274:     if ($newtype) { $Apache::lonhomework::type=$newtype; }
1.283     albertel 1275:     my $in_order_show=&ordered_show_check();
1.214     albertel 1276:     my $expression='$external::part=\''.$Apache::inputtags::part.'\';';
1.259     albertel 1277:     $expression.='$external::type=\''.$Apache::lonhomework::type.'\';';
1.209     albertel 1278:     &Apache::run::run($expression,$safeeval);
1.159     albertel 1279: 
                   1280:     if ($target eq 'meta') {
1.224     www      1281: 	my $display=&Apache::lonxml::get_param('display',$parstack,$safeeval);
                   1282: 	return &Apache::response::mandatory_part_meta.
                   1283: 	       &Apache::response::meta_parameter_write('display','string',$display,'Part Description');
1.159     albertel 1284:     } elsif ($target eq 'web' || $target eq 'grade' ||
                   1285: 	     $target eq 'answer' || $target eq 'tex') {
1.283     albertel 1286: 	if ($hidden || !$in_order_show) {
1.326     albertel 1287: 	    my $bodytext=&Apache::lonxml::get_all_text("/part",$parser,$style);
1.159     albertel 1288: 	} else {
                   1289: 	    my ($status,$accessmsg) = &Apache::lonhomework::check_access($id);
                   1290: 	    push (@Apache::inputtags::status,$status);
                   1291: 	    my $expression='$external::datestatus="'.$status.'";';
                   1292: 	    $expression.='$external::gradestatus="'.$Apache::lonhomework::history{"resource.$id.solved"}.'";';
                   1293: 	    &Apache::run::run($expression,$safeeval);
1.284     albertel 1294: 	    if ($env{'request.state'} eq 'construct') {
1.241     albertel 1295: 		&set_problem_state($Apache::inputtags::part); 
1.240     albertel 1296: 	    }
1.216     albertel 1297: 	    if (( $status eq 'CLOSED' ) ||
                   1298: 		( $status eq 'UNCHECKEDOUT') ||
1.252     albertel 1299: 		( $status eq 'NOT_YET_VIEWED') ||
1.216     albertel 1300: 		( $status eq 'BANNED') ||
                   1301: 		( $status eq 'UNAVAILABLE') ||
                   1302: 		( $status eq 'INVALID_ACCESS')) {
1.326     albertel 1303: 		my $bodytext=&Apache::lonxml::get_all_text("/part",$parser,
                   1304: 							   $style);
1.159     albertel 1305: 		if ( $target eq "web" ) {
1.211     albertel 1306: 		    $result="<br />".&mt('Part is not open to be viewed. It')." $accessmsg<br />";
1.159     albertel 1307: 		} elsif ( $target eq 'tex' ) {
1.284     albertel 1308: 		    if (not $env{'form.problem_split'}=~/yes/) {
1.211     albertel 1309: 			$result="\\end{minipage}\\vskip 0 mm ".&mt('Part is not open to be viewed. It')." $accessmsg \\\\\\begin{minipage}{\\textwidth}";
1.195     sakharuk 1310: 		    } else {
1.211     albertel 1311: 			$result="\\vskip 0 mm ".&mt('Part is not open to be viewed. It')." $accessmsg \\\\";
1.195     sakharuk 1312: 		    }
1.159     albertel 1313: 		}
                   1314: 	    } else {
                   1315: 		if ($target eq 'tex') {
1.284     albertel 1316: 		    if (not $env{'form.problem_split'}=~/yes/) {
1.264     sakharuk 1317: 			if ($$tagstack[-2] eq 'td') {
                   1318: 			    $result.='\vskip 0 mm \noindent \begin{minipage}{\textwidth}\noindent';
                   1319: 			} else {
                   1320: 			    $result.='\noindent \end{minipage}\vskip 0 mm \noindent \begin{minipage}{\textwidth}\noindent';
                   1321: 			}
1.195     sakharuk 1322: 		    }
1.159     albertel 1323: 		    my $weight = &Apache::lonnet::EXT("resource.$id.weight");
1.284     albertel 1324: 		    my $allkeys=&Apache::lonnet::metadata($env{'request.uri'},'packages');
1.222     sakharuk 1325: 		    my @allkeys = split /,/,$allkeys;
                   1326: 		    my $allow_print_points = 0;
                   1327: 		    foreach my $partial_key (@allkeys) {
1.230     albertel 1328: 			if ($partial_key=~m/^part_(.*)$/) {
1.222     sakharuk 1329: 			    if ($1 ne '0') {$allow_print_points=1;}
                   1330: 			}
                   1331: 		    }
1.275     albertel 1332: 		    my $maxtries = &Apache::lonnet::EXT("resource.$id.maxtries");
                   1333: 		    if (defined($maxtries) && $maxtries < 0) {
                   1334: 			$allow_print_points=0;
                   1335: 		    }
1.302     albertel 1336: 		    if (lc($env{'course.'.$env{'request.course.id'}.
                   1337: 				    '.disableexampointprint'}) eq 'yes') {
                   1338: 			$allow_print_points=0;
                   1339: 		    }
1.222     sakharuk 1340: 		    if (($Apache::lonhomework::type eq 'exam') && ($allow_print_points)) { $result .= '\fbox{\textit{'.$weight.' pt}}';}
1.233     www      1341: 		} elsif ($target eq 'web') {
                   1342: 		    $result.='<a name="'.&Apache::lonnet::escape($Apache::inputtags::part).'" />';
1.159     albertel 1343: 		}
                   1344: 	    }
                   1345: 	}
                   1346:     } elsif ($target eq 'edit') {
                   1347: 	$result.=&Apache::edit::tag_start($target,$token);
                   1348: 	$result.=&Apache::edit::text_arg('Part ID:','id',$token).
                   1349: 	    &Apache::loncommon::help_open_topic("Part_Tag_Edit_Help").
1.224     www      1350: 	    '&nbsp;&nbsp;'.
                   1351: &Apache::edit::text_arg('Displayed Part Description:','display',$token).
1.159     albertel 1352: 		&Apache::edit::end_row().&Apache::edit::start_spanning_row();
                   1353:     } elsif ($target eq 'modified') {
                   1354: 	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
1.225     albertel 1355: 						     $safeeval,'id','display');
1.159     albertel 1356: 	if ($constructtag) {
1.225     albertel 1357: 	    #limiting ids to only letters numbers, and space
1.224     www      1358: 	    $token->[2]->{'id'}=~s/[^A-Za-z0-9 ]//gs;
1.159     albertel 1359: 	    $result = &Apache::edit::rebuild_tag($token);
                   1360: 	    $result.=&Apache::edit::handle_insert();
                   1361: 	}
                   1362:     }
                   1363:     return $result;
1.11      albertel 1364: }
                   1365: 
                   1366: sub end_part {
1.159     albertel 1367:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   1368:     &Apache::lonxml::debug("in end_part $target ");
                   1369:     my $status=$Apache::inputtags::status['-1'];
                   1370:     my $hidden=&Apache::loncommon::check_if_partid_hidden($Apache::inputtags::part);
1.283     albertel 1371:     my $in_order_show=&ordered_show_check();
1.321     albertel 1372:     my $result;
                   1373:     if (!$Apache::lonxml::metamode) {
                   1374: 	$result = &Apache::lonxml::endredirection(); # started in &start_part
1.329     albertel 1375: 	$Apache::lonxml::post_evaluate=0;
1.321     albertel 1376:     }
1.312     albertel 1377:     if ($target eq 'grade') {
1.249     albertel 1378: 	if (($status eq 'CAN_ANSWER' || $Apache::lonhomework::scantronmode) &&
1.283     albertel 1379: 	    !$hidden && $in_order_show) {
1.311     foxr     1380: 	    $result.=&Apache::inputtags::grade;
1.249     albertel 1381: 	} else {
                   1382: 	    # move any submission data to .hidden
                   1383: 	    &Apache::inputtags::hidealldata($Apache::inputtags::part);
                   1384: 	}
1.283     albertel 1385:     } elsif (($target eq 'web' || $target eq 'tex') &&
                   1386: 	     !$hidden && $in_order_show) {
1.159     albertel 1387: 	my $gradestatus=&Apache::inputtags::gradestatus($Apache::inputtags::part,
                   1388: 							$target);
1.212     albertel 1389: 	if ($Apache::lonhomework::type eq 'exam' && $target eq 'tex') {
                   1390: 	    $gradestatus='';
                   1391: 	}
1.311     foxr     1392: 	$result.=$gradestatus;
1.265     sakharuk 1393: 	if ($$tagstack[-2] eq 'td' and $target eq 'tex') {$result.='\end{minipage}';} 
1.181     albertel 1394:     } elsif ($target eq 'edit') {
1.311     foxr     1395: 	$result.=&Apache::edit::end_table();
1.322     albertel 1396:     } elsif ($target eq 'modified') {
                   1397: 	 $result .= $token->[2];
                   1398: 	 $result.=&Apache::edit::handle_insertafter($token->[1]);
1.159     albertel 1399:     }
                   1400:     pop @Apache::inputtags::status;
                   1401:     $Apache::inputtags::part='';
1.295     albertel 1402:     $Apache::lonhomework::type = $Apache::lonhomework::default_type;
1.159     albertel 1403:     return $result;
1.11      albertel 1404: }
1.1       albertel 1405: 
1.25      albertel 1406: sub start_preduedate {
1.326     albertel 1407:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.159     albertel 1408:     if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' || $target eq 'tex') {
1.236     albertel 1409: 	&Apache::lonxml::debug("State in preduedate is ". $Apache::inputtags::status['-1']);
1.300     albertel 1410: 	if (!$Apache::lonhomework::scantronmode &&
                   1411: 	    $Apache::inputtags::status['-1'] ne 'CAN_ANSWER' &&
1.236     albertel 1412: 	    $Apache::inputtags::status['-1'] ne 'CANNOT_ANSWER') {
                   1413: 	    &Apache::lonxml::debug("Wha? ". ($Apache::inputtags::status['-1'] ne 'SHOW_ANSWER'));
1.326     albertel 1414: 	    &Apache::lonxml::get_all_text("/preduedate",$parser,$style);
1.159     albertel 1415: 	}
1.24      albertel 1416:     }
1.159     albertel 1417:     return '';
1.24      albertel 1418: }
                   1419: 
1.25      albertel 1420: sub end_preduedate {
1.159     albertel 1421:     return '';
1.24      albertel 1422: }
                   1423: 
1.25      albertel 1424: sub start_postanswerdate {
1.326     albertel 1425:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.234     albertel 1426:     if ($target eq 'web' || $target eq 'grade') {
1.300     albertel 1427: 	if ($Apache::lonhomework::scantronmode ||
                   1428: 	    $Apache::inputtags::status['-1'] ne 'SHOW_ANSWER') {
1.326     albertel 1429: 	    &Apache::lonxml::get_all_text("/postanswerdate",$parser,$style);
1.159     albertel 1430: 	}
                   1431:     } elsif ($target eq 'tex') {
1.326     albertel 1432: 	&Apache::lonxml::get_all_text("/postanswerdate",$parser,$style);
1.159     albertel 1433:     }
                   1434:     return '';
1.24      albertel 1435: }
                   1436: 
1.25      albertel 1437: sub end_postanswerdate {
1.159     albertel 1438:     return '';
1.24      albertel 1439: }
                   1440: 
1.25      albertel 1441: sub start_notsolved {
1.326     albertel 1442:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.159     albertel 1443:     if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
                   1444: 	$target eq 'tex') {
                   1445: 	my $gradestatus=$Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"};
                   1446: 	&Apache::lonxml::debug("not solved has :$gradestatus:");
1.239     albertel 1447: 	if ($gradestatus =~ /^correct/ &&
                   1448: 	    &Apache::response::show_answer()) {
1.159     albertel 1449: 	    &Apache::lonxml::debug("skipping");
1.326     albertel 1450: 	    &Apache::lonxml::get_all_text("/notsolved",$parser,$style);
1.159     albertel 1451: 	}
1.24      albertel 1452:     }
1.159     albertel 1453:     return '';
1.24      albertel 1454: }
                   1455: 
1.25      albertel 1456: sub end_notsolved {
1.159     albertel 1457:     return '';
1.24      albertel 1458: }
                   1459: 
                   1460: sub start_solved {
1.326     albertel 1461:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.159     albertel 1462:     if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
                   1463: 	$target eq 'tex') {
                   1464: 	my $gradestatus=$Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"};
1.239     albertel 1465: 	if ($gradestatus !~ /^correct/ ||
                   1466: 	    !&Apache::response::show_answer()) {
1.326     albertel 1467: 	    &Apache::lonxml::get_all_text("/solved",$parser,$style);
1.159     albertel 1468: 	}
1.24      albertel 1469:     }
1.159     albertel 1470:     return '';
1.24      albertel 1471: }
                   1472: 
                   1473: sub end_solved {
1.248     albertel 1474:     return '';
                   1475: }
                   1476: 
                   1477: sub start_problemtype {
1.326     albertel 1478:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.248     albertel 1479:     my $result;
                   1480:     if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
                   1481: 	$target eq 'tex' || $target eq 'analyze') {
                   1482: 	my $mode=lc(&Apache::lonxml::get_param('mode',$parstack,$safeeval));
                   1483: 	if (!defined($mode)) { $mode='show'; }
                   1484: 	my $for=&Apache::lonxml::get_param('for',$parstack,$safeeval);
                   1485: 	my $found=0;
                   1486: 	foreach my $type (split(',',$for)) {
                   1487: 	    if ($Apache::lonhomework::type eq lc($type)) { $found=1; }
                   1488: 	}
                   1489: 	if ($mode eq 'show' && !$found) {
1.326     albertel 1490: 	    &Apache::lonxml::get_all_text("/problemtype",$parser,$style);
1.248     albertel 1491: 	}
                   1492: 	if ($mode eq 'hide' && $found) {
1.326     albertel 1493: 	    &Apache::lonxml::get_all_text("/problemtype",$parser,$style);
1.248     albertel 1494: 	}
                   1495:     } elsif ($target eq 'edit') {
                   1496: 	$result .=&Apache::edit::tag_start($target,$token);
                   1497: 	$result.=&Apache::edit::select_arg('Mode:','mode',
                   1498: 					   [['show','Show'],
                   1499: 					    ['hide','Hide']]
                   1500: 					   ,$token);
                   1501: 	$result .=&Apache::edit::checked_arg('When used as type(s):','for',
                   1502: 					     [ ['exam','Exam/Quiz Problem'],
                   1503: 					       ['survey','Survey'],
                   1504: 					       ['problem','Homework Problem'] ]
                   1505: 					     ,$token);
                   1506: 	$result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
                   1507:     } elsif ($target eq 'modified') {
                   1508: 	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
                   1509: 						     $safeeval,'mode','for');
                   1510: 	if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
                   1511:     }
                   1512:     return $result;
                   1513: }
                   1514: 
                   1515: sub end_problemtype {
1.159     albertel 1516:     return '';
1.24      albertel 1517: }
1.34      albertel 1518: 
                   1519: sub start_startouttext {
1.159     albertel 1520:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   1521:     my @result=(''.'');
                   1522:     if ($target eq 'edit' || $target eq 'modified' ) { @result=('','no'); }
                   1523:     return (@result);
1.34      albertel 1524: }
1.159     albertel 1525: 
1.34      albertel 1526: sub end_startouttext {
1.326     albertel 1527:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.159     albertel 1528:     my $result='';
                   1529:     my $text='';
                   1530: 
                   1531:     if ($target eq 'edit') {
1.326     albertel 1532: 	$text=&Apache::lonxml::get_all_text("endouttext",$parser,$style);
1.211     albertel 1533: 	$result.=&Apache::edit::start_table($token)."<tr><td>".&mt('Text Block')."</td>
                   1534: <td>".&mt('Delete:').
1.159     albertel 1535:                  &Apache::edit::deletelist($target,$token)
                   1536: 		 ."</td>
1.42      albertel 1537: <td>".
1.159     albertel 1538:                  &Apache::edit::insertlist($target,$token).
                   1539: 		 &Apache::edit::end_row().
                   1540:                  &Apache::edit::start_spanning_row()."\n"
1.188     bowersj2 1541: 		 . &Apache::loncommon::helpLatexCheatsheet () .
1.255     www      1542: 		 &Apache::edit::editfield($token->[1],$text,"",80,8,1);
1.159     albertel 1543:     }
                   1544:     if ($target eq 'modified') {
1.219     albertel 1545: 	$result='<startouttext />'.&Apache::edit::modifiedfield("endouttext",$parser);
1.159     albertel 1546:     }
                   1547:     if ($target eq 'tex') {
                   1548: 	$result .= '\noindent ';
                   1549:     }
                   1550:     return $result;
1.34      albertel 1551: }
1.159     albertel 1552: 
1.34      albertel 1553: sub start_endouttext {
1.159     albertel 1554:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   1555:     my $result='';
                   1556:     if ($target eq "edit" ) { $result="</td></tr>".&Apache::edit::end_table()."\n"; }
                   1557:     if ($target eq "modified") {
                   1558: 	$result='<endouttext />'.
                   1559: 	    &Apache::edit::handle_insertafter('startouttext'); }
                   1560:     return $result;
1.34      albertel 1561: }
1.159     albertel 1562: 
1.34      albertel 1563: sub end_endouttext {
1.159     albertel 1564:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   1565:     my @result=('','');
                   1566:     if ($target eq "edit" || $target eq 'modified') { @result=('','no'); }
                   1567:     return (@result);
1.34      albertel 1568: }
1.159     albertel 1569: 
1.45      albertel 1570: sub delete_startouttext {
1.326     albertel 1571:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
                   1572:     #  my $text=&Apache::lonxml::get_all_text("endouttext",$parser,$style);
1.159     albertel 1573:     my $text=$$parser['-1']->get_text("/endouttext");
                   1574:     my $ntoken=$$parser['-1']->get_token();
                   1575:     &Apache::lonxml::debug("Deleting :$text: and :$ntoken->[0]:$ntoken->[1]:$ntoken->[2]: for startouttext");
                   1576:     &Apache::lonxml::end_tag($tagstack,$parstack,$ntoken);
                   1577:     # Deleting 2 parallel tag pairs, but we need the numbers later to look like
                   1578:     # they did the last time round
                   1579:     &Apache::lonxml::increasedepth($ntoken);
                   1580:     &Apache::lonxml::decreasedepth($ntoken);
                   1581:     return 1;
1.193     www      1582: }
                   1583: 
                   1584: sub start_simpleeditbutton {
                   1585:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   1586:     my $result='';
1.284     albertel 1587:     if (($env{'form.simple_edit_button'} ne 'off') &&
1.273     albertel 1588: 	($target eq 'web') &&
1.330     albertel 1589:         (&Apache::lonnet::allowed('mdc',$env{'request.course.id'}))) {
1.284     albertel 1590:         my $url=$env{'request.noversionuri'};
1.193     www      1591:         $url=~s/\?.*$//;
1.278     albertel 1592: 	my ($symb) = &Apache::lonxml::whichuser();
1.194     www      1593: 	$result='<table width="100%" bgcolor="#FFFFAA" border="2"><tr><td>'.
1.278     albertel 1594:                 '<a href="'.$url.'/smpedit?symb='.&Apache::lonnet::escape($symb).'">'.&mt('Edit').'</a> - '.&mt('Note: it can take up to 10 minutes for changes to take effect for all users.').
1.196     www      1595: &Apache::loncommon::help_open_topic('Caching').'</td></tr></table><br />';
1.193     www      1596:     }
                   1597:     return $result;
                   1598: }
                   1599: 
                   1600: sub end_simpleeditbutton {
                   1601:     return '';
1.45      albertel 1602: }
1.34      albertel 1603: 
1.1       albertel 1604: 1;
                   1605: __END__

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