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

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.408   ! albertel    4: # $Id: structuretags.pm,v 1.407 2007/10/30 00:17:09 albertel Exp $
1.74      albertel    5: #
                      6: # Copyright Michigan State University Board of Trustees
                      7: #
                      8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
                      9: #
                     10: # LON-CAPA is free software; you can redistribute it and/or modify
                     11: # it under the terms of the GNU General Public License as published by
                     12: # the Free Software Foundation; either version 2 of the License, or
                     13: # (at your option) any later version.
                     14: #
                     15: # LON-CAPA is distributed in the hope that it will be useful,
                     16: # but WITHOUT ANY WARRANTY; without even the implied warranty of
                     17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
                     18: # GNU General Public License for more details.
                     19: #
                     20: # You should have received a copy of the GNU General Public License
                     21: # along with LON-CAPA; if not, write to the Free Software
                     22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
                     23: #
                     24: # /home/httpd/html/adm/gpl.txt
                     25: #
                     26: # http://www.lon-capa.org/
                     27: #
1.254     www        28: ###
1.54      www        29: 
1.133     sakharuk   30: 
1.1       albertel   31: package Apache::structuretags; 
                     32: 
                     33: use strict;
                     34: use Apache::lonnet;
1.101     sakharuk   35: use Apache::File();
1.147     www        36: use Apache::lonmenu;
1.210     albertel   37: use Apache::lonlocal;
1.231     sakharuk   38: use Apache::lonxml;
1.338     albertel   39: use Apache::lonenc();
1.267     albertel   40: use Time::HiRes qw( gettimeofday tv_interval );
1.356     www        41: use lib '/home/httpd/lib/perl/';
                     42: use LONCAPA;
                     43:  
1.78      harris41   44: BEGIN {
1.397     albertel   45:     &Apache::lonxml::register('Apache::structuretags',('block','languageblock','translated','instructorcomment','while','randomlist','problem','library','web','tex','part','preduedate','postanswerdate','solved','notsolved','problemtype','startouttext','endouttext','simpleeditbutton','definetag'));
1.10      albertel   46: }
                     47: 
                     48: sub start_web {
1.326     albertel   49:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.383     albertel   50:     if ($target ne 'edit' && $target ne 'modified') {
                     51: 	my $bodytext=&Apache::lonxml::get_all_text("/web",$parser,$style);
                     52: 	if ($target eq 'web' || $target eq 'webgrade') {
                     53: 	    return $bodytext;
                     54: 	}
                     55:     } elsif ($target eq "edit" ) {
                     56: 	my $bodytext = 
                     57: 	    &Apache::lonxml::get_all_text_unbalanced("/web",$parser);
                     58: 	my $result = &Apache::edit::tag_start($target,$token);
                     59: 	$result .= &Apache::edit::editfield($token->[1],$bodytext,'',80,1);
                     60: 	return $result;
                     61:     } elsif ( $target eq "modified" ) {
                     62: 	return $token->[4].&Apache::edit::modifiedfield("/web",$parser);
1.159     albertel   63:     }
                     64:     return '';
1.10      albertel   65: }
                     66: 
                     67: sub end_web {
1.44      ng         68:     return '';
1.10      albertel   69: }
                     70: 
                     71: sub start_tex {
1.326     albertel   72:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.198     sakharuk   73:     my $result='';
1.383     albertel   74:     if ($target ne 'edit' && $target ne 'modified') {
                     75: 	my $bodytext=&Apache::lonxml::get_all_text("/tex",$parser,$style);
                     76: 	if ($target eq 'tex') {
                     77: 	    return $bodytext.' ';
                     78: 	}
                     79:     } elsif ($target eq "edit" ) {
                     80: 	my $bodytext = 
                     81: 	    &Apache::lonxml::get_all_text_unbalanced("/tex",$parser);
                     82: 	my $result = &Apache::edit::tag_start($target,$token);
                     83: 	$result .= &Apache::edit::editfield($token->[1],$bodytext,'',80,1);
                     84: 	return $result;
                     85:     } elsif ( $target eq "modified" ) {
                     86: 	return $token->[4].&Apache::edit::modifiedfield("/tex",$parser);
1.159     albertel   87:     }
1.198     sakharuk   88:     return $result;;
1.10      albertel   89: }
                     90: 
                     91: sub end_tex {
1.44      ng         92:     return '';
1.9       albertel   93: }
                     94: 
1.400     albertel   95: sub homework_js {
                     96:     return &Apache::loncommon::resize_textarea_js().
                     97: 	<<'JS';
                     98: <script type="text/javascript">
                     99: function setSubmittedPart (part) {
                    100:    this.document.lonhomework.submitted.value="part_"+part;
                    101: }
                    102: 
                    103: function image_response_click (which, e) {
                    104:     init_geometry();
                    105:     if (!e) { e = window.event; } //IE
                    106:     var input_element = document.lonhomework.elements[which];
1.401     albertel  107:     var token_element = document.lonhomework.elements[which+'_token'];
1.400     albertel  108:     var token = token_element.value;
1.401     albertel  109:     var img_element   = document.getElementById(which+'_imageresponse');
1.400     albertel  110:     var x= e.clientX-getX(img_element)+Geometry.getHorizontalScroll();
                    111:     var y= e.clientY-getY(img_element)+Geometry.getVerticalScroll();
                    112:     var click = x+':'+y;
                    113:     input_element.value = click;
                    114:     img_element.src = '/adm/randomlabel.png?token='+token+'&clickdata='+click;
                    115: }
                    116: </script>
                    117: JS
                    118: }
                    119: 
1.48      albertel  120: sub page_start {
1.345     albertel  121:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$name,
                    122: 	$extra_head)=@_;
1.159     albertel  123:     my %found;
1.207     albertel  124:     foreach my $taginside (@$tagstack) {
1.159     albertel  125: 	foreach my $taglookedfor ('html','body','form') {
                    126: 	    if ($taginside =~ /^$taglookedfor$/i) {$found{$taglookedfor} = 1;}
                    127: 	}
                    128:     }
                    129: 
1.343     albertel  130:     if ($target eq 'tex') {
                    131: 	return
                    132: 	    &Apache::londefdef::start_html($target,$token,$tagstack,
                    133: 					   $parstack,$parser,$safeeval);
                    134:     }
                    135: 
1.400     albertel  136:     $extra_head .= &homework_js();
1.374     albertel  137: 
1.344     albertel  138:     my %body_args;
                    139:     if (defined($found{'html'})) {
                    140: 	$body_args{'skip_phases'}{'head'}=1;
                    141:     } else {
1.343     albertel  142: 	
1.345     albertel  143: 	$extra_head .= &Apache::lonhtmlcommon::spellheader();
1.343     albertel  144: 
1.379     albertel  145: 	$extra_head .= &Apache::londefdef::generate_css_links();
                    146: 
1.384     albertel  147: 	if ($env{'request.state'} eq 'construct') {
1.343     albertel  148: 	    $extra_head.=&Apache::edit::js_change_detection().
                    149: 		"<script type=\"text/javascript\">\n".
                    150: 		"if (typeof swmenu != 'undefined') {swmenu.currentURL=null;}\n".
                    151: 		&Apache::loncommon::browser_and_searcher_javascript().
                    152:                 "\n</script>\n";
                    153: 	}
1.159     albertel  154:     }
1.343     albertel  155: 
1.344     albertel  156:     if (defined($found{'body'})) {
                    157: 	$body_args{'skip_phases'}{'body'}=1;
                    158:     } elsif (!defined($found{'body'}) 
                    159: 	     && $env{'request.state'} eq 'construct') {
1.343     albertel  160: 	if ($target eq 'web' || $target eq 'edit') {
1.402     albertel  161: 	    if ($env{'environment.remote'} ne 'off') {
                    162: 		$body_args{'only_body'}  = 1;
                    163: 	    }
1.297     albertel  164: 	}
1.272     albertel  165:     } elsif (!defined($found{'body'})) {
1.343     albertel  166: 	my %add_entries;
1.159     albertel  167: 	my $background=&Apache::lonxml::get_param('background',$parstack,
                    168: 						  $safeeval);
1.343     albertel  169: 	if ($background ne '' ) {
                    170: 	    $add_entries{'background'} = $background;
                    171: 	}
1.344     albertel  172: 
1.290     albertel  173: 	my $bgcolor=&Apache::lonxml::get_param('bgcolor',$parstack,
                    174: 					       $safeeval);
1.344     albertel  175:        	if ($bgcolor eq '' ) { $bgcolor = '#FFFFFF'; }
                    176: 
                    177: 	$body_args{'bgcolor'}        = $bgcolor;
                    178: 	$body_args{'no_title'}       = 1;
                    179: 	$body_args{'force_register'} = 1;
                    180: 	$body_args{'add_entries'}    = \%add_entries;	
1.391     albertel  181: 	if ($env{'environment.remote'} eq 'off'
                    182: 	    && $env{'request.state'} eq   'construct') {
                    183: 	    $body_args{'only_body'}  = 1;
                    184: 	}
1.344     albertel  185:     }
1.365     albertel  186:     $body_args{'no_auto_mt_title'} = 1;
1.344     albertel  187:     my $page_start = &Apache::loncommon::start_page($name,$extra_head,
                    188: 						    \%body_args);
                    189: 
                    190:     if (!defined($found{'body'}) 
                    191: 	&& $env{'request.state'} ne 'construct'
                    192: 	&& ($target eq 'web' || $target eq 'webgrade')) {
                    193: 
1.367     albertel  194: 	my ($symb,undef,undef,undef,$publicuser)= &Apache::lonnet::whichuser();
1.344     albertel  195: 	if ($symb eq '' && !$publicuser) {
                    196: 	    my $help = &Apache::loncommon::help_open_topic("Ambiguous_Reference");
                    197: 	    $help=&mt("Browsing resource, all submissions are temporary.")."<br />";
                    198: 	    $page_start .= $help;
1.159     albertel  199: 	}
1.344     albertel  200:     }
                    201: 
                    202:     if (!defined($found{'body'})) {
1.343     albertel  203: 	$page_start .= &Apache::lonxml::message_location();
1.159     albertel  204:     }
1.344     albertel  205:     
1.159     albertel  206:     my $form_tag_start;
                    207:     if (!defined($found{'form'})) {
1.337     albertel  208: 	$form_tag_start='<form name="lonhomework" enctype="multipart/form-data" method="post" action="';
1.338     albertel  209: 	my $uri = &Apache::lonenc::check_encrypt($env{'request.uri'});
1.327     albertel  210: 	$form_tag_start.=$uri.'" ';
                    211: 	if ($target eq 'edit') {
                    212: 	    $form_tag_start.=&Apache::edit::form_change_detection();
                    213: 	}
1.368     albertel  214: 	$form_tag_start.='>'."\n";
1.355     albertel  215: 
                    216: 	my $symb=&Apache::lonnet::symbread();
                    217: 	if ($symb =~ /\S/) {
                    218: 	    $symb=
                    219: 		&HTML::Entities::encode(&Apache::lonenc::check_encrypt($symb));
                    220: 	    $form_tag_start.=
1.368     albertel  221: 		"\t".'<input type="hidden" name="symb" value="'.$symb.'" />'."\n";
1.355     albertel  222: 	}
1.159     albertel  223:     }
1.343     albertel  224:     return ($page_start,$form_tag_start);
1.105     albertel  225: }
                    226: 
1.141     matthew   227: #use Time::HiRes();
1.105     albertel  228: sub get_resource_name {
1.159     albertel  229:     my ($parstack,$safeeval)=@_;
1.388     foxr      230:     my $name;
1.204     albertel  231:     if (defined($Apache::lonhomework::name)) {
1.388     foxr      232: 	$name = $Apache::lonhomework::name;
                    233:     } else {
                    234: 	my ($symb)=&Apache::lonnet::whichuser();
1.392     albertel  235: 	$name=&Apache::lonnet::gettitle($symb);
1.388     foxr      236: 	if ($name eq '') {
                    237: 	    $name=&Apache::lonnet::EXT('resource.title');
                    238: 	    if ($name eq 'con_lost') { $name = ''; }
                    239: 	}
                    240: 	if ($name!~/\S+/) {
                    241: 	    $name=$env{'request.uri'};
                    242: 	    $name=~s-.*/([^/]+)$-$1-;
                    243: 	}
                    244: 	# The name has had html tags escaped:
                    245:        
                    246: 	$name=~s/&lt;/</gs;
                    247: 	$name=~s/&gt;/>/gs;
                    248: 
                    249: 	$Apache::lonhomework::name=$name;
1.204     albertel  250:     }
1.159     albertel  251:     return $name;
1.105     albertel  252: }
                    253: 
                    254: sub setup_rndseed {
1.159     albertel  255:     my ($safeeval)=@_;
                    256:     my $rndseed;
1.367     albertel  257:     my ($symb)=&Apache::lonnet::whichuser();
1.333     albertel  258:     if ($env{'request.state'} eq "construct" 
                    259: 	|| $symb eq '' 
                    260: 	|| $Apache::lonhomework::type eq 'practice'
                    261: 	|| $Apache::lonhomework::history{'resource.CODE'}) {
1.316     www       262: 	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
1.317     albertel  263: 						['rndseed']);
1.284     albertel  264: 	$rndseed=$env{'form.rndseed'};
1.159     albertel  265: 	if (!$rndseed) {
1.162     albertel  266: 	    $rndseed=$Apache::lonhomework::history{'rndseed'};
                    267: 	    if (!$rndseed) {
                    268: 		$rndseed=time;
                    269: 	    }
1.284     albertel  270: 	    $env{'form.rndseed'}=$rndseed;
1.162     albertel  271: 	}
1.374     albertel  272: 	if ( ($env{'form.resetdata'} eq &mt('New Problem Variation')
                    273: 	      && $env{'form.submitted'} eq 'yes')  ||
1.284     albertel  274: 	    $env{'form.newrandomization'} eq &mt('New Randomization')) {
1.190     albertel  275: 	    srand(time);
                    276: 	    $rndseed=int(rand(2100000000));
1.284     albertel  277: 	    $env{'form.rndseed'}=$rndseed;
                    278: 	    delete($env{'form.resetdata'});
                    279: 	    delete($env{'form.newrandomization'});
1.159     albertel  280: 	}
1.187     albertel  281: 	if (defined($rndseed) && $rndseed ne int($rndseed)) {
1.307     albertel  282: 	    $rndseed=join(':',&Apache::lonnet::digest($rndseed));
1.187     albertel  283:         }
1.247     albertel  284:         if ($Apache::lonhomework::history{'resource.CODE'}) {
                    285: 	   $rndseed=&Apache::lonnet::rndseed();
                    286: 	}
1.221     albertel  287: 	if ($safeeval) {
                    288: 	    &Apache::lonxml::debug("Setting rndseed to $rndseed");
1.250     albertel  289: 	    &Apache::run::run('$external::randomseed="'.$rndseed.'";',$safeeval);
1.221     albertel  290: 	}
1.159     albertel  291:     }
                    292:     return $rndseed;
1.105     albertel  293: }
                    294: 
1.268     albertel  295: sub remember_problem_state {
                    296:     return '
1.284     albertel  297:        <input type="hidden" name="problemstate" value="'.$env{'form.problemstate'}.'" />
                    298:        <input type="hidden" name="problemtype" value="'.$env{'form.problemtype'}.'" />
                    299:        <input type="hidden" name="problemstatus" value="'.$env{'form.problemstatus'}.'" />';
1.268     albertel  300: }
                    301: 
1.105     albertel  302: sub problem_edit_header {
1.268     albertel  303:     return '<input type="hidden" name="submitted" value="edit" />'.
                    304: 	&Apache::structuretags::remember_problem_state().'
1.408   ! albertel  305: <div class="LC_edit_problem_header">
        !           306: <div class="LC_edit_problem_header_title">
        !           307: '.&mt('Problem Editing').&Apache::loncommon::help_open_menu('Problem Editing','Problem_Editor_XML_Index',5,'Authoring').'
        !           308: </div>
        !           309: <div class="LC_edit_problem_discards">
1.210     albertel  310:        <input type="hidden" name="problemmode" value="'.&mt('Edit').'" />
1.243     matthew   311:        <input type="submit" name="problemmode" accesskey="d" value="'.&mt('Discard Edits and View').'" />
1.328     albertel  312:        <input '.&Apache::edit::submit_ask_anyway().' type="submit" name="problemmode" accesskey="x" value="'.&mt('EditXML').'" />
1.407     albertel  313:        <input type="submit" name="Undo" accesskey="u" value="'.&mt('undo').'" />
1.408   ! albertel  314: </div>
        !           315: <div class="LC_edit_problem_saves">
        !           316:        <input type="submit" name="submit" accesskey="s" value="'.&mt('Save and Edit').'" />
        !           317:        <input type="submit" name="submit" accesskey="v" value="'.&mt('Save and View').'" />
        !           318:   </div>
        !           319: <hr class="LC_edit_problem_divide" />
        !           320: </div>
        !           321: '.
1.282     albertel  322:        '<table border="0" width="100%"><tr><td bgcolor="#DDDDDD">';
1.105     albertel  323: }
                    324: 
                    325: sub problem_edit_footer {
1.210     albertel  326:     return '</td></tr></table><br /><input type="submit" name="submit" value="'.&mt('Submit Changes and Edit').'" />
1.255     www       327:     <input type="submit" name="submit" value="'.&mt('Submit Changes and View').'" />'.
1.348     albertel  328:     &Apache::lonhtmlcommon::htmlareaselectactive(&Apache::lonhtmlcommon::get_htmlareafields()).
1.342     albertel  329:     "\n</form>\n".&Apache::loncommon::end_page();
1.105     albertel  330: }
                    331: 
1.235     albertel  332: sub option {
                    333:     my ($value,$name) = @_;
                    334:     my $result ="<option value='".$value."' ";
1.284     albertel  335:     if ($env{'form.'.$name} eq $value) {
1.235     albertel  336: 	$result.=" selected='on' ";
                    337:     }
                    338:     $result.='>';
                    339:     return $result;
                    340: }
                    341: 
1.105     albertel  342: sub problem_web_to_edit_header {
1.159     albertel  343:     my ($rndseed)=@_;
1.406     albertel  344:     my $result .= '<div class="LC_edit_problem_header">';
                    345: 
                    346:     if (!$Apache::lonhomework::parsing_a_task) {
                    347: 	$result .= 
                    348: 	    '<div class="LC_edit_problem_header_title">'.
                    349: 	    &mt('Problem Testing').
                    350: 	    &Apache::loncommon::help_open_topic('Problem_Editor_Testing_Area').
                    351: 	    '</div>';
                    352:     } else {
                    353: 	$result .= 
                    354: 	    '<div class="LC_edit_problem_header_title">'.
                    355: 	    &mt('Task Testing').
                    356: 	    '</div>';
                    357:     }
                    358:     
1.315     albertel  359:     my $show_all_foils_text = 
                    360: 	($Apache::lonhomework::parsing_a_task) ?
                    361: 	&mt('&nbsp;Show&nbsp;All&nbsp;Instances')
                    362: 	: &mt('&nbsp;Show&nbsp;All&nbsp;Foils');
                    363: 
1.406     albertel  364:     my $show_all= '<span class="LC_nobreak"><label><input type="checkbox" name="showallfoils" ';
                    365:     if (defined($env{'form.showallfoils'})) { $show_all.='checked="checked"'; }
                    366:     $show_all.= ' />'.$show_all_foils_text.'</label></span>';
                    367: 
                    368: 
1.384     albertel  369: 
1.406     albertel  370:     $result .= '<div class="LC_edit_problem_header_status_row">';
1.313     albertel  371:     if (!$Apache::lonhomework::parsing_a_task) {
                    372: 	$result.="
1.406     albertel  373: <div class='LC_edit_problem_header_row1'>
                    374: <span class=\"LC_nobreak\">
1.405     albertel  375: ".&mt("Problem Status:")."
1.235     albertel  376: <select name='problemstate'>
1.270     albertel  377:   <option value=''></option>
1.235     albertel  378:   ".&option('CLOSED'               ,'problemstate').&mt("Closed")."</option>
                    379:   ".&option('CAN_ANSWER'           ,'problemstate').&mt("Answerable")."</option>
                    380:   ".&option('CANNOT_ANSWER_tries'  ,'problemstate').&mt("Open with full tries")."</option>
                    381:   ".&option('CANNOT_ANSWER_correct','problemstate').&mt("Open and correct")."</option>
                    382:   ".&option('SHOW_ANSWER'          ,'problemstate').&mt("Show Answer")."</option>
                    383: </select>
1.406     albertel  384: </span>
                    385: <span class=\"LC_nobreak\">
1.405     albertel  386: ".&mt("Problem Type:")."
1.235     albertel  387: <select name='problemtype'>
1.270     albertel  388:   <option value=''></option>
1.242     albertel  389:   ".&option('exam'   ,'problemtype').&mt("Exam Problem")."</option>
                    390:   ".&option('problem','problemtype').&mt("Homework problem")."</option>
                    391:   ".&option('survey' ,'problemtype').&mt("Survey Question")."</option>
1.235     albertel  392: </select>
1.406     albertel  393: </span>
                    394: $show_all
                    395: </div>
                    396: <div class='LC_edit_problem_header_row2'>
                    397: <span class=\"LC_nobreak\">
1.405     albertel  398: ".&mt("Feedback Mode:")."
1.235     albertel  399: <select name='problemstatus'>
                    400:   <option value=''></option>
1.242     albertel  401:   ".&option('yes','problemstatus').&mt("Show Feedback")."</option>
1.405     albertel  402:   ".&option('no', 'problemstatus').&mt("Don't Show Incorect/Correct Feedback")."</option>
                    403:   ".&option('no_feedback_ever', 'problemstatus').&mt("Don't Show Any Feedback")."</option>
1.235     albertel  404: </select>
1.406     albertel  405: </span>
                    406: ";
                    407: 
1.376     albertel  408:     } elsif ($Apache::lonhomework::parsing_a_task) {
                    409: 	$result.="
1.406     albertel  410: <div class='LC_edit_problem_header_row1'>
                    411: <span class=\"LC_nobreak\">
1.405     albertel  412: ".&mt("Problem Status:")."
1.376     albertel  413: <select name='problemstate'>
                    414:   <option value=''></option>
                    415:   ".&option('CLOSED'               ,'problemstate').&mt("Closed")."</option>
                    416:   ".&option('CAN_ANSWER'           ,'problemstate').&mt("Answerable")."</option>
                    417:   ".&option('WEB_GRADE'            ,'problemstate').&mt("Criteria Grading")."</option>
                    418:   ".&option('SHOW_ANSWER'          ,'problemstate').&mt("Show Feedback")."</option>
                    419: </select>
1.406     albertel  420: </span>
                    421: $show_all
                    422: ";
                    423:     }
                    424: 
                    425:     $result.='
                    426:        <span class="LC_nobreak">
                    427:        '.&mt('Apply style file: ').'
                    428:          <input type="text" name="style_file" value="'.&HTML::Entities::encode($env{'construct.style'},'"<>&').'" />
                    429:          <a href="javascript:openbrowser(\'lonhomework\',\'style_file\',\'sty\')">'.&mt('Select').'</a>
                    430:        </span>
                    431:      </div>
                    432:      <input type="submit" name="changeproblemmode" value="'.&mt("Change View").'" />
                    433:      <input type="submit" name="clear_style_file" accesskey="d" value="'.&mt('Show Default View').'" />
                    434:      <input type="submit" name="resetdata" accesskey="r" value="'.&mt('Reset Submissions').'" />
                    435:    </div>
                    436:    <hr class="LC_edit_problem_divide" />
                    437:    <div class="LC_edit_problem_header_randomize_row">
                    438:      <input type="submit" name="newrandomization" accesskey="a" value="'.&mt('New Randomization').'" />
                    439:      <input type="submit" name="changerandseed" value="'.&mt('Change Random Seed To:').'" />
                    440:      <input type="text" name="rndseed" size="10" value="'.
                    441: 	       $rndseed.'"
                    442:              onchange="javascript:document.lonhomework.changerandseed.click()" />';
                    443: 
                    444:     if (!$Apache::lonhomework::parsing_a_task) {
                    445: 	my $numtoanalyze=$env{'form.numtoanalyze'};
                    446: 	if (!$numtoanalyze) { $numtoanalyze=20; }
1.408   ! albertel  447: 	$result .= '<span class="LC_nobreak">'.
        !           448: 	    &mt('[_1] for [_2] versions.',
        !           449: 		'<input type="submit" name="problemmode" value='.&mt('"Calculate answers').'" />',
        !           450: 		'<input type="text" name="numtoanalyze" value="'.
        !           451: 		$numtoanalyze.'" size="5" />').
        !           452: 		&Apache::loncommon::help_open_topic("Analyze_Problem",'',undef,undef,300).
        !           453: 		'</span>';
        !           454: 						    
1.313     albertel  455:     }
1.406     albertel  456: 
                    457:     $result.='
                    458:    </div>
1.408   ! albertel  459:    <div class="LC_edit_problem_header_edit_row">';
        !           460:     $result.='<input type="hidden" name="problemmode" value="'.&mt('View').'" />';
        !           461:     $result .= '<input type="submit" name="problemmode" accesskey="e" value="'.&mt('Edit').'" />';
        !           462:     $result .= '<input type="submit" name="problemmode" accesskey="x" value="'.&mt('EditXML').'" />';
        !           463: 
        !           464:     $result.='
        !           465:    </div>
1.406     albertel  466: </div>';
1.159     albertel  467:     return $result;
1.48      albertel  468: }
                    469: 
1.65      albertel  470: sub initialize_storage {
1.357     albertel  471:     my ($given_symb) = @_;
1.353     albertel  472:     undef(%Apache::lonhomework::results);
                    473:     undef(%Apache::lonhomework::history);
1.357     albertel  474:     my ($symb,$courseid,$domain,$name) = 
1.367     albertel  475: 	&Apache::lonnet::whichuser($given_symb);
1.353     albertel  476:     
                    477:     # anonymous users (CODEd exams) have no data
                    478:     if ($name eq 'anonymous' 
                    479: 	&& !defined($domain)) {
                    480: 	return;
                    481:     }
                    482: 
1.333     albertel  483:     if ($env{'request.state'} eq 'construct' 
                    484: 	|| $symb eq ''
                    485: 	|| $Apache::lonhomework::type eq 'practice') {
                    486: 	
                    487: 	my $namespace = $symb || $env{'request.uri'};
                    488: 	if ($env{'form.resetdata'} eq &mt('Reset Submissions') ||
1.374     albertel  489: 	    ($env{'form.resetdata'} eq &mt('New Problem Variation')
                    490: 	     && $env{'form.submitted'} eq 'yes') ||
1.333     albertel  491: 	    $env{'form.newrandomization'} eq &mt('New Randomization')) {
                    492: 	    &Apache::lonnet::tmpreset($namespace,'',$domain,$name);
                    493: 	    &Apache::lonxml::debug("Attempt reset");
                    494: 	}
1.159     albertel  495: 	%Apache::lonhomework::history=
1.333     albertel  496: 	    &Apache::lonnet::tmprestore($namespace,'',$domain,$name);
1.159     albertel  497: 	my ($temp)=keys %Apache::lonhomework::history ;
                    498: 	&Apache::lonxml::debug("Return message of $temp");
                    499:     } else {
                    500: 	%Apache::lonhomework::history=
                    501: 	    &Apache::lonnet::restore($symb,$courseid,$domain,$name);
                    502:     }
1.353     albertel  503: 
1.159     albertel  504:     #ignore error conditions
1.67      albertel  505:     my ($temp)=keys %Apache::lonhomework::history ;
1.159     albertel  506:     if ($temp =~ m/^error:.*/) { %Apache::lonhomework::history=(); }
1.65      albertel  507: }
                    508: 
                    509: # -------------------------------------------------------------finalize_storage
                    510: # Stores away the result has to a student's environment
                    511: # checks form.grade_ for specific values, other wises stores
                    512: # to the running users environment
1.285     raeburn   513: # Will increment totals for attempts, students, and corrects
                    514: # if running user has student role.  
1.65      albertel  515: sub finalize_storage {
1.357     albertel  516:     my ($given_symb) = @_;
1.159     albertel  517:     my $result;
1.289     albertel  518:     if (%Apache::lonhomework::results) {
1.323     albertel  519: 	my @remove = grep(/^INTERNAL_/,keys(%Apache::lonhomework::results));
                    520: 	delete(@Apache::lonhomework::results{@remove});
1.357     albertel  521: 	my ($symb,$courseid,$domain,$name) = 
1.367     albertel  522: 	    &Apache::lonnet::whichuser($given_symb);
1.333     albertel  523: 	if ($env{'request.state'} eq 'construct' 
                    524: 	    || $symb eq ''
                    525: 	    || $Apache::lonhomework::type eq 'practice') {
                    526: 	    my $namespace = $symb || $env{'request.uri'};
1.284     albertel  527: 	    $Apache::lonhomework::results{'rndseed'}=$env{'form.rndseed'};
1.159     albertel  528: 	    $result=&Apache::lonnet::tmpstore(\%Apache::lonhomework::results,
1.333     albertel  529: 					      $namespace,'',$domain,$name);
1.159     albertel  530: 	    &Apache::lonxml::debug('Construct Store return message:'.$result);
                    531: 	} else {
                    532: 	    $result=&Apache::lonnet::cstore(\%Apache::lonhomework::results,
                    533: 					    $symb,$courseid,$domain,$name);
                    534: 	    &Apache::lonxml::debug('Store return message:'.$result);
1.285     raeburn   535:             if ($env{'request.role'} =~/^st/) {
                    536:                 &store_aggregates($symb,$courseid);
                    537:             }
1.159     albertel  538: 	}
1.323     albertel  539:     } else {
                    540: 	&Apache::lonxml::debug('Nothing to store');
1.67      albertel  541:     }
1.159     albertel  542:     return $result;
1.65      albertel  543: }
                    544: 
1.285     raeburn   545: # -------------------------------------------------------------store_aggregates
                    546: # Sends hash of values to be incremented in nohist_resourcetracker.db
                    547: # for the course. Increments total number of attempts, unique students 
                    548: # and corrects for each part for an instance of a problem, as appropriate.
                    549: sub store_aggregates {
                    550:     my ($symb,$courseid) = @_;
1.286     albertel  551:     my %aggregate;
                    552:     my @parts;
1.288     albertel  553:     my $cdomain = $env{'course.'.$env{'request.course.id'}.'.domain'};
                    554:     my $cname = $env{'course.'.$env{'request.course.id'}.'.num'};
1.286     albertel  555:     foreach my $key (keys(%Apache::lonhomework::results)) {
1.287     albertel  556:         if ($key =~ /resource\.([^\.]+)\.tries/) {
1.286     albertel  557:             push(@parts, $1);
1.285     raeburn   558:         }
                    559:     }
1.286     albertel  560:     foreach my $part (@parts) {
                    561:         if ($Apache::lonhomework::results{'resource.'.$part.'.award'}
                    562: 	    eq 'APPROX_ANS' ||
                    563: 	    $Apache::lonhomework::results{'resource.'.$part.'.award'}
                    564: 	    eq 'EXACT_ANS') {
1.287     albertel  565:             $aggregate{$symb."\0".$part."\0correct"} = 1;
1.285     raeburn   566:         }
1.286     albertel  567:         if ($Apache::lonhomework::results{'resource.'.$part.'.tries'} == 1) {
1.287     albertel  568:             $aggregate{$symb."\0".$part."\0users"} = 1;
1.292     raeburn   569:         } else {
1.293     albertel  570:             my (undef,$last_reset) = &Apache::grades::get_last_resets($symb,$env{'request.course.id'},[$part]); 
1.292     raeburn   571:             if ($last_reset) {
1.293     albertel  572:                 if (&Apache::grades::get_num_tries(\%Apache::lonhomework::history,$last_reset,$part) == 0) {
1.292     raeburn   573:                     $aggregate{$symb."\0".$part."\0users"} = 1;
                    574:                 }
                    575:             }
1.285     raeburn   576:         }
1.287     albertel  577:         $aggregate{$symb."\0".$part."\0attempts"} = 1;
1.285     raeburn   578:     }
1.292     raeburn   579:     if (keys (%aggregate) > 0) {
1.289     albertel  580: 	&Apache::lonnet::cinc('nohist_resourcetracker',\%aggregate,
1.292     raeburn   581:                             $cdomain,$cname);
                    582:     }
                    583: }
1.289     albertel  584: 
1.65      albertel  585: sub checkout_msg {
1.211     albertel  586:     my %lt=&Apache::lonlocal::texthash( 
                    587: 		'resource'=>'The resource needs to be checked out',
                    588: 		'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.',
                    589:                 'warning'=>'Checking out resources is subject to course policies, and may exclude future credit even if done erroneously.',
                    590:                 'checkout'=>'Check out Exam for Viewing',
                    591: 		'checkout?'=>'Check out Exam?');
1.352     albertel  592:     my $uri = &Apache::lonenc::check_encrypt($env{'request.uri'});
1.159     albertel  593:     return (<<ENDCHECKOUT);
1.211     albertel  594: <h2>$lt{'resource'}</h2>
                    595:     <p>$lt{'id_expln'}</p>
                    596: <font color="red">
                    597: <p>$lt{'warning'}</p>
1.91      albertel  598: </font>
1.352     albertel  599: <form name="checkout" method="POST" action="$uri">
1.91      albertel  600: <input type="hidden" name="doescheckout" value="yes" />
1.211     albertel  601: <input type="button" name="checkoutbutton" value="$lt{'checkout'}" onClick="javascript:if (confirm('$lt{'checkout?'}')) { document.checkout.submit(); }" />
1.65      albertel  602: </form>
                    603: ENDCHECKOUT
                    604: }
                    605: 
1.252     albertel  606: sub firstaccess_msg {
1.253     albertel  607:     my ($time,$symb)=@_;
                    608:     my ($map)=&Apache::lonnet::decode_symb($symb);
                    609:     my $foldertitle=&Apache::lonnet::gettitle($map);
                    610:     &Apache::lonxml::debug("map is $map title is $foldertitle");
1.352     albertel  611:     my $uri = &Apache::lonenc::check_encrypt($env{'request.uri'});
1.252     albertel  612:     return (<<ENDCHECKOUT);
1.253     albertel  613: <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.352     albertel  614: <form name="markaccess" method="POST" action="$uri">
1.252     albertel  615: <input type="hidden" name="markaccess" value="yes" />
                    616: <input type="button" name="accessbutton" value="Show Resource" onClick="javascript:if (confirm('Start Timer?')) { document.markaccess.submit(); }" />
                    617: </form>
                    618: ENDCHECKOUT
                    619: }
                    620: 
1.204     albertel  621: sub init_problem_globals {
                    622:     my ($type)=@_;
                    623:     #initialize globals
1.308     foxr      624:     #   For problems, we start out in part 0 (outside a <part> tag).
                    625:     #   and part 0 is used to describe the main body of the <problem>
                    626:     #
1.204     albertel  627:     if ($type eq 'problem') {
                    628: 	$Apache::inputtags::part='0';
                    629: 	@Apache::inputtags::partlist=('0');
1.405     albertel  630: 	&Apache::lonhomework::set_show_problem_status(&get_problem_status('0'));
1.266     albertel  631: 	$Apache::lonhomework::ignore_response_errors=0;
1.308     foxr      632: 
1.266     albertel  633:     } elsif ($type eq 'library') {
1.204     albertel  634: 	$Apache::inputtags::part='';
                    635: 	@Apache::inputtags::partlist=();
1.405     albertel  636: 	&Apache::lonhomework::reset_show_problem_status();
1.266     albertel  637: 	$Apache::lonhomework::ignore_response_errors=1;
1.308     foxr      638: 
1.304     albertel  639:     } elsif ($type eq 'Task') {
                    640: 	$Apache::inputtags::part='0';
                    641: 	@Apache::inputtags::partlist=('0');
1.405     albertel  642: 	&Apache::lonhomework::reset_show_problem_status();
1.304     albertel  643: 	$Apache::lonhomework::ignore_response_errors=1;
1.204     albertel  644:     }
                    645:     @Apache::inputtags::responselist = ();
                    646:     @Apache::inputtags::importlist = ();
                    647:     @Apache::inputtags::previous=();
                    648:     @Apache::inputtags::previous_version=();
                    649:     $Apache::structuretags::printanswer='No';
                    650:     @Apache::structuretags::whileconds=();
                    651:     @Apache::structuretags::whilebody=();
                    652:     @Apache::structuretags::whileline=();
                    653:     $Apache::lonhomework::scantronmode=0;
                    654:     undef($Apache::lonhomework::name);
1.358     albertel  655:     undef($Apache::lonhomework::default_type);
                    656:     undef($Apache::lonhomework::type);
1.204     albertel  657: }
                    658: 
                    659: sub reset_problem_globals {
                    660:     my ($type)=@_;
                    661:     undef(%Apache::lonhomework::history);
                    662:     undef(%Apache::lonhomework::results);
                    663:     undef($Apache::inputtags::part);
1.208     albertel  664: #don't undef this, lonhomework.pm takes care of this, we use this to 
                    665: #detect if we try to do 2 problems in one file
                    666: #   undef($Apache::lonhomework::parsing_a_problem);
1.204     albertel  667:     undef($Apache::lonhomework::name);
1.358     albertel  668:     undef($Apache::lonhomework::default_type);
                    669:     undef($Apache::lonhomework::type);
                    670:     undef($Apache::lonhomework::scantronmode);
                    671:     undef($Apache::lonhomework::ignore_response_errors);
1.405     albertel  672:     &Apache::lonhomework::reset_show_problem_status();
1.204     albertel  673: }
                    674: 
1.241     albertel  675: sub set_problem_state {
1.240     albertel  676:     my ($part)=@_;
1.284     albertel  677:     if ($env{'form.problemstate'} eq 'CANNOT_ANSWER_correct') {
1.240     albertel  678: 	$Apache::lonhomework::history{"resource.$part.solved"}=
                    679: 	    'correct_by_student';
                    680:     }
                    681: }
                    682: 
1.241     albertel  683: sub get_problem_status {
                    684:     my ($part)=@_;
1.267     albertel  685:     my $problem_status;
1.284     albertel  686:     if ($env{'request.state'} eq 'construct' &&
                    687: 	defined($env{'form.problemstatus'})) {
                    688: 	$problem_status=$env{'form.problemstatus'};
1.267     albertel  689:     } else {
                    690: 	$problem_status=&Apache::lonnet::EXT("resource.$part.problemstatus");
                    691: 	&Apache::lonxml::debug("problem status for $part is $problem_status");
1.284     albertel  692: 	&Apache::lonxml::debug("env probstat is ".$env{'form.problemstatus'});
1.241     albertel  693:     }
                    694:     return $problem_status;
                    695: }
                    696: 
1.9       albertel  697: sub start_problem {
1.326     albertel  698:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.19      albertel  699: 
1.311     foxr      700:     # We'll use the redirection to fix up printing of duedates.
1.321     albertel  701:     if (!$Apache::lonxml::metamode) {
                    702: 	&Apache::lonxml::startredirection();
                    703:     }
1.311     foxr      704: 
1.308     foxr      705:     # Problems don't nest and we don't allow more than one <problem> in
                    706:     # a .problem file.
                    707:     #
1.184     albertel  708:     if ( $Apache::inputtags::part ne '' ||
                    709: 	 $Apache::lonhomework::parsing_a_problem) {
                    710: 	&Apache::lonxml::error('Only one &lt;problem&gt; allowed in a .problem file');
1.326     albertel  711: 	#my $bodytext=&Apache::lonxml::get_all_text("/problem",$parser,$style);
1.159     albertel  712: 	return '';
                    713:     }
1.184     albertel  714: 
                    715:     $Apache::lonhomework::parsing_a_problem=1;
1.204     albertel  716:     &init_problem_globals('problem');
1.166     albertel  717: 
1.284     albertel  718:     if (defined($env{'scantron.maxquest'})) {
1.166     albertel  719: 	$Apache::lonhomework::scantronmode=1;
                    720:     }
1.161     albertel  721: 
1.159     albertel  722:     if ($target ne 'analyze') {
                    723: 	$Apache::lonhomework::type=&Apache::lonnet::EXT('resource.0.type');
1.284     albertel  724: 	if (($env{'request.state'} eq 'construct') &&
                    725: 	    defined($env{'form.problemtype'})) {
                    726: 	    $Apache::lonhomework::type=$env{'form.problemtype'};
1.237     albertel  727: 	}
1.332     albertel  728: 	&Apache::lonxml::debug("Found this to be of type :$Apache::lonhomework::type:");
1.159     albertel  729:     }
1.164     albertel  730:     if ($Apache::lonhomework::type eq '' ) {
1.284     albertel  731: 	my $uri=$env{'request.uri'};
1.159     albertel  732: 	if ($uri=~/\.(\w+)$/) {
                    733: 	    $Apache::lonhomework::type=$1;
                    734: 	    &Apache::lonxml::debug("Using type of $1");
                    735: 	} else {
                    736: 	    $Apache::lonhomework::type='problem';
                    737: 	    &Apache::lonxml::debug("Using default type, problem, :$uri:");
                    738: 	}
1.87      albertel  739:     }
1.301     albertel  740:     $Apache::lonhomework::default_type = $Apache::lonhomework::type;
1.58      www       741: 
1.363     albertel  742:     &initialize_storage();
1.389     albertel  743:     if ($target ne 'analyze'
                    744:        	&& $env{'request.state'} eq 'construct') {
                    745: 	&set_problem_state('0');
                    746:     }
                    747: 
1.366     albertel  748:     if ($target eq 'web') {
                    749: 	&Apache::lonxml::debug(" grading history ");
                    750: 	&Apache::lonhomework::showhash(%Apache::lonhomework::history);
                    751:     }
1.363     albertel  752: 
1.159     albertel  753:     #added vars to the scripting enviroment
1.213     albertel  754:     my $expression='$external::part=\''.$Apache::inputtags::part.'\';';
1.248     albertel  755:     $expression.='$external::type=\''.$Apache::lonhomework::type.'\';';
1.24      albertel  756:     &Apache::run::run($expression,$safeeval);
1.159     albertel  757:     my $status;
                    758:     my $accessmsg;
                    759: 
1.343     albertel  760:     my $name= &get_resource_name($parstack,$safeeval);
1.350     albertel  761:     my ($result,$form_tag_start);
1.354     albertel  762:     if ($target eq 'web' || $target eq 'webgrade' || $target eq 'tex'
                    763: 	|| $target eq 'edit') {
1.350     albertel  764: 	($result,$form_tag_start) =
                    765: 	    &page_start($target,$token,$tagstack,$parstack,$parser,$safeeval,
                    766: 			$name);
                    767:     }
                    768: 
1.284     albertel  769:     if ($target eq 'tex' and $env{'request.symb'} =~ m/\.page_/) {$result='';}
1.159     albertel  770: 
                    771:     if ($target eq 'analyze') { my $rndseed=&setup_rndseed($safeeval); }
                    772:     if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
                    773: 	$target eq 'tex') {
                    774: 	#handle exam checkout
                    775: 	if ($Apache::lonhomework::type eq 'exam') {
                    776: 	    my $token=
                    777: 		$Apache::lonhomework::history{"resource.0.outtoken"};
1.284     albertel  778: 	    if (($env{'form.doescheckout'}) && (!$token)) {
1.159     albertel  779: 		$token=&Apache::lonxml::maketoken();
                    780: 		$Apache::lonhomework::history{"resource.0.outtoken"}=
                    781: 		    $token;
                    782: 	    }
1.343     albertel  783: 	    $result.=&Apache::lonxml::printtokenheader($target,$token);
1.142     albertel  784: 	}
1.284     albertel  785: 	if ($env{'form.markaccess'}) {
1.252     albertel  786: 	    &Apache::lonnet::set_first_access('map');
                    787: 	}
1.159     albertel  788: 	#handle rand seed in construction space
                    789: 	my $rndseed=&setup_rndseed($safeeval);
1.367     albertel  790: 	my ($symb)=&Apache::lonnet::whichuser();
1.333     albertel  791: 	if ($env{'request.state'} ne "construct" && 
                    792: 	    ($symb eq '' || $Apache::lonhomework::type eq 'practice')) {
1.162     albertel  793: 	    $form_tag_start.='<input type="hidden" name="rndseed" value="'.
                    794: 		$rndseed.'" />'.
                    795: 		    '<input type="submit" name="resetdata"
1.334     albertel  796:                              value="'.&mt('New Problem Variation').'" />';
                    797: 	    if (exists($env{'form.username'})) {
                    798: 		$form_tag_start.=
1.164     albertel  799: 		    '<input type="hidden" name="username"
1.284     albertel  800:                              value="'.$env{'form.username'}.'" />';
1.334     albertel  801: 	    }
1.333     albertel  802: 	    if ($env{'request.role.adv'}) {
1.267     albertel  803: 		$form_tag_start.=
1.300     albertel  804: 		    ' <label><input type="checkbox" name="showallfoils" ';
1.284     albertel  805: 		if (defined($env{'form.showallfoils'})) {
1.267     albertel  806: 		    $form_tag_start.='checked="on"';
                    807: 		}
1.300     albertel  808: 		$form_tag_start.= ' />'.&mt('&nbsp;Show&nbsp;All&nbsp;Foils').
                    809: 		    '</label>';
1.267     albertel  810: 	    }
                    811: 	    $form_tag_start.='<hr />';
1.162     albertel  812: 	}
1.324     albertel  813: 
                    814: 	($status,$accessmsg,my $slot_name,my $slot) = 
                    815: 	    &Apache::lonhomework::check_slot_access('0','problem');
1.159     albertel  816: 	push (@Apache::inputtags::status,$status);
1.324     albertel  817: 
1.159     albertel  818: 	my $expression='$external::datestatus="'.$status.'";';
                    819: 	$expression.='$external::gradestatus="'.$Apache::lonhomework::history{"resource.0.solved"}.'";';
                    820: 	&Apache::run::run($expression,$safeeval);
                    821: 	&Apache::lonxml::debug("Got $status");
1.324     albertel  822: 
1.159     albertel  823: 	if (( $status eq 'CLOSED' ) ||
                    824: 	    ( $status eq 'UNCHECKEDOUT') ||
1.252     albertel  825: 	    ( $status eq 'NOT_YET_VIEWED') ||
1.159     albertel  826: 	    ( $status eq 'BANNED') ||
1.216     albertel  827: 	    ( $status eq 'UNAVAILABLE') ||
1.324     albertel  828: 	    ( $status eq 'NOT_IN_A_SLOT') ||
1.216     albertel  829: 	    ( $status eq 'INVALID_ACCESS')) {
1.326     albertel  830: 	    my $bodytext=&Apache::lonxml::get_all_text("/problem",$parser,
                    831: 						       $style);
1.159     albertel  832: 	    if ( $target eq "web" ) {
1.343     albertel  833: 		my $msg;
1.159     albertel  834: 		if ($status eq 'UNAVAILABLE') {
1.245     albertel  835: 		    $msg.='<h1>'.&mt('Unable to determine if this resource is open due to network problems. Please try again later.').'</h1>';
1.253     albertel  836: 		} elsif ($status ne 'NOT_YET_VIEWED') {
1.245     albertel  837: 		    $msg.='<h1>'.&mt('Not open to be viewed').'</h1>';
1.159     albertel  838: 		}
1.216     albertel  839: 		if ($status eq 'CLOSED' || $status eq 'INVALID_ACCESS') {
1.393     www       840: 		    $msg.=&mt('The problem ').$accessmsg;
1.159     albertel  841: 		} elsif ($status eq 'UNCHECKEDOUT') {
1.343     albertel  842: 		    $msg.=&checkout_msg();
1.252     albertel  843: 		} elsif ($status eq 'NOT_YET_VIEWED') {
1.253     albertel  844: 		    $msg.=&firstaccess_msg($accessmsg,$symb);
1.325     albertel  845: 		} elsif ($status eq 'NOT_IN_A_SLOT') {
                    846: 		    $msg.=&Apache::bridgetask::add_request_another_attempt_button("Sign up for time to work.");
1.159     albertel  847: 		}
                    848: 		$result.=$msg.'<br />';
                    849: 	    } elsif ($target eq 'tex') {
1.332     albertel  850: 		my $startminipage = ($env{'form.problem_split'}=~/yes/i)? ''
                    851: 		                    : '\begin{minipage}{\textwidth}';
                    852: 		$result.='\begin{document}\noindent \vskip 1 mm '.
                    853: 		    $startminipage.'\vskip 0 mm';
1.159     albertel  854: 		if ($status eq 'UNAVAILABLE') {
1.211     albertel  855: 		    $result.=&mt('Unable to determine if this resource is open due to network problems. Please try again later.').'\vskip 0 mm ';
1.159     albertel  856: 		} else {
1.211     albertel  857: 		    $result.=&mt('Problem is not open to be viewed. It')." $accessmsg \\vskip 0 mm ";
1.159     albertel  858: 		}
                    859: 	    }
1.324     albertel  860: 	} elsif ($status eq 'NEEDS_CHECKIN') {
1.326     albertel  861: 	    my $bodytext=&Apache::lonxml::get_all_text("/problem",$parser,
                    862: 						       $style);
1.324     albertel  863: 	    if ($target eq 'web') {
1.375     albertel  864: 		$result .= 
                    865: 		    &Apache::bridgetask::proctor_validation_screen($slot);
1.324     albertel  866: 	    } elsif ($target eq 'grade') {
                    867: 		&Apache::bridgetask::proctor_check_auth($slot_name,$slot,
                    868: 							'problem');
                    869: 	    }
1.159     albertel  870: 	} elsif ($target eq 'web') {
1.360     albertel  871: 	    if ($status eq 'CAN_ANSWER' 
                    872: 		&& $slot_name ne ''
                    873: 		&& $Apache::lonhomework::history{'resource.0.checkedin'} eq '') {
                    874: 		# unproctored slot access, self checkin
                    875: 		&Apache::bridgetask::check_in('problem',undef,undef,
                    876: 					      $slot_name);
                    877: 	    }
1.368     albertel  878: 	    $result.="\n $form_tag_start \t".	
1.227     albertel  879: 	      '<input type="hidden" name="submitted" value="yes" />';
                    880: 	    # create a page header and exit
1.284     albertel  881: 	    if ($env{'request.state'} eq "construct") {
                    882: 		$result.= &problem_web_to_edit_header($env{'form.rndseed'});
1.227     albertel  883: 	    }
                    884: 	    # if we are viewing someone else preserve that info
1.284     albertel  885: 	    if (defined $env{'form.grade_symb'}) {
1.227     albertel  886: 		foreach my $field ('symb','courseid','domain','username') {
                    887: 		    $result .= '<input type="hidden" name="grade_'.$field.
1.284     albertel  888: 			'" value="'.$env{"form.grade_$field"}.'" />'."\n";
1.159     albertel  889: 		}
                    890: 	    }
                    891: 	} elsif ($target eq 'tex') {
1.319     foxr      892: 	    $result .= 'INSERTTEXFRONTMATTERHERE';
                    893: 
1.99      sakharuk  894: 	}
1.159     albertel  895:     } elsif ($target eq 'edit') {
1.343     albertel  896: 	$result .= $form_tag_start.&problem_edit_header();
1.226     albertel  897: 	$Apache::lonxml::warnings_error_header=
                    898: 	    &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  899: 	my $temp=&Apache::edit::insertlist($target,$token);
                    900: 	$result.=$temp;
                    901:     } elsif ($target eq 'modified') {
                    902: 	$result=$token->[4];
                    903:     } else {
                    904: 	# page_start returned a starting result, delete it if we don't need it
                    905: 	$result = '';
1.99      sakharuk  906:     }
1.159     albertel  907:     return $result;
1.9       albertel  908: }
                    909: 
                    910: sub end_problem {
1.159     albertel  911:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.321     albertel  912:     my $result;
1.310     foxr      913: 
1.321     albertel  914:     if (!$Apache::lonxml::metamode) {
                    915: 	$result = &Apache::lonxml::endredirection(); #started in &start_problem
1.329     albertel  916: 	$Apache::lonxml::post_evaluate=0;
1.321     albertel  917:     }
1.319     foxr      918: 
                    919:     if ($target eq 'tex') {
1.321     albertel  920: 	# Figure out the front matter and replace the
                    921: 	# INSERTTEXFRONTMATTERHERE in result with it.  note that we do
                    922: 	# this in end_problem because whether or not we display due
                    923: 	# dates depends on whether due dates have already been
                    924: 	# displayed in the problem parts.
                    925: 
1.319     foxr      926: 	my $frontmatter   = '';
                    927: 	my $startminipage = '';
                    928: 	if (not $env{'form.problem_split'}=~/yes/) {
                    929: 	    $startminipage = '\begin{minipage}{\textwidth}';
                    930: 	}
                    931: 	my $id = $Apache::inputtags::part;
                    932: 	my $weight = &Apache::lonnet::EXT("resource.$id.weight");
                    933: 	my $packages=&Apache::lonnet::metadata($env{'request.uri'},'packages');
                    934: 	my @packages = split /,/,$packages;
                    935: 	my $allow_print_points = 0;
                    936: 	foreach my $partial_key (@packages) {
                    937: 	    if ($partial_key=~m/^part_0$/) {
                    938: 		$allow_print_points=1;
                    939: 	    }
                    940: 	}
                    941: 	my $maxtries = &Apache::lonnet::EXT("resource.$id.maxtries");
                    942: 	if (defined($maxtries) && $maxtries < 0) { $allow_print_points=0; }
                    943: 	if (lc($env{'course.'.$env{'request.course.id'}.
                    944: 			'.disableexampointprint'}) eq 'yes') {
                    945: 	    $allow_print_points=0;
                    946: 	}
                    947: 	my $name_of_resourse= &Apache::lonxml::latex_special_symbols(&get_resource_name($parstack,$safeeval),'header');
                    948: 	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 ';
                    949: 	my $toc_line='\vskip 1 mm\noindent '.$startminipage.
                    950: 	    '\addcontentsline{toc}{subsection}{'.$name_of_resourse.'}';
                    951: 	
                    952: 	#  Figure out what the due date is and if we need to print
                    953: 	#  it in the problem header.  We have been logging the
                    954: 	#  last due date written to file. 
                    955: 	
                    956: 	my $duetime = &Apache::lonnet::EXT("resource.$id.duedate"); 
                    957: 	my $duedate = POSIX::strftime("%c",localtime($duetime));
                    958: 	my $temp_file;
                    959: 	my $filename = "/home/httpd/prtspool/$env{'user.name'}_$env{'user.domain'}_printout.due";
                    960: 	
                    961: 	# Figure out what the last printed due date is or set it
                    962: 	# to the epoch if no duedates have been printed.
                    963: 	
                    964: 	my $due_file_content = 0;      #   If the file does not yet exist, time is the epoch.
                    965: 	if (-e $filename) {
                    966: 	    $temp_file = Apache::File->new($filename);
                    967: 	    my @due_file      = <$temp_file>;
                    968: 	    $due_file_content = $due_file[$#due_file];
                    969: 	    chomp $due_file_content;
                    970: 	} 
                    971: 	
                    972: 	# We display the due date iff it is not the same as the last
                    973: 	# duedate in problem header ($due_file_content), and
                    974: 	# none of our parts displayed a duedate.
                    975: 	#
                    976: 	my $parts_with_displayduedate;
                    977: 	if (defined $Apache::outputtags::showonce{'displayduedate'}) {
                    978: 	    $parts_with_displayduedate = 
                    979: 		scalar(@{$Apache::outputtags::showonce{'displayduedate'}});
                    980: 	} else {
                    981: 	    $parts_with_displayduedate = 0;
                    982: 	}
                    983: 	if (($due_file_content != $duetime) && ($parts_with_displayduedate == 0) ) {
                    984: 	    $temp_file = Apache::File->new('>'.$filename);
                    985: 	    print $temp_file "$duetime\n";
                    986: 	    if (not $env{'request.symb'} =~ m/\.page_/) {
                    987: 		if(not $duedate=~m/1969/ and $Apache::lonhomework::type ne 'exam') {
                    988: 		    $frontmatter .= $begin_doc.
                    989: 			'\textit{Due date: '.$duedate.'} '.$toc_line;
                    990: 		} else {
                    991: 		    $frontmatter.= $begin_doc.$toc_line;
                    992: 		    if ($Apache::lonhomework::type eq 'exam' and $allow_print_points==1) { $frontmatter .= '\fbox{\textit{'.$weight.' pt}}';}
                    993: 		}
                    994: 	    } else {
1.381     albertel  995: 		$frontmatter .= '\vskip 1mm\textit{Due date: '.$duedate.'} \\\\\\\\'.$startminipage;
1.319     foxr      996: 	    }
                    997: 	} else {
                    998: 	    if (not $env{'request.symb'} =~ m/\.page_/) {
                    999: 		$frontmatter .= $begin_doc.$toc_line;
                   1000: 		if (($Apache::lonhomework::type eq 'exam') and ($allow_print_points==1)) { $frontmatter .= '\fbox{\textit{'.$weight.' pt}}';}
                   1001: 	    } else {
1.381     albertel 1002: 		$frontmatter .= '\vskip 1mm \\\\\\\\'.$startminipage;
1.319     foxr     1003: 	    }
                   1004: 	}
                   1005: 	$result =~ s/INSERTTEXFRONTMATTERHERE/$frontmatter/;
                   1006:     }
                   1007: 
1.159     albertel 1008:     my $status=$Apache::inputtags::status['-1'];
                   1009:     if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' ||
                   1010: 	$target eq 'tex') {
1.249     albertel 1011: 	if ( $target eq 'grade' && $Apache::inputtags::part eq '0') {
1.159     albertel 1012: 	    # if part is zero, no <part>s existed, so we need to the grading
1.249     albertel 1013: 	    if ($status eq 'CAN_ANSWER' ||$Apache::lonhomework::scantronmode) {
                   1014: 		&Apache::inputtags::grade;
1.324     albertel 1015: 	    } elsif ($status eq 'NEEDS_CHECKIN') {
                   1016: 		# no need to grade, and don't want to hide data
1.249     albertel 1017: 	    } else {
                   1018: 		# move any submission data to .hidden
                   1019: 		&Apache::inputtags::hidealldata($Apache::inputtags::part);
                   1020: 	    }
1.159     albertel 1021: 	} elsif ( ($target eq 'web' || $target eq 'tex') &&
                   1022: 		  $Apache::inputtags::part eq '0' &&
1.252     albertel 1023: 		  $status ne 'UNCHECKEDOUT' && $status ne 'NOT_YET_VIEWED') {
1.159     albertel 1024: 	    # if part is zero, no <part>s existed, so we need show the current
                   1025: 	    # grading status
                   1026: 	    my $gradestatus = &Apache::inputtags::gradestatus($Apache::inputtags::part,$target);
                   1027: 	    $result.= $gradestatus;
                   1028: 	}
                   1029: 	if (
1.284     albertel 1030: 	    (($target eq 'web') && ($env{'request.state'} ne 'construct')) ||
1.159     albertel 1031: 	    ($target eq 'answer') || ($target eq 'tex')
                   1032: 	   ) {
1.227     albertel 1033: 	    if ($target ne 'tex' &&
1.284     albertel 1034: 		$env{'form.answer_output_mode'} ne 'tex') {
1.254     www      1035: 		$result.="</form>";
1.348     albertel 1036: 		$result.= &Apache::lonhtmlcommon::htmlareaselectactive(&Apache::lonhtmlcommon::get_htmlareafields());
1.159     albertel 1037: 	    }
                   1038: 	    if ($target eq 'web') {
1.346     albertel 1039: 		$result.= &Apache::loncommon::end_page({'discussion' => 1});
1.159     albertel 1040: 	    } elsif ($target eq 'tex') {
1.178     sakharuk 1041: 		my $endminipage = '';
1.284     albertel 1042: 		if (not $env{'form.problem_split'}=~/yes/) {
1.178     sakharuk 1043: 		    $endminipage = '\end{minipage}';
                   1044: 		}
1.284     albertel 1045:                 if ($env{'form.print_discussions'} eq 'yes') {
1.263     sakharuk 1046: 		    $result.=&Apache::lonxml::xmlend($target,$parser);
1.159     albertel 1047: 		} else {
1.262     sakharuk 1048: 		    $result .= '\keephidden{ENDOFPROBLEM}\vskip 0.5mm\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}';
1.284     albertel 1049: 		    if (not $env{'request.symb'} =~ m/\.page_/) {
1.262     sakharuk 1050: 			$result .= $endminipage.'\end{document} ';
                   1051: 		    } else {
1.382     albertel 1052: 			$result .= $endminipage;
1.262     sakharuk 1053: 		    }
1.159     albertel 1054: 		}
                   1055: 	    }
                   1056: 	}
                   1057: 	if ($target eq 'grade') {
                   1058: 	    &Apache::lonhomework::showhash(%Apache::lonhomework::results);
                   1059: 	    &finalize_storage();
                   1060: 	}
1.284     albertel 1061: 	if ($target eq 'answer' && ($env{'request.state'} eq 'construct')
                   1062: 	    && $env{'form.answer_output_mode'} ne 'tex') {
1.346     albertel 1063: 	    $result.=&Apache::loncommon::end_page({'discussion' => 1});
1.294     albertel 1064: 	                        # normally we get it from above, but in CSTR
1.172     albertel 1065: 	                        # we always show answer mode too.
1.159     albertel 1066: 	}
                   1067:     } elsif ($target eq 'meta') {
                   1068: 	if ($Apache::inputtags::part eq '0') {
1.179     albertel 1069: 	    @Apache::inputtags::response=();
1.159     albertel 1070: 	    $result=&Apache::response::mandatory_part_meta;
                   1071: 	}
1.215     albertel 1072: 	$result.=&Apache::response::meta_part_order();
1.258     albertel 1073: 	$result.=&Apache::response::meta_response_order();
1.159     albertel 1074:     } elsif ($target eq 'edit') {
                   1075: 	&Apache::lonxml::debug("in end_problem with $target, edit");
1.314     albertel 1076: 	$result .= &problem_edit_footer();
1.320     albertel 1077:     } elsif ($target eq 'modified') {
                   1078: 	 $result .= $token->[2];
1.159     albertel 1079:     }
1.155     albertel 1080: 
1.284     albertel 1081:     if ($env{'request.state'} eq 'construct' && $target eq 'web') {
1.177     albertel 1082: 	&Apache::inputtags::check_for_duplicate_ids();
                   1083:     }
1.204     albertel 1084: 
                   1085:     &reset_problem_globals('problem');
1.159     albertel 1086: 
                   1087:     return $result;
1.48      albertel 1088: }
                   1089: 
1.108     albertel 1090: 
1.48      albertel 1091: sub start_library {
1.159     albertel 1092:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.343     albertel 1093:     my ($result,$form_tag_start);
1.371     albertel 1094:     if ($#$tagstack eq 0 && $$tagstack[0] eq 'library') {
1.244     albertel 1095: 	&init_problem_globals('library');
                   1096: 	$Apache::lonhomework::type='problem';
                   1097:     }
1.159     albertel 1098:     if ($target eq 'edit') {
1.343     albertel 1099: 	($result,$form_tag_start)=
                   1100: 	    &page_start($target,$token,$tagstack,$parstack,$parser,$safeeval,
                   1101: 			'Edit');
                   1102: 	$result.=$form_tag_start.&problem_edit_header();
1.159     albertel 1103: 	my $temp=&Apache::edit::insertlist($target,$token);
                   1104: 	$result.=$temp;
                   1105:     } elsif ($target eq 'modified') {
                   1106: 	$result=$token->[4];
1.340     albertel 1107:     } elsif (($target eq 'web' || $target eq 'webgrade')
1.371     albertel 1108: 	     && ($#$tagstack eq 0 && $$tagstack[0] eq 'library')
1.340     albertel 1109: 	     && $env{'request.state'} eq "construct" ) {
1.159     albertel 1110: 	my $name=&get_resource_name($parstack,$safeeval);
1.343     albertel 1111: 	($result,$form_tag_start)=
                   1112: 	    &page_start($target,$token,$tagstack,$parstack,$parser,$safeeval,
                   1113: 			$name);
1.159     albertel 1114: 	my $rndseed=&setup_rndseed($safeeval);
1.343     albertel 1115: 	$result.=" \n $form_tag_start".	
1.159     albertel 1116: 		  '<input type="hidden" name="submitted" value="yes" />';
                   1117: 	$result.=&problem_web_to_edit_header($rndseed);
                   1118:     }
                   1119:     return $result;
1.48      albertel 1120: }
                   1121: 
                   1122: sub end_library {
1.159     albertel 1123:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   1124:     my $result='';
                   1125:     if ($target eq 'edit') {
                   1126: 	$result=&problem_edit_footer();
1.371     albertel 1127:     } elsif ($target eq 'web' 
                   1128: 	     && ($#$tagstack eq 0 && $$tagstack[0] eq 'library') 
                   1129: 	     && $env{'request.state'} eq "construct") {
1.349     albertel 1130: 	$result.='</form>'.&Apache::loncommon::end_page({'discussion' => 1});
1.159     albertel 1131:     }
1.371     albertel 1132:     if ( $#$tagstack eq 0 && $$tagstack[0] eq 'library') {
                   1133: 	&reset_problem_globals('library');
                   1134:     }
1.159     albertel 1135:     return $result;
1.197     www      1136: }
                   1137: 
                   1138: sub start_definetag {
1.326     albertel 1139:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.197     www      1140: 
                   1141:     my $result;
                   1142: 
                   1143:     my $name = $token->[2]->{'name'};
1.326     albertel 1144:     my $skip=&Apache::lonxml::get_all_text("/definetag",$parser,$style);
1.396     albertel 1145:     if ($target eq 'web') {
                   1146: 	if ($name=~/^\//) {
                   1147: 	    $result=
                   1148: 		'<br /><table class="LC_sty_end"><tr><th>'.
                   1149: 		&mt('END [_1]'.'<tt>'.$name.'</tt>').'</th></tr>';
                   1150: 	} else {
                   1151: 	    $result=
                   1152: 		'<br /><table class="LC_sty_begin"><tr><th>'.
                   1153: 		&mt('BEGIN [_1]'.'<tt>'.$name.'</tt>').'</th></tr>';
                   1154: 	}
                   1155: 	$skip = &HTML::Entities::encode($skip, '<>&"');
                   1156: 	$result.='<tr><td><pre>'.$skip.'</pre></td></tr></table>';
1.197     www      1157:     }
                   1158:     return $result;
                   1159: }
                   1160: 
                   1161: sub end_definetag {
                   1162:     return '';
1.1       albertel 1163: }
                   1164: 
                   1165: sub start_block {
1.201     albertel 1166:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.131     albertel 1167: 
                   1168:     my $result;
1.1       albertel 1169: 
1.339     albertel 1170:     if ($target eq 'web' || $target eq 'grade'   || $target eq 'answer'  ||
                   1171: 	$target eq 'tex' || $target eq 'analyze' || $target eq 'webgrade') {
1.159     albertel 1172: 	my $code = $token->[2]->{'condition'};
1.385     albertel 1173: 	if (defined($code) && $code ne '') {
1.137     albertel 1174: 	    if (!$Apache::lonxml::default_homework_loaded) {
                   1175: 		&Apache::lonxml::default_homework_load($safeeval);
                   1176: 	    }
1.131     albertel 1177: 	    $result = &Apache::run::run($code,$safeeval);
                   1178: 	    &Apache::lonxml::debug("block :$code: returned :$result:");
                   1179: 	} else {
                   1180: 	    $result='1';
                   1181: 	}
                   1182: 	if ( ! $result ) {
1.201     albertel 1183: 	    my $skip=&Apache::lonxml::get_all_text("/block",$parser,$style);
1.131     albertel 1184: 	    &Apache::lonxml::debug("skipping ahead :$skip: $$parser[-1]");
                   1185: 	}
                   1186: 	$result='';
                   1187:     } elsif ($target eq 'edit') {
                   1188: 	$result .=&Apache::edit::tag_start($target,$token);
                   1189: 	$result .=&Apache::edit::text_arg('Test Condition:','condition',
                   1190: 					  $token,40);
                   1191: 	$result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
                   1192:     } elsif ($target eq 'modified') {
                   1193: 	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
                   1194: 						     $safeeval,'condition');
                   1195: 	if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
1.38      albertel 1196:     }
1.131     albertel 1197:     return $result;
1.1       albertel 1198: }
                   1199: 
                   1200: sub end_block {
1.167     www      1201:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   1202:     my $result;
                   1203:     if ($target eq "edit") {
                   1204: 	$result.= &Apache::edit::tag_end($target,$token,'');
                   1205:     }
                   1206:     return $result;
                   1207: }
                   1208: 
                   1209: sub start_languageblock {
1.201     albertel 1210:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.167     www      1211: 
                   1212:     my $result;
                   1213: 
1.339     albertel 1214:     if ($target eq 'web' || $target eq 'grade'   || $target eq 'answer' ||
                   1215: 	$target eq 'tex' || $target eq 'analyze' || $target eq 'webgrade') {
1.201     albertel 1216: 	my $include = $token->[2]->{'include'};
                   1217: 	my $exclude = $token->[2]->{'exclude'};
1.398     www      1218:         my @preferred_languages=&Apache::loncommon::preferred_languages();
1.394     www      1219: # This should not even happen, since we should at least have the server language
1.398     www      1220:         if (!$preferred_languages[0]) { $preferred_languages[0]='en'; }
                   1221: # Now loop over all languages in order of preference
                   1222:         foreach my $preferred_language (@preferred_languages) {
1.394     www      1223: # If the languageblock has no arguments, show the contents
1.399     www      1224:            $result=1;
                   1225:            my $found=0;
1.394     www      1226: # Do we have an include argument?
1.398     www      1227: 	   if ($include) {
1.394     www      1228: # If include is specified, by default, don't render the block
1.399     www      1229:               $result=0;
1.398     www      1230:               foreach my $included_language (split(/\,/,$include)) {
1.394     www      1231: # ... but if my preferred language is included, render it
1.398     www      1232:                  if ($included_language eq $preferred_language) {
1.399     www      1233:                     $result=1; 
                   1234:                     $found=1; 
1.398     www      1235:                  }
                   1236:               }
                   1237: 	   }
1.394     www      1238: # Do we have an exclude argument?
1.398     www      1239:            if ($exclude) {
1.399     www      1240:               $result=1;
1.398     www      1241:               foreach my $excluded_language (split(/\,/,$exclude)) {
                   1242:                  if ($excluded_language eq $preferred_language) {
1.399     www      1243:                     $result=0;
                   1244:                     $found=1;
1.398     www      1245:                  }
                   1246:               }
                   1247: 	   }
1.399     www      1248:            if ($found) { last; }
1.398     www      1249:         }
1.201     albertel 1250: 	if ( ! $result ) {
                   1251: 	    my $skip=&Apache::lonxml::get_all_text("/languageblock",$parser,
                   1252: 						   $style);
                   1253: 	    &Apache::lonxml::debug("skipping ahead :$skip: $$parser[-1]");
                   1254: 	}
                   1255: 	$result='';
1.167     www      1256:     } elsif ($target eq 'edit') {
                   1257: 	$result .=&Apache::edit::tag_start($target,$token);
1.211     albertel 1258: 	$result .=&Apache::edit::text_arg(&mt('Include Language:'),'include',
1.167     www      1259: 					  $token,40);
1.211     albertel 1260: 	$result .=&Apache::edit::text_arg(&mt('Exclude Language:'),'exclude',
1.167     www      1261: 					  $token,40);
                   1262: 	$result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
                   1263:     } elsif ($target eq 'modified') {
                   1264: 	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
1.168     albertel 1265: 						     $safeeval,'include',
                   1266: 						     'exclude');
1.167     www      1267: 	if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
                   1268:     }
                   1269:     return $result;
                   1270: }
                   1271: 
                   1272: sub end_languageblock {
1.170     www      1273:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   1274:     my $result;
1.201     albertel 1275:     if ($target eq "edit") {
1.170     www      1276: 	$result.= &Apache::edit::tag_end($target,$token,'');
                   1277:     }
                   1278:     return $result;
                   1279: }
                   1280: 
1.397     albertel 1281: {
                   1282:     my %available_texts;
                   1283:     sub start_translated {
                   1284: 	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
                   1285: 	&Apache::lonxml::register('Apache::structuretags',('lang'));
                   1286: 	undef(%available_texts);
                   1287:     }
                   1288:     
                   1289:     sub end_translated {
                   1290: 	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
                   1291: 	my $result;
                   1292: 	#show the translation on viewable targets
                   1293: 	if ($target eq 'web'     || $target eq 'tex' || $target eq 'webgrade'||
                   1294: 	    # or non-viewable targets, if it's embedded in something that
                   1295: 	    # wants the output
                   1296: 	    (($target eq 'answer' || $target eq 'analyze'|| $target eq 'grade')
                   1297: 	     && &Apache::lonxml::in_redirection() ) ) {
                   1298: 	    my @possibilities = keys(%available_texts);
                   1299: 	    my $which = 
                   1300: 		&Apache::loncommon::languages(\@possibilities) || 'default';
                   1301: 	    $result = $available_texts{$which};
                   1302: 	}
                   1303: 	undef(%available_texts);
                   1304: 	&Apache::lonxml::deregister('Apache::structuretags',('lang'));
                   1305: 	return $result;
                   1306:     }
                   1307: 
                   1308: 
                   1309:     sub start_lang {
                   1310: 	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
                   1311: 	if ($target eq 'web' || $target eq 'grade'   || $target eq 'answer' ||
                   1312: 	    $target eq 'tex' || $target eq 'analyze' || $target eq 'webgrade') {
                   1313: 	    &Apache::lonxml::startredirection();
                   1314: 	}
                   1315: 	return '';
                   1316:     }
                   1317: 
                   1318:     sub end_lang {
                   1319: 	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
                   1320: 	if ($target eq 'web' || $target eq 'grade'   || $target eq 'answer' ||
                   1321: 	    $target eq 'tex' || $target eq 'analyze' || $target eq 'webgrade') {
                   1322: 	    my $result = &Apache::lonxml::endredirection();
                   1323: 	    my $which = &Apache::lonxml::get_param('which',$parstack,
                   1324: 						   $safeeval);
                   1325: 	    $available_texts{$which} = $result;
                   1326: 	}
                   1327: 	return '';
                   1328:     }
                   1329: }
                   1330: 
1.170     www      1331: sub start_instructorcomment {
1.201     albertel 1332:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.170     www      1333: 
                   1334:     my $result;
                   1335: 
1.339     albertel 1336:     if ($target eq 'web' || $target eq 'grade'   || $target eq 'answer' ||
                   1337: 	$target eq 'tex' || $target eq 'analyze' || $target eq 'webgrade') {
1.284     albertel 1338:         $result=($env{'request.role'}=~/^(in|cc|au|ca|li)/);
                   1339: 	if ( (! $result) or ($env{'form.instructor_comments'} eq 'hide')) {
1.201     albertel 1340: 	    my $skip=&Apache::lonxml::get_all_text("/instructorcomment",
                   1341: 						   $parser,$style);
1.170     www      1342: 	    &Apache::lonxml::debug("skipping ahead :$skip: $$parser[-1]");
                   1343: 	}
                   1344: 	$result='';
                   1345:     } elsif ($target eq 'edit') {
                   1346: 	$result .=&Apache::edit::tag_start($target,$token);
                   1347: 	$result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
                   1348:     }
                   1349:     return $result;
                   1350: }
                   1351: 
                   1352: sub end_instructorcomment {
1.159     albertel 1353:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.160     albertel 1354:     my $result;
                   1355:     if ($target eq "edit") {
                   1356: 	$result.= &Apache::edit::tag_end($target,$token,'');
                   1357:     }
                   1358:     return $result;
1.4       tsai     1359: }
                   1360: 
                   1361: sub start_while {
1.326     albertel 1362:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.159     albertel 1363: 
1.160     albertel 1364:     my $result;
1.339     albertel 1365:     if ($target eq 'web' || $target eq 'grade'   || $target eq 'answer' ||
                   1366: 	$target eq 'tex' || $target eq 'analyze' || $target eq 'webgrade') {
1.160     albertel 1367: 	my $code = $token->[2]->{'condition'};
1.4       tsai     1368: 
1.160     albertel 1369: 	push( @Apache::structuretags::whileconds, $code);
                   1370: 	if (!$Apache::lonxml::default_homework_loaded) {
                   1371: 	    &Apache::lonxml::default_homework_load($safeeval);
                   1372: 	}
                   1373: 	my $result = &Apache::run::run($code,$safeeval);
1.326     albertel 1374: 	my $bodytext=&Apache::lonxml::get_all_text("/while",$parser,$style);
1.160     albertel 1375: 	push( @Apache::structuretags::whilebody, $bodytext);
1.161     albertel 1376: 	push( @Apache::structuretags::whileline, $token->[5]);
                   1377: 	&Apache::lonxml::debug("s code $code got -$result-");
1.160     albertel 1378: 	if ( $result ) {
                   1379: 	    &Apache::lonxml::newparser($parser,\$bodytext);
                   1380: 	}
                   1381:     } elsif ($target eq 'edit') {
                   1382: 	$result .=&Apache::edit::tag_start($target,$token);
1.211     albertel 1383: 	$result .=&Apache::edit::text_arg(&mt('Test Condition:'),'condition',
1.160     albertel 1384: 					  $token,40);
                   1385: 	$result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
                   1386:     } elsif ($target eq 'modified') {
                   1387: 	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
                   1388: 						     $safeeval,'condition');
                   1389: 	if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
1.159     albertel 1390:     }
1.160     albertel 1391:     return $result;
1.4       tsai     1392: }
                   1393: 
                   1394: sub end_while {
1.159     albertel 1395:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.160     albertel 1396:     my $result;
                   1397: 
1.339     albertel 1398:     if ($target eq 'web' || $target eq 'grade'   || $target eq 'answer' ||
                   1399: 	$target eq 'tex' || $target eq 'analyze' || $target eq 'webgrade') {
1.160     albertel 1400: 	my $code = pop(@Apache::structuretags::whileconds);
                   1401: 	my $bodytext = pop(@Apache::structuretags::whilebody);
1.161     albertel 1402: 	my $line = pop(@Apache::structuretags::whileline);
                   1403: 	my $return = &Apache::run::run($code,$safeeval);
                   1404: 	my $starttime=time;
                   1405: 	my $error=0;
                   1406: 	while ($return) {
                   1407: 	    if (time-$starttime >
                   1408: 		$Apache::lonnet::perlvar{'lonScriptTimeout'}) {
1.378     albertel 1409: 		$return = 0; $error=1; next;
1.161     albertel 1410: 	    }
                   1411: 	    $result.=&Apache::scripttag::xmlparse($bodytext);
1.380     albertel 1412: 	    if ($target eq 'grade' || $target eq 'answer' ||
                   1413: 		$target eq 'analyze') {
                   1414: 		# grade/answer/analyze should produce no output but if we
                   1415: 		# are redirecting, the redirecter should know what to do
                   1416: 		# with the output
                   1417: 		if (!$Apache::lonxml::redirection) { undef($result); }
                   1418: 	    }
1.161     albertel 1419: 	    $return = &Apache::run::run($code,$safeeval);
                   1420: 	}
                   1421: 	if ($error) {
1.270     albertel 1422: 	    &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 1423: 	}
                   1424:     } elsif ($target eq "edit") {
                   1425: 	$result.= &Apache::edit::tag_end($target,$token,'');
1.159     albertel 1426:     }
1.160     albertel 1427:     return $result;
1.1       albertel 1428: }
1.6       tsai     1429: 
1.160     albertel 1430: # <randomlist show="1">
1.6       tsai     1431: #  <tag1>..</tag1>
                   1432: #  <tag2>..</tag2>
                   1433: #  <tag3>..</tag3>
1.160     albertel 1434: #  ...
1.6       tsai     1435: # </randomlist>
                   1436: sub start_randomlist {
1.326     albertel 1437:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.159     albertel 1438:     my $result;
1.339     albertel 1439:     if ($target eq 'answer' || $target eq 'grade'   || $target eq 'web' ||
                   1440: 	$target eq 'tex'    || $target eq 'analyze' || $target eq 'webgrade') {
1.331     albertel 1441: 	my $body= &Apache::lonxml::get_all_text("/randomlist",$parser);
1.305     albertel 1442: 	my $b_parser= HTML::LCParser->new(\$body);
                   1443: 	$b_parser->xml_mode(1);
                   1444: 	$b_parser->marked_sections(1);
1.159     albertel 1445: 	my $b_tok;
                   1446: 	my @randomlist;
                   1447: 	my $list_item;
                   1448: 	while($b_tok = $b_parser->get_token() ) {
                   1449: 	    if($b_tok->[0] eq 'S') { # start tag
                   1450: 		# get content of the tag until matching end tag
                   1451: 		# get all text upto the matching tag
                   1452: 		# and push the content into @randomlist
                   1453: 		$list_item = &Apache::lonxml::get_all_text('/'.$b_tok->[1],
                   1454: 							   $b_parser);
                   1455: 		$list_item = "$b_tok->[4]"."$list_item"."</$b_tok->[1]>";
                   1456: 		push(@randomlist,$list_item);
                   1457: 		#  print "<br /><b>START-TAG $b_tok->[1], $b_tok->[4],
                   1458:                 #         $list_item</b>";
                   1459: 	    }
                   1460: 	    if($b_tok->[0] eq 'T') { # text
                   1461: 		# what to do with text in between tags?
                   1462: 		#  print "<b>TEXT $b_tok->[1]</b><br />";
                   1463: 	    }
                   1464: 	    # if($b_tok->[0] eq 'E') { # end tag, should not happen
                   1465: 	    #  print "<b>END-TAG $b_tok->[1]</b><br />";
                   1466: 	    # }
                   1467: 	}
1.303     albertel 1468: 	if (@randomlist) {
                   1469: 	    my @idx_arr = (0 .. $#randomlist);
                   1470: 	    &Apache::structuretags::shuffle(\@idx_arr);
                   1471: 	    my $bodytext = '';
                   1472: 	    my $show=$#randomlist;
                   1473: 	    my $showarg=&Apache::lonxml::get_param('show',$parstack,$safeeval);
                   1474: 	    $showarg--;
                   1475: 	    if ( ($showarg >= 0) && ($showarg < $show) ) { $show = $showarg; }
                   1476: 	    for(0 .. $show) {
                   1477: 		$bodytext .= "$randomlist[ $idx_arr[$_] ]";
                   1478: 	    }
                   1479: 	    &Apache::lonxml::newparser($parser,\$bodytext);
1.159     albertel 1480: 	}
                   1481:     } elsif ($target eq 'edit' ) {
                   1482: 	$result .=&Apache::edit::tag_start($target,$token);
                   1483: 	$result .=&Apache::edit::text_arg('Maximum Tags to Show:','show',
                   1484: 					   $token,5);
                   1485: 	$result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
                   1486:     } elsif ($target eq 'modified' ) {
                   1487: 	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
                   1488: 						     $safeeval,'show');
                   1489: 	if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
                   1490:     }
                   1491:     return $result;
1.7       tsai     1492: }
                   1493: 
                   1494: sub shuffle {
                   1495:     my $a=shift;
                   1496:     my $i;
1.303     albertel 1497:     if (ref($a) eq 'ARRAY' && @$a) {
1.251     albertel 1498: 	&Apache::response::pushrandomnumber();
1.159     albertel 1499: 	for($i=@$a;--$i;) {
                   1500: 	    my $j=int(&Math::Random::random_uniform() * ($i+1));
                   1501: 	    next if $i == $j;
                   1502: 	    @$a[$i,$j] = @$a[$j,$i];
                   1503: 	}
1.251     albertel 1504: 	&Apache::response::poprandomnumber();
1.7       tsai     1505:     }
1.6       tsai     1506: }
                   1507: 
                   1508: sub end_randomlist {
1.159     albertel 1509:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   1510:     my $result;
                   1511:     if ($target eq 'edit' ) {
                   1512: 	$result=&Apache::edit::tag_end($target,$token,
                   1513: 				       'End Randomly Parsed Block');
                   1514:     }
                   1515:     return $result;
1.6       tsai     1516: }
                   1517: 
1.283     albertel 1518: sub ordered_show_check {
                   1519:     my $last_part=$Apache::inputtags::partlist[-2];
                   1520:     my $in_order=
                   1521: 	&Apache::lonnet::EXT('resource.'.$Apache::inputtags::part.'.ordered');
                   1522:     my $in_order_show=1;
                   1523:     if ($last_part ne '0' && lc($in_order) eq 'yes') {
                   1524: 	$in_order_show=&Apache::response::check_status($last_part);
                   1525:     }
                   1526:     return $in_order_show;
                   1527: }
                   1528: 
1.11      albertel 1529: sub start_part {
1.326     albertel 1530:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.321     albertel 1531:     if (!$Apache::lonxml::metamode) {
                   1532: 	&Apache::lonxml::startredirection(); # we'll use redirection to fix up 
                   1533: 	                                     # duedates.
                   1534:     }
1.159     albertel 1535:     my $result='';
1.386     albertel 1536:     my $id= &Apache::lonxml::get_id($parstack,$safeeval);
1.159     albertel 1537:     $Apache::inputtags::part=$id;
1.177     albertel 1538:     push(@Apache::inputtags::partlist,$id);
                   1539:     @Apache::inputtags::response=();
1.159     albertel 1540:     @Apache::inputtags::previous=();
                   1541:     @Apache::inputtags::previous_version=();
1.405     albertel 1542:     &Apache::lonhomework::set_show_problem_status(&get_problem_status($id));
1.403     albertel 1543:     &Apache::response::reset_params();
                   1544: 
1.159     albertel 1545:     my $hidden=&Apache::loncommon::check_if_partid_hidden($Apache::inputtags::part);
1.259     albertel 1546:     my $newtype=&Apache::lonnet::EXT("resource.$id.type");
                   1547:     if ($newtype) { $Apache::lonhomework::type=$newtype; }
1.283     albertel 1548:     my $in_order_show=&ordered_show_check();
1.214     albertel 1549:     my $expression='$external::part=\''.$Apache::inputtags::part.'\';';
1.259     albertel 1550:     $expression.='$external::type=\''.$Apache::lonhomework::type.'\';';
1.209     albertel 1551:     &Apache::run::run($expression,$safeeval);
1.159     albertel 1552: 
                   1553:     if ($target eq 'meta') {
1.224     www      1554: 	my $display=&Apache::lonxml::get_param('display',$parstack,$safeeval);
                   1555: 	return &Apache::response::mandatory_part_meta.
                   1556: 	       &Apache::response::meta_parameter_write('display','string',$display,'Part Description');
1.159     albertel 1557:     } elsif ($target eq 'web' || $target eq 'grade' ||
                   1558: 	     $target eq 'answer' || $target eq 'tex') {
1.283     albertel 1559: 	if ($hidden || !$in_order_show) {
1.326     albertel 1560: 	    my $bodytext=&Apache::lonxml::get_all_text("/part",$parser,$style);
1.159     albertel 1561: 	} else {
                   1562: 	    my ($status,$accessmsg) = &Apache::lonhomework::check_access($id);
                   1563: 	    push (@Apache::inputtags::status,$status);
                   1564: 	    my $expression='$external::datestatus="'.$status.'";';
                   1565: 	    $expression.='$external::gradestatus="'.$Apache::lonhomework::history{"resource.$id.solved"}.'";';
                   1566: 	    &Apache::run::run($expression,$safeeval);
1.284     albertel 1567: 	    if ($env{'request.state'} eq 'construct') {
1.241     albertel 1568: 		&set_problem_state($Apache::inputtags::part); 
1.240     albertel 1569: 	    }
1.216     albertel 1570: 	    if (( $status eq 'CLOSED' ) ||
                   1571: 		( $status eq 'UNCHECKEDOUT') ||
1.252     albertel 1572: 		( $status eq 'NOT_YET_VIEWED') ||
1.216     albertel 1573: 		( $status eq 'BANNED') ||
                   1574: 		( $status eq 'UNAVAILABLE') ||
                   1575: 		( $status eq 'INVALID_ACCESS')) {
1.326     albertel 1576: 		my $bodytext=&Apache::lonxml::get_all_text("/part",$parser,
                   1577: 							   $style);
1.159     albertel 1578: 		if ( $target eq "web" ) {
1.211     albertel 1579: 		    $result="<br />".&mt('Part is not open to be viewed. It')." $accessmsg<br />";
1.159     albertel 1580: 		} elsif ( $target eq 'tex' ) {
1.284     albertel 1581: 		    if (not $env{'form.problem_split'}=~/yes/) {
1.211     albertel 1582: 			$result="\\end{minipage}\\vskip 0 mm ".&mt('Part is not open to be viewed. It')." $accessmsg \\\\\\begin{minipage}{\\textwidth}";
1.195     sakharuk 1583: 		    } else {
1.211     albertel 1584: 			$result="\\vskip 0 mm ".&mt('Part is not open to be viewed. It')." $accessmsg \\\\";
1.195     sakharuk 1585: 		    }
1.159     albertel 1586: 		}
                   1587: 	    } else {
                   1588: 		if ($target eq 'tex') {
1.284     albertel 1589: 		    if (not $env{'form.problem_split'}=~/yes/) {
1.264     sakharuk 1590: 			if ($$tagstack[-2] eq 'td') {
1.388     foxr     1591: 			    $result.='\noindent \begin{minipage}{\textwidth}\noindent';
1.264     sakharuk 1592: 			} else {
                   1593: 			    $result.='\noindent \end{minipage}\vskip 0 mm \noindent \begin{minipage}{\textwidth}\noindent';
                   1594: 			}
1.195     sakharuk 1595: 		    }
1.159     albertel 1596: 		    my $weight = &Apache::lonnet::EXT("resource.$id.weight");
1.284     albertel 1597: 		    my $allkeys=&Apache::lonnet::metadata($env{'request.uri'},'packages');
1.222     sakharuk 1598: 		    my @allkeys = split /,/,$allkeys;
                   1599: 		    my $allow_print_points = 0;
                   1600: 		    foreach my $partial_key (@allkeys) {
1.230     albertel 1601: 			if ($partial_key=~m/^part_(.*)$/) {
1.222     sakharuk 1602: 			    if ($1 ne '0') {$allow_print_points=1;}
                   1603: 			}
                   1604: 		    }
1.275     albertel 1605: 		    my $maxtries = &Apache::lonnet::EXT("resource.$id.maxtries");
                   1606: 		    if (defined($maxtries) && $maxtries < 0) {
                   1607: 			$allow_print_points=0;
                   1608: 		    }
1.302     albertel 1609: 		    if (lc($env{'course.'.$env{'request.course.id'}.
                   1610: 				    '.disableexampointprint'}) eq 'yes') {
                   1611: 			$allow_print_points=0;
                   1612: 		    }
1.222     sakharuk 1613: 		    if (($Apache::lonhomework::type eq 'exam') && ($allow_print_points)) { $result .= '\fbox{\textit{'.$weight.' pt}}';}
1.233     www      1614: 		} elsif ($target eq 'web') {
1.356     www      1615: 		    $result.='<a name="'.&escape($Apache::inputtags::part).'" />';
1.159     albertel 1616: 		}
                   1617: 	    }
                   1618: 	}
                   1619:     } elsif ($target eq 'edit') {
                   1620: 	$result.=&Apache::edit::tag_start($target,$token);
                   1621: 	$result.=&Apache::edit::text_arg('Part ID:','id',$token).
                   1622: 	    &Apache::loncommon::help_open_topic("Part_Tag_Edit_Help").
1.224     www      1623: 	    '&nbsp;&nbsp;'.
                   1624: &Apache::edit::text_arg('Displayed Part Description:','display',$token).
1.159     albertel 1625: 		&Apache::edit::end_row().&Apache::edit::start_spanning_row();
                   1626:     } elsif ($target eq 'modified') {
                   1627: 	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
1.225     albertel 1628: 						     $safeeval,'id','display');
1.159     albertel 1629: 	if ($constructtag) {
1.225     albertel 1630: 	    #limiting ids to only letters numbers, and space
1.224     www      1631: 	    $token->[2]->{'id'}=~s/[^A-Za-z0-9 ]//gs;
1.159     albertel 1632: 	    $result = &Apache::edit::rebuild_tag($token);
                   1633: 	}
                   1634:     }
                   1635:     return $result;
1.11      albertel 1636: }
                   1637: 
                   1638: sub end_part {
1.159     albertel 1639:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   1640:     &Apache::lonxml::debug("in end_part $target ");
                   1641:     my $status=$Apache::inputtags::status['-1'];
                   1642:     my $hidden=&Apache::loncommon::check_if_partid_hidden($Apache::inputtags::part);
1.283     albertel 1643:     my $in_order_show=&ordered_show_check();
1.321     albertel 1644:     my $result;
                   1645:     if (!$Apache::lonxml::metamode) {
                   1646: 	$result = &Apache::lonxml::endredirection(); # started in &start_part
1.329     albertel 1647: 	$Apache::lonxml::post_evaluate=0;
1.321     albertel 1648:     }
1.312     albertel 1649:     if ($target eq 'grade') {
1.249     albertel 1650: 	if (($status eq 'CAN_ANSWER' || $Apache::lonhomework::scantronmode) &&
1.283     albertel 1651: 	    !$hidden && $in_order_show) {
1.311     foxr     1652: 	    $result.=&Apache::inputtags::grade;
1.249     albertel 1653: 	} else {
                   1654: 	    # move any submission data to .hidden
                   1655: 	    &Apache::inputtags::hidealldata($Apache::inputtags::part);
                   1656: 	}
1.283     albertel 1657:     } elsif (($target eq 'web' || $target eq 'tex') &&
                   1658: 	     !$hidden && $in_order_show) {
1.159     albertel 1659: 	my $gradestatus=&Apache::inputtags::gradestatus($Apache::inputtags::part,
                   1660: 							$target);
1.212     albertel 1661: 	if ($Apache::lonhomework::type eq 'exam' && $target eq 'tex') {
                   1662: 	    $gradestatus='';
                   1663: 	}
1.311     foxr     1664: 	$result.=$gradestatus;
1.265     sakharuk 1665: 	if ($$tagstack[-2] eq 'td' and $target eq 'tex') {$result.='\end{minipage}';} 
1.181     albertel 1666:     } elsif ($target eq 'edit') {
1.311     foxr     1667: 	$result.=&Apache::edit::end_table();
1.322     albertel 1668:     } elsif ($target eq 'modified') {
                   1669: 	 $result .= $token->[2];
1.159     albertel 1670:     }
                   1671:     pop @Apache::inputtags::status;
                   1672:     $Apache::inputtags::part='';
1.295     albertel 1673:     $Apache::lonhomework::type = $Apache::lonhomework::default_type;
1.159     albertel 1674:     return $result;
1.11      albertel 1675: }
1.1       albertel 1676: 
1.25      albertel 1677: sub start_preduedate {
1.326     albertel 1678:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.339     albertel 1679:     if ($target eq 'web' || $target eq 'grade'    || $target eq 'answer' ||
                   1680: 	$target eq 'tex' || $target eq 'webgrade') {
1.236     albertel 1681: 	&Apache::lonxml::debug("State in preduedate is ". $Apache::inputtags::status['-1']);
1.300     albertel 1682: 	if (!$Apache::lonhomework::scantronmode &&
                   1683: 	    $Apache::inputtags::status['-1'] ne 'CAN_ANSWER' &&
1.236     albertel 1684: 	    $Apache::inputtags::status['-1'] ne 'CANNOT_ANSWER') {
                   1685: 	    &Apache::lonxml::debug("Wha? ". ($Apache::inputtags::status['-1'] ne 'SHOW_ANSWER'));
1.326     albertel 1686: 	    &Apache::lonxml::get_all_text("/preduedate",$parser,$style);
1.159     albertel 1687: 	}
1.24      albertel 1688:     }
1.159     albertel 1689:     return '';
1.24      albertel 1690: }
                   1691: 
1.25      albertel 1692: sub end_preduedate {
1.159     albertel 1693:     return '';
1.24      albertel 1694: }
                   1695: 
1.369     foxr     1696: # In all the modes where <postanswerdate> text is 
                   1697: # displayable,  all we do is eat up the text between the start/stop
                   1698: # tags if the conditions are not right to display it.
1.25      albertel 1699: sub start_postanswerdate {
1.326     albertel 1700:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.370     foxr     1701:     my $pav = &Apache::lonnet::allowed('pav', $env{'request.course.id'}) ||
                   1702: 	&Apache::lonnet::allowed('pav',
                   1703: 			   $env{'request.course.id'}.'/'.$env{'request.course.sec'});
1.369     foxr     1704:     if ($target eq 'web' || $target eq 'grade' || $target eq 'webgrade' ||
1.370     foxr     1705: 	$target eq 'tex' ) {
1.300     albertel 1706: 	if ($Apache::lonhomework::scantronmode ||
1.370     foxr     1707: 	    $Apache::inputtags::status['-1'] ne 'SHOW_ANSWER' ||
                   1708: 	    (($target eq 'tex') && !$pav)) {
1.326     albertel 1709: 	    &Apache::lonxml::get_all_text("/postanswerdate",$parser,$style);
1.159     albertel 1710: 	}
                   1711:     }
                   1712:     return '';
1.24      albertel 1713: }
                   1714: 
1.25      albertel 1715: sub end_postanswerdate {
1.159     albertel 1716:     return '';
1.24      albertel 1717: }
                   1718: 
1.25      albertel 1719: sub start_notsolved {
1.326     albertel 1720:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.159     albertel 1721:     if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
1.339     albertel 1722: 	$target eq 'tex' || $target eq 'webgrade') {
1.159     albertel 1723: 	my $gradestatus=$Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"};
                   1724: 	&Apache::lonxml::debug("not solved has :$gradestatus:");
1.239     albertel 1725: 	if ($gradestatus =~ /^correct/ &&
                   1726: 	    &Apache::response::show_answer()) {
1.159     albertel 1727: 	    &Apache::lonxml::debug("skipping");
1.326     albertel 1728: 	    &Apache::lonxml::get_all_text("/notsolved",$parser,$style);
1.159     albertel 1729: 	}
1.24      albertel 1730:     }
1.159     albertel 1731:     return '';
1.24      albertel 1732: }
                   1733: 
1.25      albertel 1734: sub end_notsolved {
1.159     albertel 1735:     return '';
1.24      albertel 1736: }
                   1737: 
                   1738: sub start_solved {
1.326     albertel 1739:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.159     albertel 1740:     if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
                   1741: 	$target eq 'tex') {
                   1742: 	my $gradestatus=$Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"};
1.239     albertel 1743: 	if ($gradestatus !~ /^correct/ ||
                   1744: 	    !&Apache::response::show_answer()) {
1.326     albertel 1745: 	    &Apache::lonxml::get_all_text("/solved",$parser,$style);
1.159     albertel 1746: 	}
1.24      albertel 1747:     }
1.159     albertel 1748:     return '';
1.24      albertel 1749: }
                   1750: 
                   1751: sub end_solved {
1.248     albertel 1752:     return '';
                   1753: }
                   1754: 
                   1755: sub start_problemtype {
1.326     albertel 1756:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.248     albertel 1757:     my $result;
1.339     albertel 1758:     if ($target eq 'web' || $target eq 'grade'   || $target eq 'answer' ||
                   1759: 	$target eq 'tex' || $target eq 'analyze' || $target eq 'webgrade') {
1.248     albertel 1760: 	my $mode=lc(&Apache::lonxml::get_param('mode',$parstack,$safeeval));
                   1761: 	if (!defined($mode)) { $mode='show'; }
                   1762: 	my $for=&Apache::lonxml::get_param('for',$parstack,$safeeval);
                   1763: 	my $found=0;
                   1764: 	foreach my $type (split(',',$for)) {
                   1765: 	    if ($Apache::lonhomework::type eq lc($type)) { $found=1; }
                   1766: 	}
                   1767: 	if ($mode eq 'show' && !$found) {
1.326     albertel 1768: 	    &Apache::lonxml::get_all_text("/problemtype",$parser,$style);
1.248     albertel 1769: 	}
                   1770: 	if ($mode eq 'hide' && $found) {
1.326     albertel 1771: 	    &Apache::lonxml::get_all_text("/problemtype",$parser,$style);
1.248     albertel 1772: 	}
                   1773:     } elsif ($target eq 'edit') {
                   1774: 	$result .=&Apache::edit::tag_start($target,$token);
                   1775: 	$result.=&Apache::edit::select_arg('Mode:','mode',
                   1776: 					   [['show','Show'],
                   1777: 					    ['hide','Hide']]
                   1778: 					   ,$token);
                   1779: 	$result .=&Apache::edit::checked_arg('When used as type(s):','for',
                   1780: 					     [ ['exam','Exam/Quiz Problem'],
                   1781: 					       ['survey','Survey'],
                   1782: 					       ['problem','Homework Problem'] ]
                   1783: 					     ,$token);
                   1784: 	$result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
                   1785:     } elsif ($target eq 'modified') {
                   1786: 	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
                   1787: 						     $safeeval,'mode','for');
                   1788: 	if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
                   1789:     }
                   1790:     return $result;
                   1791: }
                   1792: 
                   1793: sub end_problemtype {
1.159     albertel 1794:     return '';
1.24      albertel 1795: }
1.34      albertel 1796: 
                   1797: sub start_startouttext {
1.159     albertel 1798:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   1799:     my @result=(''.'');
                   1800:     if ($target eq 'edit' || $target eq 'modified' ) { @result=('','no'); }
1.404     albertel 1801:     
                   1802:     my $nesting = 
                   1803: 	&Apache::lonxml::set_state('outtext',
                   1804: 				   &Apache::lonxml::get_state('outtext')+1);
                   1805:     if ($nesting > 1 && $env{'request.state'} eq 'construct') {
                   1806: 	&Apache::lonxml::error("Nesting of &lt;startouttext /&gt; not allowed, on line ".$token->[5]);
                   1807:     }
1.159     albertel 1808:     return (@result);
1.34      albertel 1809: }
1.159     albertel 1810: 
1.34      albertel 1811: sub end_startouttext {
1.326     albertel 1812:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.159     albertel 1813:     my $result='';
                   1814:     my $text='';
                   1815: 
                   1816:     if ($target eq 'edit') {
1.326     albertel 1817: 	$text=&Apache::lonxml::get_all_text("endouttext",$parser,$style);
1.211     albertel 1818: 	$result.=&Apache::edit::start_table($token)."<tr><td>".&mt('Text Block')."</td>
                   1819: <td>".&mt('Delete:').
1.159     albertel 1820:                  &Apache::edit::deletelist($target,$token)
                   1821: 		 ."</td>
1.42      albertel 1822: <td>".
1.159     albertel 1823:                  &Apache::edit::insertlist($target,$token).
1.362     albertel 1824: 		 '</td><td align="right" valign="top">' .
                   1825: 		 &Apache::loncommon::helpLatexCheatsheet().
1.159     albertel 1826: 		 &Apache::edit::end_row().
1.362     albertel 1827:                  &Apache::edit::start_spanning_row()."\n".
1.255     www      1828: 		 &Apache::edit::editfield($token->[1],$text,"",80,8,1);
1.159     albertel 1829:     }
                   1830:     if ($target eq 'modified') {
1.219     albertel 1831: 	$result='<startouttext />'.&Apache::edit::modifiedfield("endouttext",$parser);
1.159     albertel 1832:     }
                   1833:     if ($target eq 'tex') {
                   1834: 	$result .= '\noindent ';
                   1835:     }
                   1836:     return $result;
1.34      albertel 1837: }
1.159     albertel 1838: 
1.34      albertel 1839: sub start_endouttext {
1.159     albertel 1840:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   1841:     my $result='';
                   1842:     if ($target eq "edit" ) { $result="</td></tr>".&Apache::edit::end_table()."\n"; }
                   1843:     if ($target eq "modified") {
                   1844: 	$result='<endouttext />'.
1.377     albertel 1845: 	    &Apache::edit::handle_insertafter('startouttext');
                   1846:     }
1.404     albertel 1847: 
                   1848:     my $nesting = 
                   1849: 	&Apache::lonxml::set_state('outtext',
                   1850: 				   &Apache::lonxml::get_state('outtext')-1);
                   1851:     if ($nesting < 0 && $env{'request.state'} eq 'construct') {
                   1852: 	&Apache::lonxml::error(" Extraneous &lt;endouttext /&gt; not allowed on line ".$token->[5]);
                   1853: 	&Apache::lonxml::set_state('outtext', 0);
                   1854:     }
1.159     albertel 1855:     return $result;
1.34      albertel 1856: }
1.159     albertel 1857: 
1.34      albertel 1858: sub end_endouttext {
1.159     albertel 1859:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   1860:     my @result=('','');
                   1861:     if ($target eq "edit" || $target eq 'modified') { @result=('','no'); }
                   1862:     return (@result);
1.34      albertel 1863: }
1.159     albertel 1864: 
1.45      albertel 1865: sub delete_startouttext {
1.326     albertel 1866:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
                   1867:     #  my $text=&Apache::lonxml::get_all_text("endouttext",$parser,$style);
1.159     albertel 1868:     my $text=$$parser['-1']->get_text("/endouttext");
                   1869:     my $ntoken=$$parser['-1']->get_token();
                   1870:     &Apache::lonxml::debug("Deleting :$text: and :$ntoken->[0]:$ntoken->[1]:$ntoken->[2]: for startouttext");
                   1871:     &Apache::lonxml::end_tag($tagstack,$parstack,$ntoken);
                   1872:     # Deleting 2 parallel tag pairs, but we need the numbers later to look like
                   1873:     # they did the last time round
                   1874:     &Apache::lonxml::increasedepth($ntoken);
                   1875:     &Apache::lonxml::decreasedepth($ntoken);
                   1876:     return 1;
1.193     www      1877: }
                   1878: 
                   1879: sub start_simpleeditbutton {
                   1880:     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
                   1881:     my $result='';
1.284     albertel 1882:     if (($env{'form.simple_edit_button'} ne 'off') &&
1.273     albertel 1883: 	($target eq 'web') &&
1.330     albertel 1884:         (&Apache::lonnet::allowed('mdc',$env{'request.course.id'}))) {
1.284     albertel 1885:         my $url=$env{'request.noversionuri'};
1.193     www      1886:         $url=~s/\?.*$//;
1.367     albertel 1887: 	my ($symb) = &Apache::lonnet::whichuser();
1.194     www      1888: 	$result='<table width="100%" bgcolor="#FFFFAA" border="2"><tr><td>'.
1.356     www      1889:                 '<a href="'.$url.'/smpedit?symb='.&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      1890: &Apache::loncommon::help_open_topic('Caching').'</td></tr></table><br />';
1.193     www      1891:     }
                   1892:     return $result;
                   1893: }
                   1894: 
                   1895: sub end_simpleeditbutton {
                   1896:     return '';
1.45      albertel 1897: }
1.34      albertel 1898: 
1.1       albertel 1899: 1;
                   1900: __END__

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