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

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

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