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

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

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