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