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