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

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

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