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

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

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