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

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.332   ! albertel    4: # $Id: structuretags.pm,v 1.331 2006/01/18 20:16:43 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.332   ! albertel  559: 	&Apache::lonxml::debug("Found this to be of type :$Apache::lonhomework::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') {
1.332   ! albertel  661: 		my $startminipage = ($env{'form.problem_split'}=~/yes/i)? ''
        !           662: 		                    : '\begin{minipage}{\textwidth}';
        !           663: 		$result.='\begin{document}\noindent \vskip 1 mm '.
        !           664: 		    $startminipage.'\vskip 0 mm';
1.159     albertel  665: 		if ($status eq 'UNAVAILABLE') {
1.211     albertel  666: 		    $result.=&mt('Unable to determine if this resource is open due to network problems. Please try again later.').'\vskip 0 mm ';
1.159     albertel  667: 		} else {
1.211     albertel  668: 		    $result.=&mt('Problem is not open to be viewed. It')." $accessmsg \\vskip 0 mm ";
1.159     albertel  669: 		}
                    670: 	    }
1.324     albertel  671: 	} elsif ($status eq 'NEEDS_CHECKIN') {
1.326     albertel  672: 	    my $bodytext=&Apache::lonxml::get_all_text("/problem",$parser,
                    673: 						       $style);
1.324     albertel  674: 	    if ($target eq 'web') {
                    675: 		$result .= $head_tag_start.'</head>';
                    676: 		$result .= $body_tag_start;
                    677: 		$result .= &Apache::bridgetask::proctor_validation_screen();
                    678: 	    } elsif ($target eq 'grade') {
                    679: 		&Apache::bridgetask::proctor_check_auth($slot_name,$slot,
                    680: 							'problem');
                    681: 	    }
1.159     albertel  682: 	} elsif ($target eq 'web') {
                    683: 	    my $name= &get_resource_name($parstack,$safeeval);
1.227     albertel  684: 	    $result.="$head_tag_start<title>$name</title></head>
1.158     sakharuk  685:               $body_tag_start \n $form_tag_start".	
1.227     albertel  686: 	      '<input type="hidden" name="submitted" value="yes" />';
                    687: 	    # create a page header and exit
1.284     albertel  688: 	    if ($env{'request.state'} eq "construct") {
                    689: 		$result.= &problem_web_to_edit_header($env{'form.rndseed'});
1.227     albertel  690: 	    }
                    691: 	    # if we are viewing someone else preserve that info
1.284     albertel  692: 	    if (defined $env{'form.grade_symb'}) {
1.227     albertel  693: 		foreach my $field ('symb','courseid','domain','username') {
                    694: 		    $result .= '<input type="hidden" name="grade_'.$field.
1.284     albertel  695: 			'" value="'.$env{"form.grade_$field"}.'" />'."\n";
1.159     albertel  696: 		}
                    697: 	    }
                    698: 	} elsif ($target eq 'tex') {
1.319     foxr      699: 	    $result .= 'INSERTTEXFRONTMATTERHERE';
                    700: 
1.99      sakharuk  701: 	}
1.159     albertel  702:     } elsif ($target eq 'edit') {
                    703: 	$result.=$head_tag_start."</head>".$body_tag_start.$form_tag_start.
                    704: 	    &problem_edit_header();
1.226     albertel  705: 	$Apache::lonxml::warnings_error_header=
                    706: 	    &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  707: 	my $temp=&Apache::edit::insertlist($target,$token);
                    708: 	$result.=$temp;
                    709:     } elsif ($target eq 'modified') {
                    710: 	$result=$token->[4];
                    711: 	$result.=&Apache::edit::handle_insert();
                    712:     } else {
                    713: 	# page_start returned a starting result, delete it if we don't need it
                    714: 	$result = '';
1.99      sakharuk  715:     }
1.159     albertel  716:     return $result;
1.9       albertel  717: }
                    718: 
                    719: sub end_problem {
1.159     albertel  720:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.321     albertel  721:     my $result;
1.310     foxr      722: 
1.321     albertel  723:     if (!$Apache::lonxml::metamode) {
                    724: 	$result = &Apache::lonxml::endredirection(); #started in &start_problem
1.329     albertel  725: 	$Apache::lonxml::post_evaluate=0;
1.321     albertel  726:     }
1.319     foxr      727: 
                    728:     if ($target eq 'tex') {
1.321     albertel  729: 
                    730: 	# Figure out the front matter and replace the
                    731: 	# INSERTTEXFRONTMATTERHERE in result with it.  note that we do
                    732: 	# this in end_problem because whether or not we display due
                    733: 	# dates depends on whether due dates have already been
                    734: 	# displayed in the problem parts.
                    735: 
1.319     foxr      736: 	my $frontmatter   = '';
                    737: 	my $startminipage = '';
                    738: 	if (not $env{'form.problem_split'}=~/yes/) {
                    739: 	    $startminipage = '\begin{minipage}{\textwidth}';
                    740: 	}
                    741: 	my $id = $Apache::inputtags::part;
                    742: 	my $weight = &Apache::lonnet::EXT("resource.$id.weight");
                    743: 	my $packages=&Apache::lonnet::metadata($env{'request.uri'},'packages');
                    744: 	my @packages = split /,/,$packages;
                    745: 	my $allow_print_points = 0;
                    746: 	foreach my $partial_key (@packages) {
                    747: 	    if ($partial_key=~m/^part_0$/) {
                    748: 		$allow_print_points=1;
                    749: 	    }
                    750: 	}
                    751: 	my $maxtries = &Apache::lonnet::EXT("resource.$id.maxtries");
                    752: 	if (defined($maxtries) && $maxtries < 0) { $allow_print_points=0; }
                    753: 	if (lc($env{'course.'.$env{'request.course.id'}.
                    754: 			'.disableexampointprint'}) eq 'yes') {
                    755: 	    $allow_print_points=0;
                    756: 	}
                    757: 	my $name_of_resourse= &Apache::lonxml::latex_special_symbols(&get_resource_name($parstack,$safeeval),'header');
                    758: 	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 ';
                    759: 	my $toc_line='\vskip 1 mm\noindent '.$startminipage.
                    760: 	    '\addcontentsline{toc}{subsection}{'.$name_of_resourse.'}';
                    761: 	
                    762: 	#  Figure out what the due date is and if we need to print
                    763: 	#  it in the problem header.  We have been logging the
                    764: 	#  last due date written to file. 
                    765: 	
                    766: 	my $duetime = &Apache::lonnet::EXT("resource.$id.duedate"); 
                    767: 	my $duedate = POSIX::strftime("%c",localtime($duetime));
                    768: 	my $temp_file;
                    769: 	my $filename = "/home/httpd/prtspool/$env{'user.name'}_$env{'user.domain'}_printout.due";
                    770: 	
                    771: 	# Figure out what the last printed due date is or set it
                    772: 	# to the epoch if no duedates have been printed.
                    773: 	
                    774: 	my $due_file_content = 0;      #   If the file does not yet exist, time is the epoch.
                    775: 	if (-e $filename) {
                    776: 	    $temp_file = Apache::File->new($filename);
                    777: 	    my @due_file      = <$temp_file>;
                    778: 	    $due_file_content = $due_file[$#due_file];
                    779: 	    chomp $due_file_content;
                    780: 	} 
                    781: 	
                    782: 	# We display the due date iff it is not the same as the last
                    783: 	# duedate in problem header ($due_file_content), and
                    784: 	# none of our parts displayed a duedate.
                    785: 	#
                    786: 	my $parts_with_displayduedate;
                    787: 	if (defined $Apache::outputtags::showonce{'displayduedate'}) {
                    788: 	    $parts_with_displayduedate = 
                    789: 		scalar(@{$Apache::outputtags::showonce{'displayduedate'}});
                    790: 	} else {
                    791: 	    $parts_with_displayduedate = 0;
                    792: 	}
                    793: 	if (($due_file_content != $duetime) && ($parts_with_displayduedate == 0) ) {
                    794: 	    $temp_file = Apache::File->new('>'.$filename);
                    795: 	    print $temp_file "$duetime\n";
                    796: 	    if (not $env{'request.symb'} =~ m/\.page_/) {
                    797: 		if(not $duedate=~m/1969/ and $Apache::lonhomework::type ne 'exam') {
                    798: 		    $frontmatter .= $begin_doc.
                    799: 			'\textit{Due date: '.$duedate.'} '.$toc_line;
                    800: 		} else {
                    801: 		    $frontmatter.= $begin_doc.$toc_line;
                    802: 		    if ($Apache::lonhomework::type eq 'exam' and $allow_print_points==1) { $frontmatter .= '\fbox{\textit{'.$weight.' pt}}';}
                    803: 		}
                    804: 	    } else {
                    805: 		$frontmatter .= '\vskip 1mm\textit{Due date: '.$duedate.'} \\\\\\\\';
                    806: 	    }
                    807: 	} else {
                    808: 	    if (not $env{'request.symb'} =~ m/\.page_/) {
                    809: 		$frontmatter .= $begin_doc.$toc_line;
                    810: 		if (($Apache::lonhomework::type eq 'exam') and ($allow_print_points==1)) { $frontmatter .= '\fbox{\textit{'.$weight.' pt}}';}
                    811: 	    } else {
                    812: 		$frontmatter .= '\vskip 1mm \\\\\\\\';
                    813: 	    }
                    814: 	}
                    815: 	$result =~ s/INSERTTEXFRONTMATTERHERE/$frontmatter/;
                    816:     }
                    817: 
1.159     albertel  818:     my $status=$Apache::inputtags::status['-1'];
                    819:     if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' ||
                    820: 	$target eq 'tex') {
1.249     albertel  821: 	if ( $target eq 'grade' && $Apache::inputtags::part eq '0') {
1.159     albertel  822: 	    # if part is zero, no <part>s existed, so we need to the grading
1.249     albertel  823: 	    if ($status eq 'CAN_ANSWER' ||$Apache::lonhomework::scantronmode) {
                    824: 		&Apache::inputtags::grade;
1.324     albertel  825: 	    } elsif ($status eq 'NEEDS_CHECKIN') {
                    826: 		# no need to grade, and don't want to hide data
1.249     albertel  827: 	    } else {
                    828: 		# move any submission data to .hidden
                    829: 		&Apache::inputtags::hidealldata($Apache::inputtags::part);
                    830: 	    }
1.159     albertel  831: 	} elsif ( ($target eq 'web' || $target eq 'tex') &&
                    832: 		  $Apache::inputtags::part eq '0' &&
1.252     albertel  833: 		  $status ne 'UNCHECKEDOUT' && $status ne 'NOT_YET_VIEWED') {
1.159     albertel  834: 	    # if part is zero, no <part>s existed, so we need show the current
                    835: 	    # grading status
                    836: 	    my $gradestatus = &Apache::inputtags::gradestatus($Apache::inputtags::part,$target);
                    837: 	    $result.= $gradestatus;
                    838: 	}
                    839: 	if (
1.284     albertel  840: 	    (($target eq 'web') && ($env{'request.state'} ne 'construct')) ||
1.159     albertel  841: 	    ($target eq 'answer') || ($target eq 'tex')
                    842: 	   ) {
1.227     albertel  843: 	    if ($target ne 'tex' &&
1.284     albertel  844: 		$env{'form.answer_output_mode'} ne 'tex') {
1.254     www       845: 		$result.="</form>";
                    846: 		$result.=&Apache::lonhtmlcommon::htmlareaselectactive(@Apache::lonxml::htmlareafields);
1.159     albertel  847: 	    }
                    848: 	    if ($target eq 'web') {
1.281     albertel  849: 		$result.=&Apache::lonxml::xmlend().'</html>';
1.159     albertel  850: 	    } elsif ($target eq 'tex') {
1.178     sakharuk  851: 		my $endminipage = '';
1.284     albertel  852: 		if (not $env{'form.problem_split'}=~/yes/) {
1.178     sakharuk  853: 		    $endminipage = '\end{minipage}';
                    854: 		}
1.284     albertel  855:                 if ($env{'form.print_discussions'} eq 'yes') {
1.263     sakharuk  856: 		    $result.=&Apache::lonxml::xmlend($target,$parser);
1.257     sakharuk  857: 		    $result=~s/<\/html>//;
1.159     albertel  858: 		} else {
1.262     sakharuk  859: 		    $result .= '\keephidden{ENDOFPROBLEM}\vskip 0.5mm\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}';
1.284     albertel  860: 		    if (not $env{'request.symb'} =~ m/\.page_/) {
1.262     sakharuk  861: 			$result .= $endminipage.'\end{document} ';
                    862: 		    } else {
                    863: 			$result .= '';
                    864: 		    }
1.159     albertel  865: 		}
                    866: 	    }
                    867: 	}
                    868: 	if ($target eq 'grade') {
                    869: 	    &Apache::lonhomework::showhash(%Apache::lonhomework::results);
                    870: 	    &finalize_storage();
                    871: 	}
1.284     albertel  872: 	if ($target eq 'answer' && ($env{'request.state'} eq 'construct')
                    873: 	    && $env{'form.answer_output_mode'} ne 'tex') {
1.294     albertel  874: 	    $result.=&Apache::lonxml::xmlend().'</html>';
                    875: 	                        # normally we get it from above, but in CSTR
1.172     albertel  876: 	                        # we always show answer mode too.
1.159     albertel  877: 	}
                    878:     } elsif ($target eq 'meta') {
                    879: 	if ($Apache::inputtags::part eq '0') {
1.179     albertel  880: 	    @Apache::inputtags::response=();
1.159     albertel  881: 	    $result=&Apache::response::mandatory_part_meta;
                    882: 	}
1.215     albertel  883: 	$result.=&Apache::response::meta_part_order();
1.258     albertel  884: 	$result.=&Apache::response::meta_response_order();
1.159     albertel  885:     } elsif ($target eq 'edit') {
                    886: 	&Apache::lonxml::debug("in end_problem with $target, edit");
1.314     albertel  887: 	$result .= &problem_edit_footer();
1.320     albertel  888:     } elsif ($target eq 'modified') {
                    889: 	 $result .= $token->[2];
                    890: 	 $result.=&Apache::edit::handle_insertafter($token->[1]);
1.159     albertel  891:     }
1.155     albertel  892: 
1.284     albertel  893:     if ($env{'request.state'} eq 'construct' && $target eq 'web') {
1.177     albertel  894: 	&Apache::inputtags::check_for_duplicate_ids();
                    895:     }
1.204     albertel  896: 
                    897:     &reset_problem_globals('problem');
1.159     albertel  898: 
                    899:     return $result;
1.48      albertel  900: }
                    901: 
1.108     albertel  902: 
1.48      albertel  903: sub start_library {
1.159     albertel  904:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                    905:     my ($result,$head_tag_start,$body_tag_start,$form_tag_start);
1.244     albertel  906:     if ($$tagstack[0] eq 'library') {
                    907: 	&init_problem_globals('library');
                    908: 	$Apache::lonhomework::type='problem';
                    909:     }
1.159     albertel  910:     if ($target eq 'edit') {
                    911: 	($result,$head_tag_start,$body_tag_start,$form_tag_start)=
                    912: 	    &page_start($target,$token,$tagstack,$parstack,$parser,$safeeval);
                    913: 	$result.=$head_tag_start."</head>".$body_tag_start.$form_tag_start.
                    914: 	    &problem_edit_header();
                    915: 	my $temp=&Apache::edit::insertlist($target,$token);
                    916: 	$result.=$temp;
                    917:     } elsif ($target eq 'modified') {
                    918: 	$result=$token->[4];
                    919: 	$result.=&Apache::edit::handle_insert();
                    920:     } elsif ($target eq 'web' && $$tagstack[0] ne 'problem' &&
1.284     albertel  921: 	     $env{'request.state'} eq "construct" ) {
1.159     albertel  922: 	($result,$head_tag_start,$body_tag_start,$form_tag_start)=
                    923: 	    &page_start($target,$token,$tagstack,$parstack,$parser,$safeeval);
                    924: 	my $name=&get_resource_name($parstack,$safeeval);
                    925: 	my $rndseed=&setup_rndseed($safeeval);
                    926: 	$result.="$head_tag_start<title>$name</title></head>
1.105     albertel  927:               $body_tag_start \n $form_tag_start".	
1.159     albertel  928: 		  '<input type="hidden" name="submitted" value="yes" />';
                    929: 	$result.=&problem_web_to_edit_header($rndseed);
                    930:     }
                    931:     return $result;
1.48      albertel  932: }
                    933: 
                    934: sub end_library {
1.159     albertel  935:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                    936:     my $result='';
                    937:     if ($target eq 'edit') {
                    938: 	$result=&problem_edit_footer();
                    939:     } elsif ($target eq 'web' && $$tagstack[0] ne 'problem' &&
1.284     albertel  940: 	     $env{'request.state'} eq "construct") {
1.280     albertel  941: 	$result.='</form>'.&Apache::loncommon::endbodytag().
                    942: 	    &Apache::lonxml::xmlend();
1.159     albertel  943:     }
1.204     albertel  944:     if ($$tagstack[0] eq 'library') { &reset_problem_globals('library') };
1.159     albertel  945:     return $result;
1.197     www       946: }
                    947: 
                    948: sub start_definetag {
1.326     albertel  949:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.197     www       950: 
                    951:     my $result;
                    952: 
                    953:     my $name = $token->[2]->{'name'};
1.326     albertel  954:     my $skip=&Apache::lonxml::get_all_text("/definetag",$parser,$style);
1.197     www       955:     if ($name=~/^\//) {
                    956: 	$result=
                    957:  '<br /><table bgcolor="#FFBBBB"><tr><th>END <tt>'.$name.'</tt></th></tr>';
                    958:     } else {
                    959: 	$result=
                    960:  '<br /><table bgcolor="#BBFFBB"><tr><th>BEGIN <tt>'.$name.'</tt></th></tr>';
                    961:     }
                    962:     $skip=~s/\</\&lt\;/gs;
                    963:     $skip=~s/\>/\&gt\;/gs;
                    964:     $result.='<tr><td><pre>'.$skip.'</pre></td></tr></table>';
                    965:     return $result;
                    966: }
                    967: 
                    968: sub end_definetag {
                    969:     return '';
1.1       albertel  970: }
                    971: 
                    972: sub start_block {
1.201     albertel  973:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.131     albertel  974: 
                    975:     my $result;
1.1       albertel  976: 
1.160     albertel  977:     if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
1.131     albertel  978: 	$target eq 'tex' || $target eq 'analyze') {
1.159     albertel  979: 	my $code = $token->[2]->{'condition'};
1.201     albertel  980: 	if (defined($code)) {
1.137     albertel  981: 	    if (!$Apache::lonxml::default_homework_loaded) {
                    982: 		&Apache::lonxml::default_homework_load($safeeval);
                    983: 	    }
1.131     albertel  984: 	    $result = &Apache::run::run($code,$safeeval);
                    985: 	    &Apache::lonxml::debug("block :$code: returned :$result:");
                    986: 	} else {
                    987: 	    $result='1';
                    988: 	}
                    989: 	if ( ! $result ) {
1.201     albertel  990: 	    my $skip=&Apache::lonxml::get_all_text("/block",$parser,$style);
1.131     albertel  991: 	    &Apache::lonxml::debug("skipping ahead :$skip: $$parser[-1]");
                    992: 	}
                    993: 	$result='';
                    994:     } elsif ($target eq 'edit') {
                    995: 	$result .=&Apache::edit::tag_start($target,$token);
                    996: 	$result .=&Apache::edit::text_arg('Test Condition:','condition',
                    997: 					  $token,40);
                    998: 	$result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
                    999:     } elsif ($target eq 'modified') {
                   1000: 	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
                   1001: 						     $safeeval,'condition');
                   1002: 	if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
1.38      albertel 1003:     }
1.131     albertel 1004:     return $result;
1.1       albertel 1005: }
                   1006: 
                   1007: sub end_block {
1.167     www      1008:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   1009:     my $result;
                   1010:     if ($target eq "edit") {
                   1011: 	$result.= &Apache::edit::tag_end($target,$token,'');
                   1012:     }
                   1013:     return $result;
                   1014: }
                   1015: 
                   1016: sub start_languageblock {
1.201     albertel 1017:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.167     www      1018: 
                   1019:     my $result;
                   1020: 
                   1021:     if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
                   1022: 	$target eq 'tex' || $target eq 'analyze') {
1.201     albertel 1023: 	my $include = $token->[2]->{'include'};
                   1024: 	my $exclude = $token->[2]->{'exclude'};
                   1025:         my %languages=&Apache::loncommon::display_languages();
                   1026:         $result='1';
                   1027: 	if ($include) {
                   1028:             $result='';
                   1029:             foreach (split(/\,/,$include)) {
                   1030:                 if ($languages{$_}) { $result='1'; }
                   1031:             }
                   1032: 	}
                   1033:         if ($exclude) {
                   1034:             foreach (split(/\,/,$exclude)) {
                   1035:                 if ($languages{$_}) { $result='0'; }
                   1036:             }
                   1037: 	}
                   1038: 	if ( ! $result ) {
                   1039: 	    my $skip=&Apache::lonxml::get_all_text("/languageblock",$parser,
                   1040: 						   $style);
                   1041: 	    &Apache::lonxml::debug("skipping ahead :$skip: $$parser[-1]");
                   1042: 	}
                   1043: 	$result='';
1.167     www      1044:     } elsif ($target eq 'edit') {
                   1045: 	$result .=&Apache::edit::tag_start($target,$token);
1.211     albertel 1046: 	$result .=&Apache::edit::text_arg(&mt('Include Language:'),'include',
1.167     www      1047: 					  $token,40);
1.211     albertel 1048: 	$result .=&Apache::edit::text_arg(&mt('Exclude Language:'),'exclude',
1.167     www      1049: 					  $token,40);
                   1050: 	$result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
                   1051:     } elsif ($target eq 'modified') {
                   1052: 	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
1.168     albertel 1053: 						     $safeeval,'include',
                   1054: 						     'exclude');
1.167     www      1055: 	if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
                   1056:     }
                   1057:     return $result;
                   1058: }
                   1059: 
                   1060: sub end_languageblock {
1.170     www      1061:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   1062:     my $result;
1.201     albertel 1063:     if ($target eq "edit") {
1.170     www      1064: 	$result.= &Apache::edit::tag_end($target,$token,'');
                   1065:     }
                   1066:     return $result;
                   1067: }
                   1068: 
                   1069: sub start_instructorcomment {
1.201     albertel 1070:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.170     www      1071: 
                   1072:     my $result;
                   1073: 
                   1074:     if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
                   1075: 	$target eq 'tex' || $target eq 'analyze') {
1.284     albertel 1076:         $result=($env{'request.role'}=~/^(in|cc|au|ca|li)/);
                   1077: 	if ( (! $result) or ($env{'form.instructor_comments'} eq 'hide')) {
1.201     albertel 1078: 	    my $skip=&Apache::lonxml::get_all_text("/instructorcomment",
                   1079: 						   $parser,$style);
1.170     www      1080: 	    &Apache::lonxml::debug("skipping ahead :$skip: $$parser[-1]");
                   1081: 	}
                   1082: 	$result='';
                   1083:     } elsif ($target eq 'edit') {
                   1084: 	$result .=&Apache::edit::tag_start($target,$token);
                   1085: 	$result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
                   1086:     }
                   1087:     return $result;
                   1088: }
                   1089: 
                   1090: sub end_instructorcomment {
1.159     albertel 1091:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.160     albertel 1092:     my $result;
                   1093:     if ($target eq "edit") {
                   1094: 	$result.= &Apache::edit::tag_end($target,$token,'');
                   1095:     }
                   1096:     return $result;
1.4       tsai     1097: }
                   1098: 
                   1099: sub start_while {
1.326     albertel 1100:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.159     albertel 1101: 
1.160     albertel 1102:     my $result;
1.161     albertel 1103:     if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
1.160     albertel 1104: 	$target eq 'tex' || $target eq 'analyze') {
                   1105: 	my $code = $token->[2]->{'condition'};
1.4       tsai     1106: 
1.160     albertel 1107: 	push( @Apache::structuretags::whileconds, $code);
                   1108: 	if (!$Apache::lonxml::default_homework_loaded) {
                   1109: 	    &Apache::lonxml::default_homework_load($safeeval);
                   1110: 	}
                   1111: 	my $result = &Apache::run::run($code,$safeeval);
1.326     albertel 1112: 	my $bodytext=&Apache::lonxml::get_all_text("/while",$parser,$style);
1.160     albertel 1113: 	push( @Apache::structuretags::whilebody, $bodytext);
1.161     albertel 1114: 	push( @Apache::structuretags::whileline, $token->[5]);
                   1115: 	&Apache::lonxml::debug("s code $code got -$result-");
1.160     albertel 1116: 	if ( $result ) {
                   1117: 	    &Apache::lonxml::newparser($parser,\$bodytext);
                   1118: 	}
                   1119:     } elsif ($target eq 'edit') {
                   1120: 	$result .=&Apache::edit::tag_start($target,$token);
1.211     albertel 1121: 	$result .=&Apache::edit::text_arg(&mt('Test Condition:'),'condition',
1.160     albertel 1122: 					  $token,40);
                   1123: 	$result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
                   1124:     } elsif ($target eq 'modified') {
                   1125: 	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
                   1126: 						     $safeeval,'condition');
                   1127: 	if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
1.159     albertel 1128:     }
1.160     albertel 1129:     return $result;
1.4       tsai     1130: }
                   1131: 
                   1132: sub end_while {
1.159     albertel 1133:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.160     albertel 1134:     my $result;
                   1135: 
                   1136:     if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
                   1137: 	$target eq 'tex' || $target eq 'analyze') {
                   1138: 	my $code = pop(@Apache::structuretags::whileconds);
                   1139: 	my $bodytext = pop(@Apache::structuretags::whilebody);
1.161     albertel 1140: 	my $line = pop(@Apache::structuretags::whileline);
                   1141: 	my $return = &Apache::run::run($code,$safeeval);
                   1142: 	my $starttime=time;
                   1143: 	my $error=0;
                   1144: 	while ($return) {
                   1145: 	    if (time-$starttime >
                   1146: 		$Apache::lonnet::perlvar{'lonScriptTimeout'}) {
1.270     albertel 1147: 		#$return = 0; $error=1; next;
1.161     albertel 1148: 	    }
                   1149: 	    $result.=&Apache::scripttag::xmlparse($bodytext);
                   1150: 	    $return = &Apache::run::run($code,$safeeval);
                   1151: 	}
                   1152: 	if ($error) {
1.270     albertel 1153: 	    &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 1154: 	}
                   1155:     } elsif ($target eq "edit") {
                   1156: 	$result.= &Apache::edit::tag_end($target,$token,'');
1.159     albertel 1157:     }
1.160     albertel 1158:     return $result;
1.1       albertel 1159: }
1.6       tsai     1160: 
1.160     albertel 1161: # <randomlist show="1">
1.6       tsai     1162: #  <tag1>..</tag1>
                   1163: #  <tag2>..</tag2>
                   1164: #  <tag3>..</tag3>
1.160     albertel 1165: #  ...
1.6       tsai     1166: # </randomlist>
                   1167: sub start_randomlist {
1.326     albertel 1168:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.159     albertel 1169:     my $result;
                   1170:     if ($target eq 'answer' || $target eq 'grade' || $target eq 'web' ||
                   1171: 	$target eq 'tex' || $target eq 'analyze') {
1.331     albertel 1172: 	my $body= &Apache::lonxml::get_all_text("/randomlist",$parser);
1.305     albertel 1173: 	my $b_parser= HTML::LCParser->new(\$body);
                   1174: 	$b_parser->xml_mode(1);
                   1175: 	$b_parser->marked_sections(1);
1.159     albertel 1176: 	my $b_tok;
                   1177: 	my @randomlist;
                   1178: 	my $list_item;
                   1179: 	while($b_tok = $b_parser->get_token() ) {
                   1180: 	    if($b_tok->[0] eq 'S') { # start tag
                   1181: 		# get content of the tag until matching end tag
                   1182: 		# get all text upto the matching tag
                   1183: 		# and push the content into @randomlist
                   1184: 		$list_item = &Apache::lonxml::get_all_text('/'.$b_tok->[1],
                   1185: 							   $b_parser);
                   1186: 		$list_item = "$b_tok->[4]"."$list_item"."</$b_tok->[1]>";
                   1187: 		push(@randomlist,$list_item);
                   1188: 		#  print "<br /><b>START-TAG $b_tok->[1], $b_tok->[4],
                   1189:                 #         $list_item</b>";
                   1190: 	    }
                   1191: 	    if($b_tok->[0] eq 'T') { # text
                   1192: 		# what to do with text in between tags?
                   1193: 		#  print "<b>TEXT $b_tok->[1]</b><br />";
                   1194: 	    }
                   1195: 	    # if($b_tok->[0] eq 'E') { # end tag, should not happen
                   1196: 	    #  print "<b>END-TAG $b_tok->[1]</b><br />";
                   1197: 	    # }
                   1198: 	}
1.303     albertel 1199: 	if (@randomlist) {
                   1200: 	    my @idx_arr = (0 .. $#randomlist);
                   1201: 	    &Apache::structuretags::shuffle(\@idx_arr);
                   1202: 	    my $bodytext = '';
                   1203: 	    my $show=$#randomlist;
                   1204: 	    my $showarg=&Apache::lonxml::get_param('show',$parstack,$safeeval);
                   1205: 	    $showarg--;
                   1206: 	    if ( ($showarg >= 0) && ($showarg < $show) ) { $show = $showarg; }
                   1207: 	    for(0 .. $show) {
                   1208: 		$bodytext .= "$randomlist[ $idx_arr[$_] ]";
                   1209: 	    }
                   1210: 	    &Apache::lonxml::newparser($parser,\$bodytext);
1.159     albertel 1211: 	}
                   1212:     } elsif ($target eq 'edit' ) {
                   1213: 	$result .=&Apache::edit::tag_start($target,$token);
                   1214: 	$result .=&Apache::edit::text_arg('Maximum Tags to Show:','show',
                   1215: 					   $token,5);
                   1216: 	$result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
                   1217:     } elsif ($target eq 'modified' ) {
                   1218: 	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
                   1219: 						     $safeeval,'show');
                   1220: 	if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
                   1221:     }
                   1222:     return $result;
1.7       tsai     1223: }
                   1224: 
                   1225: sub shuffle {
                   1226:     my $a=shift;
                   1227:     my $i;
1.303     albertel 1228:     if (ref($a) eq 'ARRAY' && @$a) {
1.251     albertel 1229: 	&Apache::response::pushrandomnumber();
1.159     albertel 1230: 	for($i=@$a;--$i;) {
                   1231: 	    my $j=int(&Math::Random::random_uniform() * ($i+1));
                   1232: 	    next if $i == $j;
                   1233: 	    @$a[$i,$j] = @$a[$j,$i];
                   1234: 	}
1.251     albertel 1235: 	&Apache::response::poprandomnumber();
1.7       tsai     1236:     }
1.6       tsai     1237: }
                   1238: 
                   1239: sub end_randomlist {
1.159     albertel 1240:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   1241:     my $result;
                   1242:     if ($target eq 'edit' ) {
                   1243: 	$result=&Apache::edit::tag_end($target,$token,
                   1244: 				       'End Randomly Parsed Block');
                   1245:     }
                   1246:     return $result;
1.6       tsai     1247: }
                   1248: 
1.283     albertel 1249: sub ordered_show_check {
                   1250:     my $last_part=$Apache::inputtags::partlist[-2];
                   1251:     my $in_order=
                   1252: 	&Apache::lonnet::EXT('resource.'.$Apache::inputtags::part.'.ordered');
                   1253:     my $in_order_show=1;
                   1254:     if ($last_part ne '0' && lc($in_order) eq 'yes') {
                   1255: 	$in_order_show=&Apache::response::check_status($last_part);
                   1256:     }
                   1257:     return $in_order_show;
                   1258: }
                   1259: 
1.11      albertel 1260: sub start_part {
1.326     albertel 1261:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.321     albertel 1262:     if (!$Apache::lonxml::metamode) {
                   1263: 	&Apache::lonxml::startredirection(); # we'll use redirection to fix up 
                   1264: 	                                     # duedates.
                   1265:     }
1.159     albertel 1266:     my $result='';
                   1267:     my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval);
1.296     albertel 1268:     if ($id =~ /^\s*$/) { $id = $Apache::lonxml::curdepth; }
1.159     albertel 1269:     $Apache::inputtags::part=$id;
1.177     albertel 1270:     push(@Apache::inputtags::partlist,$id);
                   1271:     @Apache::inputtags::response=();
1.159     albertel 1272:     @Apache::inputtags::previous=();
                   1273:     @Apache::inputtags::previous_version=();
1.241     albertel 1274:     $Apache::lonhomework::problemstatus=&get_problem_status($id);
1.159     albertel 1275:     my $hidden=&Apache::loncommon::check_if_partid_hidden($Apache::inputtags::part);
1.259     albertel 1276:     my $newtype=&Apache::lonnet::EXT("resource.$id.type");
                   1277:     if ($newtype) { $Apache::lonhomework::type=$newtype; }
1.283     albertel 1278:     my $in_order_show=&ordered_show_check();
1.214     albertel 1279:     my $expression='$external::part=\''.$Apache::inputtags::part.'\';';
1.259     albertel 1280:     $expression.='$external::type=\''.$Apache::lonhomework::type.'\';';
1.209     albertel 1281:     &Apache::run::run($expression,$safeeval);
1.159     albertel 1282: 
                   1283:     if ($target eq 'meta') {
1.224     www      1284: 	my $display=&Apache::lonxml::get_param('display',$parstack,$safeeval);
                   1285: 	return &Apache::response::mandatory_part_meta.
                   1286: 	       &Apache::response::meta_parameter_write('display','string',$display,'Part Description');
1.159     albertel 1287:     } elsif ($target eq 'web' || $target eq 'grade' ||
                   1288: 	     $target eq 'answer' || $target eq 'tex') {
1.283     albertel 1289: 	if ($hidden || !$in_order_show) {
1.326     albertel 1290: 	    my $bodytext=&Apache::lonxml::get_all_text("/part",$parser,$style);
1.159     albertel 1291: 	} else {
                   1292: 	    my ($status,$accessmsg) = &Apache::lonhomework::check_access($id);
                   1293: 	    push (@Apache::inputtags::status,$status);
                   1294: 	    my $expression='$external::datestatus="'.$status.'";';
                   1295: 	    $expression.='$external::gradestatus="'.$Apache::lonhomework::history{"resource.$id.solved"}.'";';
                   1296: 	    &Apache::run::run($expression,$safeeval);
1.284     albertel 1297: 	    if ($env{'request.state'} eq 'construct') {
1.241     albertel 1298: 		&set_problem_state($Apache::inputtags::part); 
1.240     albertel 1299: 	    }
1.216     albertel 1300: 	    if (( $status eq 'CLOSED' ) ||
                   1301: 		( $status eq 'UNCHECKEDOUT') ||
1.252     albertel 1302: 		( $status eq 'NOT_YET_VIEWED') ||
1.216     albertel 1303: 		( $status eq 'BANNED') ||
                   1304: 		( $status eq 'UNAVAILABLE') ||
                   1305: 		( $status eq 'INVALID_ACCESS')) {
1.326     albertel 1306: 		my $bodytext=&Apache::lonxml::get_all_text("/part",$parser,
                   1307: 							   $style);
1.159     albertel 1308: 		if ( $target eq "web" ) {
1.211     albertel 1309: 		    $result="<br />".&mt('Part is not open to be viewed. It')." $accessmsg<br />";
1.159     albertel 1310: 		} elsif ( $target eq 'tex' ) {
1.284     albertel 1311: 		    if (not $env{'form.problem_split'}=~/yes/) {
1.211     albertel 1312: 			$result="\\end{minipage}\\vskip 0 mm ".&mt('Part is not open to be viewed. It')." $accessmsg \\\\\\begin{minipage}{\\textwidth}";
1.195     sakharuk 1313: 		    } else {
1.211     albertel 1314: 			$result="\\vskip 0 mm ".&mt('Part is not open to be viewed. It')." $accessmsg \\\\";
1.195     sakharuk 1315: 		    }
1.159     albertel 1316: 		}
                   1317: 	    } else {
                   1318: 		if ($target eq 'tex') {
1.284     albertel 1319: 		    if (not $env{'form.problem_split'}=~/yes/) {
1.264     sakharuk 1320: 			if ($$tagstack[-2] eq 'td') {
                   1321: 			    $result.='\vskip 0 mm \noindent \begin{minipage}{\textwidth}\noindent';
                   1322: 			} else {
                   1323: 			    $result.='\noindent \end{minipage}\vskip 0 mm \noindent \begin{minipage}{\textwidth}\noindent';
                   1324: 			}
1.195     sakharuk 1325: 		    }
1.159     albertel 1326: 		    my $weight = &Apache::lonnet::EXT("resource.$id.weight");
1.284     albertel 1327: 		    my $allkeys=&Apache::lonnet::metadata($env{'request.uri'},'packages');
1.222     sakharuk 1328: 		    my @allkeys = split /,/,$allkeys;
                   1329: 		    my $allow_print_points = 0;
                   1330: 		    foreach my $partial_key (@allkeys) {
1.230     albertel 1331: 			if ($partial_key=~m/^part_(.*)$/) {
1.222     sakharuk 1332: 			    if ($1 ne '0') {$allow_print_points=1;}
                   1333: 			}
                   1334: 		    }
1.275     albertel 1335: 		    my $maxtries = &Apache::lonnet::EXT("resource.$id.maxtries");
                   1336: 		    if (defined($maxtries) && $maxtries < 0) {
                   1337: 			$allow_print_points=0;
                   1338: 		    }
1.302     albertel 1339: 		    if (lc($env{'course.'.$env{'request.course.id'}.
                   1340: 				    '.disableexampointprint'}) eq 'yes') {
                   1341: 			$allow_print_points=0;
                   1342: 		    }
1.222     sakharuk 1343: 		    if (($Apache::lonhomework::type eq 'exam') && ($allow_print_points)) { $result .= '\fbox{\textit{'.$weight.' pt}}';}
1.233     www      1344: 		} elsif ($target eq 'web') {
                   1345: 		    $result.='<a name="'.&Apache::lonnet::escape($Apache::inputtags::part).'" />';
1.159     albertel 1346: 		}
                   1347: 	    }
                   1348: 	}
                   1349:     } elsif ($target eq 'edit') {
                   1350: 	$result.=&Apache::edit::tag_start($target,$token);
                   1351: 	$result.=&Apache::edit::text_arg('Part ID:','id',$token).
                   1352: 	    &Apache::loncommon::help_open_topic("Part_Tag_Edit_Help").
1.224     www      1353: 	    '&nbsp;&nbsp;'.
                   1354: &Apache::edit::text_arg('Displayed Part Description:','display',$token).
1.159     albertel 1355: 		&Apache::edit::end_row().&Apache::edit::start_spanning_row();
                   1356:     } elsif ($target eq 'modified') {
                   1357: 	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
1.225     albertel 1358: 						     $safeeval,'id','display');
1.159     albertel 1359: 	if ($constructtag) {
1.225     albertel 1360: 	    #limiting ids to only letters numbers, and space
1.224     www      1361: 	    $token->[2]->{'id'}=~s/[^A-Za-z0-9 ]//gs;
1.159     albertel 1362: 	    $result = &Apache::edit::rebuild_tag($token);
                   1363: 	    $result.=&Apache::edit::handle_insert();
                   1364: 	}
                   1365:     }
                   1366:     return $result;
1.11      albertel 1367: }
                   1368: 
                   1369: sub end_part {
1.159     albertel 1370:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   1371:     &Apache::lonxml::debug("in end_part $target ");
                   1372:     my $status=$Apache::inputtags::status['-1'];
                   1373:     my $hidden=&Apache::loncommon::check_if_partid_hidden($Apache::inputtags::part);
1.283     albertel 1374:     my $in_order_show=&ordered_show_check();
1.321     albertel 1375:     my $result;
                   1376:     if (!$Apache::lonxml::metamode) {
                   1377: 	$result = &Apache::lonxml::endredirection(); # started in &start_part
1.329     albertel 1378: 	$Apache::lonxml::post_evaluate=0;
1.321     albertel 1379:     }
1.312     albertel 1380:     if ($target eq 'grade') {
1.249     albertel 1381: 	if (($status eq 'CAN_ANSWER' || $Apache::lonhomework::scantronmode) &&
1.283     albertel 1382: 	    !$hidden && $in_order_show) {
1.311     foxr     1383: 	    $result.=&Apache::inputtags::grade;
1.249     albertel 1384: 	} else {
                   1385: 	    # move any submission data to .hidden
                   1386: 	    &Apache::inputtags::hidealldata($Apache::inputtags::part);
                   1387: 	}
1.283     albertel 1388:     } elsif (($target eq 'web' || $target eq 'tex') &&
                   1389: 	     !$hidden && $in_order_show) {
1.159     albertel 1390: 	my $gradestatus=&Apache::inputtags::gradestatus($Apache::inputtags::part,
                   1391: 							$target);
1.212     albertel 1392: 	if ($Apache::lonhomework::type eq 'exam' && $target eq 'tex') {
                   1393: 	    $gradestatus='';
                   1394: 	}
1.311     foxr     1395: 	$result.=$gradestatus;
1.265     sakharuk 1396: 	if ($$tagstack[-2] eq 'td' and $target eq 'tex') {$result.='\end{minipage}';} 
1.181     albertel 1397:     } elsif ($target eq 'edit') {
1.311     foxr     1398: 	$result.=&Apache::edit::end_table();
1.322     albertel 1399:     } elsif ($target eq 'modified') {
                   1400: 	 $result .= $token->[2];
                   1401: 	 $result.=&Apache::edit::handle_insertafter($token->[1]);
1.159     albertel 1402:     }
                   1403:     pop @Apache::inputtags::status;
                   1404:     $Apache::inputtags::part='';
1.295     albertel 1405:     $Apache::lonhomework::type = $Apache::lonhomework::default_type;
1.159     albertel 1406:     return $result;
1.11      albertel 1407: }
1.1       albertel 1408: 
1.25      albertel 1409: sub start_preduedate {
1.326     albertel 1410:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.159     albertel 1411:     if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' || $target eq 'tex') {
1.236     albertel 1412: 	&Apache::lonxml::debug("State in preduedate is ". $Apache::inputtags::status['-1']);
1.300     albertel 1413: 	if (!$Apache::lonhomework::scantronmode &&
                   1414: 	    $Apache::inputtags::status['-1'] ne 'CAN_ANSWER' &&
1.236     albertel 1415: 	    $Apache::inputtags::status['-1'] ne 'CANNOT_ANSWER') {
                   1416: 	    &Apache::lonxml::debug("Wha? ". ($Apache::inputtags::status['-1'] ne 'SHOW_ANSWER'));
1.326     albertel 1417: 	    &Apache::lonxml::get_all_text("/preduedate",$parser,$style);
1.159     albertel 1418: 	}
1.24      albertel 1419:     }
1.159     albertel 1420:     return '';
1.24      albertel 1421: }
                   1422: 
1.25      albertel 1423: sub end_preduedate {
1.159     albertel 1424:     return '';
1.24      albertel 1425: }
                   1426: 
1.25      albertel 1427: sub start_postanswerdate {
1.326     albertel 1428:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.234     albertel 1429:     if ($target eq 'web' || $target eq 'grade') {
1.300     albertel 1430: 	if ($Apache::lonhomework::scantronmode ||
                   1431: 	    $Apache::inputtags::status['-1'] ne 'SHOW_ANSWER') {
1.326     albertel 1432: 	    &Apache::lonxml::get_all_text("/postanswerdate",$parser,$style);
1.159     albertel 1433: 	}
                   1434:     } elsif ($target eq 'tex') {
1.326     albertel 1435: 	&Apache::lonxml::get_all_text("/postanswerdate",$parser,$style);
1.159     albertel 1436:     }
                   1437:     return '';
1.24      albertel 1438: }
                   1439: 
1.25      albertel 1440: sub end_postanswerdate {
1.159     albertel 1441:     return '';
1.24      albertel 1442: }
                   1443: 
1.25      albertel 1444: sub start_notsolved {
1.326     albertel 1445:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.159     albertel 1446:     if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
                   1447: 	$target eq 'tex') {
                   1448: 	my $gradestatus=$Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"};
                   1449: 	&Apache::lonxml::debug("not solved has :$gradestatus:");
1.239     albertel 1450: 	if ($gradestatus =~ /^correct/ &&
                   1451: 	    &Apache::response::show_answer()) {
1.159     albertel 1452: 	    &Apache::lonxml::debug("skipping");
1.326     albertel 1453: 	    &Apache::lonxml::get_all_text("/notsolved",$parser,$style);
1.159     albertel 1454: 	}
1.24      albertel 1455:     }
1.159     albertel 1456:     return '';
1.24      albertel 1457: }
                   1458: 
1.25      albertel 1459: sub end_notsolved {
1.159     albertel 1460:     return '';
1.24      albertel 1461: }
                   1462: 
                   1463: sub start_solved {
1.326     albertel 1464:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.159     albertel 1465:     if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
                   1466: 	$target eq 'tex') {
                   1467: 	my $gradestatus=$Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"};
1.239     albertel 1468: 	if ($gradestatus !~ /^correct/ ||
                   1469: 	    !&Apache::response::show_answer()) {
1.326     albertel 1470: 	    &Apache::lonxml::get_all_text("/solved",$parser,$style);
1.159     albertel 1471: 	}
1.24      albertel 1472:     }
1.159     albertel 1473:     return '';
1.24      albertel 1474: }
                   1475: 
                   1476: sub end_solved {
1.248     albertel 1477:     return '';
                   1478: }
                   1479: 
                   1480: sub start_problemtype {
1.326     albertel 1481:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.248     albertel 1482:     my $result;
                   1483:     if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
                   1484: 	$target eq 'tex' || $target eq 'analyze') {
                   1485: 	my $mode=lc(&Apache::lonxml::get_param('mode',$parstack,$safeeval));
                   1486: 	if (!defined($mode)) { $mode='show'; }
                   1487: 	my $for=&Apache::lonxml::get_param('for',$parstack,$safeeval);
                   1488: 	my $found=0;
                   1489: 	foreach my $type (split(',',$for)) {
                   1490: 	    if ($Apache::lonhomework::type eq lc($type)) { $found=1; }
                   1491: 	}
                   1492: 	if ($mode eq 'show' && !$found) {
1.326     albertel 1493: 	    &Apache::lonxml::get_all_text("/problemtype",$parser,$style);
1.248     albertel 1494: 	}
                   1495: 	if ($mode eq 'hide' && $found) {
1.326     albertel 1496: 	    &Apache::lonxml::get_all_text("/problemtype",$parser,$style);
1.248     albertel 1497: 	}
                   1498:     } elsif ($target eq 'edit') {
                   1499: 	$result .=&Apache::edit::tag_start($target,$token);
                   1500: 	$result.=&Apache::edit::select_arg('Mode:','mode',
                   1501: 					   [['show','Show'],
                   1502: 					    ['hide','Hide']]
                   1503: 					   ,$token);
                   1504: 	$result .=&Apache::edit::checked_arg('When used as type(s):','for',
                   1505: 					     [ ['exam','Exam/Quiz Problem'],
                   1506: 					       ['survey','Survey'],
                   1507: 					       ['problem','Homework Problem'] ]
                   1508: 					     ,$token);
                   1509: 	$result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
                   1510:     } elsif ($target eq 'modified') {
                   1511: 	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
                   1512: 						     $safeeval,'mode','for');
                   1513: 	if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
                   1514:     }
                   1515:     return $result;
                   1516: }
                   1517: 
                   1518: sub end_problemtype {
1.159     albertel 1519:     return '';
1.24      albertel 1520: }
1.34      albertel 1521: 
                   1522: sub start_startouttext {
1.159     albertel 1523:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   1524:     my @result=(''.'');
                   1525:     if ($target eq 'edit' || $target eq 'modified' ) { @result=('','no'); }
                   1526:     return (@result);
1.34      albertel 1527: }
1.159     albertel 1528: 
1.34      albertel 1529: sub end_startouttext {
1.326     albertel 1530:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.159     albertel 1531:     my $result='';
                   1532:     my $text='';
                   1533: 
                   1534:     if ($target eq 'edit') {
1.326     albertel 1535: 	$text=&Apache::lonxml::get_all_text("endouttext",$parser,$style);
1.211     albertel 1536: 	$result.=&Apache::edit::start_table($token)."<tr><td>".&mt('Text Block')."</td>
                   1537: <td>".&mt('Delete:').
1.159     albertel 1538:                  &Apache::edit::deletelist($target,$token)
                   1539: 		 ."</td>
1.42      albertel 1540: <td>".
1.159     albertel 1541:                  &Apache::edit::insertlist($target,$token).
                   1542: 		 &Apache::edit::end_row().
                   1543:                  &Apache::edit::start_spanning_row()."\n"
1.188     bowersj2 1544: 		 . &Apache::loncommon::helpLatexCheatsheet () .
1.255     www      1545: 		 &Apache::edit::editfield($token->[1],$text,"",80,8,1);
1.159     albertel 1546:     }
                   1547:     if ($target eq 'modified') {
1.219     albertel 1548: 	$result='<startouttext />'.&Apache::edit::modifiedfield("endouttext",$parser);
1.159     albertel 1549:     }
                   1550:     if ($target eq 'tex') {
                   1551: 	$result .= '\noindent ';
                   1552:     }
                   1553:     return $result;
1.34      albertel 1554: }
1.159     albertel 1555: 
1.34      albertel 1556: sub start_endouttext {
1.159     albertel 1557:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   1558:     my $result='';
                   1559:     if ($target eq "edit" ) { $result="</td></tr>".&Apache::edit::end_table()."\n"; }
                   1560:     if ($target eq "modified") {
                   1561: 	$result='<endouttext />'.
                   1562: 	    &Apache::edit::handle_insertafter('startouttext'); }
                   1563:     return $result;
1.34      albertel 1564: }
1.159     albertel 1565: 
1.34      albertel 1566: sub end_endouttext {
1.159     albertel 1567:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   1568:     my @result=('','');
                   1569:     if ($target eq "edit" || $target eq 'modified') { @result=('','no'); }
                   1570:     return (@result);
1.34      albertel 1571: }
1.159     albertel 1572: 
1.45      albertel 1573: sub delete_startouttext {
1.326     albertel 1574:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
                   1575:     #  my $text=&Apache::lonxml::get_all_text("endouttext",$parser,$style);
1.159     albertel 1576:     my $text=$$parser['-1']->get_text("/endouttext");
                   1577:     my $ntoken=$$parser['-1']->get_token();
                   1578:     &Apache::lonxml::debug("Deleting :$text: and :$ntoken->[0]:$ntoken->[1]:$ntoken->[2]: for startouttext");
                   1579:     &Apache::lonxml::end_tag($tagstack,$parstack,$ntoken);
                   1580:     # Deleting 2 parallel tag pairs, but we need the numbers later to look like
                   1581:     # they did the last time round
                   1582:     &Apache::lonxml::increasedepth($ntoken);
                   1583:     &Apache::lonxml::decreasedepth($ntoken);
                   1584:     return 1;
1.193     www      1585: }
                   1586: 
                   1587: sub start_simpleeditbutton {
                   1588:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   1589:     my $result='';
1.284     albertel 1590:     if (($env{'form.simple_edit_button'} ne 'off') &&
1.273     albertel 1591: 	($target eq 'web') &&
1.330     albertel 1592:         (&Apache::lonnet::allowed('mdc',$env{'request.course.id'}))) {
1.284     albertel 1593:         my $url=$env{'request.noversionuri'};
1.193     www      1594:         $url=~s/\?.*$//;
1.278     albertel 1595: 	my ($symb) = &Apache::lonxml::whichuser();
1.194     www      1596: 	$result='<table width="100%" bgcolor="#FFFFAA" border="2"><tr><td>'.
1.278     albertel 1597:                 '<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      1598: &Apache::loncommon::help_open_topic('Caching').'</td></tr></table><br />';
1.193     www      1599:     }
                   1600:     return $result;
                   1601: }
                   1602: 
                   1603: sub end_simpleeditbutton {
                   1604:     return '';
1.45      albertel 1605: }
1.34      albertel 1606: 
1.1       albertel 1607: 1;
                   1608: __END__

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