Annotation of loncom/homework/structuretags.pm, revision 1.530
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.530 ! droeschl 4: # $Id: structuretags.pm,v 1.529 2015/02/22 15:23:57 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.500 foxr 64: use Apache::loncommon();
1.267 albertel 65: use Time::HiRes qw( gettimeofday tv_interval );
1.356 www 66: use lib '/home/httpd/lib/perl/';
67: use LONCAPA;
68:
1.78 harris41 69: BEGIN {
1.469 www 70: &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 71: }
72:
1.500 foxr 73:
74: #---------------------------------------------------------------------------------
75: #
76: # This section of code deals with hyphenation management.
77: # We must do three things:
78: # - keep track fo the desired languages to alter the header.
79: # - provide hyphenation selection as needed by each language that appears in the
80: # text.
81: # - Provide the header text needed to make available the desired hyphenations.
82: #
83: #
84:
85: # Hash whose keys are the languages encountered in the document/resource.
86: #
87:
88: my %languages_required;
89: ##
90: # Given a language selection as input returns a chunk of LaTeX that
91: # selects the required hyphenator.
92: #
93: # @param language - the language being selected.
94: # @return string
95: # @retval The LaTeX needed to select the hyphenation appropriate to the language.
96: #
97: sub select_hyphenation {
98: my $language = shift;
99:
100: $language = &Apache::loncommon::latexlanguage($language); # Translate -> latex language.
101:
102: # If there is no latex language there's not much we can do:
103:
104: if ($language) {
105: &require_language($language);
106: my $babel_hyphenation = "\\selectlanguage{$language}";
107:
108: return $babel_hyphenation;
109: } else {
110: return '';
111: }
112: }
113: ##
114: # Selects hyphenation based on the current problem metadata.
115: # This requires that
116: # - There is a language metadata item set for the problem.
117: # - The language has a latex/babel hyphenation.
118: #
119: # @note: Uses &Apache::lonxml::request to locate the Uri associated with
120: # this problem.
121: # @return string (possibly empty).
122: # @retval If not empty an appropriate \selectlanguage{} directive.
123: #
124: sub select_metadata_hyphenation {
125: my $uri = $Apache::lonxml::request->uri;
126: my $language = &Apache::lonnet::metadata($uri, 'language');
127: my $latex_language = &Apache::loncommon::latexhyphenation($language);
128: if ($latex_language) {
129: return '\selectlanguage{'.$latex_language."}\n";
130: }
131: return ''; # no latex hyphenation or no lang metadata.
132: }
133:
134:
135: ##
136: # Clears the set of languages required by the document being rendered.
137: #
138: sub clear_required_languages {
139: %languages_required = ();
140: }
141: ##
142: # Allows an external client of this module to register a need for a language:
143: #
144: # @param LaTeX language required:
145: #
146: sub require_language {
147: my $language = shift;
148: $languages_required{$language} = 1;
149: }
150:
151: ##
152: # Provides the header for babel that indicates the languages
153: # the document requires.
154: # @return string
155: # @retval \usepackage[lang1,lang2...]{babel}
156: # @retval '' if there are no languages_required.
157: sub languages_header {
158: my $header ='';
159: my @languages = (keys(%languages_required));
160:
161: # Only generate the header if there are languages:
162:
163: if (scalar @languages) {
164: my $language_list = join(',', (@languages));
165: $header = '\usepackage['.$language_list."]{babel}\n";
166: }
167: return $header;
168: }
169:
170: #----------------------------------------------------------------------------------
171:
1.10 albertel 172: sub start_web {
1.326 albertel 173: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.383 albertel 174: if ($target ne 'edit' && $target ne 'modified') {
175: my $bodytext=&Apache::lonxml::get_all_text("/web",$parser,$style);
176: if ($target eq 'web' || $target eq 'webgrade') {
177: return $bodytext;
178: }
179: } elsif ($target eq "edit" ) {
180: my $bodytext =
181: &Apache::lonxml::get_all_text_unbalanced("/web",$parser);
182: my $result = &Apache::edit::tag_start($target,$token);
183: $result .= &Apache::edit::editfield($token->[1],$bodytext,'',80,1);
184: return $result;
185: } elsif ( $target eq "modified" ) {
186: return $token->[4].&Apache::edit::modifiedfield("/web",$parser);
1.159 albertel 187: }
188: return '';
1.10 albertel 189: }
190:
191: sub end_web {
1.44 ng 192: return '';
1.10 albertel 193: }
194:
195: sub start_tex {
1.326 albertel 196: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.198 sakharuk 197: my $result='';
1.383 albertel 198: if ($target ne 'edit' && $target ne 'modified') {
199: my $bodytext=&Apache::lonxml::get_all_text("/tex",$parser,$style);
200: if ($target eq 'tex') {
1.434 foxr 201:
202: # If inside a table, occurrences of \\ must be removed;
203: # else the table blows up.
204:
205: if (&Apache::londefdef::is_inside_of($tagstack, "table")) {
206: $bodytext =~ s/\\\\//g;
207: }
1.432 foxr 208: return $bodytext.'{}';
1.383 albertel 209: }
210: } elsif ($target eq "edit" ) {
211: my $bodytext =
212: &Apache::lonxml::get_all_text_unbalanced("/tex",$parser);
213: my $result = &Apache::edit::tag_start($target,$token);
214: $result .= &Apache::edit::editfield($token->[1],$bodytext,'',80,1);
215: return $result;
216: } elsif ( $target eq "modified" ) {
217: return $token->[4].&Apache::edit::modifiedfield("/tex",$parser);
1.159 albertel 218: }
1.198 sakharuk 219: return $result;;
1.10 albertel 220: }
221:
222: sub end_tex {
1.44 ng 223: return '';
1.9 albertel 224: }
225:
1.400 albertel 226: sub homework_js {
227: return &Apache::loncommon::resize_textarea_js().
1.527 golterma 228: &Apache::loncommon::colorfuleditor_js().
1.416 raeburn 229: &setmode_javascript().
1.400 albertel 230: <<'JS';
231: <script type="text/javascript">
1.483 raeburn 232: // <![CDATA[
1.494 raeburn 233: function setSubmittedPart (part,prefix) {
234: if (typeof(prefix) == 'undefined') {
235: this.document.lonhomework.submitted.value="part_"+part;
236: } else {
237: for (var i=0;i<this.document.lonhomework.elements.length;i++) {
238: if (this.document.lonhomework.elements[i].name == prefix+'submitted') {
239: this.document.lonhomework.elements[i].value="part_"+part;
240: }
241: }
242: }
1.400 albertel 243: }
244:
245: function image_response_click (which, e) {
246: init_geometry();
247: if (!e) { e = window.event; } //IE
248: var input_element = document.lonhomework.elements[which];
1.401 albertel 249: var token_element = document.lonhomework.elements[which+'_token'];
1.400 albertel 250: var token = token_element.value;
1.401 albertel 251: var img_element = document.getElementById(which+'_imageresponse');
1.400 albertel 252: var x= e.clientX-getX(img_element)+Geometry.getHorizontalScroll();
253: var y= e.clientY-getY(img_element)+Geometry.getVerticalScroll();
254: var click = x+':'+y;
255: input_element.value = click;
1.485 raeburn 256: img_element.src = '/adm/randomlabel.png?token='+token+'&clickdata='+click;
1.400 albertel 257: }
1.520 raeburn 258:
259: var submithandled = 0;
1.521 raeburn 260: var keypresshandled = 0;
1.520 raeburn 261:
262: $(document).ready(function(){
1.521 raeburn 263:
264: $(document).keypress(function(event){
265: var keycode = (event.keyCode ? event.keyCode : event.which);
266: if ((keycode == '13') && (keypresshandled == 0)) {
267: if ( $( document.activeElement ).hasClass("LC_textline") ) {
268: keypresshandled = 1;
269: var idsArray = $( document.activeElement ).attr("id").split(/HWVAL_/);
270: if (idsArray.length) {
271: event.preventDefault();
272: var itemsArray = idsArray[1].split(/_/);
273: var buttonId = idsArray[0]+'submit_'+itemsArray[0];
274: $("#"+buttonId).trigger("click");
275: }
276: }
277: }
278: });
279:
1.520 raeburn 280: $(document).delegate('form :submit', 'click', function( event ) {
281: if ( $( this ).hasClass( "LC_hwk_submit" ) ) {
282: var buttonId = this.id;
283: if (submithandled == 0) {
284: submithandled = 1;
285: $( "#msg_"+buttonId ).css({"display": "inline","background-color": "#87cefa",
1.521 raeburn 286: "color": "black","padding": "2px"}) ;
287: if (( $(this.form).id == "LC_page" ) && ($('input[name="all_submit"]').length )) {
1.522 raeburn 288: if (buttonId != "all_submit") {
289: $( ".LC_status_"+buttonId ).hide();
290: if (( "#"+buttonId+"_pressed" ).length) {
291: $( "#"+buttonId+"_pressed" ).val( "1" );
292: }
1.520 raeburn 293: }
1.522 raeburn 294: } else {
295: $( ".LC_status_"+buttonId ).hide();
1.520 raeburn 296: }
297: $(this.form).submit();
1.521 raeburn 298: $( ".LC_hwk_submit" ).prop( "disabled", true);
299: $( ".LC_textline" ).prop( "readonly", "readonly");
1.520 raeburn 300: event.preventDefault();
301: return true;
302: }
303: }
304: });
305: });
306:
1.483 raeburn 307: // ]]>
1.400 albertel 308: </script>
309: JS
310: }
311:
1.416 raeburn 312: sub setmode_javascript {
313: return <<"ENDSCRIPT";
314: <script type="text/javascript">
1.485 raeburn 315: // <![CDATA[
1.416 raeburn 316: function setmode(form,probmode) {
317: form.problemmode.value = probmode;
318: form.submit();
319: }
1.485 raeburn 320: // ]]>
1.416 raeburn 321: </script>
322: ENDSCRIPT
323: }
324:
1.48 albertel 325: sub page_start {
1.345 albertel 326: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$name,
327: $extra_head)=@_;
1.159 albertel 328: my %found;
1.207 albertel 329: foreach my $taginside (@$tagstack) {
1.159 albertel 330: foreach my $taglookedfor ('html','body','form') {
331: if ($taginside =~ /^$taglookedfor$/i) {$found{$taglookedfor} = 1;}
332: }
333: }
334:
1.343 albertel 335: if ($target eq 'tex') {
336: return
337: &Apache::londefdef::start_html($target,$token,$tagstack,
338: $parstack,$parser,$safeeval);
339: }
340:
1.474 raeburn 341: $extra_head .= &homework_js().
342: &Apache::lonhtmlcommon::dragmath_js("EditMathPopup");
343: if (&Apache::lonhtmlcommon::htmlareabrowser()) {
344: my %textarea_args = (
345: dragmath => 'math',
346: );
347: $extra_head .= &Apache::lonhtmlcommon::htmlareaselectactive(\%textarea_args);
1.425 raeburn 348: }
1.478 raeburn 349: my $is_task = ($env{'request.uri'} =~ /\.task$/);
1.528 raeburn 350: my ($needs_upload,$partlist);
1.495 raeburn 351: my ($symb)= &Apache::lonnet::whichuser();
352: my ($map,$resid,$resurl)=&Apache::lonnet::decode_symb($symb);
1.478 raeburn 353: if ($is_task) {
1.495 raeburn 354: $extra_head .= &Apache::lonhtmlcommon::file_submissionchk_js();
1.493 raeburn 355: } else {
356: if (&Apache::lonnet::EXT("resource.$Apache::inputtags::part.uploadedfiletypes") ne '') {
1.495 raeburn 357: unless ($env{'request.state'} eq 'construct') {
358: my $navmap = Apache::lonnavmaps::navmap->new();
359: if (ref($navmap)) {
360: my $mapres = $navmap->getResourceByUrl($map);
1.496 raeburn 361: my $is_page;
362: if (ref($mapres)) {
363: $is_page = $mapres->is_page();
364: }
365: unless ($is_page) {
1.495 raeburn 366: $needs_upload = 1;
367: }
1.528 raeburn 368: if ((ref($tagstack) eq 'ARRAY') && ($tagstack->[-1] eq 'problem')) {
369: my $res = $navmap->getBySymb($symb);
370: if (ref($res)) {
371: $partlist = $res->parts();
372: }
373: }
1.495 raeburn 374: }
375: }
1.493 raeburn 376: } else {
377: unless ($env{'request.state'} eq 'construct') {
378: my $navmap = Apache::lonnavmaps::navmap->new();
379: if (ref($navmap)) {
1.495 raeburn 380: my $mapres = $navmap->getResourceByUrl($map);
1.496 raeburn 381: my $is_page;
382: if (ref($mapres)) {
383: $is_page = $mapres->is_page();
384: }
1.528 raeburn 385: if ($is_page) {
386: if ((ref($tagstack) eq 'ARRAY') && ($tagstack->[-1] eq 'problem')) {
387: my $res = $navmap->getBySymb($symb);
388: if (ref($res)) {
389: $partlist = $res->parts();
390: }
391: }
392: } else {
1.495 raeburn 393: my $res = $navmap->getBySymb($symb);
394: if (ref($res)) {
1.528 raeburn 395: $partlist = $res->parts();
1.495 raeburn 396: if (ref($partlist) eq 'ARRAY') {
397: foreach my $part (@{$partlist}) {
398: my @types = $res->responseType($part);
399: my @ids = $res->responseIds($part);
400: for (my $i=0; $i < scalar(@ids); $i++) {
401: if ($types[$i] eq 'essay') {
402: my $partid = $part.'_'.$ids[$i];
403: if (&Apache::lonnet::EXT("resource.$partid.uploadedfiletypes") ne '') {
404: $needs_upload = 1;
405: last;
406: }
1.493 raeburn 407: }
408: }
409: }
1.495 raeburn 410: }
411: }
1.493 raeburn 412: }
413: }
414: }
415: }
1.495 raeburn 416: if ($needs_upload) {
417: $extra_head .= &Apache::lonhtmlcommon::file_submissionchk_js();
418: }
1.478 raeburn 419: }
1.425 raeburn 420:
1.344 albertel 421: my %body_args;
422: if (defined($found{'html'})) {
423: $body_args{'skip_phases'}{'head'}=1;
424: } else {
1.343 albertel 425:
1.345 albertel 426: $extra_head .= &Apache::lonhtmlcommon::spellheader();
1.343 albertel 427:
1.379 albertel 428: $extra_head .= &Apache::londefdef::generate_css_links();
429:
1.384 albertel 430: if ($env{'request.state'} eq 'construct') {
1.343 albertel 431: $extra_head.=&Apache::edit::js_change_detection().
432: "<script type=\"text/javascript\">\n".
433: "if (typeof swmenu != 'undefined') {swmenu.currentURL=null;}\n".
434: &Apache::loncommon::browser_and_searcher_javascript().
435: "\n</script>\n";
1.525 raeburn 436: if ($target eq 'edit') {
437: $extra_head .= &Apache::edit::js_update_linknum();
438: }
1.343 albertel 439: }
1.159 albertel 440: }
1.343 albertel 441:
1.446 bisitz 442: my $pageheader = '';
1.344 albertel 443: if (defined($found{'body'})) {
444: $body_args{'skip_phases'}{'body'}=1;
445: } elsif (!defined($found{'body'})
446: && $env{'request.state'} eq 'construct') {
1.343 albertel 447: if ($target eq 'web' || $target eq 'edit') {
1.513 raeburn 448: # Breadcrumbs for Authoring Space
1.450 bisitz 449: &Apache::lonhtmlcommon::clear_breadcrumbs();
450: &Apache::lonhtmlcommon::add_breadcrumb({
1.513 raeburn 451: 'text' => 'Authoring Space',
1.497 raeburn 452: 'href' => &Apache::loncommon::authorspace($env{'request.uri'}),
1.450 bisitz 453: });
1.460 droeschl 454: # breadcrumbs (and tools) will be created
455: # in start_page->bodytag->innerregister
456:
1.450 bisitz 457: # FIXME Where are we?
458: # &Apache::lonhtmlcommon::add_breadcrumb({
459: # 'text' => 'Problem Editing', # 'Problem Testing'
460: # 'href' => '',
461: # });
1.460 droeschl 462: $pageheader =&Apache::loncommon::head_subbox(
1.446 bisitz 463: &Apache::loncommon::CSTR_pageheader());
1.297 albertel 464: }
1.272 albertel 465: } elsif (!defined($found{'body'})) {
1.343 albertel 466: my %add_entries;
1.159 albertel 467: my $background=&Apache::lonxml::get_param('background',$parstack,
468: $safeeval);
1.343 albertel 469: if ($background ne '' ) {
470: $add_entries{'background'} = $background;
471: }
1.344 albertel 472:
1.290 albertel 473: my $bgcolor=&Apache::lonxml::get_param('bgcolor',$parstack,
474: $safeeval);
1.446 bisitz 475: if ($bgcolor eq '' ) { $bgcolor = '#FFFFFF'; }
1.344 albertel 476:
1.446 bisitz 477: $body_args{'bgcolor'} = $bgcolor;
478: # $body_args{'no_title'} = 1;
479: $body_args{'force_register'} = 1;
480: $body_args{'add_entries'} = \%add_entries;
1.466 droeschl 481: if ( $env{'request.state'} eq 'construct') {
1.446 bisitz 482: $body_args{'only_body'} = 1;
1.518 raeburn 483: } elsif ($target eq 'web') {
484: $body_args{'print_suppress'} = 1;
1.446 bisitz 485: }
1.344 albertel 486: }
1.365 albertel 487: $body_args{'no_auto_mt_title'} = 1;
1.344 albertel 488: my $page_start = &Apache::loncommon::start_page($name,$extra_head,
489: \%body_args);
1.446 bisitz 490: $page_start .= $pageheader;
1.462 raeburn 491: if (!defined($found{'body'})
492: && $env{'request.state'} ne 'construct'
493: && ($target eq 'web' || $target eq 'webgrade')) {
494:
495: my ($symb,undef,undef,undef,$publicuser)= &Apache::lonnet::whichuser();
496: if ($symb eq '' && !$publicuser) {
497: $page_start .= '<p class="LC_info">'
498: .&mt('Browsing resource, all submissions are temporary.')
499: .'</p>';
1.457 bisitz 500: }
1.344 albertel 501: }
502:
1.409 albertel 503: if (!defined($found{'body'}) && $env{'request.state'} ne 'construct') {
1.343 albertel 504: $page_start .= &Apache::lonxml::message_location();
1.159 albertel 505: }
506: my $form_tag_start;
507: if (!defined($found{'form'})) {
1.337 albertel 508: $form_tag_start='<form name="lonhomework" enctype="multipart/form-data" method="post" action="';
1.465 raeburn 509: my $uri = &Apache::loncommon::inhibit_menu_check(
1.455 droeschl 510: &Apache::lonenc::check_encrypt($env{'request.uri'}));
1.464 raeburn 511: $uri = &HTML::Entities::encode($uri,'<>&"');
1.327 albertel 512: $form_tag_start.=$uri.'" ';
513: if ($target eq 'edit') {
514: $form_tag_start.=&Apache::edit::form_change_detection();
515: }
1.493 raeburn 516: my ($symb,$courseid,$udom,$uname)=&Apache::lonnet::whichuser();
517: my ($path,$multiresp) =
518: &Apache::loncommon::get_turnedin_filepath($symb,$uname,$udom);
1.495 raeburn 519: if (($is_task) || ($needs_upload)) {
520: $form_tag_start .= ' onsubmit="return file_submission_check(this,'."'$path','$multiresp'".');"';
1.478 raeburn 521: }
1.368 albertel 522: $form_tag_start.='>'."\n";
1.355 albertel 523:
524: if ($symb =~ /\S/) {
525: $symb=
526: &HTML::Entities::encode(&Apache::lonenc::check_encrypt($symb));
527: $form_tag_start.=
1.368 albertel 528: "\t".'<input type="hidden" name="symb" value="'.$symb.'" />'."\n";
1.355 albertel 529: }
1.159 albertel 530: }
1.528 raeburn 531: return ($page_start,$form_tag_start,$partlist);
1.105 albertel 532: }
533:
1.141 matthew 534: #use Time::HiRes();
1.105 albertel 535: sub get_resource_name {
1.159 albertel 536: my ($parstack,$safeeval)=@_;
1.388 foxr 537: my $name;
1.204 albertel 538: if (defined($Apache::lonhomework::name)) {
1.388 foxr 539: $name = $Apache::lonhomework::name;
540: } else {
541: my ($symb)=&Apache::lonnet::whichuser();
1.392 albertel 542: $name=&Apache::lonnet::gettitle($symb);
1.388 foxr 543: if ($name eq '') {
544: $name=&Apache::lonnet::EXT('resource.title');
545: if ($name eq 'con_lost') { $name = ''; }
546: }
547: if ($name!~/\S+/) {
548: $name=$env{'request.uri'};
549: $name=~s-.*/([^/]+)$-$1-;
550: }
551: # The name has had html tags escaped:
552:
553: $name=~s/</</gs;
554: $name=~s/>/>/gs;
555:
556: $Apache::lonhomework::name=$name;
1.204 albertel 557: }
1.159 albertel 558: return $name;
1.105 albertel 559: }
560:
561: sub setup_rndseed {
1.528 raeburn 562: my ($safeeval,$target,$probpartlist)=@_;
1.367 albertel 563: my ($symb)=&Apache::lonnet::whichuser();
1.479 raeburn 564: my ($questiontype,$set_safespace,$rndseed);
565: if ($target eq 'analyze') {
566: $questiontype = $env{'form.grade_questiontype'};
567: }
568: unless (defined($questiontype)) {
569: $questiontype = $Apache::lonhomework::type;
570: }
1.333 albertel 571: if ($env{'request.state'} eq "construct"
572: || $symb eq ''
573: || $Apache::lonhomework::type eq 'practice'
574: || $Apache::lonhomework::history{'resource.CODE'}) {
1.316 www 575: &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
1.317 albertel 576: ['rndseed']);
1.284 albertel 577: $rndseed=$env{'form.rndseed'};
1.159 albertel 578: if (!$rndseed) {
1.162 albertel 579: $rndseed=$Apache::lonhomework::history{'rndseed'};
580: if (!$rndseed) {
581: $rndseed=time;
582: }
1.284 albertel 583: $env{'form.rndseed'}=$rndseed;
1.162 albertel 584: }
1.479 raeburn 585: if (($env{'request.state'} eq "construct") &&
586: ($Apache::lonhomework::type eq 'randomizetry')) {
587: my $tries = $Apache::lonhomework::history{"resource.$Apache::inputtags::part.tries"};
588: if ($tries) {
589: $rndseed += $tries;
590: }
1.480 raeburn 591: $env{'form.'.$Apache::inputtags::part.'.rndseed'}=$rndseed;
1.479 raeburn 592: }
1.374 albertel 593: if ( ($env{'form.resetdata'} eq &mt('New Problem Variation')
594: && $env{'form.submitted'} eq 'yes') ||
1.284 albertel 595: $env{'form.newrandomization'} eq &mt('New Randomization')) {
1.190 albertel 596: srand(time);
597: $rndseed=int(rand(2100000000));
1.284 albertel 598: $env{'form.rndseed'}=$rndseed;
599: delete($env{'form.resetdata'});
600: delete($env{'form.newrandomization'});
1.159 albertel 601: }
1.488 www 602: $rndseed=~s/\,/\:/g;
603: $rndseed=~s/[^\w\d\:\-]//g;
1.489 www 604: if (defined($rndseed)) {
605: my ($c1,$c2)=split(/\:/,$rndseed);
606: unless ($c2) { $c2=0; }
607: unless (($c1==int($c1)) && ($c2==int($c2))) {
608: $rndseed=join(':',&Apache::lonnet::digest($rndseed));
609: }
1.187 albertel 610: }
1.247 albertel 611: if ($Apache::lonhomework::history{'resource.CODE'}) {
612: $rndseed=&Apache::lonnet::rndseed();
613: }
1.479 raeburn 614: $set_safespace = 1;
615: } elsif ($questiontype eq 'randomizetry') {
616: if ($target eq 'analyze') {
617: if (defined($env{'form.grade_rndseed'})) {
618: $rndseed = $env{'form.grade_rndseed'};
619: }
620: }
621: unless (($target eq 'analyze') && (defined($rndseed))) {
622: $rndseed=&Apache::lonnet::rndseed();
1.528 raeburn 623: my $partfortries = $Apache::inputtags::part;
624: if (ref($probpartlist) eq 'ARRAY') {
625: if ((@{$probpartlist} == 1) && ($probpartlist->[0] ne $Apache::inputtags::part)) {
626: $partfortries = $probpartlist->[0];
627: }
628: }
629: my $curr_try = $Apache::lonhomework::history{"resource.$partfortries.tries"};
1.479 raeburn 630: if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {
631: $curr_try ++;
632: }
633: if ($rndseed =~/^(\d+)[,:](\d+)$/) {
634: $rndseed = $1;
635: }
636: if ($curr_try) {
1.528 raeburn 637: my $reqtries = &Apache::lonnet::EXT("resource.$partfortries.randomizeontries");
1.479 raeburn 638: if (($reqtries =~ /^\d+$/) && ($reqtries > 1)) {
639: my $inc = int(($curr_try-1)/$reqtries);
640: $rndseed += $inc;
641: } else {
642: $rndseed += $curr_try;
643: }
644: }
645: }
646: $set_safespace = 1;
1.528 raeburn 647: if ($target eq 'grade') {
648: $Apache::lonhomework::rawrndseed = $rndseed;
649: }
1.479 raeburn 650: }
651: if ($set_safespace) {
652: if ($safeeval) {
653: &Apache::lonxml::debug("Setting rndseed to $rndseed");
654: &Apache::run::run('$external::randomseed="'.$rndseed.'";',$safeeval);
655: }
656: }
657: unless (($env{'request.state'} eq "construct") || ($symb eq '')) {
658: $env{'form.'.$Apache::inputtags::part.'.rndseed'}=$rndseed;
1.159 albertel 659: }
660: return $rndseed;
1.105 albertel 661: }
662:
1.268 albertel 663: sub remember_problem_state {
664: return '
1.284 albertel 665: <input type="hidden" name="problemstate" value="'.$env{'form.problemstate'}.'" />
666: <input type="hidden" name="problemtype" value="'.$env{'form.problemtype'}.'" />
667: <input type="hidden" name="problemstatus" value="'.$env{'form.problemstatus'}.'" />';
1.268 albertel 668: }
669:
1.487 www 670: sub problem_edit_action_button {
671: my ($name,$action,$accesskey,$text,$flag)=@_;
672: my $actionscript="setmode(this.form,'$action')";
673: return "\n<input type='button' name='$name' accesskey='$accesskey' value='".&mt($text)."'".
674: ($flag?&Apache::edit::submit_ask_anyway($actionscript):&Apache::edit::submit_dont_ask($actionscript))." />";
675: }
676:
1.423 www 677: sub problem_edit_buttons {
1.487 www 678: my ($mode)=@_;
679: # Buttons that do not save
680: my $result='<div class="LC_edit_problem_discards">'.
681: &problem_edit_action_button('subdiscview','discard','d','Discard Edits and View',1);
682: if ($mode eq 'editxml') {
683: $result.=&problem_edit_action_button('subedit','edit','e','Edit',1);
684: $result.=&problem_edit_action_button('subundo','undoxml','u','Undo',1);
685: $result.=&Apache::lonhtmlcommon::dragmath_button("LC_editxmltext",1);
686: } else {
687: $result.=&problem_edit_action_button('subeditxml','editxml','x','EditXML',1);
688: $result.=&problem_edit_action_button('subundo','undo','u','Undo',1);
689: }
690: $result.="\n</div>";
691: # Buttons that save
692: $result.='<div class="LC_edit_problem_saves">';
693: if ($mode eq 'editxml') {
694: $result.=&problem_edit_action_button('subsaveedit','saveeditxml','s','Save and EditXML');
695: $result.=&problem_edit_action_button('subsaveview','saveviewxml','v','Save and View');
696: } else {
697: $result.=&problem_edit_action_button('subsaveedit','saveedit','s','Save and Edit');
698: $result.=&problem_edit_action_button('subsaveview','saveview','v','Save and View');
699: }
700: $result.="\n</div>\n";
701: return $result;
1.423 www 702: }
703:
1.527 golterma 704: sub insert_menu_datastructure {
705:
706: my $template_menu = &template_dropdown_datastructure();
707: my $responseblock_menu = &responseblock_dropdown_datastructure();
708: my $conditional_scripting = &conditional_scripting_datastructure();
709: my $misc = &misc_datastructure();
710:
711: my @menu = ($template_menu, $responseblock_menu, $conditional_scripting, $misc);
712: return \@menu;
713:
714: }
715:
716: sub template_dropdown_datastructure {
717: # gathering the all templates and their path, title, category and help topic
718: my @templates = &Apache::lonhomework::get_template_list('problem');
719: # template category => title
720: my %tmplthash = ();
721: # template title => path
722: my %tmpltcontent = ();
723:
724: foreach my $template (@templates){
725: # put in hash if the template is not empty
726: unless ($template->[1] eq ''){
727: push(@{$tmplthash{$template->[2]}}, $template->[1]);
728: push(@{$tmpltcontent{$template->[1]}},$template->[0]);
729: }
730: }
731:
732: my $catList = [];
733: foreach my $cat (sort keys %tmplthash) {
734: my $catItems = [];
735: foreach my $title (sort @{$tmplthash{$cat}}) {
736: my $path = $tmpltcontent{$title}->[0];
737: my $code;
738: open(FH, "<$path");
739: while(<FH>){
740: $code.= $_ unless $_ =~ /(<problem>)|(<\/problem>)/;
741: }
742: close(FH);
743:
744: if ($code ne '') {
745: my $href = 'javascript:insertText(\'' . &convert_for_js(&HTML::Entities::encode($code)) . '\')';
746: my $currItem = [$href, $title, undef];
747: push @{$catItems}, $currItem;
748: }
749: }
750: push @{$catList}, [$catItems, $cat, undef];
751: }
752:
753: my $templDropdown = [$catList, &mt("Complete Problem Templates"), undef];
754: return $templDropdown;
755: }
756:
757: sub responseblock_dropdown_datastructure {
758:
759: my $mathCat = [
760: [
761: ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_formularesponse())) . "\')", &mt("Formula Response"), undef],
762: ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_functionplotresponse())) . "\')", &mt("Function Plot Response"), undef],
763: ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_mathresponse())) . "\')", &mt("Math Response"), undef],
764: ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_numericalresponse())) . "\')", &mt("Numerical Response"), undef]
765: ],
766: &mt("Math"),
767: undef
768: ];
769:
770: my $miscCat = [
771: [
772: ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_imageresponse())) . "\')", &mt("Click on Image"), undef],
773: ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_customresponse())) . "\')", &mt("Custom Response"), undef],
774: ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_externalresponse())) . "\')", &mt("External Response"), undef],
775: ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_matchresponse())) . "\')", &mt("Match Response"), undef],
776: ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_radiobuttonresponse())) . "\')", &mt("One out of N Statement"), undef],
777: ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_optionresponse())) . "\')", &mt("Optionresponse"), undef],
778: ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_rankresponse())) . "\')", &mt("Rank Values"), undef]
779: ],
780: &mt("Misc"),
781: undef
782: ];
783:
784: my $chemCat = [
785: [
786: ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_reactionresponse())) . "\')", &mt("Chemical Reaction"), undef],
787: ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_organicresponse())) . "\')", &mt("Organic Structure"), undef]
788: ],
789: &mt("Chemical"),
790: undef
791: ];
792:
793: my $textCat = [
794: [
795: ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_stringresponse())) . "\')", &mt("String Response"), undef],
796: ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_essayresponse())) . "\')", &mt("Essay"), undef]
797: ],
798: &mt("Text"),
799: undef
800: ];
801:
802: my $cats = [[$mathCat, $miscCat, $chemCat, $textCat], &mt("Response Types"), undef];
803: return $cats;
804: }
805:
806:
807: sub conditional_scripting_datastructure {
808: # TODO: corresponding routines should be used for the javascript:insertText parts
809: # instead of the placeholder routine default_xml_tag with the tags
810: # e.g. &default_xml_tag("postanswerdate") should be replaced with a routine which
811: # returns the corresponding content for this case
812:
813: #TODO translated is currently temporarily here, another solution should be found where the
814: # needed string can be retrieved
815:
816: my $translatedTag = '
817: <translated>
818: <lang which="en"></lang>
819: <lang which="default"></lang>
820: </translated>';
821:
822: my $cat = [
823: [
824: ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode($translatedTag)) . "\')", &mt("Translated Tag"), undef],
825: ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&default_xml_tag("block"))) . "\')", &mt("Conditional Block"), undef],
826: ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&default_xml_tag("postanswerdate"))) . "\')", &mt("After Answer Block"), undef],
827: ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&default_xml_tag("preduedate"))) . "\')", &mt("Before Due Date Block"), undef],
828: ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&default_xml_tag("solved"))) . "\')", &mt("Block For After Solved"), undef],
829: ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&default_xml_tag("notsolved"))) . "\')", &mt("Block For When Not Solved"), undef]
830: ],
831: &mt("Contitional Scripting"),
832: undef
833: ];
834:
835: return $cat;
836: }
837:
838: sub misc_datastructure {
839:
840: my $graphicalCat = [
841: [
842: ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_img())) . "\')", &mt("Image"), undef],
843: ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::lonplot::insert_gnuplot())) . "\')", &mt("GNU Plot"), undef],
844: ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_organicstructure())) . "\')", &mt("Organic Structure"), undef]
845: ],
846: "Graphical",
847: undef
848: ];
849:
850: my $advancedCat = [
851: [
852: ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_script())) . "\')", &mt("Script Block"), undef],
853: ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&default_xml_tag("allow"))) . "\')", &mt("File Dependencies"), undef],
854: ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&default_xml_tag("import"))) . "\')", &mt("Import a File"), undef],
855: ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::londefdef::insert_meta())) . "\')", &mt("Custom Metadata"), undef]
856: ],
857: "advanced",
858: undef
859: ];
860:
861: my $cats = [[$graphicalCat, $advancedCat], &mt("misc"), undef];
862: return $cats;
863: }
864:
865: # helper routine for the datastructure building subroutines
866: sub default_xml_tag {
867: my ($tag) = @_;
868: return "\n<$tag></$tag>";
869: }
870:
871:
872: sub helpmenu_datastructure {
873:
874: my $width = 500;
875: my $height = 600;
876:
877: my $helpers = [
878: ['Problem_LON-CAPA_Functions', &mt('Script Functions')],
879: ['Greek_Symbols', &mt('Greek Symbols')],
880: ['Other_Symbols', &mt('Other Symbols')],
881: ['Authoring_Output_Tags', &mt('Output Tags')],
882: ['Authoring_Multilingual_Problems',
883: &mt('How to create problems in different languages')]
884: ];
885:
886: my $help_structure = [];
887:
888: foreach my $count (0..(scalar(@{$helpers})-1)) {
889: my $filename = $helpers->[$count]->[0];
890: my $title = $helpers->[$count]->[1];
891: my $href = &HTML::Entities::encode("javascript:openMyModal('/adm/help/$filename.hlp',$width,$height,'yes');");
892: push @{$help_structure}, [$href, $title, undef];
893: }
894:
895: return $help_structure;
896: }
897:
898: # we need substitution to not break javascript code
899: sub convert_for_js {
900: my $return = shift;
901: $return =~ s|script|ESCAPEDSCRIPT|g;
1.530 ! droeschl 902: $return =~ s|\\|\\\\|g;
1.527 golterma 903: $return =~ s|\n|\\r\\n|g;
904: $return =~ s|'|\\'|g;
905: $return =~ s|'|\\'|g;
906: return $return;
907: }
908:
1.423 www 909: sub problem_edit_header {
1.527 golterma 910: my ($mode)=@_;
911: my $return = '<input type="hidden" name="submitted" value="edit" />'.
1.487 www 912: &remember_problem_state('edit').'
1.527 golterma 913: <div class="LC_edit_problem_header">
914: <div class="LC_edit_problem_header_title">
915: '.&mt('Problem Editing').$mode.&Apache::loncommon::help_open_menu('Problem Editing','Problem_Editor_XML_Index',5,'Authoring').'
916: </div><div class="LC_edit_actionbar" id="actionbar">'.
917: '<input type="hidden" name="problemmode" value="saveedit" />'.
918: &problem_edit_buttons();
919:
920: $return.='<hr style="clear:both;visibility:hidden;" />
921: </div></div>'
922: .&Apache::lonxml::message_location();
923: $return .= '<link rel="stylesheet" href="/adm/codemirror/codemirror-combined.css" />
924: <script type="text/javascript" src="/adm/codemirror/codemirror-compressed-colorful.js"></script>';
925:
926: $return .= '<script type="text/javascript" src="/adm/jQuery/addons/jquery-scrolltofixed.js"></script>
927: <script type="text/javascript">
928: // unless internet explorer
929: if (!(window.navigator.appName == "Microsoft Internet Explorer" && (document.documentMode || document.compatMode))){
930: $(document).ready(
931: function() {
932: $(\'.LC_edit_actionbar\').scrollToFixed(
933: {
934: fixed: function(){
935: $(this).find(\'.LC_edit_actionbar\').css(\'height\', \'31px\');
936: }
937: }
938: );
939: }
940: );
941: }
942: </script>
943: <table id="LC_edit_problem_colorful" border="0" width="100%"><tr><td bgcolor="#F8F8F8">';
944: return $return;
1.105 albertel 945: }
946:
947: sub problem_edit_footer {
1.527 golterma 948: my $resource = $env{'request.ambiguous'};
1.412 albertel 949: return '</td></tr></table><br />
950: <div class="LC_edit_problem_footer">
1.453 bisitz 951: <hr />'.
1.423 www 952: &problem_edit_buttons().'
1.459 bisitz 953: <hr style="clear:both;" />
1.527 golterma 954: <script type="text/javascript">
955: restoreState("'.$resource.'");
956: restoreScrollPosition("'.$resource.'");
957: </script>
1.412 albertel 958: </div>
959: '.
1.342 albertel 960: "\n</form>\n".&Apache::loncommon::end_page();
1.105 albertel 961: }
962:
1.235 albertel 963: sub option {
964: my ($value,$name) = @_;
965: my $result ="<option value='".$value."' ";
1.284 albertel 966: if ($env{'form.'.$name} eq $value) {
1.235 albertel 967: $result.=" selected='on' ";
968: }
969: $result.='>';
970: return $result;
971: }
972:
1.105 albertel 973: sub problem_web_to_edit_header {
1.159 albertel 974: my ($rndseed)=@_;
1.406 albertel 975: my $result .= '<div class="LC_edit_problem_header">';
976:
977: if (!$Apache::lonhomework::parsing_a_task) {
978: $result .=
979: '<div class="LC_edit_problem_header_title">'.
980: &mt('Problem Testing').
981: &Apache::loncommon::help_open_topic('Problem_Editor_Testing_Area').
982: '</div>';
983: } else {
984: $result .=
985: '<div class="LC_edit_problem_header_title">'.
986: &mt('Task Testing').
987: '</div>';
988: }
989:
1.315 albertel 990: my $show_all_foils_text =
991: ($Apache::lonhomework::parsing_a_task) ?
1.452 bisitz 992: &mt('Show All Instances')
993: : &mt('Show All Foils');
1.315 albertel 994:
1.452 bisitz 995: my $show_all= '<span class="LC_nobreak"><label for="showallfoils">'
996: .'<input type="checkbox" name="showallfoils"';
1.440 bisitz 997: if (defined($env{'form.showallfoils'})) { $show_all.=' checked="checked"'; }
1.452 bisitz 998: $show_all.= ' /> '.$show_all_foils_text
999: .'</label></span>';
1.406 albertel 1000:
1001:
1.384 albertel 1002:
1.406 albertel 1003: $result .= '<div class="LC_edit_problem_header_status_row">';
1.313 albertel 1004: if (!$Apache::lonhomework::parsing_a_task) {
1005: $result.="
1.406 albertel 1006: <div class='LC_edit_problem_header_row1'>
1007: <span class=\"LC_nobreak\">
1.405 albertel 1008: ".&mt("Problem Status:")."
1.235 albertel 1009: <select name='problemstate'>
1.270 albertel 1010: <option value=''></option>
1.235 albertel 1011: ".&option('CLOSED' ,'problemstate').&mt("Closed")."</option>
1012: ".&option('CAN_ANSWER' ,'problemstate').&mt("Answerable")."</option>
1013: ".&option('CANNOT_ANSWER_tries' ,'problemstate').&mt("Open with full tries")."</option>
1014: ".&option('CANNOT_ANSWER_correct','problemstate').&mt("Open and correct")."</option>
1015: ".&option('SHOW_ANSWER' ,'problemstate').&mt("Show Answer")."</option>
1016: </select>
1.406 albertel 1017: </span>
1018: <span class=\"LC_nobreak\">
1.405 albertel 1019: ".&mt("Problem Type:")."
1.235 albertel 1020: <select name='problemtype'>
1.270 albertel 1021: <option value=''></option>
1.509 bisitz 1022: ".&option('exam' ,'problemtype').&mt("Bubblesheet Exam Problem")."</option>
1.428 raeburn 1023: ".&option('problem','problemtype').&mt("Homework Problem")."</option>
1.242 albertel 1024: ".&option('survey' ,'problemtype').&mt("Survey Question")."</option>
1.465 raeburn 1025: ".&option('surveycred' ,'problemtype').&mt("Survey Question (with credit)")."</option>
1026: ".&option('anonsurvey' ,'problemtype').&mt("Anonymous Survey Question")."</option>
1027: ".&option('anonsurveycred' ,'problemtype').&mt("Anonymous Survey Question (with credit)")."</option>
1.428 raeburn 1028: ".&option('practice' ,'problemtype').&mt("Practice Problem")."</option>
1.479 raeburn 1029: ".&option('randomizetry' ,'problemtype').&mt("New Randomization Each Try")."</option>
1.235 albertel 1030: </select>
1.406 albertel 1031: </span>
1032: $show_all
1033: </div>
1034: <div class='LC_edit_problem_header_row2'>
1035: <span class=\"LC_nobreak\">
1.405 albertel 1036: ".&mt("Feedback Mode:")."
1.235 albertel 1037: <select name='problemstatus'>
1038: <option value=''></option>
1.242 albertel 1039: ".&option('yes','problemstatus').&mt("Show Feedback")."</option>
1.517 bisitz 1040: ".&option('no', 'problemstatus').&mt("Don't Show Incorrect/Correct Feedback")."</option>
1.405 albertel 1041: ".&option('no_feedback_ever', 'problemstatus').&mt("Don't Show Any Feedback")."</option>
1.235 albertel 1042: </select>
1.406 albertel 1043: </span>
1044: ";
1045:
1.376 albertel 1046: } elsif ($Apache::lonhomework::parsing_a_task) {
1047: $result.="
1.406 albertel 1048: <div class='LC_edit_problem_header_row1'>
1049: <span class=\"LC_nobreak\">
1.405 albertel 1050: ".&mt("Problem Status:")."
1.376 albertel 1051: <select name='problemstate'>
1052: <option value=''></option>
1053: ".&option('CLOSED' ,'problemstate').&mt("Closed")."</option>
1054: ".&option('CAN_ANSWER' ,'problemstate').&mt("Answerable")."</option>
1055: ".&option('WEB_GRADE' ,'problemstate').&mt("Criteria Grading")."</option>
1056: ".&option('SHOW_ANSWER' ,'problemstate').&mt("Show Feedback")."</option>
1057: </select>
1.406 albertel 1058: </span>
1059: $show_all
1060: ";
1061: }
1062: $result.='
1063: <span class="LC_nobreak">
1064: '.&mt('Apply style file: ').'
1065: <input type="text" name="style_file" value="'.&HTML::Entities::encode($env{'construct.style'},'"<>&').'" />
1066: <a href="javascript:openbrowser(\'lonhomework\',\'style_file\',\'sty\')">'.&mt('Select').'</a>
1067: </span>
1.422 www 1068: </div>
1069: <div class="LC_edit_problem_header_row1">'.
1070: &Apache::lonxml::renderingoptions().'
1.406 albertel 1071: </div>
1072: <input type="submit" name="changeproblemmode" value="'.&mt("Change View").'" />
1073: <input type="submit" name="clear_style_file" accesskey="d" value="'.&mt('Show Default View').'" />
1074: <input type="submit" name="resetdata" accesskey="r" value="'.&mt('Reset Submissions').'" />
1075: </div>
1.453 bisitz 1076: <hr />
1.406 albertel 1077: <div class="LC_edit_problem_header_randomize_row">
1078: <input type="submit" name="newrandomization" accesskey="a" value="'.&mt('New Randomization').'" />
1079: <input type="submit" name="changerandseed" value="'.&mt('Change Random Seed To:').'" />
1.488 www 1080: <input type="text" name="rndseed" size="24" value="'.
1.406 albertel 1081: $rndseed.'"
1082: onchange="javascript:document.lonhomework.changerandseed.click()" />';
1083:
1084: if (!$Apache::lonhomework::parsing_a_task) {
1085: my $numtoanalyze=$env{'form.numtoanalyze'};
1086: if (!$numtoanalyze) { $numtoanalyze=20; }
1.408 albertel 1087: $result .= '<span class="LC_nobreak">'.
1088: &mt('[_1] for [_2] versions.',
1.416 raeburn 1089: '<input type="button" name="submitmode" value="'.&mt('Calculate answers').'" '.
1.419 bisitz 1090: 'onclick="javascript:setmode(this.form,'."'calcanswers'".')" />'
1091: ,'<input type="text" name="numtoanalyze" value="'.
1.408 albertel 1092: $numtoanalyze.'" size="5" />').
1093: &Apache::loncommon::help_open_topic("Analyze_Problem",'',undef,undef,300).
1094: '</span>';
1095:
1.313 albertel 1096: }
1.406 albertel 1097:
1098: $result.='
1099: </div>
1.453 bisitz 1100: <hr />
1.447 bisitz 1101: <div>';
1.416 raeburn 1102: $result.='<input type="hidden" name="problemmode" value="view" />';
1103: $result .= '<input type="button" name="submitmode" accesskey="e" value="'.&mt('Edit').'" '.
1104: 'onclick="javascript:setmode(this.form,'."'edit'".')" />';
1105: $result .= '<input type="button" name="submitmode" accesskey="x" value="'.&mt('EditXML').'" '.
1106: 'onclick="javascript:setmode(this.form,'."'editxml'".')" />';
1.408 albertel 1107: $result.='
1108: </div>
1.453 bisitz 1109: <hr />
1.409 albertel 1110: '.&Apache::lonxml::message_location().'
1.406 albertel 1111: </div>';
1.159 albertel 1112: return $result;
1.48 albertel 1113: }
1114:
1.65 albertel 1115: sub initialize_storage {
1.357 albertel 1116: my ($given_symb) = @_;
1.353 albertel 1117: undef(%Apache::lonhomework::results);
1118: undef(%Apache::lonhomework::history);
1.357 albertel 1119: my ($symb,$courseid,$domain,$name) =
1.367 albertel 1120: &Apache::lonnet::whichuser($given_symb);
1.353 albertel 1121:
1122: # anonymous users (CODEd exams) have no data
1123: if ($name eq 'anonymous'
1124: && !defined($domain)) {
1125: return;
1126: }
1127:
1.333 albertel 1128: if ($env{'request.state'} eq 'construct'
1129: || $symb eq ''
1130: || $Apache::lonhomework::type eq 'practice') {
1131:
1132: my $namespace = $symb || $env{'request.uri'};
1133: if ($env{'form.resetdata'} eq &mt('Reset Submissions') ||
1.374 albertel 1134: ($env{'form.resetdata'} eq &mt('New Problem Variation')
1135: && $env{'form.submitted'} eq 'yes') ||
1.333 albertel 1136: $env{'form.newrandomization'} eq &mt('New Randomization')) {
1137: &Apache::lonnet::tmpreset($namespace,'',$domain,$name);
1138: &Apache::lonxml::debug("Attempt reset");
1139: }
1.159 albertel 1140: %Apache::lonhomework::history=
1.333 albertel 1141: &Apache::lonnet::tmprestore($namespace,'',$domain,$name);
1.526 raeburn 1142: my ($temp)=keys(%Apache::lonhomework::history) ;
1.159 albertel 1143: &Apache::lonxml::debug("Return message of $temp");
1144: } else {
1145: %Apache::lonhomework::history=
1146: &Apache::lonnet::restore($symb,$courseid,$domain,$name);
1147: }
1.353 albertel 1148:
1.159 albertel 1149: #ignore error conditions
1.526 raeburn 1150: my ($temp)=keys(%Apache::lonhomework::history);
1.159 albertel 1151: if ($temp =~ m/^error:.*/) { %Apache::lonhomework::history=(); }
1.65 albertel 1152: }
1153:
1.435 jms 1154: =pod
1155:
1156: =item finalize_storage()
1157:
1.524 raeburn 1158: Stores away the result hash to a student's environment;
1.523 raeburn 1159: checks form.grade_ for specific values, otherwise stores
1160: to the running user's environment.
1.524 raeburn 1161:
1162: &check_correctness_changes() is called in two circumstances
1163: in which the results hash is to be stored permanently, for
1164: grading triggered by a student's submission, where feedback on
1165: correctness is to be provided to the student.
1166:
1167: 1. Immediately prior to storing the results hash
1168:
1169: To handle the case where a student's submission (and award) were
1170: stored after history was retrieved in &initialize_storage(), e.g.,
1171: if a student submitted answers in quick succession (e.g., from
1172: multiple tabs). &Apache::inputtags::hidealldata() is called for
1173: any parts with out-of-order storage (i.e., correct then incorrect,
1174: where awarded >= 1 when correct).
1175:
1176: 2. Immediately after storing the results hash
1177:
1178: To handle the case where lond on the student's homeserver returns
1179: delay:N -- where N is the number of transactions between the last
1180: retrieved in &initialize_storage() and the last stored immediately
1181: before permanent storage of the current transaction via
1182: lond::store_handler(). &Apache::grades::makehidden() is called
1183: for any parts with out-of-order storage (i.e., correct then incorrect,
1184: where awarded >= 1 when correct).
1185:
1186: Will call &store_aggregates() to increment totals for attempts,
1187: students, and corrects, if running user has student role.
1188:
1.435 jms 1189: =cut
1190:
1191:
1.65 albertel 1192: sub finalize_storage {
1.357 albertel 1193: my ($given_symb) = @_;
1.159 albertel 1194: my $result;
1.289 albertel 1195: if (%Apache::lonhomework::results) {
1.323 albertel 1196: my @remove = grep(/^INTERNAL_/,keys(%Apache::lonhomework::results));
1197: delete(@Apache::lonhomework::results{@remove});
1.357 albertel 1198: my ($symb,$courseid,$domain,$name) =
1.367 albertel 1199: &Apache::lonnet::whichuser($given_symb);
1.333 albertel 1200: if ($env{'request.state'} eq 'construct'
1201: || $symb eq ''
1202: || $Apache::lonhomework::type eq 'practice') {
1203: my $namespace = $symb || $env{'request.uri'};
1.284 albertel 1204: $Apache::lonhomework::results{'rndseed'}=$env{'form.rndseed'};
1.159 albertel 1205: $result=&Apache::lonnet::tmpstore(\%Apache::lonhomework::results,
1.333 albertel 1206: $namespace,'',$domain,$name);
1.159 albertel 1207: &Apache::lonxml::debug('Construct Store return message:'.$result);
1208: } else {
1.524 raeburn 1209: my ($laststore,$checkedparts,@parts,%postcorrect);
1210: if (($env{'user.name'} eq $name) && ($env{'user.domain'} eq $domain) &&
1211: (!$Apache::lonhomework::scantronmode) && (!defined($env{'form.grade_symb'})) &&
1212: (!defined($env{'form.grade_courseid'}))) {
1213: if ($Apache::lonhomework::history{'version'}) {
1214: $laststore = $Apache::lonhomework::history{'version'}.'='.
1215: $Apache::lonhomework::history{'timestamp'};
1216: } else {
1217: $laststore = '0=0';
1218: }
1219: my %record = &Apache::lonnet::restore($symb,$courseid,$domain,$name);
1220: if ($record{'version'}) {
1221: my ($newversion,$oldversion,$oldtimestamp);
1222: if ($Apache::lonhomework::history{'version'}) {
1223: $oldversion = $Apache::lonhomework::history{'version'};
1224: $oldtimestamp = $Apache::lonhomework::history{'timestamp'};
1225: } else {
1226: $oldversion = 0;
1227: $oldtimestamp = 0;
1228: }
1229: if ($record{'version'} > $oldversion) {
1230: if ($record{'timestamp'} >= $oldtimestamp) {
1231: $laststore = $record{'version'}.'='.$record{'timestamp'};
1232: $newversion = $record{'version'} + 1;
1233: $checkedparts = 1;
1234: foreach my $key (keys(%Apache::lonhomework::results)) {
1235: if ($key =~ /^resource\.([^\.]+)\.solved$/) {
1236: my $part = $1;
1237: if ($Apache::lonhomework::results{$key} eq 'incorrect_attempted') {
1238: push(@parts,$part);
1239: }
1240: }
1241: }
1242: if (@parts) {
1243: my @parts_to_hide = &check_correctness_changes($symb,$courseid,$domain,$name,
1244: \%record,\@parts,$newversion,
1245: $oldversion);
1246: if (@parts_to_hide) {
1247: foreach my $part (@parts_to_hide) {
1248: $postcorrect{$part} = 1;
1249: &Apache::inputtags::hidealldata($part);
1250: }
1251: }
1252: }
1253: }
1254: }
1255: }
1256: }
1.159 albertel 1257: $result=&Apache::lonnet::cstore(\%Apache::lonhomework::results,
1.524 raeburn 1258: $symb,$courseid,$domain,$name,$laststore);
1259: if ($result =~ /^delay\:(\d+)$/) {
1260: my $numtrans = $1;
1261: my ($oldversion) = split(/=/,$laststore);
1262: if ($numtrans) {
1263: my $newversion = $oldversion + 1 + $numtrans;
1264: my @possparts;
1265: if ($checkedparts) {
1266: foreach my $part (@parts) {
1267: unless ($postcorrect{$part}) {
1268: push(@possparts,$part);
1269: }
1270: }
1271: } else {
1272: foreach my $key (keys(%Apache::lonhomework::results)) {
1273: if ($key =~ /^resource\.([^\.]+)\.solved$/) {
1274: my $part = $1;
1275: unless ($postcorrect{$part}) {
1276: if ($Apache::lonhomework::results{$key} eq 'incorrect_attempted') {
1277: push(@possparts,$part);
1278: }
1279: }
1280: }
1281: }
1282: }
1283: if (@possparts) {
1284: my %newrecord = &Apache::lonnet::restore($symb,$courseid,$domain,$name);
1285: my @parts_to_hide = &check_correctness_changes($symb,$courseid,$domain,$name,
1286: \%newrecord,\@possparts,$newversion,
1287: $oldversion);
1288: if (@parts_to_hide) {
1289: my $partslist = join(',',@parts_to_hide);
1290: &Apache::grades::makehidden($newversion,$partslist,\%newrecord,$symb,$domain,$name,1);
1291: }
1292: }
1293: }
1294: }
1.159 albertel 1295: &Apache::lonxml::debug('Store return message:'.$result);
1.470 raeburn 1296: &store_aggregates($symb,$courseid);
1.159 albertel 1297: }
1.323 albertel 1298: } else {
1299: &Apache::lonxml::debug('Nothing to store');
1.67 albertel 1300: }
1.159 albertel 1301: return $result;
1.65 albertel 1302: }
1303:
1.435 jms 1304: =pod
1305:
1.524 raeburn 1306: =item check_correctness_changes()
1307:
1308: For all parts for which current results contain a solved status
1309: of "incorrect_attempted", check if there was a transaction in which
1310: solved was set to "correct_by_student" in the time since the last
1311: transaction (retrieved when &initialize_storage() was called i.e.,
1312: when &start_problem() was called), unless:
1313: (a) questiontype parameter is set to survey or anonymous survey (+/- credit)
1314: (b) problemstatus is set to no or no_feedback_ever
1315: If such a transaction exists, and did not occur after "reset status"
1316: by a user with grading privileges, then the current transaction is an
1317: example of an out-of-order transaction (i.e., incorrect occurring after
1318: correct). Accordingly, the current transaction should be hidden.
1319:
1320: =cut
1321:
1322:
1323: sub check_correctness_changes {
1324: my ($symb,$courseid,$domain,$name,$record,$parts,$newversion,$oldversion) = @_;
1325: my @parts_to_hide;
1326: unless ((ref($record) eq 'HASH') && (ref($parts) eq 'ARRAY')) {
1327: return @parts_to_hide;
1328: }
1329: if (@{$parts}) {
1330: my $usec;
1331: if (($env{'user.name'} eq $name) && ($env{'user.domain'} eq $domain) &&
1332: ($env{'request.course.id'} eq $courseid)) {
1333: $usec = $env{'request.course.sec'};
1334: } else {
1335: $usec = &Apache::lonnet::getsection($domain,$name,$courseid);
1336: }
1337: foreach my $id (@{$parts}) {
1338: next if (($Apache::lonhomework::results{'resource.'.$id.'.type'} =~ /survey/) ||
1339: (&Apache::lonnet::EXT("resource.$id.problemstatus",$symb,
1340: $domain,$name,$usec,undef,$courseid) =~ /^no/));
1341: my $reset;
1342: for (my $i=$newversion-1; $i>=$oldversion; $i--) {
1343: if (($record->{$i.':resource.'.$id.'.regrader'}) &&
1344: ($record->{$i.':resource.'.$id.'.tries'} eq '') &&
1345: ($record->{$i.':resource.'.$id.'.award'} eq '')) {
1346: $reset = 1;
1347: } elsif (($record->{$i.":resource.$id.solved"} eq 'correct_by_student') &&
1348: ($record->{$i.":resource.$id.awarded"} >= 1)) {
1349: unless ($reset) {
1350: push(@parts_to_hide,$id);
1351: last;
1352: }
1353: }
1354: }
1355: }
1356: }
1357: return @parts_to_hide;
1358: }
1359:
1360: =pod
1361:
1.435 jms 1362: item store_aggregates()
1363:
1364: Sends hash of values to be incremented in nohist_resourcetracker.db
1365: for the course. Increments total number of attempts, unique students
1366: and corrects for each part for an instance of a problem, as appropriate.
1367:
1368: =cut
1369:
1.285 raeburn 1370: sub store_aggregates {
1371: my ($symb,$courseid) = @_;
1.479 raeburn 1372: my (%aggregate,%anoncounter,%randtrycounter);
1.286 albertel 1373: my @parts;
1.288 albertel 1374: my $cdomain = $env{'course.'.$env{'request.course.id'}.'.domain'};
1375: my $cname = $env{'course.'.$env{'request.course.id'}.'.num'};
1.286 albertel 1376: foreach my $key (keys(%Apache::lonhomework::results)) {
1.287 albertel 1377: if ($key =~ /resource\.([^\.]+)\.tries/) {
1.286 albertel 1378: push(@parts, $1);
1.285 raeburn 1379: }
1380: }
1.286 albertel 1381: foreach my $part (@parts) {
1.470 raeburn 1382: if ($env{'request.role'} =~/^st/) {
1383: if ($Apache::lonhomework::results{'resource.'.$part.'.award'}
1384: eq 'APPROX_ANS' ||
1385: $Apache::lonhomework::results{'resource.'.$part.'.award'}
1386: eq 'EXACT_ANS') {
1387: $aggregate{$symb."\0".$part."\0correct"} = 1;
1388: }
1389: if ($Apache::lonhomework::results{'resource.'.$part.'.tries'} == 1) {
1390: $aggregate{$symb."\0".$part."\0users"} = 1;
1391: } else {
1392: my (undef,$last_reset) = &Apache::grades::get_last_resets($symb,$env{'request.course.id'},[$part]);
1393: if ($last_reset) {
1394: if (&Apache::grades::get_num_tries(\%Apache::lonhomework::history,$last_reset,$part) == 0) {
1395: $aggregate{$symb."\0".$part."\0users"} = 1;
1396: }
1397: }
1398: }
1399: $aggregate{$symb."\0".$part."\0attempts"} = 1;
1.285 raeburn 1400: }
1.470 raeburn 1401: if (($Apache::lonhomework::results{'resource.'.$part.'.type'} eq 'anonsurvey') ||
1.479 raeburn 1402: ($Apache::lonhomework::results{'resource.'.$part.'.type'} eq 'anonsurveycred') ||
1403: ($Apache::lonhomework::results{'resource.'.$part.'.type'} eq 'randomizetry')) {
1404: if ($Apache::lonhomework::results{'resource.'.$part.'.type'} eq 'randomizetry') {
1405: $randtrycounter{$symb."\0".$part} = 1;
1406: } else {
1407: $anoncounter{$symb."\0".$part} = 1;
1408: }
1.470 raeburn 1409: my $needsrelease = $Apache::lonnet::needsrelease{'parameter:type:'.$Apache::lonhomework::results{'resource.'.$part.'.type'}};
1410: if ($needsrelease) {
1411: my $curr_required = $env{'course.'.$env{'request.course.id'}.'.internal.releaserequired'};
1412: if ($curr_required eq '') {
1.471 raeburn 1413: &Apache::lonnet::update_released_required($needsrelease);
1.470 raeburn 1414: } else {
1415: my ($currmajor,$currminor) = split(/\./,$curr_required);
1416: my ($needsmajor,$needsminor) = split(/\./,$needsrelease);
1417: if (($currmajor < $needsmajor) || ($currmajor == $needsmajor && $currminor < $needsminor)) {
1.471 raeburn 1418: &Apache::lonnet::update_released_required($needsrelease);
1.470 raeburn 1419: }
1.292 raeburn 1420: }
1421: }
1.285 raeburn 1422: }
1423: }
1.526 raeburn 1424: if (keys(%aggregate) > 0) {
1.289 albertel 1425: &Apache::lonnet::cinc('nohist_resourcetracker',\%aggregate,
1.292 raeburn 1426: $cdomain,$cname);
1427: }
1.472 raeburn 1428: if (keys(%anoncounter) > 0) {
1.481 raeburn 1429: &Apache::lonnet::cput('nohist_anonsurveys',\%anoncounter,
1430: $cdomain,$cname);
1.472 raeburn 1431: }
1.479 raeburn 1432: if (keys(%randtrycounter) > 0) {
1.481 raeburn 1433: &Apache::lonnet::cput('nohist_randomizetry',\%randtrycounter,
1434: $cdomain,$cname);
1.479 raeburn 1435: }
1.292 raeburn 1436: }
1.289 albertel 1437:
1.65 albertel 1438: sub checkout_msg {
1.211 albertel 1439: my %lt=&Apache::lonlocal::texthash(
1440: 'resource'=>'The resource needs to be checked out',
1441: '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.',
1442: 'warning'=>'Checking out resources is subject to course policies, and may exclude future credit even if done erroneously.',
1.509 bisitz 1443: 'checkout'=>'Check out Bubblesheet Exam for Viewing',
1444: 'checkout?'=>'Check out Bubblesheet Exam?');
1.352 albertel 1445: my $uri = &Apache::lonenc::check_encrypt($env{'request.uri'});
1.159 albertel 1446: return (<<ENDCHECKOUT);
1.211 albertel 1447: <h2>$lt{'resource'}</h2>
1448: <p>$lt{'id_expln'}</p>
1.449 bisitz 1449: <p class="LC_warning">$lt{'warning'}</p>
1.444 bisitz 1450: <form name="checkout" method="post" action="$uri">
1.91 albertel 1451: <input type="hidden" name="doescheckout" value="yes" />
1.514 bisitz 1452: <input type="button" name="checkoutbutton" value="$lt{'checkout'}" onclick="javascript:if (confirm('$lt{'checkout?'}')) { document.checkout.submit(); }" />
1.65 albertel 1453: </form>
1454: ENDCHECKOUT
1455: }
1456:
1.252 albertel 1457: sub firstaccess_msg {
1.253 albertel 1458: my ($time,$symb)=@_;
1.414 albertel 1459: my $result;
1460: my @interval=&Apache::lonnet::EXT("resource.0.interval");
1461: if ($interval[1] eq 'map') {
1462: my ($map)=&Apache::lonnet::decode_symb($symb);
1463: my $foldertitle=&Apache::lonnet::gettitle($map);
1464:
1465: &Apache::lonxml::debug("map is $map title is $foldertitle");
1.504 golterma 1466: $result .= "<h2>".&mt('The resources in "[_1]" are open for a limited time.',$foldertitle)."</h2>"
1467: .'<p>'.&mt('Once you click the "Show Resource" button below you have [_2] to complete all resources "[_1]".'
1468: ,$foldertitle,$time)."</p>";
1.414 albertel 1469: } elsif ($interval[1] eq 'course') {
1470: my $course = $env{'course.'.$env{'request.course.id'}.'.description'};
1.504 golterma 1471: $result .= "<h2>".&mt('The resources in "[_1]" are open for a limited time.',$course)."</h2>"
1.505 golterma 1472: .'<p>'.&mt('Once you click the "Show Resource" button below you have [_2] to complete all resources "[_1]".'
1.504 golterma 1473: ,$course,$time)."</p>";
1.414 albertel 1474: } else {
1475: my $title=&Apache::lonnet::gettitle($symb);
1.504 golterma 1476: $result .= "<h2>".&mt('This resource "[_1]" is open for a limited time.',$title)."</h2>"
1477: .'<p>'.&mt('Once you click the "Show Resource" button below you have [_2] to complete this resource "[_1]".'
1478: ,$title,$time)."</p>";
1.414 albertel 1479: }
1.352 albertel 1480: my $uri = &Apache::lonenc::check_encrypt($env{'request.uri'});
1.418 bisitz 1481: my $buttontext = &mt('Show Resource');
1482: my $timertext = &mt('Start Timer?');
1.414 albertel 1483: $result .= (<<ENDCHECKOUT);
1.444 bisitz 1484: <form name="markaccess" method="post" action="$uri">
1.252 albertel 1485: <input type="hidden" name="markaccess" value="yes" />
1.514 bisitz 1486: <input type="button" name="accessbutton" value="$buttontext" onclick="javascript:if (confirm('$timertext')) { document.markaccess.submit(); }" />
1.252 albertel 1487: </form>
1488: ENDCHECKOUT
1.414 albertel 1489: return $result;
1.252 albertel 1490: }
1491:
1.204 albertel 1492: sub init_problem_globals {
1493: my ($type)=@_;
1494: #initialize globals
1.308 foxr 1495: # For problems, we start out in part 0 (outside a <part> tag).
1496: # and part 0 is used to describe the main body of the <problem>
1497: #
1.204 albertel 1498: if ($type eq 'problem') {
1499: $Apache::inputtags::part='0';
1500: @Apache::inputtags::partlist=('0');
1.405 albertel 1501: &Apache::lonhomework::set_show_problem_status(&get_problem_status('0'));
1.266 albertel 1502: $Apache::lonhomework::ignore_response_errors=0;
1.308 foxr 1503:
1.266 albertel 1504: } elsif ($type eq 'library') {
1.204 albertel 1505: $Apache::inputtags::part='';
1506: @Apache::inputtags::partlist=();
1.405 albertel 1507: &Apache::lonhomework::reset_show_problem_status();
1.266 albertel 1508: $Apache::lonhomework::ignore_response_errors=1;
1.308 foxr 1509:
1.304 albertel 1510: } elsif ($type eq 'Task') {
1511: $Apache::inputtags::part='0';
1512: @Apache::inputtags::partlist=('0');
1.405 albertel 1513: &Apache::lonhomework::reset_show_problem_status();
1.304 albertel 1514: $Apache::lonhomework::ignore_response_errors=1;
1.204 albertel 1515: }
1.477 www 1516: @Apache::functionplotresponse::callscripts=();
1.204 albertel 1517: @Apache::inputtags::responselist = ();
1518: @Apache::inputtags::importlist = ();
1519: @Apache::inputtags::previous=();
1520: @Apache::inputtags::previous_version=();
1521: $Apache::structuretags::printanswer='No';
1522: @Apache::structuretags::whileconds=();
1523: @Apache::structuretags::whilebody=();
1524: @Apache::structuretags::whileline=();
1525: $Apache::lonhomework::scantronmode=0;
1526: undef($Apache::lonhomework::name);
1.358 albertel 1527: undef($Apache::lonhomework::default_type);
1528: undef($Apache::lonhomework::type);
1.204 albertel 1529: }
1530:
1531: sub reset_problem_globals {
1532: my ($type)=@_;
1533: undef(%Apache::lonhomework::history);
1534: undef(%Apache::lonhomework::results);
1535: undef($Apache::inputtags::part);
1.498 raeburn 1536: if ($type eq 'Task') {
1537: undef($Apache::inputtags::slot_name);
1.528 raeburn 1538: } elsif ($type eq 'problem') {
1539: undef($Apache::lonhomework::rawrndseed);
1.498 raeburn 1540: }
1.208 albertel 1541: #don't undef this, lonhomework.pm takes care of this, we use this to
1542: #detect if we try to do 2 problems in one file
1543: # undef($Apache::lonhomework::parsing_a_problem);
1.204 albertel 1544: undef($Apache::lonhomework::name);
1.358 albertel 1545: undef($Apache::lonhomework::default_type);
1546: undef($Apache::lonhomework::type);
1547: undef($Apache::lonhomework::scantronmode);
1548: undef($Apache::lonhomework::ignore_response_errors);
1.477 www 1549: undef(@Apache::functionplotresponse::callscripts);
1.405 albertel 1550: &Apache::lonhomework::reset_show_problem_status();
1.204 albertel 1551: }
1552:
1.241 albertel 1553: sub set_problem_state {
1.240 albertel 1554: my ($part)=@_;
1.284 albertel 1555: if ($env{'form.problemstate'} eq 'CANNOT_ANSWER_correct') {
1.240 albertel 1556: $Apache::lonhomework::history{"resource.$part.solved"}=
1557: 'correct_by_student';
1558: }
1559: }
1560:
1.241 albertel 1561: sub get_problem_status {
1562: my ($part)=@_;
1.267 albertel 1563: my $problem_status;
1.284 albertel 1564: if ($env{'request.state'} eq 'construct' &&
1565: defined($env{'form.problemstatus'})) {
1566: $problem_status=$env{'form.problemstatus'};
1.267 albertel 1567: } else {
1568: $problem_status=&Apache::lonnet::EXT("resource.$part.problemstatus");
1569: &Apache::lonxml::debug("problem status for $part is $problem_status");
1.284 albertel 1570: &Apache::lonxml::debug("env probstat is ".$env{'form.problemstatus'});
1.241 albertel 1571: }
1572: return $problem_status;
1573: }
1574:
1.9 albertel 1575: sub start_problem {
1.326 albertel 1576: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.19 albertel 1577:
1.311 foxr 1578: # We'll use the redirection to fix up printing of duedates.
1.321 albertel 1579: if (!$Apache::lonxml::metamode) {
1580: &Apache::lonxml::startredirection();
1581: }
1.311 foxr 1582:
1.308 foxr 1583: # Problems don't nest and we don't allow more than one <problem> in
1584: # a .problem file.
1585: #
1.184 albertel 1586: if ( $Apache::inputtags::part ne '' ||
1587: $Apache::lonhomework::parsing_a_problem) {
1588: &Apache::lonxml::error('Only one <problem> allowed in a .problem file');
1.326 albertel 1589: #my $bodytext=&Apache::lonxml::get_all_text("/problem",$parser,$style);
1.159 albertel 1590: return '';
1591: }
1.184 albertel 1592:
1593: $Apache::lonhomework::parsing_a_problem=1;
1.204 albertel 1594: &init_problem_globals('problem');
1.166 albertel 1595:
1.284 albertel 1596: if (defined($env{'scantron.maxquest'})) {
1.166 albertel 1597: $Apache::lonhomework::scantronmode=1;
1598: }
1.161 albertel 1599:
1.159 albertel 1600: if ($target ne 'analyze') {
1.415 raeburn 1601: my $type = &Apache::lonnet::EXT('resource.0.type');
1602: $Apache::lonhomework::type=$type;
1.284 albertel 1603: if (($env{'request.state'} eq 'construct') &&
1.410 albertel 1604: $env{'form.problemtype'} =~ /\S/) {
1.284 albertel 1605: $Apache::lonhomework::type=$env{'form.problemtype'};
1.237 albertel 1606: }
1.332 albertel 1607: &Apache::lonxml::debug("Found this to be of type :$Apache::lonhomework::type:");
1.159 albertel 1608: }
1.164 albertel 1609: if ($Apache::lonhomework::type eq '' ) {
1.284 albertel 1610: my $uri=$env{'request.uri'};
1.159 albertel 1611: if ($uri=~/\.(\w+)$/) {
1612: $Apache::lonhomework::type=$1;
1613: &Apache::lonxml::debug("Using type of $1");
1614: } else {
1615: $Apache::lonhomework::type='problem';
1616: &Apache::lonxml::debug("Using default type, problem, :$uri:");
1617: }
1.87 albertel 1618: }
1.301 albertel 1619: $Apache::lonhomework::default_type = $Apache::lonhomework::type;
1.58 www 1620:
1.363 albertel 1621: &initialize_storage();
1.389 albertel 1622: if ($target ne 'analyze'
1623: && $env{'request.state'} eq 'construct') {
1624: &set_problem_state('0');
1625: }
1626:
1.366 albertel 1627: if ($target eq 'web') {
1628: &Apache::lonxml::debug(" grading history ");
1629: &Apache::lonhomework::showhash(%Apache::lonhomework::history);
1630: }
1.363 albertel 1631:
1.159 albertel 1632: #added vars to the scripting enviroment
1.213 albertel 1633: my $expression='$external::part=\''.$Apache::inputtags::part.'\';';
1.248 albertel 1634: $expression.='$external::type=\''.$Apache::lonhomework::type.'\';';
1.24 albertel 1635: &Apache::run::run($expression,$safeeval);
1.159 albertel 1636: my $status;
1637: my $accessmsg;
1.508 raeburn 1638: my $resource_due;
1.159 albertel 1639:
1.343 albertel 1640: my $name= &get_resource_name($parstack,$safeeval);
1.528 raeburn 1641: my ($result,$form_tag_start,$slot_name,$slot,$probpartlist);
1.506 raeburn 1642:
1643: if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
1644: $target eq 'tex') {
1645: if ($env{'form.markaccess'}) {
1646: my @interval=&Apache::lonnet::EXT("resource.0.interval");
1.519 raeburn 1647: &Apache::lonnet::set_first_access($interval[1],$interval[0]);
1.506 raeburn 1648: }
1649:
1650: ($status,$accessmsg,$slot_name,$slot) =
1651: &Apache::lonhomework::check_slot_access('0','problem');
1652: push (@Apache::inputtags::status,$status);
1653: }
1654:
1.354 albertel 1655: if ($target eq 'web' || $target eq 'webgrade' || $target eq 'tex'
1656: || $target eq 'edit') {
1.528 raeburn 1657: ($result,$form_tag_start,$probpartlist) =
1.350 albertel 1658: &page_start($target,$token,$tagstack,$parstack,$parser,$safeeval,
1659: $name);
1.528 raeburn 1660: } elsif (($target eq 'grade') && ($Apache::lonhomework::type eq 'randomizetry')) {
1661: my ($symb)= &Apache::lonnet::whichuser();
1662: my $navmap = Apache::lonnavmaps::navmap->new();
1663: if (ref($navmap)) {
1664: my $res = $navmap->getBySymb($symb);
1665: if (ref($res)) {
1666: $probpartlist = $res->parts();
1667: }
1668: }
1.350 albertel 1669: }
1670:
1.284 albertel 1671: if ($target eq 'tex' and $env{'request.symb'} =~ m/\.page_/) {$result='';}
1.159 albertel 1672:
1.479 raeburn 1673: if ($target eq 'analyze') { my $rndseed=&setup_rndseed($safeeval,$target); }
1.159 albertel 1674: if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
1675: $target eq 'tex') {
1.479 raeburn 1676:
1.159 albertel 1677: #handle rand seed in construction space
1.528 raeburn 1678: my $rndseed=&setup_rndseed($safeeval,$target,$probpartlist);
1679: if (($target eq 'grade') && &Apache::response::submitted()) {
1680: if ($Apache::lonhomework::type eq 'randomizetry') {
1.529 raeburn 1681: $Apache::lonhomework::results{'resource.0.rndseed'}=$rndseed;
1.528 raeburn 1682: } else {
1683: my @parts;
1684: if (ref($probpartlist) eq 'ARRAY') {
1685: @parts = @{$probpartlist};
1686: }
1687: unless (@parts) {
1.529 raeburn 1688: $Apache::lonhomework::results{'resource.0.rndseed'}=$Apache::lonhomework::rawrndseed;
1.528 raeburn 1689: }
1690: }
1691: }
1.367 albertel 1692: my ($symb)=&Apache::lonnet::whichuser();
1.479 raeburn 1693:
1.333 albertel 1694: if ($env{'request.state'} ne "construct" &&
1695: ($symb eq '' || $Apache::lonhomework::type eq 'practice')) {
1.162 albertel 1696: $form_tag_start.='<input type="hidden" name="rndseed" value="'.
1.462 raeburn 1697: $rndseed.'" />'.
1698: '<input type="submit" name="resetdata"
1699: value="'.&mt('New Problem Variation').'" />';
1.334 albertel 1700: if (exists($env{'form.username'})) {
1701: $form_tag_start.=
1.164 albertel 1702: '<input type="hidden" name="username"
1.284 albertel 1703: value="'.$env{'form.username'}.'" />';
1.334 albertel 1704: }
1.462 raeburn 1705: if ($env{'request.role.adv'}) {
1706: $form_tag_start.= ' <label class="LC_nobreak">'
1707: .'<input type="checkbox" name="showallfoils"';
1708: if (defined($env{'form.showallfoils'})) {
1709: $form_tag_start.=' checked="checked"';
1710: }
1711: $form_tag_start.= ' /> '
1712: .&mt('Show All Foils')
1713: .'</label>';
1714: }
1.417 www 1715: if ($Apache::lonhomework::type eq 'practice') {
1.428 raeburn 1716: $form_tag_start.=&practice_problem_header();
1.417 www 1717: }
1.462 raeburn 1718: $form_tag_start.='<hr />';
1.479 raeburn 1719: } elsif (($env{'request.state'} ne "construct") &&
1720: ($Apache::lonhomework::type eq 'randomizetry') &&
1721: ($status eq 'CAN_ANSWER')) {
1722: my $reqtries = &Apache::lonnet::EXT("resource.$Apache::inputtags::part.randomizeontries");
1723: my $problemstatus = &get_problem_status($Apache::inputtags::part);
1724: $form_tag_start.=&randomizetry_problem_header($problemstatus,$reqtries);
1725: }
1.324 albertel 1726:
1.159 albertel 1727: my $expression='$external::datestatus="'.$status.'";';
1728: $expression.='$external::gradestatus="'.$Apache::lonhomework::history{"resource.0.solved"}.'";';
1729: &Apache::run::run($expression,$safeeval);
1730: &Apache::lonxml::debug("Got $status");
1.324 albertel 1731:
1.159 albertel 1732: if (( $status eq 'CLOSED' ) ||
1733: ( $status eq 'UNCHECKEDOUT') ||
1.252 albertel 1734: ( $status eq 'NOT_YET_VIEWED') ||
1.159 albertel 1735: ( $status eq 'BANNED') ||
1.216 albertel 1736: ( $status eq 'UNAVAILABLE') ||
1.324 albertel 1737: ( $status eq 'NOT_IN_A_SLOT') ||
1.499 raeburn 1738: ( $status eq 'NOTRESERVABLE') ||
1739: ( $status eq 'RESERVABLE') ||
1740: ( $status eq 'RESERVABLE_LATER') ||
1.216 albertel 1741: ( $status eq 'INVALID_ACCESS')) {
1.326 albertel 1742: my $bodytext=&Apache::lonxml::get_all_text("/problem",$parser,
1743: $style);
1.159 albertel 1744: if ( $target eq "web" ) {
1.343 albertel 1745: my $msg;
1.159 albertel 1746: if ($status eq 'UNAVAILABLE') {
1.504 golterma 1747: $msg.='<p class="LC_error">'.&mt('Unable to determine if this resource is open due to network problems. Please try again later.').'</p>';
1.441 raeburn 1748: } elsif ($status eq 'NOT_IN_A_SLOT') {
1.504 golterma 1749: $msg.='<p class="LC_warning">'.&mt('You are not currently signed up to work at this time and/or place.').'</p>';
1.499 raeburn 1750: } elsif (($status eq 'RESERVABLE') || ($status eq 'RESERVABLE_LATER') ||
1751: ($status eq 'NOTRESERVABLE')) {
1.504 golterma 1752: $msg.='<p class="LC_warning">'.&mt('Access requires reservation to work at specific time/place.').'</p>';
1.253 albertel 1753: } elsif ($status ne 'NOT_YET_VIEWED') {
1.504 golterma 1754: $msg.='<p class="LC_warning">'.&mt('Not open to be viewed').'</p>';
1.499 raeburn 1755: }
1.216 albertel 1756: if ($status eq 'CLOSED' || $status eq 'INVALID_ACCESS') {
1.393 www 1757: $msg.=&mt('The problem ').$accessmsg;
1.159 albertel 1758: } elsif ($status eq 'UNCHECKEDOUT') {
1.343 albertel 1759: $msg.=&checkout_msg();
1.252 albertel 1760: } elsif ($status eq 'NOT_YET_VIEWED') {
1.253 albertel 1761: $msg.=&firstaccess_msg($accessmsg,$symb);
1.325 albertel 1762: } elsif ($status eq 'NOT_IN_A_SLOT') {
1.441 raeburn 1763: $msg.=&Apache::bridgetask::add_request_another_attempt_button("Sign up for time to work");
1.499 raeburn 1764: } elsif ($status eq 'RESERVABLE') {
1765: $msg.=&mt('Available to make a reservation.').' '.&mt('Reservation window closes [_1].',
1766: &Apache::lonnavmaps::timeToHumanString($accessmsg,'end')).
1767: '<br />'.
1768: &Apache::bridgetask::add_request_another_attempt_button("Sign up for time to work");
1769: } elsif ($status eq 'RESERVABLE_LATER') {
1770: $msg.=&mt('Window to make a reservation will open [_1].',
1771: &Apache::lonnavmaps::timeToHumanString($accessmsg,'start'));
1772: } elsif ($status eq 'NOTRESERVABLE') {
1773: $msg.=&mt('Not available to make a reservation.');
1.159 albertel 1774: }
1775: $result.=$msg.'<br />';
1776: } elsif ($target eq 'tex') {
1.332 albertel 1777: my $startminipage = ($env{'form.problem_split'}=~/yes/i)? ''
1778: : '\begin{minipage}{\textwidth}';
1.443 foxr 1779: $result.='\noindent \vskip 1 mm '.
1.332 albertel 1780: $startminipage.'\vskip 0 mm';
1.159 albertel 1781: if ($status eq 'UNAVAILABLE') {
1.211 albertel 1782: $result.=&mt('Unable to determine if this resource is open due to network problems. Please try again later.').'\vskip 0 mm ';
1.159 albertel 1783: } else {
1.211 albertel 1784: $result.=&mt('Problem is not open to be viewed. It')." $accessmsg \\vskip 0 mm ";
1.159 albertel 1785: }
1786: }
1.324 albertel 1787: } elsif ($status eq 'NEEDS_CHECKIN') {
1.326 albertel 1788: my $bodytext=&Apache::lonxml::get_all_text("/problem",$parser,
1789: $style);
1.324 albertel 1790: if ($target eq 'web') {
1.375 albertel 1791: $result .=
1792: &Apache::bridgetask::proctor_validation_screen($slot);
1.324 albertel 1793: } elsif ($target eq 'grade') {
1794: &Apache::bridgetask::proctor_check_auth($slot_name,$slot,
1795: 'problem');
1796: }
1.159 albertel 1797: } elsif ($target eq 'web') {
1.508 raeburn 1798: if ($status eq 'CAN_ANSWER') {
1799: $resource_due = &Apache::lonhomework::due_date(0, $env{'request.symb'});
1800: if ($slot_name ne '') {
1801: my $checked_in =
1802: $Apache::lonhomework::history{'resource.0.checkedin'};
1803: if ($checked_in eq '') {
1804: # unproctored slot access, self checkin
1805: &Apache::bridgetask::check_in('problem',undef,undef,
1806: $slot_name);
1807: $checked_in =
1808: $Apache::lonhomework::results{"resource.0.checkedin"};
1809: }
1810: if ((ref($slot) eq 'HASH') && ($checked_in ne '')) {
1811: if ($slot->{'starttime'} < time()) {
1812: if (!$resource_due) {
1813: $resource_due = $slot->{'endtime'};
1814: } elsif ($slot->{'endtime'} < $resource_due) {
1815: $resource_due = $slot->{'endtime'};
1816: }
1817: }
1818: }
1819: }
1820: if ($resource_due) {
1821: my $time_left = $resource_due - time();
1822: if ($resource_due && ($time_left > 0) && ($target eq 'web')) {
1823: $result .= &Apache::lonhtmlcommon::set_due_date($resource_due);
1824: }
1825: }
1826: }
1.368 albertel 1827: $result.="\n $form_tag_start \t".
1.227 albertel 1828: '<input type="hidden" name="submitted" value="yes" />';
1829: # create a page header and exit
1.284 albertel 1830: if ($env{'request.state'} eq "construct") {
1831: $result.= &problem_web_to_edit_header($env{'form.rndseed'});
1.428 raeburn 1832: if ($Apache::lonhomework::type eq 'practice') {
1833: $result.= '<input type="submit" name="resetdata" '.
1834: 'value="'.&mt('New Problem Variation').'" />'.
1835: &practice_problem_header().'<hr />';
1836: }
1.227 albertel 1837: }
1838: # if we are viewing someone else preserve that info
1.284 albertel 1839: if (defined $env{'form.grade_symb'}) {
1.227 albertel 1840: foreach my $field ('symb','courseid','domain','username') {
1841: $result .= '<input type="hidden" name="grade_'.$field.
1.284 albertel 1842: '" value="'.$env{"form.grade_$field"}.'" />'."\n";
1.159 albertel 1843: }
1.479 raeburn 1844: foreach my $field ('trial','questiontype') {
1845: if ($env{"form.grade_$field"} ne '') {
1846: $result .= '<input type="hidden" name="grade_'.$field.
1847: '" value="'.$env{"form.grade_$field"}.'" />'."\n";
1848: }
1849: }
1.159 albertel 1850: }
1.490 raeburn 1851: if ($env{'form.grade_imsexport'}) {
1852: $result = '';
1853: }
1.159 albertel 1854: } elsif ($target eq 'tex') {
1.319 foxr 1855: $result .= 'INSERTTEXFRONTMATTERHERE';
1.500 foxr 1856: $result .= &select_metadata_hyphenation();
1857:
1.319 foxr 1858:
1.99 sakharuk 1859: }
1.159 albertel 1860: } elsif ($target eq 'edit') {
1.343 albertel 1861: $result .= $form_tag_start.&problem_edit_header();
1.226 albertel 1862: $Apache::lonxml::warnings_error_header=
1863: &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 1864: my $temp=&Apache::edit::insertlist($target,$token);
1865: $result.=$temp;
1866: } elsif ($target eq 'modified') {
1867: $result=$token->[4];
1868: } else {
1869: # page_start returned a starting result, delete it if we don't need it
1870: $result = '';
1.99 sakharuk 1871: }
1.159 albertel 1872: return $result;
1.9 albertel 1873: }
1874:
1875: sub end_problem {
1.159 albertel 1876: my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.321 albertel 1877: my $result;
1.310 foxr 1878:
1.321 albertel 1879: if (!$Apache::lonxml::metamode) {
1880: $result = &Apache::lonxml::endredirection(); #started in &start_problem
1.329 albertel 1881: $Apache::lonxml::post_evaluate=0;
1.321 albertel 1882: }
1.319 foxr 1883:
1884: if ($target eq 'tex') {
1.321 albertel 1885: # Figure out the front matter and replace the
1886: # INSERTTEXFRONTMATTERHERE in result with it. note that we do
1887: # this in end_problem because whether or not we display due
1888: # dates depends on whether due dates have already been
1889: # displayed in the problem parts.
1890:
1.319 foxr 1891: my $frontmatter = '';
1892: my $startminipage = '';
1893: if (not $env{'form.problem_split'}=~/yes/) {
1894: $startminipage = '\begin{minipage}{\textwidth}';
1895: }
1896: my $id = $Apache::inputtags::part;
1897: my $weight = &Apache::lonnet::EXT("resource.$id.weight");
1898: my $packages=&Apache::lonnet::metadata($env{'request.uri'},'packages');
1.526 raeburn 1899: my @packages = split(/,/,$packages);
1.319 foxr 1900: my $allow_print_points = 0;
1901: foreach my $partial_key (@packages) {
1902: if ($partial_key=~m/^part_0$/) {
1903: $allow_print_points=1;
1904: }
1905: }
1906: my $maxtries = &Apache::lonnet::EXT("resource.$id.maxtries");
1907: if (defined($maxtries) && $maxtries < 0) { $allow_print_points=0; }
1908: if (lc($env{'course.'.$env{'request.course.id'}.
1909: '.disableexampointprint'}) eq 'yes') {
1910: $allow_print_points=0;
1911: }
1912: my $name_of_resourse= &Apache::lonxml::latex_special_symbols(&get_resource_name($parstack,$safeeval),'header');
1.443 foxr 1913: 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.500 foxr 1914: &clear_required_languages();
1.319 foxr 1915: my $toc_line='\vskip 1 mm\noindent '.$startminipage.
1916: '\addcontentsline{toc}{subsection}{'.$name_of_resourse.'}';
1917:
1918: # Figure out what the due date is and if we need to print
1919: # it in the problem header. We have been logging the
1920: # last due date written to file.
1921:
1922: my $duetime = &Apache::lonnet::EXT("resource.$id.duedate");
1923: my $duedate = POSIX::strftime("%c",localtime($duetime));
1.448 bisitz 1924: my $duedate_text = &mt('Due date: [_1]'
1925: ,&Apache::lonlocal::locallocaltime($duetime));
1.319 foxr 1926: my $temp_file;
1927: my $filename = "/home/httpd/prtspool/$env{'user.name'}_$env{'user.domain'}_printout.due";
1928:
1929: # Figure out what the last printed due date is or set it
1930: # to the epoch if no duedates have been printed.
1931:
1932: my $due_file_content = 0; # If the file does not yet exist, time is the epoch.
1933: if (-e $filename) {
1934: $temp_file = Apache::File->new($filename);
1935: my @due_file = <$temp_file>;
1936: $due_file_content = $due_file[$#due_file];
1937: chomp $due_file_content;
1938: }
1939:
1940: # We display the due date iff it is not the same as the last
1941: # duedate in problem header ($due_file_content), and
1942: # none of our parts displayed a duedate.
1943: #
1944: my $parts_with_displayduedate;
1945: if (defined $Apache::outputtags::showonce{'displayduedate'}) {
1946: $parts_with_displayduedate =
1947: scalar(@{$Apache::outputtags::showonce{'displayduedate'}});
1948: } else {
1949: $parts_with_displayduedate = 0;
1950: }
1951: if (($due_file_content != $duetime) && ($parts_with_displayduedate == 0) ) {
1952: $temp_file = Apache::File->new('>'.$filename);
1953: print $temp_file "$duetime\n";
1954: if (not $env{'request.symb'} =~ m/\.page_/) {
1955: if(not $duedate=~m/1969/ and $Apache::lonhomework::type ne 'exam') {
1956: $frontmatter .= $begin_doc.
1.448 bisitz 1957: '\textit{'.$duedate_text.'} '.$toc_line;
1.319 foxr 1958: } else {
1959: $frontmatter.= $begin_doc.$toc_line;
1.463 foxr 1960: if ($Apache::lonhomework::type eq 'exam' and $allow_print_points==1) {
1.492 christia 1961: $frontmatter .= '\fbox{\textit{'.&mt('[quant,_1,pt,pt]',$weight ).'}}';
1.463 foxr 1962: }
1.319 foxr 1963: }
1964: } else {
1.448 bisitz 1965: $frontmatter .= '\vskip 1mm\textit{'.$duedate_text.'} \\\\\\\\'.$startminipage;
1.319 foxr 1966: }
1967: } else {
1968: if (not $env{'request.symb'} =~ m/\.page_/) {
1969: $frontmatter .= $begin_doc.$toc_line;
1.463 foxr 1970: if (($Apache::lonhomework::type eq 'exam') and ($allow_print_points==1)) {
1.492 christia 1971: $frontmatter .= '\fbox{\textit{'.&mt('[quant,_1,pt,pt]',$weight ).'}}';
1.463 foxr 1972: }
1.319 foxr 1973: } else {
1.381 albertel 1974: $frontmatter .= '\vskip 1mm \\\\\\\\'.$startminipage;
1.319 foxr 1975: }
1976: }
1977: $result =~ s/INSERTTEXFRONTMATTERHERE/$frontmatter/;
1978: }
1979:
1.159 albertel 1980: my $status=$Apache::inputtags::status['-1'];
1981: if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' ||
1982: $target eq 'tex') {
1.249 albertel 1983: if ( $target eq 'grade' && $Apache::inputtags::part eq '0') {
1.159 albertel 1984: # if part is zero, no <part>s existed, so we need to the grading
1.249 albertel 1985: if ($status eq 'CAN_ANSWER' ||$Apache::lonhomework::scantronmode) {
1986: &Apache::inputtags::grade;
1.324 albertel 1987: } elsif ($status eq 'NEEDS_CHECKIN') {
1988: # no need to grade, and don't want to hide data
1.249 albertel 1989: } else {
1990: # move any submission data to .hidden
1991: &Apache::inputtags::hidealldata($Apache::inputtags::part);
1992: }
1.159 albertel 1993: } elsif ( ($target eq 'web' || $target eq 'tex') &&
1994: $Apache::inputtags::part eq '0' &&
1.490 raeburn 1995: $status ne 'UNCHECKEDOUT' && $status ne 'NOT_YET_VIEWED'
1996: && !$env{'form.grade_imsexport'}) {
1.159 albertel 1997: # if part is zero, no <part>s existed, so we need show the current
1998: # grading status
1999: my $gradestatus = &Apache::inputtags::gradestatus($Apache::inputtags::part,$target);
2000: $result.= $gradestatus;
2001: }
2002: if (
1.284 albertel 2003: (($target eq 'web') && ($env{'request.state'} ne 'construct')) ||
1.159 albertel 2004: ($target eq 'answer') || ($target eq 'tex')
2005: ) {
1.490 raeburn 2006: if (($target ne 'tex') &&
2007: ($env{'form.answer_output_mode'} ne 'tex') &&
2008: (!$env{'form.grade_imsexport'})) {
1.254 www 2009: $result.="</form>";
1.159 albertel 2010: }
2011: if ($target eq 'web') {
1.507 raeburn 2012: #
2013: # Closing </body></html> not added by end_page().
2014: # Added separately at end of this routine, after added
2015: # <script></script> so document will be valid xhtml.
2016: #
2017: $result.= &Apache::loncommon::end_page({'discussion' => 1,
2018: 'notbody' => 1});
1.159 albertel 2019: } elsif ($target eq 'tex') {
1.178 sakharuk 2020: my $endminipage = '';
1.284 albertel 2021: if (not $env{'form.problem_split'}=~/yes/) {
1.178 sakharuk 2022: $endminipage = '\end{minipage}';
2023: }
1.284 albertel 2024: if ($env{'form.print_discussions'} eq 'yes') {
1.263 sakharuk 2025: $result.=&Apache::lonxml::xmlend($target,$parser);
1.159 albertel 2026: } else {
1.262 sakharuk 2027: $result .= '\keephidden{ENDOFPROBLEM}\vskip 0.5mm\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}';
1.284 albertel 2028: if (not $env{'request.symb'} =~ m/\.page_/) {
1.262 sakharuk 2029: $result .= $endminipage.'\end{document} ';
2030: } else {
1.382 albertel 2031: $result .= $endminipage;
1.262 sakharuk 2032: }
1.159 albertel 2033: }
2034: }
2035: }
1.476 www 2036: if ($target eq 'web') {
2037: $result.=&Apache::functionplotresponse::init_script();
2038: }
1.159 albertel 2039: if ($target eq 'grade') {
2040: &Apache::lonhomework::showhash(%Apache::lonhomework::results);
2041: &finalize_storage();
2042: }
1.284 albertel 2043: if ($target eq 'answer' && ($env{'request.state'} eq 'construct')
2044: && $env{'form.answer_output_mode'} ne 'tex') {
1.346 albertel 2045: $result.=&Apache::loncommon::end_page({'discussion' => 1});
1.294 albertel 2046: # normally we get it from above, but in CSTR
1.172 albertel 2047: # we always show answer mode too.
1.159 albertel 2048: }
2049: } elsif ($target eq 'meta') {
2050: if ($Apache::inputtags::part eq '0') {
1.179 albertel 2051: @Apache::inputtags::response=();
1.159 albertel 2052: $result=&Apache::response::mandatory_part_meta;
2053: }
1.215 albertel 2054: $result.=&Apache::response::meta_part_order();
1.258 albertel 2055: $result.=&Apache::response::meta_response_order();
1.159 albertel 2056: } elsif ($target eq 'edit') {
2057: &Apache::lonxml::debug("in end_problem with $target, edit");
1.314 albertel 2058: $result .= &problem_edit_footer();
1.320 albertel 2059: } elsif ($target eq 'modified') {
2060: $result .= $token->[2];
1.159 albertel 2061: }
1.155 albertel 2062:
1.284 albertel 2063: if ($env{'request.state'} eq 'construct' && $target eq 'web') {
1.177 albertel 2064: &Apache::inputtags::check_for_duplicate_ids();
2065: }
1.204 albertel 2066:
2067: &reset_problem_globals('problem');
1.159 albertel 2068:
1.502 foxr 2069: #
2070: # This shouild be just above the return so that the
2071: # time put in the javascript is as late as possible in the
2072: # computation:
2073: #
2074: if ($target eq 'web') {
2075: $result .= &Apache::lonhtmlcommon::set_compute_end_time();
1.507 raeburn 2076: #
2077: # Closing tags delayed so any <script></script> tags
2078: # not in head can appear inside body, for valid xhtml.
2079: #
2080: $result .= "</body>\n</html>";
1.502 foxr 2081: }
1.159 albertel 2082: return $result;
1.48 albertel 2083: }
2084:
1.108 albertel 2085:
1.48 albertel 2086: sub start_library {
1.159 albertel 2087: my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.343 albertel 2088: my ($result,$form_tag_start);
1.371 albertel 2089: if ($#$tagstack eq 0 && $$tagstack[0] eq 'library') {
1.244 albertel 2090: &init_problem_globals('library');
2091: $Apache::lonhomework::type='problem';
2092: }
1.159 albertel 2093: if ($target eq 'edit') {
1.343 albertel 2094: ($result,$form_tag_start)=
2095: &page_start($target,$token,$tagstack,$parstack,$parser,$safeeval,
2096: 'Edit');
2097: $result.=$form_tag_start.&problem_edit_header();
1.159 albertel 2098: my $temp=&Apache::edit::insertlist($target,$token);
2099: $result.=$temp;
2100: } elsif ($target eq 'modified') {
2101: $result=$token->[4];
1.340 albertel 2102: } elsif (($target eq 'web' || $target eq 'webgrade')
1.371 albertel 2103: && ($#$tagstack eq 0 && $$tagstack[0] eq 'library')
1.340 albertel 2104: && $env{'request.state'} eq "construct" ) {
1.159 albertel 2105: my $name=&get_resource_name($parstack,$safeeval);
1.343 albertel 2106: ($result,$form_tag_start)=
2107: &page_start($target,$token,$tagstack,$parstack,$parser,$safeeval,
2108: $name);
1.479 raeburn 2109: my $rndseed=&setup_rndseed($safeeval,$target);
1.343 albertel 2110: $result.=" \n $form_tag_start".
1.159 albertel 2111: '<input type="hidden" name="submitted" value="yes" />';
2112: $result.=&problem_web_to_edit_header($rndseed);
1.428 raeburn 2113: if ($Apache::lonhomework::type eq 'practice') {
2114: $result.= '<input type="submit" name="resetdata" '.
2115: 'value="'.&mt('New Problem Variation').'" />'.
2116: &practice_problem_header().'<hr />';
2117: }
1.159 albertel 2118: }
2119: return $result;
1.48 albertel 2120: }
2121:
2122: sub end_library {
1.159 albertel 2123: my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
2124: my $result='';
2125: if ($target eq 'edit') {
2126: $result=&problem_edit_footer();
1.371 albertel 2127: } elsif ($target eq 'web'
2128: && ($#$tagstack eq 0 && $$tagstack[0] eq 'library')
2129: && $env{'request.state'} eq "construct") {
1.349 albertel 2130: $result.='</form>'.&Apache::loncommon::end_page({'discussion' => 1});
1.159 albertel 2131: }
1.371 albertel 2132: if ( $#$tagstack eq 0 && $$tagstack[0] eq 'library') {
2133: &reset_problem_globals('library');
2134: }
1.159 albertel 2135: return $result;
1.197 www 2136: }
2137:
2138: sub start_definetag {
1.326 albertel 2139: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.197 www 2140:
2141: my $result;
2142:
2143: my $name = $token->[2]->{'name'};
1.326 albertel 2144: my $skip=&Apache::lonxml::get_all_text("/definetag",$parser,$style);
1.396 albertel 2145: if ($target eq 'web') {
2146: if ($name=~/^\//) {
2147: $result=
2148: '<br /><table class="LC_sty_end"><tr><th>'.
2149: &mt('END [_1]'.'<tt>'.$name.'</tt>').'</th></tr>';
2150: } else {
2151: $result=
2152: '<br /><table class="LC_sty_begin"><tr><th>'.
2153: &mt('BEGIN [_1]'.'<tt>'.$name.'</tt>').'</th></tr>';
2154: }
2155: $skip = &HTML::Entities::encode($skip, '<>&"');
2156: $result.='<tr><td><pre>'.$skip.'</pre></td></tr></table>';
1.197 www 2157: }
2158: return $result;
2159: }
2160:
2161: sub end_definetag {
2162: return '';
1.1 albertel 2163: }
2164:
2165: sub start_block {
1.201 albertel 2166: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.131 albertel 2167:
2168: my $result;
1.1 albertel 2169:
1.339 albertel 2170: if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
2171: $target eq 'tex' || $target eq 'analyze' || $target eq 'webgrade') {
1.159 albertel 2172: my $code = $token->[2]->{'condition'};
1.385 albertel 2173: if (defined($code) && $code ne '') {
1.137 albertel 2174: if (!$Apache::lonxml::default_homework_loaded) {
2175: &Apache::lonxml::default_homework_load($safeeval);
2176: }
1.131 albertel 2177: $result = &Apache::run::run($code,$safeeval);
2178: &Apache::lonxml::debug("block :$code: returned :$result:");
2179: } else {
2180: $result='1';
2181: }
2182: if ( ! $result ) {
1.201 albertel 2183: my $skip=&Apache::lonxml::get_all_text("/block",$parser,$style);
1.131 albertel 2184: &Apache::lonxml::debug("skipping ahead :$skip: $$parser[-1]");
2185: }
2186: $result='';
2187: } elsif ($target eq 'edit') {
2188: $result .=&Apache::edit::tag_start($target,$token);
2189: $result .=&Apache::edit::text_arg('Test Condition:','condition',
2190: $token,40);
2191: $result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
2192: } elsif ($target eq 'modified') {
2193: my $constructtag=&Apache::edit::get_new_args($token,$parstack,
2194: $safeeval,'condition');
2195: if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
1.38 albertel 2196: }
1.131 albertel 2197: return $result;
1.1 albertel 2198: }
2199:
2200: sub end_block {
1.167 www 2201: my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
2202: my $result;
2203: if ($target eq "edit") {
2204: $result.= &Apache::edit::tag_end($target,$token,'');
2205: }
2206: return $result;
2207: }
1.500 foxr 2208: #
2209: # <languageblock [include='lang1,lang2...'] [exclude='lang1,lang2...']>
2210: # ...
2211: # </languageblock>
2212: #
2213: # This declares the intent to provide content that can be rendered in the
2214: # set of languages in the include specificatino but not in the exclude
2215: # specification. If a currently preferred language is in the include list
2216: # the content in the <languageblock>...</languageblock> is rendered
2217: # If the currently preferred language is in the exclude list,
2218: # the content in the <languageblock>..></languageblock is not rendered.
2219: #
2220: # Pathalogical case handling:
2221: # - Include specified, without the preferred language but exclude specified
2222: # also without the preferred langauge results in rendering the block.
2223: # - Exclude specified without include and excluden not containing a
2224: # preferred language renders the block.
2225: # - Include and exclude both specifying the preferred language does not
2226: # render the block.
2227: # - If neither include/exclude is specified, the block gets rendered.
2228: #
2229: # This tag has no effect when target is in {edit, modified}
2230: #
1.167 www 2231: sub start_languageblock {
1.201 albertel 2232: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.167 www 2233:
1.500 foxr 2234: my $result = '';
1.167 www 2235:
1.339 albertel 2236: if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
2237: $target eq 'tex' || $target eq 'analyze' || $target eq 'webgrade') {
1.201 albertel 2238: my $include = $token->[2]->{'include'};
2239: my $exclude = $token->[2]->{'exclude'};
1.436 raeburn 2240: my @preferred_languages=&Apache::lonlocal::preferred_languages();
1.500 foxr 2241:
2242: # This should not even happen, since we should at least have the server language
2243:
2244: if (!$preferred_languages[0]) {
2245: $preferred_languages[0]='en';
2246: }
2247:
2248: # Now loop over all languages in order of preference
2249:
2250: my $render;
1.398 www 2251: foreach my $preferred_language (@preferred_languages) {
1.500 foxr 2252:
2253: # If neither include/nor exlude is present the block is going
2254: # to get rendered.
2255:
1.399 www 2256: my $found=0;
1.500 foxr 2257: $render=1;
2258:
2259: # If include is specified, don't render the block
2260: # unless the preferred language is included in the set.
2261:
1.398 www 2262: if ($include) {
1.500 foxr 2263: $render=0;
1.398 www 2264: foreach my $included_language (split(/\,/,$include)) {
2265: if ($included_language eq $preferred_language) {
1.500 foxr 2266: $render=1;
1.399 www 2267: $found=1;
1.500 foxr 2268: last; # Only need to find the first.
1.398 www 2269: }
2270: }
2271: }
1.500 foxr 2272: # Do we have an exclude argument?
2273: # If so, and one of the languages matches a preferred language
2274: # inhibit rendering the block. Note that in the pathalogical case the
2275: # author has specified a preferred language in both the include and exclude
2276: # attribte exclude is preferred.
2277:
1.398 www 2278: if ($exclude) {
1.500 foxr 2279: $render=1;
1.398 www 2280: foreach my $excluded_language (split(/\,/,$exclude)) {
2281: if ($excluded_language eq $preferred_language) {
1.500 foxr 2282: $render=0;
1.399 www 2283: $found=1;
1.500 foxr 2284: last; # Only need to find the first.
1.398 www 2285: }
2286: }
2287: }
1.500 foxr 2288: if ($found) {
2289: last; # Done on any match of include or exclude.
2290: }
1.398 www 2291: }
1.500 foxr 2292: # If $render not true skip the entire block until </languageblock>
2293: #
2294:
2295: if ( ! $render ) {
1.201 albertel 2296: my $skip=&Apache::lonxml::get_all_text("/languageblock",$parser,
2297: $style);
2298: &Apache::lonxml::debug("skipping ahead :$skip: $$parser[-1]");
2299: }
1.500 foxr 2300: # If $render is true, we've not skipped the contents of the <languageglock>
2301: # and the normal loncapa processing flow will render it as a matter of course.
2302:
1.167 www 2303: } elsif ($target eq 'edit') {
2304: $result .=&Apache::edit::tag_start($target,$token);
1.211 albertel 2305: $result .=&Apache::edit::text_arg(&mt('Include Language:'),'include',
1.167 www 2306: $token,40);
1.211 albertel 2307: $result .=&Apache::edit::text_arg(&mt('Exclude Language:'),'exclude',
1.167 www 2308: $token,40);
2309: $result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
2310: } elsif ($target eq 'modified') {
2311: my $constructtag=&Apache::edit::get_new_args($token,$parstack,
1.168 albertel 2312: $safeeval,'include',
2313: 'exclude');
1.167 www 2314: if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
2315: }
2316: return $result;
2317: }
2318:
2319: sub end_languageblock {
1.170 www 2320: my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
2321: my $result;
1.201 albertel 2322: if ($target eq "edit") {
1.170 www 2323: $result.= &Apache::edit::tag_end($target,$token,'');
2324: }
2325: return $result;
2326: }
1.500 foxr 2327: # languagblock specific tags:
2328: {
2329: # For chunks of a resource that has translations, this hash contains
2330: # the translations available indexed by language name.
2331: #
2332:
2333: my %available_texts;
1.170 www 2334:
1.500 foxr 2335: # <translated> starts a block of a resource that has multiple translations.
2336: # See the <lang> tag as well.
2337: # When </translated> is encountered if there is a translation for the
2338: # currently preferred language, that is rendered inthe web/tex/webgrade
2339: # targets. Otherwise, the default text is rendered.
2340: #
2341: # Note that <lang> is only registered for the duration of the
2342: # <translated>...</translated> block
2343: #
2344: # Pathalogical case handling:
2345: # - If there is no <lang> that specifies a 'default' and there is no
2346: # translation that matches a preferred language, nothing is rendered.
2347: # - Nested <translated>...</translated> might be linguistically supported by
2348: # XML due to the stack nature of tag registration(?) however the rendered
2349: # output will be incorrect because there is only one %available_texts
2350: # has and end_translated clears it.
2351: # - Material outside of a <lang>...</lang> block within the
2352: # <translated>...<translated> block won't render either e.g.:
2353: # <translated>
2354: # The following will be in your preferred langauge:
2355: # <lang which='en'>
2356: # This section in english
2357: # </lang>
2358: # <lang which='sgeiso'>
2359: # Hier es ist auf Deutsch.
2360: # </lang>
2361: # <lang which='sfriso'>
2362: # En Francais
2363: # </lang>
2364: # </translated>
2365: #
2366: # The introductory text prior to the first <lang> tag is not rendered.
2367: #
1.397 albertel 2368: sub start_translated {
2369: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
2370: &Apache::lonxml::register('Apache::structuretags',('lang'));
2371: undef(%available_texts);
2372: }
2373:
2374: sub end_translated {
2375: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
2376: my $result;
2377: #show the translation on viewable targets
2378: if ($target eq 'web' || $target eq 'tex' || $target eq 'webgrade'||
2379: # or non-viewable targets, if it's embedded in something that
2380: # wants the output
2381: (($target eq 'answer' || $target eq 'analyze'|| $target eq 'grade')
2382: && &Apache::lonxml::in_redirection() ) ) {
2383: my @possibilities = keys(%available_texts);
2384: my $which =
2385: &Apache::loncommon::languages(\@possibilities) || 'default';
1.500 foxr 2386: if ($target eq 'tex') {
2387: $result = &select_hyphenation($which);
2388: }
2389: $result .= $available_texts{$which};
2390: if ($target eq 'tex') {
2391: $result .= &select_metadata_hyphenation(); # Restore original language.
2392: }
1.397 albertel 2393: }
2394: undef(%available_texts);
2395: &Apache::lonxml::deregister('Apache::structuretags',('lang'));
2396: return $result;
2397: }
2398:
1.500 foxr 2399: # <lang [which='language-name'] [other='lang1,lang2...']>
2400: # Specifies that the block contained within it is a translation
2401: # for a specific language specified by the 'which' attribute. The
2402: # 'other' attribute can be used by itself or in conjunction with
2403: # which to specify this tag _may_ be used as a translation for some
2404: # list of languages. e.g.: <lang which='senisoUS' other='senisoCA,senisoAU,seniso'>
2405: # specifying that the block provides a translation for US (primary)
2406: # Canadian, Australian and UK Englush.
2407: #
2408: # Comment: this seems a bit silly why not just support a list of languages
2409: # e.g. <lang which='l1,l2...'> and ditch the other attribute?
2410: #
2411: # Effect:
2412: # The material within the <lang>..</lang> block is stored in the
2413: # specified set of $available_texts hash entries, the appropriate one
2414: # is selected at </translated> time.
2415: #
2416: # Pathalogical case handling:
2417: # If a language occurs multiple times within a <translated> block,
2418: # only the last one is rendered e.g.:
2419: #
2420: # <translated>
2421: # <lang which='senisoUS', other='senisoCA,senisoAU,seniso'>
2422: # Red green color blindness is quite common affecting about 7.8% of
2423: # the male population, but onloy about .65% of the female population.
2424: # </lang>
2425: # Red green colour blindness is quite common affecting about 7.8% of
2426: # the male population, but onloy about .65% of the female population.
2427: # <lang which='seniso', other='senisoCA,senisoAU'>
2428: # </translated>
2429: #
2430: # renders the correct spelling of color (colour) for people who have specified
2431: # a preferred language that is one of the British Commonwealth languages
2432: # even though those are also listed as valid selections for the US english
2433: # <lang> block.
2434: #
1.397 albertel 2435: sub start_lang {
2436: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
2437: if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
2438: $target eq 'tex' || $target eq 'analyze' || $target eq 'webgrade') {
2439: &Apache::lonxml::startredirection();
2440: }
2441: return '';
2442: }
2443:
2444: sub end_lang {
2445: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
2446: if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
2447: $target eq 'tex' || $target eq 'analyze' || $target eq 'webgrade') {
2448: my $result = &Apache::lonxml::endredirection();
2449: my $which = &Apache::lonxml::get_param('which',$parstack,
2450: $safeeval);
1.431 raeburn 2451: if ($which=~/\w/) {
2452: $available_texts{$which} = $result;
2453: }
2454: my $otherlangs = &Apache::lonxml::get_param('other',$parstack,
2455: $safeeval);
2456: foreach my $language (split(/\s*\,\s*/,$otherlangs)) {
2457: if ($language=~/\w/) {
2458: $available_texts{$language} = $result;
2459: }
1.427 bisitz 2460: }
2461:
1.397 albertel 2462: }
2463: return '';
2464: }
1.500 foxr 2465: } # end langauge block specific tags.
2466:
1.397 albertel 2467:
1.170 www 2468: sub start_instructorcomment {
1.201 albertel 2469: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.170 www 2470:
2471: my $result;
2472:
1.339 albertel 2473: if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
2474: $target eq 'tex' || $target eq 'analyze' || $target eq 'webgrade') {
1.468 raeburn 2475: $result=($env{'request.role'}=~/^(in|cc|co|au|ca|li)/);
1.284 albertel 2476: if ( (! $result) or ($env{'form.instructor_comments'} eq 'hide')) {
1.201 albertel 2477: my $skip=&Apache::lonxml::get_all_text("/instructorcomment",
2478: $parser,$style);
1.170 www 2479: &Apache::lonxml::debug("skipping ahead :$skip: $$parser[-1]");
2480: }
2481: $result='';
2482: } elsif ($target eq 'edit') {
2483: $result .=&Apache::edit::tag_start($target,$token);
2484: $result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
2485: }
2486: return $result;
2487: }
2488:
2489: sub end_instructorcomment {
1.159 albertel 2490: my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.160 albertel 2491: my $result;
2492: if ($target eq "edit") {
2493: $result.= &Apache::edit::tag_end($target,$token,'');
2494: }
2495: return $result;
1.4 tsai 2496: }
2497:
2498: sub start_while {
1.326 albertel 2499: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.159 albertel 2500:
1.160 albertel 2501: my $result;
1.339 albertel 2502: if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
2503: $target eq 'tex' || $target eq 'analyze' || $target eq 'webgrade') {
1.160 albertel 2504: my $code = $token->[2]->{'condition'};
1.4 tsai 2505:
1.160 albertel 2506: push( @Apache::structuretags::whileconds, $code);
2507: if (!$Apache::lonxml::default_homework_loaded) {
2508: &Apache::lonxml::default_homework_load($safeeval);
2509: }
2510: my $result = &Apache::run::run($code,$safeeval);
1.326 albertel 2511: my $bodytext=&Apache::lonxml::get_all_text("/while",$parser,$style);
1.160 albertel 2512: push( @Apache::structuretags::whilebody, $bodytext);
1.161 albertel 2513: push( @Apache::structuretags::whileline, $token->[5]);
2514: &Apache::lonxml::debug("s code $code got -$result-");
1.160 albertel 2515: if ( $result ) {
2516: &Apache::lonxml::newparser($parser,\$bodytext);
2517: }
2518: } elsif ($target eq 'edit') {
2519: $result .=&Apache::edit::tag_start($target,$token);
1.211 albertel 2520: $result .=&Apache::edit::text_arg(&mt('Test Condition:'),'condition',
1.160 albertel 2521: $token,40);
2522: $result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
2523: } elsif ($target eq 'modified') {
2524: my $constructtag=&Apache::edit::get_new_args($token,$parstack,
2525: $safeeval,'condition');
2526: if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
1.159 albertel 2527: }
1.160 albertel 2528: return $result;
1.4 tsai 2529: }
2530:
2531: sub end_while {
1.159 albertel 2532: my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.160 albertel 2533: my $result;
2534:
1.339 albertel 2535: if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
2536: $target eq 'tex' || $target eq 'analyze' || $target eq 'webgrade') {
1.160 albertel 2537: my $code = pop(@Apache::structuretags::whileconds);
2538: my $bodytext = pop(@Apache::structuretags::whilebody);
1.161 albertel 2539: my $line = pop(@Apache::structuretags::whileline);
2540: my $return = &Apache::run::run($code,$safeeval);
2541: my $starttime=time;
2542: my $error=0;
2543: while ($return) {
2544: if (time-$starttime >
2545: $Apache::lonnet::perlvar{'lonScriptTimeout'}) {
1.378 albertel 2546: $return = 0; $error=1; next;
1.161 albertel 2547: }
2548: $result.=&Apache::scripttag::xmlparse($bodytext);
1.380 albertel 2549: if ($target eq 'grade' || $target eq 'answer' ||
2550: $target eq 'analyze') {
2551: # grade/answer/analyze should produce no output but if we
2552: # are redirecting, the redirecter should know what to do
2553: # with the output
2554: if (!$Apache::lonxml::redirection) { undef($result); }
2555: }
1.161 albertel 2556: $return = &Apache::run::run($code,$safeeval);
2557: }
1.516 bisitz 2558: if ($error) {
2559: &Apache::lonxml::error(
2560: '<pre>'
2561: .&mt('Code ran too long. It ran for more than [_1] seconds.',
2562: $Apache::lonnet::perlvar{'lonScriptTimeout'})
2563: .&mt('This occurred while running <while> on line [_1].',
2564: $line)
2565: .'</pre>');
2566: }
1.160 albertel 2567: } elsif ($target eq "edit") {
2568: $result.= &Apache::edit::tag_end($target,$token,'');
1.159 albertel 2569: }
1.160 albertel 2570: return $result;
1.1 albertel 2571: }
1.6 tsai 2572:
1.160 albertel 2573: # <randomlist show="1">
1.6 tsai 2574: # <tag1>..</tag1>
2575: # <tag2>..</tag2>
2576: # <tag3>..</tag3>
1.160 albertel 2577: # ...
1.6 tsai 2578: # </randomlist>
2579: sub start_randomlist {
1.326 albertel 2580: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.159 albertel 2581: my $result;
1.339 albertel 2582: if ($target eq 'answer' || $target eq 'grade' || $target eq 'web' ||
2583: $target eq 'tex' || $target eq 'analyze' || $target eq 'webgrade') {
1.331 albertel 2584: my $body= &Apache::lonxml::get_all_text("/randomlist",$parser);
1.305 albertel 2585: my $b_parser= HTML::LCParser->new(\$body);
2586: $b_parser->xml_mode(1);
2587: $b_parser->marked_sections(1);
1.159 albertel 2588: my $b_tok;
2589: my @randomlist;
2590: my $list_item;
2591: while($b_tok = $b_parser->get_token() ) {
2592: if($b_tok->[0] eq 'S') { # start tag
2593: # get content of the tag until matching end tag
2594: # get all text upto the matching tag
2595: # and push the content into @randomlist
2596: $list_item = &Apache::lonxml::get_all_text('/'.$b_tok->[1],
2597: $b_parser);
2598: $list_item = "$b_tok->[4]"."$list_item"."</$b_tok->[1]>";
2599: push(@randomlist,$list_item);
2600: # print "<br /><b>START-TAG $b_tok->[1], $b_tok->[4],
2601: # $list_item</b>";
2602: }
2603: if($b_tok->[0] eq 'T') { # text
2604: # what to do with text in between tags?
2605: # print "<b>TEXT $b_tok->[1]</b><br />";
2606: }
2607: # if($b_tok->[0] eq 'E') { # end tag, should not happen
2608: # print "<b>END-TAG $b_tok->[1]</b><br />";
2609: # }
2610: }
1.303 albertel 2611: if (@randomlist) {
2612: my @idx_arr = (0 .. $#randomlist);
2613: &Apache::structuretags::shuffle(\@idx_arr);
2614: my $bodytext = '';
2615: my $show=$#randomlist;
2616: my $showarg=&Apache::lonxml::get_param('show',$parstack,$safeeval);
2617: $showarg--;
2618: if ( ($showarg >= 0) && ($showarg < $show) ) { $show = $showarg; }
1.439 raeburn 2619: if (($target eq 'analyze') && ($env{'form.check_parts_withrandomlist'})) {
2620: my @currlist;
2621: my $part = $Apache::inputtags::part;
2622: if ($part ne '') {
2623: if (ref($Apache::lonhomework::analyze{'parts_withrandomlist'}) eq 'ARRAY') {
2624: my @currlist = @{$Apache::lonhomework::analyze{'parts_withrandomlist'}};
2625: if (!(grep(/^\Q$part\E$/,@currlist))) {
2626: push(@{$Apache::lonhomework::analyze{'parts_withrandomlist'}},$part);
2627: }
2628: } else {
2629: push(@{$Apache::lonhomework::analyze{'parts_withrandomlist'}},$part);
2630: }
2631: }
2632: }
1.526 raeburn 2633: for my $i (0 .. $show) {
2634: $bodytext .= "$randomlist[ $idx_arr[$i] ]";
1.303 albertel 2635: }
2636: &Apache::lonxml::newparser($parser,\$bodytext);
1.159 albertel 2637: }
2638: } elsif ($target eq 'edit' ) {
2639: $result .=&Apache::edit::tag_start($target,$token);
2640: $result .=&Apache::edit::text_arg('Maximum Tags to Show:','show',
2641: $token,5);
2642: $result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
2643: } elsif ($target eq 'modified' ) {
2644: my $constructtag=&Apache::edit::get_new_args($token,$parstack,
2645: $safeeval,'show');
2646: if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
2647: }
2648: return $result;
1.7 tsai 2649: }
2650:
2651: sub shuffle {
2652: my $a=shift;
2653: my $i;
1.303 albertel 2654: if (ref($a) eq 'ARRAY' && @$a) {
1.251 albertel 2655: &Apache::response::pushrandomnumber();
1.159 albertel 2656: for($i=@$a;--$i;) {
2657: my $j=int(&Math::Random::random_uniform() * ($i+1));
2658: next if $i == $j;
2659: @$a[$i,$j] = @$a[$j,$i];
2660: }
1.251 albertel 2661: &Apache::response::poprandomnumber();
1.7 tsai 2662: }
1.6 tsai 2663: }
2664:
2665: sub end_randomlist {
1.159 albertel 2666: my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
2667: my $result;
2668: if ($target eq 'edit' ) {
2669: $result=&Apache::edit::tag_end($target,$token,
2670: 'End Randomly Parsed Block');
2671: }
2672: return $result;
1.6 tsai 2673: }
2674:
1.283 albertel 2675: sub ordered_show_check {
2676: my $last_part=$Apache::inputtags::partlist[-2];
2677: my $in_order=
2678: &Apache::lonnet::EXT('resource.'.$Apache::inputtags::part.'.ordered');
2679: my $in_order_show=1;
2680: if ($last_part ne '0' && lc($in_order) eq 'yes') {
2681: $in_order_show=&Apache::response::check_status($last_part);
2682: }
2683: return $in_order_show;
2684: }
2685:
1.469 www 2686:
2687: sub start_startpartmarker {
2688: my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
2689: my $result='';
2690: if ($target eq 'edit') {
2691: $result=&Apache::edit::tag_start($target,$token);
2692: $result.=&mt('Marker for the start of a part. Place end marker below to wrap in-between tags into a new part.').'</td></tr>';
2693: $result.=&Apache::edit::end_table();
2694:
2695: }
2696: return $result;
2697: }
2698:
2699: sub end_startpartmarker {
2700: my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
2701: my @result;
2702: if ($target eq 'edit') { $result[1]='no'; }
2703: return @result;
2704: }
2705:
2706: sub start_endpartmarker {
2707: my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
2708: my $result='';
2709: if ($target eq 'edit') {
2710: $result=&Apache::edit::tag_start($target,$token);
2711: $result.=&mt('Marker for the end of a part. Place start marker above to wrap in-between tags into a new part.').'</td></tr>';
2712: $result.=&Apache::edit::end_table();
2713:
2714: }
2715: return $result;
2716: }
2717:
2718: sub end_endpartmarker {
2719: my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
2720: my @result;
2721: if ($target eq 'edit') { $result[1]='no'; }
2722: return @result;
2723: }
2724:
2725:
2726:
2727:
2728:
1.11 albertel 2729: sub start_part {
1.326 albertel 2730: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.321 albertel 2731: if (!$Apache::lonxml::metamode) {
2732: &Apache::lonxml::startredirection(); # we'll use redirection to fix up
2733: # duedates.
2734: }
1.159 albertel 2735: my $result='';
1.386 albertel 2736: my $id= &Apache::lonxml::get_id($parstack,$safeeval);
1.159 albertel 2737: $Apache::inputtags::part=$id;
1.177 albertel 2738: push(@Apache::inputtags::partlist,$id);
2739: @Apache::inputtags::response=();
1.159 albertel 2740: @Apache::inputtags::previous=();
2741: @Apache::inputtags::previous_version=();
1.405 albertel 2742: &Apache::lonhomework::set_show_problem_status(&get_problem_status($id));
1.403 albertel 2743: &Apache::response::reset_params();
2744:
1.159 albertel 2745: my $hidden=&Apache::loncommon::check_if_partid_hidden($Apache::inputtags::part);
1.259 albertel 2746: my $newtype=&Apache::lonnet::EXT("resource.$id.type");
2747: if ($newtype) { $Apache::lonhomework::type=$newtype; }
1.528 raeburn 2748: if ($Apache::lonhomework::type eq 'randomizetry') {
2749: my $rndseed=&setup_rndseed($safeeval,$target);
2750: if (($target eq 'grade') && &Apache::response::submitted()) {
1.529 raeburn 2751: $Apache::lonhomework::results{"resource.$id.rndseed"}=$rndseed;
1.528 raeburn 2752: }
2753: } elsif (($target eq 'grade') && &Apache::response::submitted()) {
1.529 raeburn 2754: $Apache::lonhomework::results{"resource.$id.rndseed"}=$Apache::lonhomework::rawrndseed;
1.528 raeburn 2755: }
1.283 albertel 2756: my $in_order_show=&ordered_show_check();
1.214 albertel 2757: my $expression='$external::part=\''.$Apache::inputtags::part.'\';';
1.259 albertel 2758: $expression.='$external::type=\''.$Apache::lonhomework::type.'\';';
1.209 albertel 2759: &Apache::run::run($expression,$safeeval);
1.159 albertel 2760:
2761: if ($target eq 'meta') {
1.224 www 2762: my $display=&Apache::lonxml::get_param('display',$parstack,$safeeval);
2763: return &Apache::response::mandatory_part_meta.
2764: &Apache::response::meta_parameter_write('display','string',$display,'Part Description');
1.159 albertel 2765: } elsif ($target eq 'web' || $target eq 'grade' ||
2766: $target eq 'answer' || $target eq 'tex') {
1.283 albertel 2767: if ($hidden || !$in_order_show) {
1.326 albertel 2768: my $bodytext=&Apache::lonxml::get_all_text("/part",$parser,$style);
1.159 albertel 2769: } else {
2770: my ($status,$accessmsg) = &Apache::lonhomework::check_access($id);
2771: push (@Apache::inputtags::status,$status);
2772: my $expression='$external::datestatus="'.$status.'";';
2773: $expression.='$external::gradestatus="'.$Apache::lonhomework::history{"resource.$id.solved"}.'";';
2774: &Apache::run::run($expression,$safeeval);
1.284 albertel 2775: if ($env{'request.state'} eq 'construct') {
1.241 albertel 2776: &set_problem_state($Apache::inputtags::part);
1.240 albertel 2777: }
1.216 albertel 2778: if (( $status eq 'CLOSED' ) ||
2779: ( $status eq 'UNCHECKEDOUT') ||
1.252 albertel 2780: ( $status eq 'NOT_YET_VIEWED') ||
1.216 albertel 2781: ( $status eq 'BANNED') ||
2782: ( $status eq 'UNAVAILABLE') ||
2783: ( $status eq 'INVALID_ACCESS')) {
1.326 albertel 2784: my $bodytext=&Apache::lonxml::get_all_text("/part",$parser,
2785: $style);
1.159 albertel 2786: if ( $target eq "web" ) {
1.211 albertel 2787: $result="<br />".&mt('Part is not open to be viewed. It')." $accessmsg<br />";
1.159 albertel 2788: } elsif ( $target eq 'tex' ) {
1.284 albertel 2789: if (not $env{'form.problem_split'}=~/yes/) {
1.211 albertel 2790: $result="\\end{minipage}\\vskip 0 mm ".&mt('Part is not open to be viewed. It')." $accessmsg \\\\\\begin{minipage}{\\textwidth}";
1.195 sakharuk 2791: } else {
1.211 albertel 2792: $result="\\vskip 0 mm ".&mt('Part is not open to be viewed. It')." $accessmsg \\\\";
1.195 sakharuk 2793: }
1.159 albertel 2794: }
2795: } else {
2796: if ($target eq 'tex') {
1.284 albertel 2797: if (not $env{'form.problem_split'}=~/yes/) {
1.264 sakharuk 2798: if ($$tagstack[-2] eq 'td') {
1.388 foxr 2799: $result.='\noindent \begin{minipage}{\textwidth}\noindent';
1.264 sakharuk 2800: } else {
2801: $result.='\noindent \end{minipage}\vskip 0 mm \noindent \begin{minipage}{\textwidth}\noindent';
2802: }
1.195 sakharuk 2803: }
1.159 albertel 2804: my $weight = &Apache::lonnet::EXT("resource.$id.weight");
1.284 albertel 2805: my $allkeys=&Apache::lonnet::metadata($env{'request.uri'},'packages');
1.526 raeburn 2806: my @allkeys = split(/,/,$allkeys);
1.222 sakharuk 2807: my $allow_print_points = 0;
2808: foreach my $partial_key (@allkeys) {
1.230 albertel 2809: if ($partial_key=~m/^part_(.*)$/) {
1.222 sakharuk 2810: if ($1 ne '0') {$allow_print_points=1;}
2811: }
2812: }
1.275 albertel 2813: my $maxtries = &Apache::lonnet::EXT("resource.$id.maxtries");
2814: if (defined($maxtries) && $maxtries < 0) {
2815: $allow_print_points=0;
2816: }
1.302 albertel 2817: if (lc($env{'course.'.$env{'request.course.id'}.
2818: '.disableexampointprint'}) eq 'yes') {
2819: $allow_print_points=0;
2820: }
1.463 foxr 2821: if (($Apache::lonhomework::type eq 'exam') && ($allow_print_points)) {
1.492 christia 2822: $result .= '\vskip 10mm\fbox{\textit{'.&mt('[quant,_1,pt,pt]',$weight ).'}}';
1.463 foxr 2823:
2824: }
1.233 www 2825: } elsif ($target eq 'web') {
1.479 raeburn 2826: if ($status eq 'CAN_ANSWER') {
2827: my $problemstatus = &get_problem_status($Apache::inputtags::part);
2828: my $probrandomize = &Apache::lonnet::EXT("resource.$Apache::inputtags::partlist[0].type");
2829: my $probrandtries = &Apache::lonnet::EXT("resource.$Apache::inputtags::partlist[0].randomizeontries");
2830: my $num = scalar(@Apache::inputtags::partlist)-1;
2831: if ($probrandomize eq 'randomizetry') {
2832: if (&Apache::lonnet::EXT("resource.$Apache::inputtags::part.type") ne 'randomizetry') {
2833: $result .= &randomizetry_part_header($problemstatus,'none',$num);
2834: } else {
2835: my $reqtries = &Apache::lonnet::EXT("resource.$Apache::inputtags::part.randomizeontries");
2836: if ($probrandtries ne $reqtries) {
2837: $result .= &randomizetry_part_header($problemstatus,$reqtries,$num);
2838: }
2839: }
2840: } elsif (&Apache::lonnet::EXT("resource.$Apache::inputtags::part.type") eq 'randomizetry') {
2841: my $reqtries = &Apache::lonnet::EXT("resource.$Apache::inputtags::part.randomizeontries");
2842: $result .= &randomizetry_part_header($problemstatus,$reqtries,$num);
2843: }
2844: }
1.475 raeburn 2845: $result.='<a name="'.&escape($Apache::inputtags::part).'" ></a>';
1.159 albertel 2846: }
2847: }
2848: }
2849: } elsif ($target eq 'edit') {
2850: $result.=&Apache::edit::tag_start($target,$token);
2851: $result.=&Apache::edit::text_arg('Part ID:','id',$token).
2852: &Apache::loncommon::help_open_topic("Part_Tag_Edit_Help").
1.224 www 2853: ' '.
2854: &Apache::edit::text_arg('Displayed Part Description:','display',$token).
1.159 albertel 2855: &Apache::edit::end_row().&Apache::edit::start_spanning_row();
2856: } elsif ($target eq 'modified') {
2857: my $constructtag=&Apache::edit::get_new_args($token,$parstack,
1.225 albertel 2858: $safeeval,'id','display');
1.159 albertel 2859: if ($constructtag) {
1.225 albertel 2860: #limiting ids to only letters numbers, and space
1.224 www 2861: $token->[2]->{'id'}=~s/[^A-Za-z0-9 ]//gs;
1.159 albertel 2862: $result = &Apache::edit::rebuild_tag($token);
2863: }
2864: }
2865: return $result;
1.11 albertel 2866: }
2867:
2868: sub end_part {
1.159 albertel 2869: my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
2870: &Apache::lonxml::debug("in end_part $target ");
2871: my $status=$Apache::inputtags::status['-1'];
2872: my $hidden=&Apache::loncommon::check_if_partid_hidden($Apache::inputtags::part);
1.283 albertel 2873: my $in_order_show=&ordered_show_check();
1.321 albertel 2874: my $result;
2875: if (!$Apache::lonxml::metamode) {
2876: $result = &Apache::lonxml::endredirection(); # started in &start_part
1.329 albertel 2877: $Apache::lonxml::post_evaluate=0;
1.321 albertel 2878: }
1.312 albertel 2879: if ($target eq 'grade') {
1.249 albertel 2880: if (($status eq 'CAN_ANSWER' || $Apache::lonhomework::scantronmode) &&
1.283 albertel 2881: !$hidden && $in_order_show) {
1.311 foxr 2882: $result.=&Apache::inputtags::grade;
1.249 albertel 2883: } else {
2884: # move any submission data to .hidden
2885: &Apache::inputtags::hidealldata($Apache::inputtags::part);
2886: }
1.283 albertel 2887: } elsif (($target eq 'web' || $target eq 'tex') &&
2888: !$hidden && $in_order_show) {
1.159 albertel 2889: my $gradestatus=&Apache::inputtags::gradestatus($Apache::inputtags::part,
2890: $target);
1.490 raeburn 2891: if (($Apache::lonhomework::type eq 'exam' && $target eq 'tex') ||
2892: ($env{'form.grade_imsexport'})) {
1.212 albertel 2893: $gradestatus='';
2894: }
1.311 foxr 2895: $result.=$gradestatus;
1.265 sakharuk 2896: if ($$tagstack[-2] eq 'td' and $target eq 'tex') {$result.='\end{minipage}';}
1.181 albertel 2897: } elsif ($target eq 'edit') {
1.311 foxr 2898: $result.=&Apache::edit::end_table();
1.322 albertel 2899: } elsif ($target eq 'modified') {
2900: $result .= $token->[2];
1.159 albertel 2901: }
2902: pop @Apache::inputtags::status;
2903: $Apache::inputtags::part='';
1.295 albertel 2904: $Apache::lonhomework::type = $Apache::lonhomework::default_type;
1.159 albertel 2905: return $result;
1.11 albertel 2906: }
1.1 albertel 2907:
1.25 albertel 2908: sub start_preduedate {
1.326 albertel 2909: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.339 albertel 2910: if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
2911: $target eq 'tex' || $target eq 'webgrade') {
1.236 albertel 2912: &Apache::lonxml::debug("State in preduedate is ". $Apache::inputtags::status['-1']);
1.300 albertel 2913: if (!$Apache::lonhomework::scantronmode &&
2914: $Apache::inputtags::status['-1'] ne 'CAN_ANSWER' &&
1.236 albertel 2915: $Apache::inputtags::status['-1'] ne 'CANNOT_ANSWER') {
2916: &Apache::lonxml::debug("Wha? ". ($Apache::inputtags::status['-1'] ne 'SHOW_ANSWER'));
1.326 albertel 2917: &Apache::lonxml::get_all_text("/preduedate",$parser,$style);
1.159 albertel 2918: }
1.24 albertel 2919: }
1.159 albertel 2920: return '';
1.24 albertel 2921: }
2922:
1.25 albertel 2923: sub end_preduedate {
1.159 albertel 2924: return '';
1.24 albertel 2925: }
2926:
1.369 foxr 2927: # In all the modes where <postanswerdate> text is
2928: # displayable, all we do is eat up the text between the start/stop
2929: # tags if the conditions are not right to display it.
1.25 albertel 2930: sub start_postanswerdate {
1.326 albertel 2931: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.370 foxr 2932: my $pav = &Apache::lonnet::allowed('pav', $env{'request.course.id'}) ||
2933: &Apache::lonnet::allowed('pav',
2934: $env{'request.course.id'}.'/'.$env{'request.course.sec'});
1.369 foxr 2935: if ($target eq 'web' || $target eq 'grade' || $target eq 'webgrade' ||
1.370 foxr 2936: $target eq 'tex' ) {
1.300 albertel 2937: if ($Apache::lonhomework::scantronmode ||
1.370 foxr 2938: $Apache::inputtags::status['-1'] ne 'SHOW_ANSWER' ||
2939: (($target eq 'tex') && !$pav)) {
1.326 albertel 2940: &Apache::lonxml::get_all_text("/postanswerdate",$parser,$style);
1.159 albertel 2941: }
2942: }
2943: return '';
1.24 albertel 2944: }
2945:
1.25 albertel 2946: sub end_postanswerdate {
1.159 albertel 2947: return '';
1.24 albertel 2948: }
2949:
1.25 albertel 2950: sub start_notsolved {
1.326 albertel 2951: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.159 albertel 2952: if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
1.339 albertel 2953: $target eq 'tex' || $target eq 'webgrade') {
1.159 albertel 2954: my $gradestatus=$Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"};
2955: &Apache::lonxml::debug("not solved has :$gradestatus:");
1.239 albertel 2956: if ($gradestatus =~ /^correct/ &&
2957: &Apache::response::show_answer()) {
1.159 albertel 2958: &Apache::lonxml::debug("skipping");
1.326 albertel 2959: &Apache::lonxml::get_all_text("/notsolved",$parser,$style);
1.159 albertel 2960: }
1.24 albertel 2961: }
1.159 albertel 2962: return '';
1.24 albertel 2963: }
2964:
1.25 albertel 2965: sub end_notsolved {
1.159 albertel 2966: return '';
1.24 albertel 2967: }
2968:
2969: sub start_solved {
1.326 albertel 2970: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.159 albertel 2971: if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
2972: $target eq 'tex') {
2973: my $gradestatus=$Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"};
1.239 albertel 2974: if ($gradestatus !~ /^correct/ ||
2975: !&Apache::response::show_answer()) {
1.326 albertel 2976: &Apache::lonxml::get_all_text("/solved",$parser,$style);
1.159 albertel 2977: }
1.24 albertel 2978: }
1.159 albertel 2979: return '';
1.24 albertel 2980: }
2981:
2982: sub end_solved {
1.248 albertel 2983: return '';
2984: }
2985:
2986: sub start_problemtype {
1.326 albertel 2987: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.248 albertel 2988: my $result;
1.339 albertel 2989: if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
2990: $target eq 'tex' || $target eq 'analyze' || $target eq 'webgrade') {
1.248 albertel 2991: my $mode=lc(&Apache::lonxml::get_param('mode',$parstack,$safeeval));
2992: if (!defined($mode)) { $mode='show'; }
2993: my $for=&Apache::lonxml::get_param('for',$parstack,$safeeval);
2994: my $found=0;
2995: foreach my $type (split(',',$for)) {
2996: if ($Apache::lonhomework::type eq lc($type)) { $found=1; }
2997: }
2998: if ($mode eq 'show' && !$found) {
1.326 albertel 2999: &Apache::lonxml::get_all_text("/problemtype",$parser,$style);
1.248 albertel 3000: }
3001: if ($mode eq 'hide' && $found) {
1.326 albertel 3002: &Apache::lonxml::get_all_text("/problemtype",$parser,$style);
1.248 albertel 3003: }
3004: } elsif ($target eq 'edit') {
3005: $result .=&Apache::edit::tag_start($target,$token);
3006: $result.=&Apache::edit::select_arg('Mode:','mode',
3007: [['show','Show'],
3008: ['hide','Hide']]
3009: ,$token);
3010: $result .=&Apache::edit::checked_arg('When used as type(s):','for',
1.511 bisitz 3011: [ ['exam','Bubblesheet Exam/Quiz Problem'],
1.248 albertel 3012: ['survey','Survey'],
1.465 raeburn 3013: ['surveycred','Survey (with credit)'],
3014: ['anonsurvey','Anonymous Survey'],
3015: ['anonsurveycred','Anonymous Survey (with credit)'],
1.428 raeburn 3016: ['problem','Homework Problem'],
1.479 raeburn 3017: ['practice','Practice Problem'],
3018: ['randomizetry','New Randomization Each Try'] ]
1.248 albertel 3019: ,$token);
3020: $result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
3021: } elsif ($target eq 'modified') {
3022: my $constructtag=&Apache::edit::get_new_args($token,$parstack,
3023: $safeeval,'mode','for');
3024: if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
3025: }
3026: return $result;
3027: }
3028:
3029: sub end_problemtype {
1.159 albertel 3030: return '';
1.24 albertel 3031: }
1.34 albertel 3032:
3033: sub start_startouttext {
1.159 albertel 3034: my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
3035: my @result=(''.'');
3036: if ($target eq 'edit' || $target eq 'modified' ) { @result=('','no'); }
1.404 albertel 3037:
3038: my $nesting =
3039: &Apache::lonxml::set_state('outtext',
3040: &Apache::lonxml::get_state('outtext')+1);
3041: if ($nesting > 1 && $env{'request.state'} eq 'construct') {
3042: &Apache::lonxml::error("Nesting of <startouttext /> not allowed, on line ".$token->[5]);
3043: }
1.159 albertel 3044: return (@result);
1.34 albertel 3045: }
1.159 albertel 3046:
1.34 albertel 3047: sub end_startouttext {
1.326 albertel 3048: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
1.159 albertel 3049: my $result='';
3050: my $text='';
3051: if ($target eq 'edit') {
1.424 foxr 3052: my $areaid = 'homework_edit_'.$Apache::lonxml::curdepth;
1.326 albertel 3053: $text=&Apache::lonxml::get_all_text("endouttext",$parser,$style);
1.527 golterma 3054: $result.=&Apache::edit::start_table($token)."<tr><td>".&Apache::loncommon::insert_folding_button()
3055: ." ".&mt('Text Block')."</td>"
1.438 bisitz 3056: .'<td><span class="LC_nobreak">'.&mt('Delete?').' '
1.437 raeburn 3057: .&Apache::edit::deletelist($target,$token)
1.474 raeburn 3058: .'</span></td>'
1.515 golterma 3059: .'<td><span id="math_'.$areaid.'">'
1.474 raeburn 3060: .&Apache::lonhtmlcommon::dragmath_button($areaid,1)
1.512 bisitz 3061: .'</span></td>'
1.474 raeburn 3062: .'<td>'
3063: .&Apache::edit::insertlist($target,$token)
3064: .'</td>'
1.515 golterma 3065: .'<td class="LC_edit_problem_latexhelper">' .
1.474 raeburn 3066: &Apache::loncommon::helpLatexCheatsheet().
1.159 albertel 3067: &Apache::edit::end_row().
1.362 albertel 3068: &Apache::edit::start_spanning_row()."\n".
1.255 www 3069: &Apache::edit::editfield($token->[1],$text,"",80,8,1);
1.159 albertel 3070: }
3071: if ($target eq 'modified') {
1.219 albertel 3072: $result='<startouttext />'.&Apache::edit::modifiedfield("endouttext",$parser);
1.159 albertel 3073: }
3074: if ($target eq 'tex') {
3075: $result .= '\noindent ';
3076: }
3077: return $result;
1.34 albertel 3078: }
1.159 albertel 3079:
1.34 albertel 3080: sub start_endouttext {
1.159 albertel 3081: my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
3082: my $result='';
3083: if ($target eq "edit" ) { $result="</td></tr>".&Apache::edit::end_table()."\n"; }
3084: if ($target eq "modified") {
3085: $result='<endouttext />'.
1.377 albertel 3086: &Apache::edit::handle_insertafter('startouttext');
3087: }
1.404 albertel 3088:
3089: my $nesting =
3090: &Apache::lonxml::set_state('outtext',
3091: &Apache::lonxml::get_state('outtext')-1);
3092: if ($nesting < 0 && $env{'request.state'} eq 'construct') {
3093: &Apache::lonxml::error(" Extraneous <endouttext /> not allowed on line ".$token->[5]);
3094: &Apache::lonxml::set_state('outtext', 0);
3095: }
1.159 albertel 3096: return $result;
1.34 albertel 3097: }
1.159 albertel 3098:
1.34 albertel 3099: sub end_endouttext {
1.159 albertel 3100: my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
3101: my @result=('','');
3102: if ($target eq "edit" || $target eq 'modified') { @result=('','no'); }
3103: return (@result);
1.34 albertel 3104: }
1.159 albertel 3105:
1.45 albertel 3106: sub delete_startouttext {
1.326 albertel 3107: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
3108: # my $text=&Apache::lonxml::get_all_text("endouttext",$parser,$style);
1.159 albertel 3109: my $text=$$parser['-1']->get_text("/endouttext");
3110: my $ntoken=$$parser['-1']->get_token();
3111: &Apache::lonxml::debug("Deleting :$text: and :$ntoken->[0]:$ntoken->[1]:$ntoken->[2]: for startouttext");
3112: &Apache::lonxml::end_tag($tagstack,$parstack,$ntoken);
3113: # Deleting 2 parallel tag pairs, but we need the numbers later to look like
3114: # they did the last time round
3115: &Apache::lonxml::increasedepth($ntoken);
3116: &Apache::lonxml::decreasedepth($ntoken);
3117: return 1;
1.193 www 3118: }
3119:
3120: sub start_simpleeditbutton {
3121: my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
3122: my $result='';
1.284 albertel 3123: if (($env{'form.simple_edit_button'} ne 'off') &&
1.273 albertel 3124: ($target eq 'web') &&
1.330 albertel 3125: (&Apache::lonnet::allowed('mdc',$env{'request.course.id'}))) {
1.284 albertel 3126: my $url=$env{'request.noversionuri'};
1.193 www 3127: $url=~s/\?.*$//;
1.367 albertel 3128: my ($symb) = &Apache::lonnet::whichuser();
1.451 bisitz 3129: # Warning makes more sense and is more important on edit screen
1.442 bisitz 3130: # $result='<p class="LC_warning">'
3131: # .&mt('Note: it can take up to 10 minutes for changes to take effect for all users.')
3132: # .&Apache::loncommon::help_open_topic('Caching')
3133: # .'</p>';
1.486 www 3134: $result.=&Apache::loncommon::head_subbox(
3135: &Apache::lonhtmlcommon::start_funclist()
1.451 bisitz 3136: .&Apache::lonhtmlcommon::add_item_funclist(
3137: '<a href="'.$url.'/smpedit?symb='.&escape($symb).'">'
3138: .&mt('Edit').'</a>')
1.486 www 3139: .&Apache::lonhtmlcommon::end_funclist());
1.442 bisitz 3140:
1.193 www 3141: }
3142: return $result;
3143: }
3144:
3145: sub end_simpleeditbutton {
3146: return '';
1.45 albertel 3147: }
1.34 albertel 3148:
1.428 raeburn 3149: sub practice_problem_header {
3150: return '<span class="LC_info"><h3>'.&mt('Practice Problem').'</h3></span>'.
3151: '<span class="LC_info">'.&mt('Submissions are not permanently recorded').
3152: '</span>';
3153: }
3154:
1.479 raeburn 3155: sub randomizetry_problem_header {
3156: my ($problemstatus,$reqtries) = @_;
3157: my ($header,$text);
3158: if ($reqtries > 1) {
3159: $header = &mt('New Problem Variation After Every [quant,_1,Try,Tries]',$reqtries);
3160: if (($problemstatus eq 'no') ||
3161: ($problemstatus eq 'no_feedback_ever')) {
3162: $text = &mt('A new variation will be generated after every [quant,_1,try,tries], until the tries limit is reached.',$reqtries);
3163: } else {
3164: $text = &mt('A new variation will be generated after every [quant,_1,try,tries], until correct or tries limit is reached.',$reqtries);
3165: }
3166: } else {
3167: $header = &mt('New Problem Variation Each Try');
3168: if (($problemstatus eq 'no') ||
3169: ($problemstatus eq 'no_feedback_ever')) {
3170: $text = &mt('A new variation will be generated after each try until the tries limit is reached.');
3171:
3172: } else {
3173: $text = &mt('A new variation will be generated after each try until correct or tries limit is reached.');
3174: }
3175: }
3176: return '<span class="LC_info"><h3>'.$header.'</h3></span>'.
3177: '<span class="LC_info">'.$text.'</span><hr />';
3178: }
3179:
3180: sub randomizetry_part_header {
3181: my ($problemstatus,$reqtries,$num) = @_;
3182: my ($header,$text);
3183: if ($reqtries eq 'none') {
3184: $header = &mt('No Question Variation');
3185: $text = &mt('For this question there will no new variation after a try.');
3186: } elsif ($reqtries > 1) {
3187: $header = &mt('New Question Variation After Every [quant,_1,Try,Tries]',$reqtries);
3188: if (($problemstatus eq 'no') ||
3189: ($problemstatus eq 'no_feedback_ever')) {
3190: $text = &mt('For this question a new variation will be generated after every [quant,_1,try,tries], until the tries limit is reached.',$reqtries);
3191: } else {
3192: $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);
3193: }
3194: } else {
3195: $header = &mt('New Question Variation For Each Try');
3196: if (($problemstatus eq 'no') ||
3197: ($problemstatus eq 'no_feedback_ever')) {
3198: $text = &mt('For this question a new variation will be generated after each try until the tries limit is reached.');
3199: } else {
3200: $text = &mt('For this question a new variation will be generated after each try until correct or tries limit is reached.');
3201: }
3202: }
3203: my $output;
3204: if ($num > 1) {
3205: $output .= '<hr />';
3206: }
3207: $output .= '<span class="LC_info"><h4>'.$header.'</h4></span>'.
3208: '<span class="LC_info">'.$text.'</span><br /><br />';
3209: return $output;
3210: }
3211:
1.1 albertel 3212: 1;
3213: __END__
1.435 jms 3214:
3215: =pod
3216:
3217: =back
3218:
3219: =cut
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>