Annotation of loncom/interface/lonprintout.pm, revision 1.573
1.562 foxr 1: #
1.389 foxr 2: # The LearningOnline Network
1.1 www 3: # Printout
4: #
1.573 ! foxr 5: # $Id: lonprintout.pm,v 1.572 2010/02/28 22:38:45 raeburn Exp $
1.11 albertel 6: #
7: # Copyright Michigan State University Board of Trustees
8: #
9: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
10: #
11: # LON-CAPA is free software; you can redistribute it and/or modify
12: # it under the terms of the GNU General Public License as published by
13: # the Free Software Foundation; either version 2 of the License, or
14: # (at your option) any later version.
15: #
16: # LON-CAPA is distributed in the hope that it will be useful,
17: # but WITHOUT ANY WARRANTY; without even the implied warranty of
18: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19: # GNU General Public License for more details.
20: #
21: # You should have received a copy of the GNU General Public License
22: # along with LON-CAPA; if not, write to the Free Software
23: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
24: #
25: # /home/httpd/html/adm/gpl.txt
26: # http://www.lon-capa.org/
27: #
1.3 sakharuk 28: #
1.1 www 29: package Apache::lonprintout;
30: use strict;
1.10 albertel 31: use Apache::Constants qw(:common :http);
1.2 sakharuk 32: use Apache::lonxml;
33: use Apache::lonnet;
1.54 sakharuk 34: use Apache::loncommon;
1.13 sakharuk 35: use Apache::inputtags;
1.54 sakharuk 36: use Apache::grades;
1.13 sakharuk 37: use Apache::edit;
1.5 sakharuk 38: use Apache::File();
1.68 sakharuk 39: use Apache::lonnavmaps;
1.511 foxr 40: use Apache::admannotations;
1.521 foxr 41: use Apache::lonenc;
1.531 foxr 42: use Apache::entities;
1.550 foxr 43: use Apache::londefdef;
44:
45: use File::Basename;
1.531 foxr 46:
1.515 foxr 47: use HTTP::Response;
1.511 foxr 48:
1.491 albertel 49: use LONCAPA::map();
1.34 sakharuk 50: use POSIX qw(strftime);
1.255 www 51: use Apache::lonlocal;
1.429 foxr 52: use Carp;
1.439 www 53: use LONCAPA;
1.60 sakharuk 54:
1.397 albertel 55: my %perm;
1.454 foxr 56: my %parmhash;
1.459 foxr 57: my $resources_printed;
1.454 foxr 58:
1.515 foxr 59: # Global variables that describe errors in ssi calls detected by ssi_with_retries.
60: #
61:
62: my $ssi_error; # True if there was an ssi error.
63: my $ssi_last_error_resource; # The resource URI that could not be fetched.
64: my $ssi_last_error; # The error text from the server. (e.g. 500 Server timed out).
65:
66: #
67: # Our ssi max retry count.
68: #
69:
70: my $ssi_retry_count = 5; # Some arbitrary value.
71:
72:
1.556 foxr 73: # Font size:
74:
75: my $font_size = 'normalsize'; # Default is normalsize...
76:
1.562 foxr 77: #---------------------------- Helper helpers. -------------------------
78:
79: # Returns the text needd for a student chooser.
80: # that text must still be parsed by the helper xml parser.
81: # Parameters:
82: # this_state - State name of the chooser.
83: # sort_choice - variable to hold the sorting choice.
84: # variable - Name of variable to hold students.
85: # next_state - State after chooser.
86:
87:
88: sub generate_student_chooser {
89: my ($this_state,
90: $sort_choice,
91: $variable,
92: $next_state) = @_;
93: my $result = <<CHOOSE_STUDENTS;
94: <state name="$this_state" title="Select Students and Resources">
95: <message><b>Select sorting order of printout</b> </message>
96:
97: <choices variable="$sort_choice">
98: <choice computer='0'>Sort by section then student</choice>
99: <choice computer='1'>Sort by students across sections.</choice>
100: </choices>
101:
102: <message><br /><hr /><br /> </message>
103: <student multichoice='1'
104: variable="$variable"
105: nextstate="$next_state"
106: coursepersonnel="1" />
107: </state>
108:
109: CHOOSE_STUDENTS
110:
111: return $result;
112: }
113:
114: # Generate the text needed for a resource chooser given the top level of
115: # the sequence/page
116: #
117: # Parameters:
118: # this_state - State name of the chooser.
119: # prompt_text - Text to use to prompt user.
120: # resource_options - Resource tag options e.g.
121: # "multichoice='1', toponly='1', addstatus='1'"
122: # that control the selection and appearance of the
123: # resource selector.
124: # variable - Name of the variable to hold the choice
125: # next_state - Name of the next state the helper should transition
126: # to
127: # top_url - Top level URL within which to make the selector.
128: # If empty the top level sequence is shown.
129: # filter - How to filter the resources.
130: # value_func - <valuefunc> function.
131: # choice_func - If not empty generates a <choicefunc> with this function.
132: # start_new_option
133: # - Fragment appended after valuefunc.
134: #
135: #
136: sub generate_resource_chooser {
137: my ($this_state,
138: $prompt_text,
139: $resource_options,
140: $variable,
141: $next_state,
142: $top_url,
143: $filter,
144: $choice_func,
145: $value_func,
146: $start_new_option) = @_;
147:
148: my $result = <<CHOOSE_RESOURCES;
149: <state name="$this_state" title="$prompt_text">
150: <resource variable="$variable" $resource_options
151: closeallpages="1">
152: <nextstate>$next_state</nextstate>
153: <filterfunc>return $filter;</filterfunc>
154: CHOOSE_RESOURCES
155: if ($choice_func ne '') {
156: $result .= "<choicefunc>return $choice_func;</choicefunc>";
157: }
158: if ($top_url ne '') {
159: $result .= "<mapurl>$top_url</mapurl>";
160: }
161: $result .= <<CHOOSE_RESOURCES;
162: <valuefunc>return $value_func;</valuefunc>
163: $start_new_option
164: </resource>
165: </state>
166: CHOOSE_RESOURCES
167:
168: return $result;
169: }
170: #
171: # Generate the helper XML for a code choice helper dialog:
172: #
173: # Paramters:
174: # $helper - Reference to the helper.
175: # $state - Name of the state for the chooser.
176: # $next_state - Name fo the state to follow the chooser.
177: # $bubble_types - Populates the bubble sheet type dropt down.
178: # $code_selections - Provides set of code choices that have been used
179: # $saved_codes - Provides the list of saved codes.
180: #
181: # Returns;
182: # The Xml of the code chooser.
183: #
184: sub generate_code_selector {
185: my ($helper,
186: $state,
187: $next_state,
188: $bubble_types,
189: $code_selections,
190: $saved_codes) = @_; # Unpack the parameters.
191:
192: my $result = <<CHOOSE_ANON1;
193: <state name="$state" title="Specify CODEd Assignments">
194: <nextstate>$next_state</nextstate>
195: <message><h4>Fill out one of the forms below</h4></message>
196: <message><br /><hr /> <br /></message>
197: <message><h3>Generate new CODEd Assignments</h3></message>
198: <message><table><tr><td><b>Number of CODEd assignments to print:</b></td><td></message>
199: <string variable="NUMBER_TO_PRINT_TOTAL" maxlength="5" size="5">
200: <validator>
201: if (((\$helper->{'VARS'}{'NUMBER_TO_PRINT_TOTAL'}+0) < 1) &&
202: !\$helper->{'VARS'}{'REUSE_OLD_CODES'} &&
203: !\$helper->{'VARS'}{'SINGLE_CODE'} &&
204: !\$helper->{'VARS'}{'CODE_SELECTED_FROM_LIST'}) {
205: return "You need to specify the number of assignments to print";
206: }
207: return undef;
208: </validator>
209: </string>
210: <message></td></tr><tr><td></message>
211: <message><b>Names to save the CODEs under for later:</b></message>
212: <message></td><td></message>
213: <string variable="ANON_CODE_STORAGE_NAME" maxlength="50" size="20" />
214: <message></td></tr><tr><td></message>
215: <message><b>Bubble sheet type:</b></message>
216: <message></td><td></message>
217: <dropdown variable="CODE_OPTION" multichoice="0" allowempty="0">
218: $bubble_types
219: </dropdown>
220: <message></td></tr><tr><td colspan="2"></td></tr><tr><td></message>
221: <message></td></tr><tr><td></table></message>
222: <message><br /><hr /><h3>Print a Specific CODE </h3><br /><table></message>
223: <message><tr><td><b>Enter a CODE to print:</b></td><td></message>
224: <string variable="SINGLE_CODE" size="10">
225: <validator>
226: if(!\$helper->{'VARS'}{'NUMBER_TO_PRINT_TOTAL'} &&
227: !\$helper->{'VARS'}{'REUSE_OLD_CODES'} &&
228: !\$helper->{'VARS'}{'CODE_SELECTED_FROM_LIST'}) {
229: return &Apache::lonprintout::is_code_valid(\$helper->{'VARS'}{'SINGLE_CODE'},
230: \$helper->{'VARS'}{'CODE_OPTION'});
231: } else {
232: return undef; # Other forces control us.
233: }
234: </validator>
235: </string>
236: <message></td></tr><tr><td></message>
237: $code_selections
238: <message></td></tr></table></message>
239: <message><hr /><h3>Reprint a Set of Saved CODEs</h3><table><tr><td></message>
240: <message><b>Select saved CODEs:</b></message>
241: <message></td><td></message>
242: <dropdown variable="REUSE_OLD_CODES">
243: $saved_codes
244: </dropdown>
245: <message></td></tr></table></message>
246: </state>
247: CHOOSE_ANON1
248:
249: return $result;
250: }
251:
252: #-----------------------------------------------------------------------
253:
1.515 foxr 254:
1.498 foxr 255: # Fetch the contents of a resource, uninterpreted.
256: # This is used here to fetch a latex file to be included
257: # verbatim into the printout<
258: # NOTE: Ask Guy if there is a lonnet function similar to this?
259: #
260: # Parameters:
261: # URL of the file
262: #
263: sub fetch_raw_resource {
264: my ($url) = @_;
265:
266: my $filename = &Apache::lonnet::filelocation("", $url);
1.500 foxr 267: my $contents = &Apache::lonnet::getfile($filename);
1.498 foxr 268:
1.500 foxr 269: if ($contents == -1) {
270: return "File open failed for $filename"; # This will bomb the print.
1.498 foxr 271: }
1.500 foxr 272: return $contents;
1.498 foxr 273:
274:
275: }
276:
1.511 foxr 277: # Fetch the annotations associated with a URL and
278: # put a centered 'annotations:' title.
279: # This is all suppressed if the annotations are empty.
280: #
281: sub annotate {
282: my ($symb) = @_;
283:
1.559 foxr 284: my $annotation_text = &Apache::loncommon::get_annotation($symb, 1);
1.511 foxr 285:
286:
287: my $result = "";
288:
289: if (length($annotation_text) > 0) {
290: $result .= '\\hspace*{\\fill} \\\\[\\baselineskip] \textbf{Annotations:} \\\\ ';
291: $result .= "\n";
292: $result .= &Apache::lonxml::latex_special_symbols($annotation_text,""); # Escape latex.
293: $result .= "\n\n";
294: }
295: return $result;
296: }
297:
1.556 foxr 298: #
299: # Set a global document font size:
300: # This is done by replacing \begin{document}
301: # with \begin{document}{\some-font-directive
302: # and \end{document} with
303: # }\end{document
304: #
305: sub set_font_size {
306:
307: my ($text) = @_;
308:
309: $text =~ s/\\begin{document}/\\begin{document}{\\$font_size/;
310: $text =~ s/\\end{document}/}\\end{document}/;
311: return $text;
312:
313:
314: }
315:
1.550 foxr 316: # include_pdf - PDF files are included into the
317: # output as follows:
318: # - The PDF, if necessary, is replicated.
319: # - The PDF is added to the list of files to convert to postscript (along with the images).
320: # - The LaTeX is added to include the final converted postscript in the file as an included
321: # job. The assumption is that the includedpsheader.ps header will be included.
322: #
323: # Parameters:
324: # pdf_uri - URI of the PDF file to include.
325: #
326: # Returns:
327: # The LaTeX to include.
328: #
329: # Assumptions:
330: # The uri is actually a PDF file
331: # The postscript will have the includepsheader.ps included.
332: #
333: #
334: sub include_pdf {
335: my ($pdf_uri) = @_;
336:
337: # Where is the file? If not local we'll need to repcopy it:'
338:
339: my $file = &Apache::lonnet::filelocation('', $pdf_uri);
340: if (! -e $file) {
341: &Apache::lonnet::repcopy($file);
342: $file = &Apache::lonnet::filelocation('',$pdf_uri);
343: }
344:
345: # The file isn ow replicated locally.. or it did not exist in the first place
346: # (unlikely). If it did exist, add the pdf to the set of files/images that
347: # need tob e converted for this print job:
348:
349: $file =~ s|(.*)/res/|/home/httpd/html/res/|;
350:
351: open(FILE,">>/home/httpd/prtspool/$env{'user.name'}_$env{'user.domain'}_printout.dat");
352: print FILE ("$file\n");
353: close (FILE);
354:
355: # Construct the special to put out. To do this we need to get the
356: # resulting filename after conversion. The file will have the same name
357: # but will be in the user's spool directory with converted images.
358:
359: my $dirname = "/home/httpd/prtspool/$env{'user.name'}/";
360: my ( $base, $path, $ext) = &fileparse($file, '.pdf');
361: # my $destname = $dirname.'/'.$base.'.eps'; # Not really an eps but easier in printout.pl
362: $base =~ s/ /\_/g;
363:
364:
1.551 foxr 365: my $output = &print_latex_header();
1.550 foxr 366: $output .= '\special{ps: _begin_job_ ('
367: .$base.'.pdf.eps'.
368: ')run _end_job_}';
369:
370: return $output;
371:
372:
373: }
374:
1.515 foxr 375:
376: #
1.559 foxr 377: # ssi_with_retries- Does the server side include of a resource.
1.515 foxr 378: # if the ssi call returns an error we'll retry it up to
379: # the number of times requested by the caller.
380: # If we still have a proble, no text is appended to the
381: # output and we set some global variables.
1.523 raeburn 382: # to indicate to the caller an SSI error occurred.
1.515 foxr 383: # All of this is supposed to deal with the issues described
384: # in LonCAPA BZ 5631 see:
385: # http://bugs.lon-capa.org/show_bug.cgi?id=5631
386: # by informing the user that this happened.
387: #
388: # Parameters:
389: # resource - The resource to include. This is passed directly, without
390: # interpretation to lonnet::ssi.
391: # form - The form hash parameters that guide the interpretation of the resource
392: #
393: # retries - Number of retries allowed before giving up completely.
394: # Returns:
395: # On success, returns the rendered resource identified by the resource parameter.
396: # Side Effects:
397: # The following global variables can be set:
1.523 raeburn 398: # ssi_error - If an unrecoverable error occurred this becomes true.
1.515 foxr 399: # It is up to the caller to initialize this to false
400: # if desired.
1.523 raeburn 401: # ssi_last_error_resource - If an unrecoverable error occurred, this is the value
1.515 foxr 402: # of the resource that could not be rendered by the ssi
403: # call.
404: # ssi_last_error - The error string fetched from the ssi response
405: # in the event of an error.
406: #
407: sub ssi_with_retries {
408: my ($resource, $retries, %form) = @_;
409:
1.559 foxr 410: my $target = $form{'grade_target'};
411: my $aom = $form{'answer_output_mode'};
412:
413:
1.515 foxr 414:
1.516 foxr 415: my ($content, $response) = &Apache::loncommon::ssi_with_retries($resource, $retries, %form);
416: if (!$response->is_success) {
1.515 foxr 417: $ssi_error = 1;
418: $ssi_last_error_resource = $resource;
1.516 foxr 419: $ssi_last_error = $response->code . " " . $response->message;
1.528 raeburn 420: $content='\section*{!!! An error occurred !!!}';
1.519 foxr 421: &Apache::lonnet::logthis("Error in SSI resource: $resource Error: $ssi_last_error");
1.515 foxr 422: }
1.516 foxr 423:
424: return $content;
425:
1.515 foxr 426: }
427:
1.524 www 428: sub get_student_view_with_retries {
429: my ($curresline,$retries,$username,$userdomain,$courseid,$target,$moreenv)=@_;
430:
431: my ($content, $response) = &Apache::loncommon::get_student_view_with_retries($curresline,$retries,$username,$userdomain,$courseid,$target,$moreenv);
432: if (!$response->is_success) {
433: $ssi_error = 1;
1.526 www 434: $ssi_last_error_resource = $curresline.' for user '.$username.':'.$userdomain;
1.524 www 435: $ssi_last_error = $response->code . " " . $response->message;
1.528 raeburn 436: $content='\section*{!!! An error occurred !!!}';
1.526 www 437: &Apache::lonnet::logthis("Error in SSI (student view) resource: $curresline Error: $ssi_last_error User: $username:$userdomain");
1.524 www 438: }
439: return $content;
440:
441: }
442:
1.486 foxr 443: #
444: # printf_style_subst item format_string repl
445: #
446: # Does printf style substitution for a format string that
447: # can have %[n]item in it.. wherever, %[n]item occurs,
448: # rep is substituted in format_string. Note that
449: # [n] is an optional integer length. If provided,
450: # repl is truncated to at most [n] characters prior to
451: # substitution.
452: #
453: sub printf_style_subst {
454: my ($item, $format_string, $repl) = @_;
1.490 foxr 455: my $result = "";
456: while ($format_string =~ /(%)(\d*)\Q$item\E/g ) {
1.488 albertel 457: my $fmt = $1;
458: my $size = $2;
1.486 foxr 459: my $subst = $repl;
460: if ($size ne "") {
461: $subst = substr($subst, 0, $size);
1.490 foxr 462:
463: # Here's a nice edge case.. supose the end of the
464: # substring is a \. In that case may have just
465: # chopped off a TeX escape... in that case, we append
466: # " " for the trailing character, and let the field
467: # spill over a bit (sigh).
468: # We don't just chop off the last character in order to deal
469: # with one last pathology, and that would be if substr had
470: # trimmed us to e.g. \\\
471:
472:
473: if ($subst =~ /\\$/) {
474: $subst .= " ";
475: }
1.486 foxr 476: }
1.490 foxr 477: my $item_pos = pos($format_string);
478: $result .= substr($format_string, 0, $item_pos - length($size) -2) . $subst;
479: $format_string = substr($format_string, pos($format_string));
1.486 foxr 480: }
1.490 foxr 481:
482: # Put the residual format string into the result:
483:
484: $result .= $format_string;
485:
486: return $result;
1.486 foxr 487: }
488:
1.454 foxr 489:
490: # Format a header according to a format.
491: #
492:
493: # Substitutions:
494: # %a - Assignment name.
495: # %c - Course name.
496: # %n - Student name.
1.537 foxr 497: # %s - The section if it is supplied.
1.454 foxr 498: #
499: sub format_page_header {
1.537 foxr 500: my ($width, $format, $assignment, $course, $student, $section) = @_;
501:
1.565 foxr 502:
503:
1.486 foxr 504: $width = &recalcto_mm($width); # Get width in mm.
1.565 foxr 505: my $chars_per_line = int($width/1.6); # Character/textline.
506:
1.454 foxr 507: # Default format?
508:
509: if ($format eq '') {
1.486 foxr 510: # For the default format, we may need to truncate
511: # elements.. To do this we need to get the page width.
512: # we assume that each character is about 2mm in width.
513: # (correct for the header text size??). We ignore
514: # any formatting (e.g. boldfacing in this).
515: #
516: # - Allow the student/course to be one line.
517: # but only truncate the course.
518: # - Allow the assignment to be 2 lines (wrapped).
519: #
1.565 foxr 520:
1.537 foxr 521:
522:
523: my $name_length = int($chars_per_line *3 /4);
524: my $sec_length = int($chars_per_line / 5);
1.486 foxr 525:
1.537 foxr 526: $format = "%$name_length".'n';
1.486 foxr 527:
1.537 foxr 528: if ($section) {
529: $format .= ' - Sec: '."%$sec_length".'s';
1.486 foxr 530: }
1.489 foxr 531:
1.537 foxr 532: $format .= '\\\\%c \\\\ %a';
533:
1.490 foxr 534:
1.454 foxr 535: }
1.537 foxr 536: # An open question is how to handle long user formatted page headers...
537: # A possible future is to support e.g. %na so that the user can control
538: # the truncation of the elements that can appear in the header.
539: #
540: $format = &printf_style_subst("a", $format, $assignment);
541: $format = &printf_style_subst("c", $format, $course);
542: $format = &printf_style_subst("n", $format, $student);
543: $format = &printf_style_subst("s", $format, $section);
544:
545:
546: # If the user put %'s in the format string, they must be escaped
547: # to \% else LaTeX will think they are comments and terminate
548: # the line.. which is bad!!!
549:
1.538 onken 550: # If the user has role author, $course and $assignment are empty so
551: # there is '\\ \\ ' in the page header. That's cause a error in LaTeX
552: if($format =~ /\\\\\s\\\\\s/) {
553: #TODO find sensible caption for page header
554: my $testPrintout = '\\\\'.&mt('Construction Space').' \\\\'.&mt('Test-Printout ');
555: $format =~ s/\\\\\s\\\\\s/$testPrintout/;
556: }
1.565 foxr 557: #
558: # We're going to trust LaTeX to break lines appropriately, but
559: # we'll truncate anything that's more than 3 lines worth of
560: # text. This is also assuming (which will probably end badly)
561: # nobody's going to embed LaTeX control sequences in the title
562: # header or rather that those control sequences won't get broken
563: # by the stuff below.
564: #
565: my $total_length = 3*$chars_per_line;
566: if (length($format) > $total_length) {
567: $format = substr($format, 0, $total_length);
568: }
569:
1.454 foxr 570:
571: return $format;
572:
573: }
1.397 albertel 574:
1.385 foxr 575: #
576: # Convert a numeric code to letters
577: #
578: sub num_to_letters {
579: my ($num) = @_;
580: my @nums= split('',$num);
581: my @num_to_let=('A'..'Z');
582: my $word;
583: foreach my $digit (@nums) { $word.=$num_to_let[$digit]; }
584: return $word;
585: }
586: # Convert a letter code to numeric.
587: #
588: sub letters_to_num {
589: my ($letters) = @_;
590: my @letters = split('', uc($letters));
1.490 foxr 591: my %substitution;
1.385 foxr 592: my $digit = 0;
593: foreach my $letter ('A'..'J') {
594: $substitution{$letter} = $digit;
595: $digit++;
596: }
597: # The substitution is done as below to preserve leading
598: # zeroes which are needed to keep the code size exact
599: #
600: my $result ="";
601: foreach my $letter (@letters) {
602: $result.=$substitution{$letter};
603: }
604: return $result;
605: }
606:
1.383 foxr 607: # Determine if a code is a valid numeric code. Valid
608: # numeric codes must be comprised entirely of digits and
1.384 albertel 609: # have a correct number of digits.
1.383 foxr 610: #
611: # Parameters:
612: # value - proposed code value.
1.384 albertel 613: # num_digits - Number of digits required.
1.383 foxr 614: #
615: sub is_valid_numeric_code {
1.384 albertel 616: my ($value, $num_digits) = @_;
1.383 foxr 617: # Remove leading/trailing whitespace;
1.387 foxr 618: $value =~ s/^\s*//g;
619: $value =~ s/\s*$//g;
1.383 foxr 620:
621: # All digits?
1.387 foxr 622: if ($value !~ /^[0-9]+$/) {
1.383 foxr 623: return "Numeric code $value has invalid characters - must only be digits";
624: }
1.384 albertel 625: if (length($value) != $num_digits) {
626: return "Numeric code $value incorrect number of digits (correct = $num_digits)";
627: }
1.385 foxr 628: return undef;
1.383 foxr 629: }
630: # Determines if a code is a valid alhpa code. Alpha codes
631: # are ciphers that map [A-J,a-j] -> 0..9 0..9.
1.384 albertel 632: # They also have a correct digit count.
1.383 foxr 633: # Parameters:
634: # value - Proposed code value.
1.384 albertel 635: # num_letters - correct number of letters.
1.383 foxr 636: # Note:
637: # leading and trailing whitespace are ignored.
638: #
639: sub is_valid_alpha_code {
1.384 albertel 640: my ($value, $num_letters) = @_;
1.383 foxr 641:
642: # strip leading and trailing spaces.
643:
644: $value =~ s/^\s*//g;
645: $value =~ s/\s*$//g;
646:
647: # All alphas in the right range?
1.384 albertel 648: if ($value !~ /^[A-J,a-j]+$/) {
1.383 foxr 649: return "Invalid letter code $value must only contain A-J";
650: }
1.384 albertel 651: if (length($value) != $num_letters) {
652: return "Letter code $value has incorrect number of letters (correct = $num_letters)";
653: }
1.385 foxr 654: return undef;
1.383 foxr 655: }
656:
1.382 foxr 657: # Determine if a code entered by the user in a helper is valid.
658: # valid depends on the code type and the type of code selected.
659: # The type of code selected can either be numeric or
660: # Alphabetic. If alphabetic, the code, in fact is a simple
661: # substitution cipher for the actual numeric code: 0->A, 1->B ...
662: # We'll be nice and be case insensitive for alpha codes.
663: # Parameters:
664: # code_value - the value of the code the user typed in.
665: # code_option - The code type selected from the set in the scantron format
666: # table.
667: # Returns:
668: # undef - The code is valid.
669: # other - An error message indicating what's wrong.
670: #
671: sub is_code_valid {
672: my ($code_value, $code_option) = @_;
1.383 foxr 673: my ($code_type, $code_length) = ('letter', 6); # defaults.
1.542 raeburn 674: my @lines = &Apache::grades::get_scantronformat_file();
675: foreach my $line (@lines) {
1.383 foxr 676: my ($name, $type, $length) = (split(/:/, $line))[0,2,4];
677: if($name eq $code_option) {
678: $code_length = $length;
679: if($type eq 'number') {
680: $code_type = 'number';
681: }
682: }
683: }
684: my $valid;
685: if ($code_type eq 'number') {
1.385 foxr 686: return &is_valid_numeric_code($code_value, $code_length);
1.383 foxr 687: } else {
1.385 foxr 688: return &is_valid_alpha_code($code_value, $code_length);
1.383 foxr 689: }
1.382 foxr 690:
691: }
692:
1.341 foxr 693: # Compare two students by name. The students are in the form
694: # returned by the helper:
695: # user:domain:section:last, first:status
696: # This is a helper function for the perl sort built-in therefore:
697: # Implicit Inputs:
698: # $a - The first element to compare (global)
699: # $b - The second element to compare (global)
700: # Returns:
701: # -1 - $a < $b
702: # 0 - $a == $b
703: # +1 - $a > $b
704: # Note that the initial comparison is done on the last names with the
705: # first names only used to break the tie.
706: #
707: #
708: sub compare_names {
709: # First split the names up into the primary fields.
710:
711: my ($u1, $d1, $s1, $n1, $stat1) = split(/:/, $a);
712: my ($u2, $d2, $s2, $n2, $stat2) = split(/:/, $b);
713:
714: # Now split the last name and first name of each n:
715: #
716:
717: my ($l1,$f1) = split(/,/, $n1);
718: my ($l2,$f2) = split(/,/, $n2);
719:
720: # We don't bother to remove the leading/trailing whitespace from the
721: # firstname, unless the last names compare identical.
722:
723: if($l1 lt $l2) {
724: return -1;
725: }
726: if($l1 gt $l2) {
727: return 1;
728: }
729:
730: # Break the tie on the first name, but there are leading (possibly trailing
731: # whitespaces to get rid of first
732: #
733: $f1 =~ s/^\s+//; # Remove leading...
734: $f1 =~ s/\s+$//; # Trailing spaces from first 1...
735:
736: $f2 =~ s/^\s+//;
737: $f2 =~ s/\s+$//; # And the same for first 2...
738:
739: if($f1 lt $f2) {
740: return -1;
741: }
742: if($f1 gt $f2) {
743: return 1;
744: }
745:
746: # Must be the same name.
747:
748: return 0;
749: }
750:
1.71 sakharuk 751: sub latex_header_footer_remove {
752: my $text = shift;
753: $text =~ s/\\end{document}//;
754: $text =~ s/\\documentclass([^&]*)\\begin{document}//;
755: return $text;
756: }
1.423 foxr 757: #
758: # If necessary, encapsulate text inside
759: # a minipage env.
760: # necessity is determined by the problem_split param.
761: #
762: sub encapsulate_minipage {
763: my ($text) = @_;
1.427 albertel 764: if (!($env{'form.problem.split'} =~ /yes/i)) {
1.423 foxr 765: $text = '\begin{minipage}{\textwidth}'.$text.'\end{minipage}';
766: }
767: return $text;
768: }
1.429 foxr 769: #
770: # The NUMBER_TO_PRINT and SPLIT_PDFS
771: # variables interact, this sub looks at these two parameters
772: # and comes up with a final value for NUMBER_TO_PRINT which can be:
773: # all - if SPLIT_PDFS eq 'all'.
774: # 1 - if SPLIT_PDFS eq 'oneper'
775: # section - if SPLIT_PDFS eq 'sections'
776: # <unchanged> - if SPLIT_PDFS eq 'usenumber'
777: #
778: sub adjust_number_to_print {
779: my $helper = shift;
1.71 sakharuk 780:
1.429 foxr 781: my $split_pdf = $helper->{'VARS'}->{'SPLIT_PDFS'};
782:
783: if ($split_pdf eq 'all') {
784: $helper->{'VARS'}->{'NUMBER_TO_PRINT'} = 'all';
785: } elsif ($split_pdf eq 'oneper') {
786: $helper->{'VARS'}->{'NUMBER_TO_PRINT'} = 1;
787: } elsif ($split_pdf eq 'sections') {
788: $helper->{'VARS'}->{'NUMBER_TO_PRINT'} = 'section';
789: } elsif ($split_pdf eq 'usenumber') {
790: # Unmodified.
791: } else {
792: # Error!!!!
1.536 foxr 793:
794: croak "bad SPLIT_PDFS: $split_pdf in lonprintout::adjust_number_to_print";
1.429 foxr 795:
796: }
797: }
1.71 sakharuk 798:
1.531 foxr 799:
1.37 sakharuk 800: sub character_chart {
1.531 foxr 801: my $result = shift;
802: return &Apache::entities::replace_entities($result);
803: }
804:
805: sub old_character_chart {
1.37 sakharuk 806: my $result = shift;
1.116 sakharuk 807: $result =~ s/&\#0?0?(7|9);//g;
808: $result =~ s/&\#0?(10|13);//g;
809: $result =~ s/&\#0?32;/ /g;
810: $result =~ s/&\#0?33;/!/g;
811: $result =~ s/&(\#0?34|quot);/\"/g;
812: $result =~ s/&\#0?35;/\\\#/g;
813: $result =~ s/&\#0?36;/\\\$/g;
814: $result =~ s/&\#0?37;/\\%/g;
815: $result =~ s/&(\#0?38|amp);/\\&/g;
816: $result =~ s/&\#(0?39|146);/\'/g;
817: $result =~ s/&\#0?40;/(/g;
818: $result =~ s/&\#0?41;/)/g;
819: $result =~ s/&\#0?42;/\*/g;
820: $result =~ s/&\#0?43;/\+/g;
821: $result =~ s/&\#(0?44|130);/,/g;
822: $result =~ s/&\#0?45;/-/g;
823: $result =~ s/&\#0?46;/\./g;
824: $result =~ s/&\#0?47;/\//g;
825: $result =~ s/&\#0?48;/0/g;
826: $result =~ s/&\#0?49;/1/g;
827: $result =~ s/&\#0?50;/2/g;
828: $result =~ s/&\#0?51;/3/g;
829: $result =~ s/&\#0?52;/4/g;
830: $result =~ s/&\#0?53;/5/g;
831: $result =~ s/&\#0?54;/6/g;
832: $result =~ s/&\#0?55;/7/g;
833: $result =~ s/&\#0?56;/8/g;
834: $result =~ s/&\#0?57;/9/g;
1.269 albertel 835: $result =~ s/&\#0?58;/:/g;
1.116 sakharuk 836: $result =~ s/&\#0?59;/;/g;
837: $result =~ s/&(\#0?60|lt|\#139);/\$<\$/g;
1.281 sakharuk 838: $result =~ s/&\#0?61;/\\ensuremath\{=\}/g;
839: $result =~ s/&(\#0?62|gt|\#155);/\\ensuremath\{>\}/g;
1.116 sakharuk 840: $result =~ s/&\#0?63;/\?/g;
841: $result =~ s/&\#0?65;/A/g;
842: $result =~ s/&\#0?66;/B/g;
843: $result =~ s/&\#0?67;/C/g;
844: $result =~ s/&\#0?68;/D/g;
845: $result =~ s/&\#0?69;/E/g;
846: $result =~ s/&\#0?70;/F/g;
847: $result =~ s/&\#0?71;/G/g;
848: $result =~ s/&\#0?72;/H/g;
849: $result =~ s/&\#0?73;/I/g;
850: $result =~ s/&\#0?74;/J/g;
851: $result =~ s/&\#0?75;/K/g;
852: $result =~ s/&\#0?76;/L/g;
853: $result =~ s/&\#0?77;/M/g;
854: $result =~ s/&\#0?78;/N/g;
855: $result =~ s/&\#0?79;/O/g;
856: $result =~ s/&\#0?80;/P/g;
857: $result =~ s/&\#0?81;/Q/g;
858: $result =~ s/&\#0?82;/R/g;
859: $result =~ s/&\#0?83;/S/g;
860: $result =~ s/&\#0?84;/T/g;
861: $result =~ s/&\#0?85;/U/g;
862: $result =~ s/&\#0?86;/V/g;
863: $result =~ s/&\#0?87;/W/g;
864: $result =~ s/&\#0?88;/X/g;
865: $result =~ s/&\#0?89;/Y/g;
866: $result =~ s/&\#0?90;/Z/g;
867: $result =~ s/&\#0?91;/[/g;
1.281 sakharuk 868: $result =~ s/&\#0?92;/\\ensuremath\{\\setminus\}/g;
1.116 sakharuk 869: $result =~ s/&\#0?93;/]/g;
1.281 sakharuk 870: $result =~ s/&\#(0?94|136);/\\ensuremath\{\\wedge\}/g;
1.116 sakharuk 871: $result =~ s/&\#(0?95|138|154);/\\underline{\\makebox[2mm]{\\strut}}/g;
872: $result =~ s/&\#(0?96|145);/\`/g;
873: $result =~ s/&\#0?97;/a/g;
874: $result =~ s/&\#0?98;/b/g;
875: $result =~ s/&\#0?99;/c/g;
876: $result =~ s/&\#100;/d/g;
877: $result =~ s/&\#101;/e/g;
878: $result =~ s/&\#102;/f/g;
879: $result =~ s/&\#103;/g/g;
880: $result =~ s/&\#104;/h/g;
881: $result =~ s/&\#105;/i/g;
882: $result =~ s/&\#106;/j/g;
883: $result =~ s/&\#107;/k/g;
884: $result =~ s/&\#108;/l/g;
885: $result =~ s/&\#109;/m/g;
886: $result =~ s/&\#110;/n/g;
887: $result =~ s/&\#111;/o/g;
888: $result =~ s/&\#112;/p/g;
889: $result =~ s/&\#113;/q/g;
890: $result =~ s/&\#114;/r/g;
891: $result =~ s/&\#115;/s/g;
892: $result =~ s/&\#116;/t/g;
893: $result =~ s/&\#117;/u/g;
894: $result =~ s/&\#118;/v/g;
895: $result =~ s/&\#119;/w/g;
896: $result =~ s/&\#120;/x/g;
897: $result =~ s/&\#121;/y/g;
898: $result =~ s/&\#122;/z/g;
899: $result =~ s/&\#123;/\\{/g;
900: $result =~ s/&\#124;/\|/g;
901: $result =~ s/&\#125;/\\}/g;
902: $result =~ s/&\#126;/\~/g;
903: $result =~ s/&\#131;/\\textflorin /g;
904: $result =~ s/&\#132;/\"/g;
1.281 sakharuk 905: $result =~ s/&\#133;/\\ensuremath\{\\ldots\}/g;
906: $result =~ s/&\#134;/\\ensuremath\{\\dagger\}/g;
907: $result =~ s/&\#135;/\\ensuremath\{\\ddagger\}/g;
1.116 sakharuk 908: $result =~ s/&\#137;/\\textperthousand /g;
909: $result =~ s/&\#140;/{\\OE}/g;
910: $result =~ s/&\#147;/\`\`/g;
911: $result =~ s/&\#148;/\'\'/g;
1.281 sakharuk 912: $result =~ s/&\#149;/\\ensuremath\{\\bullet\}/g;
1.494 albertel 913: $result =~ s/&(\#150|\#8211);/--/g;
1.116 sakharuk 914: $result =~ s/&\#151;/---/g;
1.281 sakharuk 915: $result =~ s/&\#152;/\\ensuremath\{\\sim\}/g;
1.116 sakharuk 916: $result =~ s/&\#153;/\\texttrademark /g;
917: $result =~ s/&\#156;/\\oe/g;
918: $result =~ s/&\#159;/\\\"Y/g;
1.283 albertel 919: $result =~ s/&(\#160|nbsp);/~/g;
1.116 sakharuk 920: $result =~ s/&(\#161|iexcl);/!\`/g;
921: $result =~ s/&(\#162|cent);/\\textcent /g;
922: $result =~ s/&(\#163|pound);/\\pounds /g;
923: $result =~ s/&(\#164|curren);/\\textcurrency /g;
924: $result =~ s/&(\#165|yen);/\\textyen /g;
925: $result =~ s/&(\#166|brvbar);/\\textbrokenbar /g;
926: $result =~ s/&(\#167|sect);/\\textsection /g;
1.530 foxr 927: $result =~ s/&(\#168|uml);/\\"\{\} /g;
1.116 sakharuk 928: $result =~ s/&(\#169|copy);/\\copyright /g;
929: $result =~ s/&(\#170|ordf);/\\textordfeminine /g;
1.281 sakharuk 930: $result =~ s/&(\#172|not);/\\ensuremath\{\\neg\}/g;
1.116 sakharuk 931: $result =~ s/&(\#173|shy);/ - /g;
932: $result =~ s/&(\#174|reg);/\\textregistered /g;
1.281 sakharuk 933: $result =~ s/&(\#175|macr);/\\ensuremath\{^{-}\}/g;
934: $result =~ s/&(\#176|deg);/\\ensuremath\{^{\\circ}\}/g;
935: $result =~ s/&(\#177|plusmn);/\\ensuremath\{\\pm\}/g;
936: $result =~ s/&(\#178|sup2);/\\ensuremath\{^2\}/g;
937: $result =~ s/&(\#179|sup3);/\\ensuremath\{^3\}/g;
1.530 foxr 938: $result =~ s/&(\#180|acute);/\\'\{\} /g;
1.281 sakharuk 939: $result =~ s/&(\#181|micro);/\\ensuremath\{\\mu\}/g;
1.116 sakharuk 940: $result =~ s/&(\#182|para);/\\P/g;
1.281 sakharuk 941: $result =~ s/&(\#183|middot);/\\ensuremath\{\\cdot\}/g;
1.116 sakharuk 942: $result =~ s/&(\#184|cedil);/\\c{\\strut}/g;
1.281 sakharuk 943: $result =~ s/&(\#185|sup1);/\\ensuremath\{^1\}/g;
1.116 sakharuk 944: $result =~ s/&(\#186|ordm);/\\textordmasculine /g;
945: $result =~ s/&(\#188|frac14);/\\textonequarter /g;
946: $result =~ s/&(\#189|frac12);/\\textonehalf /g;
947: $result =~ s/&(\#190|frac34);/\\textthreequarters /g;
948: $result =~ s/&(\#191|iquest);/?\`/g;
949: $result =~ s/&(\#192|Agrave);/\\\`{A}/g;
950: $result =~ s/&(\#193|Aacute);/\\\'{A}/g;
951: $result =~ s/&(\#194|Acirc);/\\^{A}/g;
952: $result =~ s/&(\#195|Atilde);/\\~{A}/g;
953: $result =~ s/&(\#196|Auml);/\\\"{A}/g;
954: $result =~ s/&(\#197|Aring);/{\\AA}/g;
955: $result =~ s/&(\#198|AElig);/{\\AE}/g;
956: $result =~ s/&(\#199|Ccedil);/\\c{c}/g;
957: $result =~ s/&(\#200|Egrave);/\\\`{E}/g;
958: $result =~ s/&(\#201|Eacute);/\\\'{E}/g;
959: $result =~ s/&(\#202|Ecirc);/\\^{E}/g;
960: $result =~ s/&(\#203|Euml);/\\\"{E}/g;
961: $result =~ s/&(\#204|Igrave);/\\\`{I}/g;
962: $result =~ s/&(\#205|Iacute);/\\\'{I}/g;
963: $result =~ s/&(\#206|Icirc);/\\^{I}/g;
964: $result =~ s/&(\#207|Iuml);/\\\"{I}/g;
965: $result =~ s/&(\#209|Ntilde);/\\~{N}/g;
966: $result =~ s/&(\#210|Ograve);/\\\`{O}/g;
967: $result =~ s/&(\#211|Oacute);/\\\'{O}/g;
968: $result =~ s/&(\#212|Ocirc);/\\^{O}/g;
969: $result =~ s/&(\#213|Otilde);/\\~{O}/g;
970: $result =~ s/&(\#214|Ouml);/\\\"{O}/g;
1.281 sakharuk 971: $result =~ s/&(\#215|times);/\\ensuremath\{\\times\}/g;
1.116 sakharuk 972: $result =~ s/&(\#216|Oslash);/{\\O}/g;
973: $result =~ s/&(\#217|Ugrave);/\\\`{U}/g;
974: $result =~ s/&(\#218|Uacute);/\\\'{U}/g;
975: $result =~ s/&(\#219|Ucirc);/\\^{U}/g;
976: $result =~ s/&(\#220|Uuml);/\\\"{U}/g;
977: $result =~ s/&(\#221|Yacute);/\\\'{Y}/g;
1.329 sakharuk 978: $result =~ s/&(\#223|szlig);/{\\ss}/g;
1.116 sakharuk 979: $result =~ s/&(\#224|agrave);/\\\`{a}/g;
980: $result =~ s/&(\#225|aacute);/\\\'{a}/g;
981: $result =~ s/&(\#226|acirc);/\\^{a}/g;
982: $result =~ s/&(\#227|atilde);/\\~{a}/g;
983: $result =~ s/&(\#228|auml);/\\\"{a}/g;
984: $result =~ s/&(\#229|aring);/{\\aa}/g;
985: $result =~ s/&(\#230|aelig);/{\\ae}/g;
986: $result =~ s/&(\#231|ccedil);/\\c{c}/g;
987: $result =~ s/&(\#232|egrave);/\\\`{e}/g;
988: $result =~ s/&(\#233|eacute);/\\\'{e}/g;
989: $result =~ s/&(\#234|ecirc);/\\^{e}/g;
990: $result =~ s/&(\#235|euml);/\\\"{e}/g;
991: $result =~ s/&(\#236|igrave);/\\\`{i}/g;
992: $result =~ s/&(\#237|iacute);/\\\'{i}/g;
993: $result =~ s/&(\#238|icirc);/\\^{i}/g;
994: $result =~ s/&(\#239|iuml);/\\\"{i}/g;
1.281 sakharuk 995: $result =~ s/&(\#240|eth);/\\ensuremath\{\\partial\}/g;
1.116 sakharuk 996: $result =~ s/&(\#241|ntilde);/\\~{n}/g;
997: $result =~ s/&(\#242|ograve);/\\\`{o}/g;
998: $result =~ s/&(\#243|oacute);/\\\'{o}/g;
999: $result =~ s/&(\#244|ocirc);/\\^{o}/g;
1000: $result =~ s/&(\#245|otilde);/\\~{o}/g;
1001: $result =~ s/&(\#246|ouml);/\\\"{o}/g;
1.281 sakharuk 1002: $result =~ s/&(\#247|divide);/\\ensuremath\{\\div\}/g;
1.116 sakharuk 1003: $result =~ s/&(\#248|oslash);/{\\o}/g;
1004: $result =~ s/&(\#249|ugrave);/\\\`{u}/g;
1005: $result =~ s/&(\#250|uacute);/\\\'{u}/g;
1006: $result =~ s/&(\#251|ucirc);/\\^{u}/g;
1007: $result =~ s/&(\#252|uuml);/\\\"{u}/g;
1008: $result =~ s/&(\#253|yacute);/\\\'{y}/g;
1009: $result =~ s/&(\#255|yuml);/\\\"{y}/g;
1.399 albertel 1010: $result =~ s/&\#295;/\\ensuremath\{\\hbar\}/g;
1.281 sakharuk 1011: $result =~ s/&\#952;/\\ensuremath\{\\theta\}/g;
1.117 sakharuk 1012: #Greek Alphabet
1.281 sakharuk 1013: $result =~ s/&(alpha|\#945);/\\ensuremath\{\\alpha\}/g;
1014: $result =~ s/&(beta|\#946);/\\ensuremath\{\\beta\}/g;
1015: $result =~ s/&(gamma|\#947);/\\ensuremath\{\\gamma\}/g;
1016: $result =~ s/&(delta|\#948);/\\ensuremath\{\\delta\}/g;
1017: $result =~ s/&(epsilon|\#949);/\\ensuremath\{\\epsilon\}/g;
1018: $result =~ s/&(zeta|\#950);/\\ensuremath\{\\zeta\}/g;
1019: $result =~ s/&(eta|\#951);/\\ensuremath\{\\eta\}/g;
1020: $result =~ s/&(theta|\#952);/\\ensuremath\{\\theta\}/g;
1021: $result =~ s/&(iota|\#953);/\\ensuremath\{\\iota\}/g;
1022: $result =~ s/&(kappa|\#954);/\\ensuremath\{\\kappa\}/g;
1023: $result =~ s/&(lambda|\#955);/\\ensuremath\{\\lambda\}/g;
1024: $result =~ s/&(mu|\#956);/\\ensuremath\{\\mu\}/g;
1025: $result =~ s/&(nu|\#957);/\\ensuremath\{\\nu\}/g;
1026: $result =~ s/&(xi|\#958);/\\ensuremath\{\\xi\}/g;
1.199 sakharuk 1027: $result =~ s/&(omicron|\#959);/o/g;
1.281 sakharuk 1028: $result =~ s/&(pi|\#960);/\\ensuremath\{\\pi\}/g;
1029: $result =~ s/&(rho|\#961);/\\ensuremath\{\\rho\}/g;
1030: $result =~ s/&(sigma|\#963);/\\ensuremath\{\\sigma\}/g;
1031: $result =~ s/&(tau|\#964);/\\ensuremath\{\\tau\}/g;
1032: $result =~ s/&(upsilon|\#965);/\\ensuremath\{\\upsilon\}/g;
1033: $result =~ s/&(phi|\#966);/\\ensuremath\{\\phi\}/g;
1034: $result =~ s/&(chi|\#967);/\\ensuremath\{\\chi\}/g;
1035: $result =~ s/&(psi|\#968);/\\ensuremath\{\\psi\}/g;
1036: $result =~ s/&(omega|\#969);/\\ensuremath\{\\omega\}/g;
1037: $result =~ s/&(thetasym|\#977);/\\ensuremath\{\\vartheta\}/g;
1038: $result =~ s/&(piv|\#982);/\\ensuremath\{\\varpi\}/g;
1.199 sakharuk 1039: $result =~ s/&(Alpha|\#913);/A/g;
1040: $result =~ s/&(Beta|\#914);/B/g;
1.281 sakharuk 1041: $result =~ s/&(Gamma|\#915);/\\ensuremath\{\\Gamma\}/g;
1042: $result =~ s/&(Delta|\#916);/\\ensuremath\{\\Delta\}/g;
1.199 sakharuk 1043: $result =~ s/&(Epsilon|\#917);/E/g;
1044: $result =~ s/&(Zeta|\#918);/Z/g;
1045: $result =~ s/&(Eta|\#919);/H/g;
1.281 sakharuk 1046: $result =~ s/&(Theta|\#920);/\\ensuremath\{\\Theta\}/g;
1.199 sakharuk 1047: $result =~ s/&(Iota|\#921);/I/g;
1048: $result =~ s/&(Kappa|\#922);/K/g;
1.281 sakharuk 1049: $result =~ s/&(Lambda|\#923);/\\ensuremath\{\\Lambda\}/g;
1.199 sakharuk 1050: $result =~ s/&(Mu|\#924);/M/g;
1051: $result =~ s/&(Nu|\#925);/N/g;
1.281 sakharuk 1052: $result =~ s/&(Xi|\#926);/\\ensuremath\{\\Xi\}/g;
1.199 sakharuk 1053: $result =~ s/&(Omicron|\#927);/O/g;
1.281 sakharuk 1054: $result =~ s/&(Pi|\#928);/\\ensuremath\{\\Pi\}/g;
1.199 sakharuk 1055: $result =~ s/&(Rho|\#929);/P/g;
1.281 sakharuk 1056: $result =~ s/&(Sigma|\#931);/\\ensuremath\{\\Sigma\}/g;
1.199 sakharuk 1057: $result =~ s/&(Tau|\#932);/T/g;
1.281 sakharuk 1058: $result =~ s/&(Upsilon|\#933);/\\ensuremath\{\\Upsilon\}/g;
1059: $result =~ s/&(Phi|\#934);/\\ensuremath\{\\Phi\}/g;
1.199 sakharuk 1060: $result =~ s/&(Chi|\#935);/X/g;
1.281 sakharuk 1061: $result =~ s/&(Psi|\#936);/\\ensuremath\{\\Psi\}/g;
1062: $result =~ s/&(Omega|\#937);/\\ensuremath\{\\Omega\}/g;
1.199 sakharuk 1063: #Arrows (extended HTML 4.01)
1.281 sakharuk 1064: $result =~ s/&(larr|\#8592);/\\ensuremath\{\\leftarrow\}/g;
1065: $result =~ s/&(uarr|\#8593);/\\ensuremath\{\\uparrow\}/g;
1066: $result =~ s/&(rarr|\#8594);/\\ensuremath\{\\rightarrow\}/g;
1067: $result =~ s/&(darr|\#8595);/\\ensuremath\{\\downarrow\}/g;
1068: $result =~ s/&(harr|\#8596);/\\ensuremath\{\\leftrightarrow\}/g;
1069: $result =~ s/&(lArr|\#8656);/\\ensuremath\{\\Leftarrow\}/g;
1070: $result =~ s/&(uArr|\#8657);/\\ensuremath\{\\Uparrow\}/g;
1071: $result =~ s/&(rArr|\#8658);/\\ensuremath\{\\Rightarrow\}/g;
1072: $result =~ s/&(dArr|\#8659);/\\ensuremath\{\\Downarrow\}/g;
1073: $result =~ s/&(hArr|\#8660);/\\ensuremath\{\\Leftrightarrow\}/g;
1.199 sakharuk 1074: #Mathematical Operators (extended HTML 4.01)
1.281 sakharuk 1075: $result =~ s/&(forall|\#8704);/\\ensuremath\{\\forall\}/g;
1076: $result =~ s/&(part|\#8706);/\\ensuremath\{\\partial\}/g;
1077: $result =~ s/&(exist|\#8707);/\\ensuremath\{\\exists\}/g;
1078: $result =~ s/&(empty|\#8709);/\\ensuremath\{\\emptyset\}/g;
1079: $result =~ s/&(nabla|\#8711);/\\ensuremath\{\\nabla\}/g;
1080: $result =~ s/&(isin|\#8712);/\\ensuremath\{\\in\}/g;
1081: $result =~ s/&(notin|\#8713);/\\ensuremath\{\\notin\}/g;
1082: $result =~ s/&(ni|\#8715);/\\ensuremath\{\\ni\}/g;
1083: $result =~ s/&(prod|\#8719);/\\ensuremath\{\\prod\}/g;
1084: $result =~ s/&(sum|\#8721);/\\ensuremath\{\\sum\}/g;
1085: $result =~ s/&(minus|\#8722);/\\ensuremath\{-\}/g;
1.390 albertel 1086: $result =~ s/–/\\ensuremath\{-\}/g;
1.281 sakharuk 1087: $result =~ s/&(lowast|\#8727);/\\ensuremath\{*\}/g;
1088: $result =~ s/&(radic|\#8730);/\\ensuremath\{\\surd\}/g;
1089: $result =~ s/&(prop|\#8733);/\\ensuremath\{\\propto\}/g;
1090: $result =~ s/&(infin|\#8734);/\\ensuremath\{\\infty\}/g;
1091: $result =~ s/&(ang|\#8736);/\\ensuremath\{\\angle\}/g;
1092: $result =~ s/&(and|\#8743);/\\ensuremath\{\\wedge\}/g;
1093: $result =~ s/&(or|\#8744);/\\ensuremath\{\\vee\}/g;
1094: $result =~ s/&(cap|\#8745);/\\ensuremath\{\\cap\}/g;
1095: $result =~ s/&(cup|\#8746);/\\ensuremath\{\\cup\}/g;
1096: $result =~ s/&(int|\#8747);/\\ensuremath\{\\int\}/g;
1097: $result =~ s/&(sim|\#8764);/\\ensuremath\{\\sim\}/g;
1098: $result =~ s/&(cong|\#8773);/\\ensuremath\{\\cong\}/g;
1099: $result =~ s/&(asymp|\#8776);/\\ensuremath\{\\approx\}/g;
1100: $result =~ s/&(ne|\#8800);/\\ensuremath\{\\not=\}/g;
1101: $result =~ s/&(equiv|\#8801);/\\ensuremath\{\\equiv\}/g;
1102: $result =~ s/&(le|\#8804);/\\ensuremath\{\\leq\}/g;
1103: $result =~ s/&(ge|\#8805);/\\ensuremath\{\\geq\}/g;
1104: $result =~ s/&(sub|\#8834);/\\ensuremath\{\\subset\}/g;
1105: $result =~ s/&(sup|\#8835);/\\ensuremath\{\\supset\}/g;
1106: $result =~ s/&(nsub|\#8836);/\\ensuremath\{\\not\\subset\}/g;
1107: $result =~ s/&(sube|\#8838);/\\ensuremath\{\\subseteq\}/g;
1108: $result =~ s/&(supe|\#8839);/\\ensuremath\{\\supseteq\}/g;
1109: $result =~ s/&(oplus|\#8853);/\\ensuremath\{\\oplus\}/g;
1110: $result =~ s/&(otimes|\#8855);/\\ensuremath\{\\otimes\}/g;
1111: $result =~ s/&(perp|\#8869);/\\ensuremath\{\\perp\}/g;
1112: $result =~ s/&(sdot|\#8901);/\\ensuremath\{\\cdot\}/g;
1.199 sakharuk 1113: #Geometric Shapes (extended HTML 4.01)
1.281 sakharuk 1114: $result =~ s/&(loz|\#9674);/\\ensuremath\{\\Diamond\}/g;
1.199 sakharuk 1115: #Miscellaneous Symbols (extended HTML 4.01)
1.281 sakharuk 1116: $result =~ s/&(spades|\#9824);/\\ensuremath\{\\spadesuit\}/g;
1117: $result =~ s/&(clubs|\#9827);/\\ensuremath\{\\clubsuit\}/g;
1118: $result =~ s/&(hearts|\#9829);/\\ensuremath\{\\heartsuit\}/g;
1119: $result =~ s/&(diams|\#9830);/\\ensuremath\{\\diamondsuit\}/g;
1.495 foxr 1120: # Chemically useful 'things' contributed by Hon Kie (bug 4652).
1.515 foxr 1121:
1.495 foxr 1122: $result =~ s/&\#8636;/\\ensuremath\{\\leftharpoonup\}/g;
1123: $result =~ s/&\#8637;/\\ensuremath\{\\leftharpoondown\}/g;
1124: $result =~ s/&\#8640;/\\ensuremath\{\\rightharpoonup\}/g;
1125: $result =~ s/&\#8641;/\\ensuremath\{\\rightharpoondown\}/g;
1126: $result =~ s/&\#8652;/\\ensuremath\{\\rightleftharpoons\}/g;
1127: $result =~ s/&\#8605;/\\ensuremath\{\\leadsto\}/g;
1128: $result =~ s/&\#8617;/\\ensuremath\{\\hookleftarrow\}/g;
1129: $result =~ s/&\#8618;/\\ensuremath\{\\hookrightarrow\}/g;
1130: $result =~ s/&\#8614;/\\ensuremath\{\\mapsto\}/g;
1131: $result =~ s/&\#8599;/\\ensuremath\{\\nearrow\}/g;
1132: $result =~ s/&\#8600;/\\ensuremath\{\\searrow\}/g;
1133: $result =~ s/&\#8601;/\\ensuremath\{\\swarrow\}/g;
1134: $result =~ s/&\#8598;/\\ensuremath\{\\nwarrow\}/g;
1.513 foxr 1135:
1136: # Left/right quotations:
1137:
1138: $result =~ s/&(ldquo|#8220);/\`\`/g;
1139: $result =~ s/&(rdquo|#8221);/\'\'/g;
1140:
1141:
1.559 foxr 1142:
1.37 sakharuk 1143: return $result;
1144: }
1.41 sakharuk 1145:
1146:
1.327 albertel 1147: #width, height, oddsidemargin, evensidemargin, topmargin
1148: my %page_formats=
1149: ('letter' => {
1150: 'book' => {
1.493 foxr 1151: '1' => [ '7.1 in','9.8 in', '-0.57 in','-0.57 in','0.275 in'],
1152: '2' => ['3.66 in','9.8 in', '-0.57 in','-0.57 in','0.275 in']
1.327 albertel 1153: },
1154: 'album' => {
1.496 foxr 1155: '1' => [ '8.8 in', '6.8 in','-0.55 in', '-0.55 in','0.394 in'],
1.484 albertel 1156: '2' => [ '4.8 in', '6.8 in','-0.5 in', '-1.0 in','3.5 in']
1.327 albertel 1157: },
1158: },
1159: 'legal' => {
1160: 'book' => {
1161: '1' => ['7.1 in','13 in',,'-0.57 in','-0.57 in','-0.5 in'],
1.514 foxr 1162: '2' => ['3.66 in','13 in','-0.57 in','-0.57 in','-0.5 in']
1.327 albertel 1163: },
1164: 'album' => {
1.376 albertel 1165: '1' => ['12 in','7.1 in',,'-0.57 in','-0.57 in','-0.5 in'],
1166: '2' => ['6.0 in','7.1 in','-1 in','-1 in','5 in']
1.327 albertel 1167: },
1168: },
1169: 'tabloid' => {
1170: 'book' => {
1171: '1' => ['9.8 in','16 in','-0.57 in','-0.57 in','-0.5 in'],
1172: '2' => ['4.9 in','16 in','-0.57 in','-0.57 in','-0.5 in']
1173: },
1174: 'album' => {
1.376 albertel 1175: '1' => ['16 in','9.8 in','-0.57 in','-0.57 in','-0.5 in'],
1176: '2' => ['16 in','4.9 in','-0.57 in','-0.57 in','-0.5 in']
1.327 albertel 1177: },
1178: },
1179: 'executive' => {
1180: 'book' => {
1181: '1' => ['6.8 in','9 in','-0.57 in','-0.57 in','1.2 in'],
1182: '2' => ['3.1 in','9 in','-0.57 in','-0.57 in','1.2 in']
1183: },
1184: 'album' => {
1185: '1' => [],
1186: '2' => []
1187: },
1188: },
1189: 'a2' => {
1190: 'book' => {
1191: '1' => [],
1192: '2' => []
1193: },
1194: 'album' => {
1195: '1' => [],
1196: '2' => []
1197: },
1198: },
1199: 'a3' => {
1200: 'book' => {
1201: '1' => [],
1202: '2' => []
1203: },
1204: 'album' => {
1205: '1' => [],
1206: '2' => []
1207: },
1208: },
1209: 'a4' => {
1210: 'book' => {
1.493 foxr 1211: '1' => ['17.6 cm','27.2 cm','-1.397 cm','-2.11 cm','-1.27 cm'],
1.496 foxr 1212: '2' => [ '9.1 cm','27.2 cm','-1.397 cm','-2.11 cm','-1.27 cm']
1.327 albertel 1213: },
1214: 'album' => {
1.496 foxr 1215: '1' => ['21.59 cm','19.558 cm','-1.397cm','-2.11 cm','0 cm'],
1.493 foxr 1216: '2' => ['9.91 cm','19.558 cm','-1.397 cm','-2.11 cm','0 cm']
1.327 albertel 1217: },
1218: },
1219: 'a5' => {
1220: 'book' => {
1221: '1' => [],
1222: '2' => []
1223: },
1224: 'album' => {
1225: '1' => [],
1226: '2' => []
1227: },
1228: },
1229: 'a6' => {
1230: 'book' => {
1231: '1' => [],
1232: '2' => []
1233: },
1234: 'album' => {
1235: '1' => [],
1236: '2' => []
1237: },
1238: },
1239: );
1240:
1.177 sakharuk 1241: sub page_format {
1.140 sakharuk 1242: #
1.326 sakharuk 1243: #Supported paper format: "Letter [8 1/2x11 in]", "Legal [8 1/2x14 in]",
1244: # "Ledger/Tabloid [11x17 in]", "Executive [7 1/2x10 in]",
1245: # "A2 [420x594 mm]", "A3 [297x420 mm]",
1246: # "A4 [210x297 mm]", "A5 [148x210 mm]",
1247: # "A6 [105x148 mm]"
1.140 sakharuk 1248: #
1249: my ($papersize,$layout,$numberofcolumns) = @_;
1.327 albertel 1250: return @{$page_formats{$papersize}->{$layout}->{$numberofcolumns}};
1.140 sakharuk 1251: }
1.76 sakharuk 1252:
1253:
1.126 albertel 1254: sub get_name {
1255: my ($uname,$udom)=@_;
1.373 albertel 1256: if (!defined($uname)) { $uname=$env{'user.name'}; }
1257: if (!defined($udom)) { $udom=$env{'user.domain'}; }
1.126 albertel 1258: my $plainname=&Apache::loncommon::plainname($uname,$udom);
1.213 albertel 1259: if ($plainname=~/^\s*$/) { $plainname=$uname.'@'.$udom; }
1.453 foxr 1260: $plainname=&Apache::lonxml::latex_special_symbols($plainname,'header');
1.213 albertel 1261: return $plainname;
1.126 albertel 1262: }
1263:
1.213 albertel 1264: sub get_course {
1265: my $courseidinfo;
1.373 albertel 1266: if (defined($env{'request.course.id'})) {
1.439 www 1267: $courseidinfo = &Apache::lonxml::latex_special_symbols(&unescape($env{'course.'.$env{'request.course.id'}.'.description'}),'header');
1.537 foxr 1268: my $sec = $env{'request.course.sec'};
1269:
1.213 albertel 1270: }
1271: return $courseidinfo;
1272: }
1.177 sakharuk 1273:
1.76 sakharuk 1274: sub page_format_transformation {
1.312 sakharuk 1275: my ($papersize,$layout,$numberofcolumns,$choice,$text,$assignment,$tableofcontents,$indexlist,$selectionmade) = @_;
1.202 sakharuk 1276: my ($textwidth,$textheight,$oddoffset,$evenoffset,$topmargin);
1.454 foxr 1277:
1.312 sakharuk 1278: if ($selectionmade eq '4') {
1.502 foxr 1279: if ($choice eq 'all_problems') {
1.561 bisitz 1280: $assignment=&mt('Problems from the Whole Course');
1.502 foxr 1281: } else {
1.561 bisitz 1282: $assignment=&mt('Resources from the Whole Course');
1.502 foxr 1283: }
1.312 sakharuk 1284: } else {
1285: $assignment=&Apache::lonxml::latex_special_symbols($assignment,'header');
1286: }
1.261 sakharuk 1287: ($textwidth,$textheight,$oddoffset,$evenoffset,$topmargin) = &page_format($papersize,$layout,$numberofcolumns,$topmargin);
1.454 foxr 1288:
1289:
1.126 albertel 1290: my $name = &get_name();
1.213 albertel 1291: my $courseidinfo = &get_course();
1.455 albertel 1292: my $header_text = $parmhash{'print_header_format'};
1.486 foxr 1293: $header_text = &format_page_header($textwidth, $header_text, $assignment,
1.455 albertel 1294: $courseidinfo, $name);
1.319 sakharuk 1295: my $topmargintoinsert = '';
1296: if ($topmargin ne '0') {$topmargintoinsert='\setlength{\topmargin}{'.$topmargin.'}';}
1.325 sakharuk 1297: my $fancypagestatement='';
1298: if ($numberofcolumns eq '2') {
1.455 albertel 1299: $fancypagestatement="\\fancyhead{}\\fancyhead[LO]{$header_text}";
1.325 sakharuk 1300: } else {
1.455 albertel 1301: $fancypagestatement="\\rhead{}\\chead{}\\lhead{$header_text}";
1.325 sakharuk 1302: }
1.140 sakharuk 1303: if ($layout eq 'album') {
1.550 foxr 1304: $text =~ s/\\begin{document}/\\setlength{\\oddsidemargin}{$oddoffset}\\setlength{\\evensidemargin}{$evenoffset}$topmargintoinsert\n\\setlength{\\textwidth}{$textwidth}\\setlength{\\textheight}{$textheight}\\setlength{\\textfloatsep}{8pt plus 2\.0pt minus 4\.0pt}\n\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\\usepackage{fancyhdr}\\addtolength{\\headheight}{\\baselineskip}\n\\pagestyle{fancy}$fancypagestatement\\usepackage{booktabs}\\begin{document}\\voffset=-0\.8 cm\\setcounter{page}{1}\n /;
1.140 sakharuk 1305: } elsif ($layout eq 'book') {
1306: if ($choice ne 'All class print') {
1.550 foxr 1307: $text =~ s/\\begin{document}/\\textheight $textheight\\oddsidemargin = $evenoffset\\evensidemargin = $evenoffset $topmargintoinsert\n\\textwidth= $textwidth\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\n\\renewcommand{\\ref}{\\keephidden\}\\usepackage{fancyhdr}\\addtolength{\\headheight}{\\baselineskip}\\pagestyle{fancy}$fancypagestatement\\usepackage{booktabs}\\begin{document}\n\\voffset=-0\.8 cm\\setcounter{page}{1}\n/;
1.140 sakharuk 1308: } else {
1.550 foxr 1309: $text =~ s/\\pagestyle{fancy}\\rhead{}\\chead{}\s*\\begin{document}/\\textheight = $textheight\\oddsidemargin = $evenoffset\n\\evensidemargin = $evenoffset $topmargintoinsert\\textwidth= $textwidth\\newlength{\\minipagewidth}\n\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\\renewcommand{\\ref}{\\keephidden\}\\pagestyle{fancy}\\rhead{}\\chead{}\\usepackage{booktabs}\\begin{document}\\voffset=-0\.8cm\n\\setcounter{page}{1} \\vskip 5 mm\n /;
1.319 sakharuk 1310: }
1.326 sakharuk 1311: if ($papersize eq 'a4') {
1.573 ! foxr 1312: $text =~ s/(\\begin{document})/$1\\\\special\{papersize=210mm,297mm\}/;
1.140 sakharuk 1313: }
1314: }
1.214 sakharuk 1315: if ($tableofcontents eq 'yes') {$text=~s/(\\setcounter\{page\}\{1\})/$1 \\tableofcontents\\newpage /;}
1316: if ($indexlist eq 'yes') {
1317: $text=~s/(\\begin{document})/\\makeindex $1/;
1318: $text=~s/(\\end{document})/\\strut\\\\\\strut\\printindex $1/;
1319: }
1.140 sakharuk 1320: return $text;
1321: }
1322:
1323:
1.33 sakharuk 1324: sub page_cleanup {
1325: my $result = shift;
1.65 sakharuk 1326:
1327: $result =~ m/\\end{document}(\d*)$/;
1.34 sakharuk 1328: my $number_of_columns = $1;
1.33 sakharuk 1329: my $insert = '{';
1.34 sakharuk 1330: for (my $id=1;$id<=$number_of_columns;$id++) { $insert .='l'; }
1.33 sakharuk 1331: $insert .= '}';
1.65 sakharuk 1332: $result =~ s/(\\begin{longtable})INSERTTHEHEADOFLONGTABLE\\endfirsthead\\endhead/$1$insert/g;
1.34 sakharuk 1333: $result =~ s/&\s*REMOVETHEHEADOFLONGTABLE\\\\/\\\\/g;
1334: return $result,$number_of_columns;
1.7 sakharuk 1335: }
1.5 sakharuk 1336:
1.3 sakharuk 1337:
1.60 sakharuk 1338: sub details_for_menu {
1.335 albertel 1339: my ($helper)=@_;
1.373 albertel 1340: my $postdata=$env{'form.postdata'};
1.335 albertel 1341: if (!$postdata) { $postdata=$helper->{VARS}{'postdata'}; }
1342: my $name_of_resource = &Apache::lonnet::gettitle($postdata);
1343: my $symbolic = &Apache::lonnet::symbread($postdata);
1.482 albertel 1344: return if ( $symbolic eq '');
1345:
1.233 www 1346: my ($map,$id,$resource)=&Apache::lonnet::decode_symb($symbolic);
1.123 albertel 1347: $map=&Apache::lonnet::clutter($map);
1.269 albertel 1348: my $name_of_sequence = &Apache::lonnet::gettitle($map);
1.63 albertel 1349: if ($name_of_sequence =~ /^\s*$/) {
1.123 albertel 1350: $map =~ m|([^/]+)$|;
1351: $name_of_sequence = $1;
1.63 albertel 1352: }
1.373 albertel 1353: my $name_of_map = &Apache::lonnet::gettitle($env{'request.course.uri'});
1.63 albertel 1354: if ($name_of_map =~ /^\s*$/) {
1.373 albertel 1355: $env{'request.course.uri'} =~ m|([^/]+)$|;
1.123 albertel 1356: $name_of_map = $1;
1357: }
1.335 albertel 1358: return ($name_of_resource,$name_of_sequence,$name_of_map);
1.76 sakharuk 1359: }
1360:
1.476 albertel 1361: sub copyright_line {
1362: return '\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}\vspace*{-2 mm}\newline\noindent{\tiny Printed from LON-CAPA\copyright MSU{\hfill} Licensed under GNU General Public License } ';
1363: }
1364: my $end_of_student = "\n".'\special{ps:ENDOFSTUDENTSTAMP}'."\n";
1.76 sakharuk 1365:
1366: sub latex_corrections {
1.408 albertel 1367: my ($number_of_columns,$result,$selectionmade,$answer_mode) = @_;
1.185 sakharuk 1368: # $result =~ s/\\includegraphics{/\\includegraphics\[width=\\minipagewidth\]{/g;
1.476 albertel 1369: my $copyright = ©right_line();
1.408 albertel 1370: if ($selectionmade eq '1' || $answer_mode eq 'only') {
1.476 albertel 1371: $result =~ s/(\\end{document})/\\strut\\vskip 0 mm $copyright $end_of_student $1/;
1.408 albertel 1372: } else {
1.476 albertel 1373: $result =~ s/(\\end{document})/\\strut\\vspace\*{-4 mm}\\newline $copyright $end_of_student $1/;
1.316 sakharuk 1374: }
1.476 albertel 1375: $result =~ s/\$number_of_columns/$number_of_columns/g;
1.91 sakharuk 1376: $result =~ s/(\\end{longtable}\s*)(\\strut\\newline\\noindent\\makebox\[\\textwidth\/$number_of_columns\]\[b\]{\\hrulefill})/$2$1/g;
1377: $result =~ s/(\\end{longtable}\s*)\\strut\\newline/$1/g;
1.76 sakharuk 1378: #-- LaTeX corrections
1379: my $first_comment = index($result,'<!--',0);
1380: while ($first_comment != -1) {
1381: my $end_comment = index($result,'-->',$first_comment);
1382: substr($result,$first_comment,$end_comment-$first_comment+3) = '';
1383: $first_comment = index($result,'<!--',$first_comment);
1384: }
1385: $result =~ s/^\s+$//gm; #remove empty lines
1.377 albertel 1386: #removes more than one empty space
1387: $result =~ s|(\s\s+)|($1=~/[\n\r]/)?"\n":" "|ge;
1.76 sakharuk 1388: $result =~ s/\\\\\s*\\vskip/\\vskip/gm;
1389: $result =~ s/\\\\\s*\\noindent\s*(\\\\)+/\\\\\\noindent /g;
1390: $result =~ s/{\\par }\s*\\\\/\\\\/gm;
1.313 sakharuk 1391: $result =~ s/\\\\\s+\[/ \[/g;
1.76 sakharuk 1392: #conversion of html characters to LaTeX equivalents
1393: if ($result =~ m/&(\w+|#\d+);/) {
1394: $result = &character_chart($result);
1395: }
1396: $result =~ s/(\\end{tabular})\s*\\vskip 0 mm/$1/g;
1397: $result =~ s/(\\begin{enumerate})\s*\\noindent/$1/g;
1398: return $result;
1.60 sakharuk 1399: }
1400:
1.3 sakharuk 1401:
1.214 sakharuk 1402: sub index_table {
1403: my $currentURL = shift;
1404: my $insex_string='';
1405: $currentURL=~s/\.([^\/+])$/\.$1\.meta/;
1406: $insex_string=&Apache::lonnet::metadata($currentURL,'keywords');
1407: return $insex_string;
1408: }
1409:
1410:
1.215 sakharuk 1411: sub IndexCreation {
1412: my ($texversion,$currentURL)=@_;
1413: my @key_words=split(/,/,&index_table($currentURL));
1414: my $chunk='';
1415: my $st=index $texversion,'\addcontentsline{toc}{subsection}{';
1416: if ($st>0) {
1417: for (my $i=0;$i<3;$i++) {$st=(index $texversion,'}',$st+1);}
1418: $chunk=substr($texversion,0,$st+1);
1419: substr($texversion,0,$st+1)=' ';
1420: }
1421: foreach my $key_word (@key_words) {
1422: if ($key_word=~/\S+/) {
1423: $texversion=~s/\b($key_word)\b/$1 \\index{$key_word} /i;
1424: }
1425: }
1426: if ($st>0) {substr($texversion,0,1)=$chunk;}
1427: return $texversion;
1428: }
1429:
1.242 sakharuk 1430: sub print_latex_header {
1431: my $mode=shift;
1.550 foxr 1432:
1433: return &Apache::londefdef::latex_header($mode);
1.242 sakharuk 1434: }
1435:
1436: sub path_to_problem {
1.328 albertel 1437: my ($urlp,$colwidth)=@_;
1.404 albertel 1438: $urlp=&Apache::lonnet::clutter($urlp);
1439:
1.242 sakharuk 1440: my $newurlp = '';
1.328 albertel 1441: $colwidth=~s/\s*mm\s*$//;
1442: #characters average about 2 mm in width
1.360 albertel 1443: if (length($urlp)*2 > $colwidth) {
1.404 albertel 1444: my @elements = split('/',$urlp);
1.328 albertel 1445: my $curlength=0;
1446: foreach my $element (@elements) {
1.404 albertel 1447: if ($element eq '') { next; }
1.328 albertel 1448: if ($curlength+(length($element)*2) > $colwidth) {
1.404 albertel 1449: $newurlp .= '|\vskip -1 mm \verb|';
1450: $curlength=length($element)*2;
1.328 albertel 1451: } else {
1452: $curlength+=length($element)*2;
1.242 sakharuk 1453: }
1.328 albertel 1454: $newurlp.='/'.$element;
1.242 sakharuk 1455: }
1.253 sakharuk 1456: } else {
1457: $newurlp=$urlp;
1.242 sakharuk 1458: }
1459: return '{\small\noindent\verb|'.$newurlp.'|\vskip 0 mm}';
1460: }
1.215 sakharuk 1461:
1.275 sakharuk 1462: sub recalcto_mm {
1463: my $textwidth=shift;
1464: my $LaTeXwidth;
1.339 albertel 1465: if ($textwidth=~/(-?\d+\.?\d*)\s*cm/) {
1.275 sakharuk 1466: $LaTeXwidth = $1*10;
1.339 albertel 1467: } elsif ($textwidth=~/(-?\d+\.?\d*)\s*mm/) {
1.275 sakharuk 1468: $LaTeXwidth = $1;
1.339 albertel 1469: } elsif ($textwidth=~/(-?\d+\.?\d*)\s*in/) {
1.275 sakharuk 1470: $LaTeXwidth = $1*25.4;
1471: }
1472: $LaTeXwidth.=' mm';
1473: return $LaTeXwidth;
1474: }
1475:
1.285 albertel 1476: sub get_textwidth {
1477: my ($helper,$LaTeXwidth)=@_;
1.286 albertel 1478: my $textwidth=$LaTeXwidth;
1.285 albertel 1479: if ($helper->{'VARS'}->{'pagesize.width'}=~/\d+/ &&
1480: $helper->{'VARS'}->{'pagesize.widthunit'}=~/\w+/) {
1.286 albertel 1481: $textwidth=&recalcto_mm($helper->{'VARS'}->{'pagesize.width'}.' '.
1482: $helper->{'VARS'}->{'pagesize.widthunit'});
1.285 albertel 1483: }
1.286 albertel 1484: return $textwidth;
1.285 albertel 1485: }
1486:
1.296 sakharuk 1487:
1488: sub unsupported {
1.414 albertel 1489: my ($currentURL,$mode,$symb)=@_;
1.307 sakharuk 1490: if ($mode ne '') {$mode='\\'.$mode}
1.308 sakharuk 1491: my $result.= &print_latex_header($mode);
1.414 albertel 1492: if ($currentURL=~m|^(/adm/wrapper/)?ext/|) {
1493: $currentURL=~s|^(/adm/wrapper/)?ext/|http://|;
1494: my $title=&Apache::lonnet::gettitle($symb);
1495: $title = &Apache::lonxml::latex_special_symbols($title);
1496: $result.=' \strut \\\\ '.$title.' \strut \\\\ '.$currentURL.' ';
1.296 sakharuk 1497: } else {
1498: $result.=$currentURL;
1499: }
1.419 albertel 1500: $result.= '\vskip 0.5mm\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill} \end{document}';
1.296 sakharuk 1501: return $result;
1502: }
1503:
1.559 foxr 1504: #
1505: # Map from helper layout style to the book/album:
1506: #
1507: sub map_laystyle {
1508: my ($laystyle) = @_;
1509: if ($laystyle eq 'L') {
1510: $laystyle='album';
1511: } else {
1512: $laystyle='book';
1513: }
1514: return $laystyle;
1515: }
1516:
1517: sub print_page_in_course {
1518: my ($helper, $rparmhash, $currentURL, $resources) = @_;
1519: my %parmhash = %$rparmhash;
1520: my @page_resources = @$resources;
1521: my $mode = $helper->{'VARS'}->{'LATEX_TYPE'};
1522: my $symb = $helper->{'VARS'}->{'symb'};
1523:
1524:
1525: my $format_from_helper = $helper->{'VARS'}->{'FORMAT'};
1526:
1527:
1528: my @temporary_array=split /\|/,$format_from_helper;
1529: my ($laystyle,$numberofcolumns,$papersize,$pdfFormFields)=@temporary_array;
1530: $laystyle = &map_laystyle($laystyle);
1531: my ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format($papersize,$laystyle,
1532: $numberofcolumns);
1533: my $LaTeXwidth=&recalcto_mm($textwidth);
1534:
1535:
1536: if ($mode ne '') {$mode='\\'.$mode}
1.562 foxr 1537: my $result = &print_latex_header($mode);
1.559 foxr 1538: if ($currentURL=~m|^(/adm/wrapper/)?ext/|) {
1539: $currentURL=~s|^(/adm/wrapper/)?ext/|http://|;
1540: my $title=&Apache::lonnet::gettitle($symb);
1541: $title = &Apache::lonxml::latex_special_symbols($title);
1542: } else {
1543: $result.=$currentURL;
1544: }
1545: $result .= '\\\\';
1546:
1547: if ($helper->{'VARS'}->{'style_file'}=~/\w/) {
1548: &Apache::lonnet::appenv({'construct.style' =>
1549: $helper->{'VARS'}->{'style_file'}});
1550: } elsif ($env{'construct.style'}) {
1551: &Apache::lonnet::delenv('construct.style');
1552: }
1553:
1554: # First is the overall page description. This is then followed by the
1555: # components of the page. Each of which must be printed independently.
1.564 foxr 1556: my $the_page = shift(@page_resources);
1.559 foxr 1557:
1558:
1559: foreach my $resource (@page_resources) {
1560: my $resource_src = $resource->src(); # Essentially the URL of the resource.
1561: $result .= $resource->title() . '\\\\';
1562:
1563: # Recurse if a .page:
1564:
1565: if ($resource_src =~ /.page$/i) {
1566: my $navmap = Apache::lonnavmaps::navmap->new();
1567: my @page_resources = $navmap->retrieveResources($resource_src);
1568: $result .= &print_page_in_course($helper, $rparmhash,
1569: $resource_src, \@page_resources);
1570: }
1571: # these resources go through the XML transformer:
1572:
1573: elsif ($resource_src =~ /\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm\xhtml|xhtm)$/) {
1574: my $urlp = &Apache::lonnet::clutter($resource_src);
1575: my %form;
1576: my %moreenv;
1577:
1578: &Apache::lonxml::remember_problem_counter();
1579: $moreenv{'request.filename'}=$urlp;
1580: if ($helper->{'VARS'}->{'probstatus'} eq 'exam') {$form{'problemtype'}='exam';}
1581:
1582: $form{'grade_target'} = 'tex';
1583: $form{'textwidth'} = &get_textwidth($helper, $LaTeXwidth);
1584: $form{'pdfFormFiels'} = $pdfFormFields; #
1585: $form{'showallfoils'} = $helper->{'VARS'}->{'showallfoils'};
1586:
1587: $form{'problem_split'}=$parmhash{'problem_stream_switch'};
1588: $form{'suppress_tries'}=$parmhash{'suppress_tries'};
1589: $form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
1590: $form{'print_discussions'}=$helper->{'VARS'}->{'PRINT_DISCUSSIONS'};
1591: $form{'print_annotations'}=$helper->{'VARS'}->{'PRINT_ANNOTATIONS'};
1592: if (($helper->{'VARS'}->{'PRINT_DISCUSSIONS'} eq 'yes') ||
1593: ($helper->{'VARS'}->{'PRINT_ANNOTATIONS'} eq 'yes')) {
1594: $form{'problem_split'}='yes';
1595: }
1596: my $rndseed = time;
1597: if ($helper->{'VARS'}->{'curseed'}) {
1598: $rndseed=$helper->{'VARS'}->{'curseed'};
1599: }
1600: $form{'rndseed'}=$rndseed;
1601: &Apache::lonnet::appenv(\%moreenv);
1602:
1603: &Apache::lonxml::clear_problem_counter();
1604:
1605: my $texversion = &ssi_with_retries($urlp, $ssi_retry_count, %form);
1606:
1607:
1608: # current document with answers.. no need to encap in minipage
1609: # since there's only one answer.
1610:
1611: if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') ||
1612: ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) {
1613: my %answerform = %form;
1614:
1615:
1616: $answerform{'problem_split'}=$parmhash{'problem_stream_switch'};
1617: $answerform{'grade_target'}='answer';
1618: $answerform{'answer_output_mode'}='tex';
1619: $answerform{'rndseed'}=$rndseed;
1620: if ($helper->{'VARS'}->{'probstatus'} eq 'exam') {
1621: $answerform{'problemtype'}='exam';
1622: }
1623: $resources_printed .= $urlp.':';
1624: my $answer=&ssi_with_retries($urlp,$ssi_retry_count, %answerform);
1625:
1626: if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {
1627: $texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/;
1628: } else {
1.562 foxr 1629: $texversion= &print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'});
1.559 foxr 1630: if ($helper->{'VARS'}->{'construction'} ne '1') {
1631: my $title = &Apache::lonnet::gettitle($helper->{'VARS'}->{'symb'});
1632: $title = &Apache::lonxml::latex_special_symbols($title);
1633: $texversion.='\vskip 0 mm \noindent\textbf{'.$title.'}\vskip 0 mm ';
1634: $texversion.=&path_to_problem($urlp,$LaTeXwidth);
1635: } else {
1636: $texversion.='\vskip 0 mm \noindent\textbf{Prints from construction space - there is no title.}\vskip 0 mm ';
1637: my $URLpath=$urlp;
1638: $URLpath=~s/~([^\/]+)/public_html\/$1\/$1/;
1639: $texversion.=&path_to_problem($URLpath,$LaTeXwidth);
1640: }
1641: $texversion.='\vskip 1 mm '.$answer.'\end{document}';
1642: }
1643:
1644:
1645:
1646:
1647:
1648: }
1649: # Print annotations.
1650:
1651:
1652: if ($helper->{'VARS'}->{'PRINT_ANNOTATIONS'} eq 'yes') {
1653: my $annotation .= &annotate($currentURL);
1654: $texversion =~ s/(\\keephidden{ENDOFPROBLEM})/$annotation$1/;
1655: }
1656:
1657: if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') {
1658: $texversion=&IndexCreation($texversion,$currentURL);
1659: }
1660: if ($helper->{'VARS'}->{'CONSTR_RESOURSE_URL'} eq 'yes') {
1661: $texversion=~s/(\\addcontentsline\{toc\}\{subsection\}\{[^\}]*\})/$1 URL: \\verb|$currentURL| \\strut\\\\\\strut /;
1662:
1663: }
1.562 foxr 1664: $texversion = &latex_header_footer_remove($texversion);
1665:
1666: # the first remaining line is a comment from londefdef the second
1667: # line seems to be an extraneous \vskip 1mm \\\\ :
1668: # (imperfect removal from header_footer_remove?
1669:
1670: $texversion =~ s/\\vskip 1mm \\\\\\\\//;
1671:
1.559 foxr 1672: $result .= $texversion;
1673: if ($currentURL=~m/\.page\s*$/) {
1674: ($result,$numberofcolumns) = &page_cleanup($result);
1675: }
1676: }
1677: }
1678:
1679: $result.= '\vskip 0.5mm\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill} \end{document}';
1680: return $result;
1681: }
1682:
1.296 sakharuk 1683:
1.363 foxr 1684: #
1.395 www 1685: # List of recently generated print files
1686: #
1687: sub recently_generated {
1688: my $r=shift;
1689: my $prtspool=$r->dir_config('lonPrtDir');
1.400 albertel 1690: my $zip_result;
1691: my $pdf_result;
1.395 www 1692: opendir(DIR,$prtspool);
1.400 albertel 1693:
1694: my @files =
1695: grep(/^$env{'user.name'}_$env{'user.domain'}_printout_(\d+)_.*\.(pdf|zip)$/,readdir(DIR));
1.395 www 1696: closedir(DIR);
1.400 albertel 1697:
1698: @files = sort {
1699: my ($actime) = (stat($prtspool.'/'.$a))[10];
1700: my ($bctime) = (stat($prtspool.'/'.$b))[10];
1701: return $bctime <=> $actime;
1702: } (@files);
1703:
1704: foreach my $filename (@files) {
1705: my ($ext) = ($filename =~ m/(pdf|zip)$/);
1706: my ($cdev,$cino,$cmode,$cnlink,
1707: $cuid,$cgid,$crdev,$csize,
1708: $catime,$cmtime,$cctime,
1709: $cblksize,$cblocks)=stat($prtspool.'/'.$filename);
1.544 bisitz 1710: my $ext_text = 'pdf' ? &mt('PDF File'):&mt('Zip File');
1711: my $result=&Apache::loncommon::start_data_table_row()
1712: .'<td>'
1713: .'<a href="/prtspool/'.$filename.'">'.$ext_text.'</a>'
1714: .'</td>'
1715: .'<td>'.&Apache::lonlocal::locallocaltime($cctime).'</td>'
1716: .'<td align="right">'.$csize.'</td>'
1717: .&Apache::loncommon::end_data_table_row();
1.400 albertel 1718: if ($ext eq 'pdf') { $pdf_result .= $result; }
1719: if ($ext eq 'zip') { $zip_result .= $result; }
1720: }
1.544 bisitz 1721: if ($zip_result || $pdf_result) {
1722: $r->print('<hr />');
1723: }
1.400 albertel 1724: if ($zip_result) {
1.544 bisitz 1725: $r->print('<h3>'.&mt('Recently generated printout zip files')."</h3>\n"
1726: .&Apache::loncommon::start_data_table()
1727: .&Apache::loncommon::start_data_table_header_row()
1728: .'<th>'.&mt('Download').'</th>'
1729: .'<th>'.&mt('Creation Date').'</th>'
1730: .'<th>'.&mt('File Size (Bytes)').'</th>'
1731: .&Apache::loncommon::end_data_table_header_row()
1732: .$zip_result
1733: .&Apache::loncommon::end_data_table()
1734: );
1.400 albertel 1735: }
1736: if ($pdf_result) {
1.544 bisitz 1737: $r->print('<h3>'.&mt('Recently generated printouts')."</h3>\n"
1738: .&Apache::loncommon::start_data_table()
1739: .&Apache::loncommon::start_data_table_header_row()
1740: .'<th>'.&mt('Download').'</th>'
1741: .'<th>'.&mt('Creation Date').'</th>'
1742: .'<th>'.&mt('File Size (Bytes)').'</th>'
1743: .&Apache::loncommon::end_data_table_header_row()
1744: .$pdf_result
1745: .&Apache::loncommon::end_data_table()
1746: );
1.396 albertel 1747: }
1.395 www 1748: }
1749:
1750: #
1.363 foxr 1751: # Retrieve the hash of page breaks.
1752: #
1753: # Inputs:
1754: # helper - reference to helper object.
1755: # Outputs
1756: # A reference to a page break hash.
1757: #
1758: #
1.562 foxr 1759: # use Data::Dumper;
1.569 foxr 1760: # sub dump_helper_vars {
1.418 foxr 1761: # my ($helper) = @_;
1762: # my $helpervars = Dumper($helper->{'VARS'});
1763: # &Apache::lonnet::logthis("Dump of helper vars:\n $helpervars");
1764: #}
1.363 foxr 1765:
1.481 albertel 1766: sub get_page_breaks {
1767: my ($helper) = @_;
1768: my %page_breaks;
1769:
1770: foreach my $break (split /\|\|\|/, $helper->{'VARS'}->{'FINISHPAGE'}) {
1771: $page_breaks{$break} = 1;
1772: }
1773: return %page_breaks;
1774: }
1.569 foxr 1775: #
1776: # Returns text to insert for any extra vskip prior to the resource.
1777: # Parameters:
1778: # helper - Reference to the helper object driving the printout.
1779: # resource - Identifies the resource about to be printed.
1780: #
1781: # This is done as follows:
1782: # POSSIBLE_RESOURCES has the list of possible resources.
1783: # EXTRASPACE has the list of extra space values.
1.570 foxr 1784: # EXTRASPACE_UNITS is the set of resources for which the units are
1785: # mm. All others are 'in'.
1.569 foxr 1786: #
1787: # The resource is found in the POSSIBLE_RESOURCES to get the index
1788: # of the EXTRASPACE value.
1789: #
1790: # In order to speed this up for lengthy printouts, the first time,
1791: # POSSIBLE_RESOURCES is turned into a look up hash and
1792: # EXTRASPACE is turned into an array.
1793: #
1794:
1795:
1796: my %possible_resources;
1.570 foxr 1797: my %extraspace_mm;
1.569 foxr 1798: my @extraspace;
1799: my $skips_loaded = 0;
1800:
1801: # Function to load the skips hash and array
1802:
1803: sub load_skips {
1804:
1805: my ($helper) = @_;
1806:
1807: # If this is the first time, unrap the resources and extra spaces:
1808:
1809: if (!$skips_loaded) {
1810: @extraspace = (split(/\|\|\|/, $helper->{'VARS'}->{'EXTRASPACE'}));
1811: my @resource_list = (split(/\|\|\|/, $helper->{'VARS'}->{'POSSIBLE_RESOURCES'}));
1812: my $i = 0;
1813: foreach my $resource (@resource_list) {
1814: $possible_resources{$resource} = $i;
1815: $i++;
1816: }
1.570 foxr 1817: foreach my $mm_resource (split(/\|\|\|/, $helper->{'VARS'}->{'EXTRASPACE_UNITS'})) {
1818: $extraspace_mm{$mm_resource} = 1;
1819: }
1.569 foxr 1820: $skips_loaded = 1;
1821: }
1822: }
1823:
1824: sub get_extra_vspaces {
1825: my ($helper, $resource) = @_;
1826:
1827: &load_skips($helper);
1828:
1829: # Lookup the resource in the possible resources hash.. that is the index
1830: # into the extraspace array that gives us either an empty string or
1831: # the number of mm to skip:
1832:
1833: my $index = $possible_resources{$resource};
1834: my $skip = $extraspace[$index];
1835:
1836: my $result = '';
1837: if ($skip ne '') {
1.570 foxr 1838: my $units = 'in';
1839: if (defined($extraspace_mm{$resource})) {
1840: $units = 'mm';
1841: }
1842: $result = '\vskip '.$skip.' '.$units;
1.569 foxr 1843: }
1.570 foxr 1844:
1845:
1.569 foxr 1846: return $result;
1847:
1848:
1849: }
1850:
1851: #
1852: # The resource chooser part of the helper needs more than just
1853: # the value of the extraspaces var to recover the value into a text
1854: # field option. This sub produces the required format for the saved var:
1855: # specifically
1856: # ||| separated fields of the form resourcename=value
1857: #
1858: # Parameters:
1859: # $helper - Refers to the helper we are configuring
1860: # Implicit input:
1861: # $helper->{'VARS'}->{'EXTRASPACE'} - the spaces helper var has the text field
1862: # value.
1.570 foxr 1863: # $helper->{'VARS'}->{'EXTRASPACE_UNITS'} - units for the skips (checkboxes).
1.569 foxr 1864: # $helper->{'VARS'}->{'POSSIBLE_RESOURCES'} - has the list of resources. |||
1865: # separated of course.
1866: # Implicit outputs:
1.570 foxr 1867: # $env{'form.extraspace'}
1868: # $env{'form.extraspace_units'}
1.569 foxr 1869: #
1870: sub set_form_extraspace {
1871: my ($helper) = @_;
1872:
1873: # the most convenient way to do this is to drive from the skips arrays/hash.
1874: # may not be the fastest, but this is once per print request so it's not so
1875: # speed critical:
1876:
1877: &load_skips($helper);
1878:
1879: my $result = '';
1880:
1881: foreach my $resource (keys(%possible_resources)) {
1882: my $vskip = $extraspace[$possible_resources{$resource}];
1883: $result .= $resource .'=' . $vskip . '|||';
1884: }
1885:
1886: $env{'form.extraspace'} = $result;
1.570 foxr 1887: $env{'form.extraspace_units'} = $helper->{'VARS'}->{'EXTRASPACE_UNITS'};
1.569 foxr 1888: return $result;
1889:
1890: }
1.363 foxr 1891:
1.459 foxr 1892: # Output a sequence (recursively if neeed)
1893: # from construction space.
1894: # Parameters:
1895: # url = URL of the sequence to print.
1896: # helper - Reference to the helper hash.
1897: # form - Copy of the format hash.
1898: # LaTeXWidth
1899: # Returns:
1900: # Text to add to the printout.
1901: # NOTE if the first element of the outermost sequence
1902: # is itself a sequence, the outermost caller may need to
1903: # prefix the latex with the page headers stuff.
1904: #
1905: sub print_construction_sequence {
1906: my ($currentURL, $helper, %form, $LaTeXwidth) = @_;
1907: my $result;
1908: my $rndseed=time;
1909: if ($helper->{'VARS'}->{'curseed'}) {
1910: $rndseed=$helper->{'VARS'}->{'curseed'};
1911: }
1.491 albertel 1912: my $errtext=&LONCAPA::map::mapread($currentURL);
1.459 foxr 1913: #
1914: # These make this all support recursing for subsequences.
1915: #
1.491 albertel 1916: my @order = @LONCAPA::map::order;
1917: my @resources = @LONCAPA::map::resources;
1.459 foxr 1918: for (my $member=0;$member<=$#order;$member++) {
1919: $resources[$order[$member]]=~/^([^:]*):([^:]*):/;
1920: my $urlp=$2;
1921: if ($urlp=~/\.(problem|exam|quiz|assess|survey|form|library|xml|html|htm|xhtml|xhtm)$/) {
1922: my $texversion='';
1923: if ($helper->{'VARS'}->{'ANSWER_TYPE'} ne 'only') {
1924: $form{'problem_split'}=$parmhash{'problem_stream_switch'};
1925: $form{'suppress_tries'}=$parmhash{'suppress_tries'};
1926: $form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
1927: $form{'rndseed'}=$rndseed;
1928: $resources_printed .=$urlp.':';
1.515 foxr 1929: $texversion=&ssi_with_retries($urlp, $ssi_retry_count, %form);
1.459 foxr 1930: }
1931: if((($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') ||
1932: ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) &&
1933: ($urlp=~/\.(problem|exam|quiz|assess|survey|form|library|page)$/)) {
1934: # Don't permanently modify %$form...
1935: my %answerform = %form;
1936: $answerform{'grade_target'}='answer';
1937: $answerform{'answer_output_mode'}='tex';
1938: $answerform{'rndseed'}=$rndseed;
1939: $answerform{'problem_split'}=$parmhash{'problem_stream_switch'};
1.481 albertel 1940: if ($urlp=~/\/res\//) {$env{'request.state'}='published';}
1.459 foxr 1941: $resources_printed .= $urlp.':';
1.515 foxr 1942: my $answer=&ssi_with_retries($urlp, $ssi_retry_count, %answerform);
1.459 foxr 1943: if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {
1944: $texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/;
1945: } else {
1946: # If necessary, encapsulate answer in minipage:
1947:
1948: $texversion=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'});
1.477 albertel 1949: my $title = &Apache::lonnet::gettitle($helper->{'VARS'}->{'symb'});
1950: $title = &Apache::lonxml::latex_special_symbols($title);
1951: my $body ='\vskip 0 mm \noindent\textbf{'.$title.'}\vskip 0 mm ';
1.459 foxr 1952: $body.=&path_to_problem($urlp,$LaTeXwidth);
1953: $body.='\vskip 1 mm '.$answer.'\end{document}';
1954: $body = &encapsulate_minipage($body);
1955: $texversion.=$body;
1956: }
1957: }
1958: $texversion = &latex_header_footer_remove($texversion);
1959:
1960: if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') {
1961: $texversion=&IndexCreation($texversion,$urlp);
1962: }
1963: if ($helper->{'VARS'}->{'CONSTR_RESOURSE_URL'} eq 'yes') {
1964: $texversion=~s/(\\addcontentsline\{toc\}\{subsection\}\{[^\}]*\})/$1 URL: \\verb|$urlp| \\strut\\\\\\strut /;
1965: }
1966: $result.=$texversion;
1967:
1968: } elsif ($urlp=~/\.(sequence|page)$/) {
1.557 foxr 1969:
1.459 foxr 1970: # header:
1971:
1972: $result.='\strut\newline\noindent Sequence/page '.$urlp.'\strut\newline\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}\newline\noindent ';
1973:
1974: # IF sequence, recurse:
1975:
1976: if ($urlp =~ /\.sequence$/) {
1977: my $sequence_url = $urlp;
1978: my $domain = $env{'user.domain'}; # Constr. space only on local
1979: my $user = $env{'user.name'};
1980:
1981: $sequence_url =~ s/^\/res\/$domain/\/home/;
1982: $sequence_url =~ s/^(\/home\/$user)/$1\/public_html/;
1983: # $sequence_url =~ s|\/~([^\/]+)\/|\/home\/$1\/public_html\/|;
1984: $result .= &print_construction_sequence($sequence_url,
1985: $helper, %form,
1986: $LaTeXwidth);
1987: }
1.550 foxr 1988: }
1989: elsif ($urlp =~ /\.pdf$/i) {
1.552 foxr 1990: my $texversion;
1991: if ($member != 0) {
1992: $texversion .= '\cleardoublepage';
1993: }
1994:
1995: $texversion .= &include_pdf($urlp);
1996: $texversion = &latex_header_footer_remove($texversion);
1997: if ($member != $#order) {
1998: $texversion .= '\\ \cleardoublepage';
1999: }
1.551 foxr 2000:
2001: $result .= $texversion;
1.550 foxr 2002: }
1.459 foxr 2003: }
2004: if ($helper->{VARS}->{'construction'} eq '1') {$result=~s/(\\begin{document})/$1 \\fbox\{RANDOM SEED IS $rndseed\} /;}
2005: return $result;
2006: }
2007:
1.177 sakharuk 2008: sub output_data {
1.184 sakharuk 2009: my ($r,$helper,$rparmhash) = @_;
2010: my %parmhash = %$rparmhash;
1.515 foxr 2011: $ssi_error = 0; # This will be set nonzero by failing ssi's.
1.459 foxr 2012: $resources_printed = '';
1.556 foxr 2013: $font_size = $helper->{'VARS'}->{'fontsize'};
1.499 foxr 2014: my $do_postprocessing = 1;
1.433 albertel 2015: my $js = <<ENDPART;
2016: <script type="text/javascript">
1.264 sakharuk 2017: var editbrowser;
2018: function openbrowser(formname,elementname,only,omit) {
2019: var url = '/res/?';
2020: if (editbrowser == null) {
2021: url += 'launch=1&';
2022: }
2023: url += 'catalogmode=interactive&';
2024: url += 'mode=parmset&';
2025: url += 'form=' + formname + '&';
2026: if (only != null) {
2027: url += 'only=' + only + '&';
2028: }
2029: if (omit != null) {
2030: url += 'omit=' + omit + '&';
2031: }
2032: url += 'element=' + elementname + '';
2033: var title = 'Browser';
2034: var options = 'scrollbars=1,resizable=1,menubar=0';
2035: options += ',width=700,height=600';
2036: editbrowser = open(url,title,options,'1');
2037: editbrowser.focus();
2038: }
2039: </script>
1.140 sakharuk 2040: ENDPART
2041:
1.512 foxr 2042:
1.558 bisitz 2043: # Breadcrumbs
2044: #FIXME: Choose better/different breadcrumbs?!? Links?
2045: my $brcrum = [{'href' => '',
2046: 'text' => 'Helper'}, #FIXME: Different origin possible than print out helper?
2047: {'href' => '',
2048: 'text' => 'Preparing Printout'}];
2049:
2050: my $start_page = &Apache::loncommon::start_page('Preparing Printout',
2051: $js,
2052: {'bread_crumbs' => $brcrum,});
1.433 albertel 2053: my $msg = &mt('Please stand by while processing your print request, this may take some time ...');
1.363 foxr 2054:
1.433 albertel 2055: $r->print($start_page."\n<p>\n$msg\n</p>\n");
1.372 foxr 2056:
1.363 foxr 2057: # fetch the pagebreaks and store them in the course environment
2058: # The page breaks will be pulled into the hash %page_breaks which is
2059: # indexed by symb and contains 1's for each break.
2060:
1.373 albertel 2061: $env{'form.pagebreaks'} = $helper->{'VARS'}->{'FINISHPAGE'};
1.569 foxr 2062: &set_form_extraspace($helper);
1.373 albertel 2063: $env{'form.lastprinttype'} = $helper->{'VARS'}->{'PRINT_TYPE'};
1.363 foxr 2064: &Apache::loncommon::store_course_settings('print',
1.366 foxr 2065: {'pagebreaks' => 'scalar',
1.569 foxr 2066: 'extraspace' => 'scalar',
1.570 foxr 2067: 'extraspace_units' => 'scalar',
1.366 foxr 2068: 'lastprinttype' => 'scalar'});
1.364 albertel 2069: my %page_breaks = &get_page_breaks($helper);
1.363 foxr 2070:
1.140 sakharuk 2071: my $format_from_helper = $helper->{'VARS'}->{'FORMAT'};
2072: my ($result,$selectionmade) = ('','');
2073: my $number_of_columns = 1; #used only for pages to determine the width of the cell
2074: my @temporary_array=split /\|/,$format_from_helper;
1.539 onken 2075: my ($laystyle,$numberofcolumns,$papersize,$pdfFormFields)=@temporary_array;
1.559 foxr 2076:
2077: $laystyle = &map_laystyle($laystyle);
1.177 sakharuk 2078: my ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format($papersize,$laystyle,$numberofcolumns);
1.373 albertel 2079: my $assignment = $env{'form.assignment'};
1.275 sakharuk 2080: my $LaTeXwidth=&recalcto_mm($textwidth);
1.272 sakharuk 2081: my @print_array=();
1.274 sakharuk 2082: my @student_names=();
1.360 albertel 2083:
1.512 foxr 2084:
1.360 albertel 2085: # Common settings for the %form has:
2086: # In some cases these settings get overriddent by specific cases, but the
2087: # settings are common enough to make it worthwhile factoring them out
2088: # here.
2089: #
2090: my %form;
2091: $form{'grade_target'} = 'tex';
2092: $form{'textwidth'} = &get_textwidth($helper, $LaTeXwidth);
1.539 onken 2093: $form{'pdfFormFields'} = $pdfFormFields;
1.372 foxr 2094:
2095: # If form.showallfoils is set, then request all foils be shown:
2096: # privilege will be enforced both by not allowing the
2097: # check box selecting this option to be presnt unless it's ok,
2098: # and by lonresponse's priv. check.
2099: # The if is here because lonresponse.pm only cares that
2100: # showallfoils is defined, not what the value is.
2101:
2102: if ($helper->{'VARS'}->{'showallfoils'} eq "1") {
2103: $form{'showallfoils'} = $helper->{'VARS'}->{'showallfoils'};
2104: }
1.504 albertel 2105:
2106: if ($helper->{'VARS'}->{'style_file'}=~/\w/) {
1.520 raeburn 2107: &Apache::lonnet::appenv({'construct.style' =>
2108: $helper->{'VARS'}->{'style_file'}});
1.504 albertel 2109: } elsif ($env{'construct.style'}) {
1.549 raeburn 2110: &Apache::lonnet::delenv('construct.style');
1.504 albertel 2111: }
2112:
1.372 foxr 2113:
1.140 sakharuk 2114: if ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'current_document') {
1.143 sakharuk 2115: #-- single document - problem, page, html, xml, ...
1.343 albertel 2116: my ($currentURL,$cleanURL);
1.375 foxr 2117:
1.162 sakharuk 2118: if ($helper->{'VARS'}->{'construction'} ne '1') {
1.185 sakharuk 2119: #prints published resource
1.153 sakharuk 2120: $currentURL=$helper->{'VARS'}->{'postdata'};
1.343 albertel 2121: $cleanURL=&Apache::lonenc::check_decrypt($currentURL);
1.143 sakharuk 2122: } else {
1.512 foxr 2123:
1.185 sakharuk 2124: #prints resource from the construction space
1.240 albertel 2125: $currentURL='/'.$helper->{'VARS'}->{'filename'};
1.206 sakharuk 2126: if ($currentURL=~/([^?]+)/) {$currentURL=$1;}
1.343 albertel 2127: $cleanURL=$currentURL;
1.143 sakharuk 2128: }
1.140 sakharuk 2129: $selectionmade = 1;
1.413 albertel 2130: if ($cleanURL!~m|^/adm/|
1.557 foxr 2131: && $cleanURL=~/\.(problem|exam|quiz|assess|survey|form|library|xml|html|htm|xhtml|xhtm)$/) {
1.169 albertel 2132: my $rndseed=time;
1.242 sakharuk 2133: my $texversion='';
2134: if ($helper->{'VARS'}->{'ANSWER_TYPE'} ne 'only') {
2135: my %moreenv;
1.343 albertel 2136: $moreenv{'request.filename'}=$cleanURL;
1.290 sakharuk 2137: if ($helper->{'VARS'}->{'probstatus'} eq 'exam') {$form{'problemtype'}='exam';}
1.242 sakharuk 2138: $form{'problem_split'}=$parmhash{'problem_stream_switch'};
1.310 sakharuk 2139: $form{'suppress_tries'}=$parmhash{'suppress_tries'};
1.242 sakharuk 2140: $form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
1.309 sakharuk 2141: $form{'print_discussions'}=$helper->{'VARS'}->{'PRINT_DISCUSSIONS'};
1.511 foxr 2142: $form{'print_annotations'}=$helper->{'VARS'}->{'PRINT_ANNOTATIONS'};
2143: if (($helper->{'VARS'}->{'PRINT_DISCUSSIONS'} eq 'yes') ||
2144: ($helper->{'VARS'}->{'PRINT_ANNOTATIONS'} eq 'yes')) {
2145: $form{'problem_split'}='yes';
2146: }
1.242 sakharuk 2147: if ($helper->{'VARS'}->{'curseed'}) {
2148: $rndseed=$helper->{'VARS'}->{'curseed'};
2149: }
2150: $form{'rndseed'}=$rndseed;
1.520 raeburn 2151: &Apache::lonnet::appenv(\%moreenv);
1.428 albertel 2152:
2153: &Apache::lonxml::clear_problem_counter();
2154:
1.375 foxr 2155: $resources_printed .= $currentURL.':';
1.515 foxr 2156: $texversion.=&ssi_with_retries($currentURL,$ssi_retry_count, %form);
1.428 albertel 2157:
1.511 foxr 2158: # Add annotations if required:
2159:
1.428 albertel 2160: &Apache::lonxml::clear_problem_counter();
2161:
1.242 sakharuk 2162: &Apache::lonnet::delenv('request.filename');
1.230 albertel 2163: }
1.423 foxr 2164: # current document with answers.. no need to encap in minipage
2165: # since there's only one answer.
2166:
1.242 sakharuk 2167: if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') ||
2168: ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) {
1.353 foxr 2169: $form{'problem_split'}=$parmhash{'problem_stream_switch'};
1.166 albertel 2170: $form{'grade_target'}='answer';
1.167 albertel 2171: $form{'answer_output_mode'}='tex';
1.169 albertel 2172: $form{'rndseed'}=$rndseed;
1.401 albertel 2173: if ($helper->{'VARS'}->{'probstatus'} eq 'exam') {
2174: $form{'problemtype'}='exam';
2175: }
1.375 foxr 2176: $resources_printed .= $currentURL.':';
1.515 foxr 2177: my $answer=&ssi_with_retries($currentURL,$ssi_retry_count, %form);
1.511 foxr 2178:
2179:
1.242 sakharuk 2180: if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {
2181: $texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/;
2182: } else {
2183: $texversion=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'});
1.245 sakharuk 2184: if ($helper->{'VARS'}->{'construction'} ne '1') {
1.477 albertel 2185: my $title = &Apache::lonnet::gettitle($helper->{'VARS'}->{'symb'});
2186: $title = &Apache::lonxml::latex_special_symbols($title);
2187: $texversion.='\vskip 0 mm \noindent\textbf{'.$title.'}\vskip 0 mm ';
1.343 albertel 2188: $texversion.=&path_to_problem($cleanURL,$LaTeXwidth);
1.245 sakharuk 2189: } else {
2190: $texversion.='\vskip 0 mm \noindent\textbf{Prints from construction space - there is no title.}\vskip 0 mm ';
1.343 albertel 2191: my $URLpath=$cleanURL;
1.245 sakharuk 2192: $URLpath=~s/~([^\/]+)/public_html\/$1\/$1/;
1.504 albertel 2193: $texversion.=&path_to_problem($URLpath,$LaTeXwidth);
1.245 sakharuk 2194: }
1.242 sakharuk 2195: $texversion.='\vskip 1 mm '.$answer.'\end{document}';
2196: }
1.511 foxr 2197:
2198:
2199:
2200:
1.550 foxr 2201:
1.511 foxr 2202: }
2203: # Print annotations.
2204:
2205:
2206: if ($helper->{'VARS'}->{'PRINT_ANNOTATIONS'} eq 'yes') {
2207: my $annotation .= &annotate($currentURL);
2208: $texversion =~ s/(\\keephidden{ENDOFPROBLEM})/$annotation$1/;
1.163 sakharuk 2209: }
1.511 foxr 2210:
2211:
1.214 sakharuk 2212: if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') {
1.215 sakharuk 2213: $texversion=&IndexCreation($texversion,$currentURL);
1.214 sakharuk 2214: }
1.219 sakharuk 2215: if ($helper->{'VARS'}->{'CONSTR_RESOURSE_URL'} eq 'yes') {
2216: $texversion=~s/(\\addcontentsline\{toc\}\{subsection\}\{[^\}]*\})/$1 URL: \\verb|$currentURL| \\strut\\\\\\strut /;
2217:
2218: }
1.162 sakharuk 2219: $result .= $texversion;
2220: if ($currentURL=~m/\.page\s*$/) {
2221: ($result,$number_of_columns) = &page_cleanup($result);
2222: }
1.413 albertel 2223: } elsif ($cleanURL!~m|^/adm/|
1.557 foxr 2224: && $currentURL=~/\.(sequence|page)$/ && $helper->{'VARS'}->{'construction'} eq '1') {
1.227 sakharuk 2225: #printing content of sequence from the construction space
1.559 foxr 2226:
2227:
1.227 sakharuk 2228: $currentURL=~s|\/~([^\/]+)\/|\/home\/$1\/public_html\/|;
1.459 foxr 2229: $result .= &print_construction_sequence($currentURL, $helper, %form,
2230: $LaTeXwidth);
2231: $result .= '\end{document}';
2232: if (!($result =~ /\\begin\{document\}/)) {
2233: $result = &print_latex_header() . $result;
1.227 sakharuk 2234: }
1.459 foxr 2235: # End construction space sequence.
1.456 raeburn 2236: } elsif ($cleanURL=~/\/(smppg|syllabus|aboutme|bulletinboard)$/) {
1.258 sakharuk 2237: $form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
1.298 sakharuk 2238: if ($currentURL=~/\/syllabus$/) {$currentURL=~s/\/res//;}
1.375 foxr 2239: $resources_printed .= $currentURL.':';
1.567 foxr 2240: my $texversion = &ssi_with_retries($currentURL, $ssi_retry_count, %form);
1.511 foxr 2241: if ($helper->{'VARS'}->{'PRINT_ANNOTATIONS'} eq 'yes') {
2242: my $annotation = &annotate($currentURL);
2243: $texversion =~ s/(\\end{document})/$annotation$1/;
2244: }
1.258 sakharuk 2245: $result .= $texversion;
1.550 foxr 2246: } elsif ($cleanURL =~/\.tex$/) {
1.498 foxr 2247: # For this sort of print of a single LaTeX file,
2248: # We can just print the LaTeX file as it is uninterpreted in any way:
2249: #
2250:
2251: $result = &fetch_raw_resource($currentURL);
1.511 foxr 2252: if ($helper->{'VARS'}->{'PRINT_ANNOTATIONS'} eq 'yes') {
2253: my $annotation = &annotate($currentURL);
2254: $result =~ s/(\\end{document})/$annotation$1/;
2255: }
2256:
1.499 foxr 2257: $do_postprocessing = 0; # Don't massage the result.
1.498 foxr 2258:
1.550 foxr 2259: } elsif ($cleanURL =~ /\.pdf$/i) {
2260: $result .= &include_pdf($cleanURL);
1.551 foxr 2261: $result .= '\end{document}';
1.559 foxr 2262: } elsif ($cleanURL =~ /\.page$/i) { # Print page in non construction space contexts.
2263:
2264: # Determine the set of resources in the map of the page:
2265:
2266: my $navmap = Apache::lonnavmaps::navmap->new();
2267: my @page_resources = $navmap->retrieveResources($cleanURL);
2268: $result .= &print_page_in_course($helper, $rparmhash,
2269: $cleanURL, \@page_resources);
2270:
2271:
1.162 sakharuk 2272: } else {
1.414 albertel 2273: $result.=&unsupported($currentURL,$helper->{'VARS'}->{'LATEX_TYPE'},
2274: $helper->{'VARS'}->{'symb'});
1.162 sakharuk 2275: }
1.354 foxr 2276: } elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems') or
1.562 foxr 2277: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems_in_page') or
2278: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_resources_in_page') or
1.142 sakharuk 2279: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems_pages') or
1.354 foxr 2280: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems') or
2281: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_resources') or # BUGBUG
1.536 foxr 2282: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'select_sequences')
2283: ) {
1.511 foxr 2284:
2285:
1.141 sakharuk 2286: #-- produce an output string
1.562 foxr 2287: if (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems') or
2288: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems_in_page') ) {
1.296 sakharuk 2289: $selectionmade = 2;
1.562 foxr 2290: } elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems_pages') or
2291: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_resources_in_page'))
2292: {
1.296 sakharuk 2293: $selectionmade = 3;
1.536 foxr 2294: } elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems')
2295: ) {
1.296 sakharuk 2296: $selectionmade = 4;
1.354 foxr 2297: } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_resources') { #BUGBUG
2298: $selectionmade = 4;
1.296 sakharuk 2299: } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'select_sequences') {
2300: $selectionmade = 7;
2301: }
1.193 sakharuk 2302: $form{'problem_split'}=$parmhash{'problem_stream_switch'};
1.310 sakharuk 2303: $form{'suppress_tries'}=$parmhash{'suppress_tries'};
1.203 sakharuk 2304: $form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
1.309 sakharuk 2305: $form{'print_discussions'}=$helper->{'VARS'}->{'PRINT_DISCUSSIONS'};
1.511 foxr 2306: $form{'print_annotations'} = $helper->{'VARS'}->{'PRINT_ANNOTATIONS'};
2307: if (($helper->{'VARS'}->{'PRINT_DISCUSSIONS'} eq 'yes') ||
2308: ($helper->{'VARS'}->{'PRINT_ANNOTATIONS'} eq 'yes') ) {
2309: $form{'problem_split'}='yes';
2310: }
1.141 sakharuk 2311: my $flag_latex_header_remove = 'NO';
2312: my $flag_page_in_sequence = 'NO';
2313: my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'};
1.193 sakharuk 2314: my $prevassignment='';
1.428 albertel 2315:
2316: &Apache::lonxml::clear_problem_counter();
2317:
1.416 foxr 2318: my $pbreakresources = keys %page_breaks;
1.141 sakharuk 2319: for (my $i=0;$i<=$#master_seq;$i++) {
1.350 foxr 2320:
1.521 foxr 2321: &Apache::lonenc::reset_enc();
2322:
2323:
1.350 foxr 2324: # Note due to document structure, not allowed to put \newpage
2325: # prior to the first resource
2326:
1.351 foxr 2327: if (defined $page_breaks{$master_seq[$i]}) {
1.350 foxr 2328: if($i != 0) {
2329: $result.="\\newpage\n";
2330: }
2331: }
1.569 foxr 2332: $result .= &get_extra_vspaces($helper, $master_seq[$i]);
1.564 foxr 2333: my ($sequence,$middle_thingy,$urlp)=&Apache::lonnet::decode_symb($master_seq[$i]);
1.237 albertel 2334: $urlp=&Apache::lonnet::clutter($urlp);
1.166 albertel 2335: $form{'symb'}=$master_seq[$i];
1.407 albertel 2336:
2337: my $assignment=&Apache::lonxml::latex_special_symbols(&Apache::lonnet::gettitle($sequence),'header'); #title of the assignment which contains this problem
1.521 foxr 2338:
1.267 sakharuk 2339: if ($selectionmade==7) {$helper->{VARS}->{'assignment'}=$assignment;}
1.247 sakharuk 2340: if ($i==0) {$prevassignment=$assignment;}
1.297 sakharuk 2341: my $texversion='';
1.413 albertel 2342: if ($urlp!~m|^/adm/|
2343: && $urlp=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)$/) {
1.375 foxr 2344: $resources_printed .= $urlp.':';
1.428 albertel 2345: &Apache::lonxml::remember_problem_counter();
1.566 foxr 2346: if ($flag_latex_header_remove eq 'NO') {
2347: $texversion.=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'}); # RF
2348: $flag_latex_header_remove = 'YES';
2349: }
1.515 foxr 2350: $texversion.=&ssi_with_retries($urlp, $ssi_retry_count, %form);
1.296 sakharuk 2351: if ($urlp=~/\.page$/) {
2352: ($texversion,my $number_of_columns_page) = &page_cleanup($texversion);
2353: if ($number_of_columns_page > $number_of_columns) {$number_of_columns=$number_of_columns_page;}
2354: $texversion =~ s/\\end{document}\d*/\\end{document}/;
2355: $flag_page_in_sequence = 'YES';
2356: }
1.428 albertel 2357:
1.296 sakharuk 2358: if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') ||
2359: ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) {
1.380 foxr 2360: # Don't permanently pervert the %form hash
2361: my %answerform = %form;
2362: $answerform{'grade_target'}='answer';
2363: $answerform{'answer_output_mode'}='tex';
1.375 foxr 2364: $resources_printed .= $urlp.':';
1.428 albertel 2365:
2366: &Apache::lonxml::restore_problem_counter();
1.515 foxr 2367: my $answer=&ssi_with_retries($urlp, $ssi_retry_count, %answerform);
1.428 albertel 2368:
1.296 sakharuk 2369: if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {
2370: $texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/;
1.249 sakharuk 2371: } else {
1.307 sakharuk 2372: if ($urlp=~/\.(problem|exam|quiz|assess|survey|form|library)$/) {
1.296 sakharuk 2373: $texversion=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'});
1.552 foxr 2374: $texversion =~ s/\\begin{document}//;
1.477 albertel 2375: my $title = &Apache::lonnet::gettitle($master_seq[$i]);
2376: $title = &Apache::lonxml::latex_special_symbols($title);
2377: my $body ='\vskip 0 mm \noindent\textbf{'.$title.'}\vskip 0 mm ';
1.423 foxr 2378: $body .= &path_to_problem ($urlp,$LaTeXwidth);
2379: $body .='\vskip 1 mm '.$answer;
2380: $body = &encapsulate_minipage($body);
2381: $texversion .= $body;
1.296 sakharuk 2382: } else {
2383: $texversion='';
2384: }
1.249 sakharuk 2385: }
1.511 foxr 2386:
1.246 sakharuk 2387: }
1.511 foxr 2388: if ($helper->{'VARS'}->{'PRINT_ANNOTATIONS'} eq 'yes') {
2389: my $annotation .= &annotate($urlp);
2390: $texversion =~ s/(\\keephidden{ENDOFPROBLEM})/$annotation$1/;
2391: }
2392:
1.296 sakharuk 2393: if ($flag_latex_header_remove ne 'NO') {
2394: $texversion = &latex_header_footer_remove($texversion);
2395: } else {
2396: $texversion =~ s/\\end{document}//;
2397: }
2398: if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') {
2399: $texversion=&IndexCreation($texversion,$urlp);
2400: }
2401: if (($selectionmade == 4) and ($assignment ne $prevassignment)) {
2402: my $name = &get_name();
2403: my $courseidinfo = &get_course();
2404: $prevassignment=$assignment;
1.455 albertel 2405: my $header_text = $parmhash{'print_header_format'};
1.486 foxr 2406: $header_text = &format_page_header($textwidth, $header_text,
1.455 albertel 2407: $assignment,
2408: $courseidinfo,
2409: $name);
1.552 foxr 2410:
1.417 foxr 2411: if ($numberofcolumns eq '1') {
1.455 albertel 2412: $result .='\newpage \noindent\parbox{\minipagewidth}{\noindent\\lhead{'.$header_text.'}} \vskip 5 mm ';
1.416 foxr 2413: } else {
1.455 albertel 2414: $result .='\newpage \noindent\parbox{\minipagewidth}{\noindent\\fancyhead[LO]{'.$header_text.'}} \vskip 5 mm ';
1.416 foxr 2415: }
1.296 sakharuk 2416: }
2417: $result .= $texversion;
2418: $flag_latex_header_remove = 'YES';
1.456 raeburn 2419: } elsif ($urlp=~/\/(smppg|syllabus|aboutme|bulletinboard)$/) {
1.301 sakharuk 2420: $form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
2421: if ($urlp=~/\/syllabus$/) {$urlp=~s/\/res//;}
1.375 foxr 2422: $resources_printed .= $urlp.':';
1.567 foxr 2423: my $texversion = &ssi_with_retries($urlp, $ssi_retry_count, %form);
1.511 foxr 2424: if ($helper->{'VARS'}->{'PRINT_ANNOTATIONS'} eq 'yes') {
2425: my $annotation = &annotate($urlp);
2426: $texversion =~ s/(\\end{document)/$annotation$1/;
2427: }
2428:
1.301 sakharuk 2429: if ($flag_latex_header_remove ne 'NO') {
2430: $texversion = &latex_header_footer_remove($texversion);
1.550 foxr 2431: } else {
1.301 sakharuk 2432: $texversion =~ s/\\end{document}/\\vskip 0\.5mm\\noindent\\makebox\[\\textwidth\/\$number_of_columns\]\[b\]\{\\hrulefill\}/;
2433: }
2434: $result .= $texversion;
2435: $flag_latex_header_remove = 'YES';
1.550 foxr 2436: } elsif ($urlp=~ /\.pdf$/i) {
2437: if ($i > 0) {
2438: $result .= '\cleardoublepage';
2439: }
2440: $result .= &include_pdf($urlp);
2441: if ($i != $#master_seq) {
2442: if ($numberofcolumns eq '1') {
2443: $result .= '\newpage';
2444: } else {
2445: # the \\'s seem to be needed to let LaTeX know there's something
2446: # on the page since LaTeX seems to not like to clear an empty page.
2447: #
2448: $result .= '\\ \cleardoublepage';
2449: }
2450: }
2451: $flag_latex_header_remove = 'YES';
2452:
1.141 sakharuk 2453: } else {
1.414 albertel 2454: $texversion=&unsupported($urlp,$helper->{'VARS'}->{'LATEX_TYPE'},
2455: $master_seq[$i]);
1.297 sakharuk 2456: if ($flag_latex_header_remove ne 'NO') {
2457: $texversion = &latex_header_footer_remove($texversion);
2458: } else {
2459: $texversion =~ s/\\end{document}//;
2460: }
2461: $result .= $texversion;
2462: $flag_latex_header_remove = 'YES';
1.296 sakharuk 2463: }
1.550 foxr 2464: if (&Apache::loncommon::connection_aborted($r)) {
2465: last;
2466: }
1.141 sakharuk 2467: }
1.428 albertel 2468: &Apache::lonxml::clear_problem_counter();
1.344 foxr 2469: if ($flag_page_in_sequence eq 'YES') {
2470: $result =~ s/\\usepackage{calc}/\\usepackage{calc}\\usepackage{longtable}/;
2471: }
1.141 sakharuk 2472: $result .= '\end{document}';
1.284 albertel 2473: } elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_students') ||
1.562 foxr 2474: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_students_from_page') ||
1.536 foxr 2475: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems_students') ||
1.284 albertel 2476: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'resources_for_students')){
1.353 foxr 2477:
2478:
1.150 sakharuk 2479: #-- prints assignments for whole class or for selected students
1.284 albertel 2480: my $type;
1.536 foxr 2481: if (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_students') ||
1.562 foxr 2482: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_students_from_page') ||
1.536 foxr 2483: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems_students') ) {
1.254 sakharuk 2484: $selectionmade=5;
1.284 albertel 2485: $type='problems';
1.254 sakharuk 2486: } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'resources_for_students') {
2487: $selectionmade=8;
1.284 albertel 2488: $type='resources';
1.254 sakharuk 2489: }
1.150 sakharuk 2490: my @students=split /\|\|\|/, $helper->{'VARS'}->{'STUDENTS'};
1.341 foxr 2491: # The normal sort order is by section then by students within the
2492: # section. If the helper var student_sort is 1, then the user has elected
2493: # to override this and output the students by name.
2494: # Each element of the students array is of the form:
2495: # username:domain:section:last, first:status
2496: #
1.429 foxr 2497: # Note that student sort is not compatible with printing
2498: # 1 section per pdf...so that setting overrides.
1.341 foxr 2499: #
1.429 foxr 2500: if (($helper->{'VARS'}->{'student_sort'} eq 1) &&
2501: ($helper->{'VARS'}->{'SPLIT_PDFS'} ne "sections")) {
1.341 foxr 2502: @students = sort compare_names @students;
2503: }
1.429 foxr 2504: &adjust_number_to_print($helper);
2505:
1.278 albertel 2506: if ($helper->{'VARS'}->{'NUMBER_TO_PRINT'} eq '0' ||
2507: $helper->{'VARS'}->{'NUMBER_TO_PRINT'} eq 'all' ) {
2508: $helper->{'VARS'}->{'NUMBER_TO_PRINT'}=$#students+1;
2509: }
1.429 foxr 2510: # If we are splitting on section boundaries, we need
2511: # to remember that in split_on_sections and
2512: # print all of the students in the list.
2513: #
2514: my $split_on_sections = 0;
2515: if ($helper->{'VARS'}->{'NUMBER_TO_PRINT'} eq 'section') {
2516: $split_on_sections = 1;
2517: $helper->{'VARS'}->{'NUMBER_TO_PRINT'} = $#students+1;
2518: }
1.150 sakharuk 2519: my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'};
1.350 foxr 2520:
1.150 sakharuk 2521: #loop over students
1.562 foxr 2522:
2523: my $flag_latex_header_remove = 'NO';
1.150 sakharuk 2524: my %moreenv;
1.330 sakharuk 2525: $moreenv{'instructor_comments'}='hide';
1.285 albertel 2526: $moreenv{'textwidth'}=&get_textwidth($helper,$LaTeXwidth);
1.309 sakharuk 2527: $moreenv{'print_discussions'}=$helper->{'VARS'}->{'PRINT_DISCUSSIONS'};
1.511 foxr 2528: $moreenv{'print_annotations'} = $helper->{'VARS'}->{'PRINT_ANNOTATIONS'};
1.353 foxr 2529: $moreenv{'problem_split'} = $parmhash{'problem_stream_switch'};
1.369 foxr 2530: $moreenv{'suppress_tries'} = $parmhash{'suppress_tries'};
1.511 foxr 2531: if (($helper->{'VARS'}->{'PRINT_DISCUSSIONS'} eq 'yes') ||
2532: ($helper->{'VARS'}->{'PRINT_ANNOTATIONS'} eq 'yes')) {
2533: $moreenv{'problem_split'}='yes';
2534: }
1.318 albertel 2535: my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$#students+1,'inline','75');
1.272 sakharuk 2536: my $student_counter=-1;
1.429 foxr 2537: my $i = 0;
1.430 albertel 2538: my $last_section = (split(/:/,$students[0]))[2];
1.150 sakharuk 2539: foreach my $person (@students) {
1.350 foxr 2540:
1.373 albertel 2541: my $duefile="/home/httpd/prtspool/$env{'user.name'}_$env{'user.domain'}_printout.due";
1.311 sakharuk 2542: if (-e $duefile) {
2543: my $temp_file = Apache::File->new('>>'.$duefile);
2544: print $temp_file "1969\n";
2545: }
1.272 sakharuk 2546: $student_counter++;
1.429 foxr 2547: if ($split_on_sections) {
1.430 albertel 2548: my $this_section = (split(/:/,$person))[2];
1.429 foxr 2549: if ($this_section ne $last_section) {
2550: $i++;
2551: $last_section = $this_section;
2552: }
2553: } else {
2554: $i=int($student_counter/$helper->{'VARS'}{'NUMBER_TO_PRINT'});
2555: }
1.375 foxr 2556: my ($output,$fullname, $printed)=&print_resources($r,$helper,
1.353 foxr 2557: $person,$type,
2558: \%moreenv,\@master_seq,
1.360 albertel 2559: $flag_latex_header_remove,
1.422 albertel 2560: $LaTeXwidth);
1.375 foxr 2561: $resources_printed .= ":";
1.284 albertel 2562: $print_array[$i].=$output;
2563: $student_names[$i].=$person.':'.$fullname.'_END_';
2564: &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,&mt('last student').' '.$fullname);
2565: $flag_latex_header_remove = 'YES';
1.331 albertel 2566: if (&Apache::loncommon::connection_aborted($r)) { last; }
1.284 albertel 2567: }
2568: &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
2569: $result .= $print_array[0].' \end{document}';
2570: } elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_anon') ||
1.562 foxr 2571: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_anon_page') ||
1.284 albertel 2572: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'resources_for_anon') ) {
1.373 albertel 2573: my $cdom =$env{'course.'.$env{'request.course.id'}.'.domain'};
2574: my $cnum =$env{'course.'.$env{'request.course.id'}.'.num'};
1.288 albertel 2575: my $num_todo=$helper->{'VARS'}->{'NUMBER_TO_PRINT_TOTAL'};
2576: my $code_name=$helper->{'VARS'}->{'ANON_CODE_STORAGE_NAME'};
1.292 albertel 2577: my $old_name=$helper->{'VARS'}->{'REUSE_OLD_CODES'};
1.385 foxr 2578: my $single_code = $helper->{'VARS'}->{'SINGLE_CODE'};
1.388 foxr 2579: my $selected_code = $helper->{'VARS'}->{'CODE_SELECTED_FROM_LIST'};
2580:
1.381 albertel 2581: my $code_option=$helper->{'VARS'}->{'CODE_OPTION'};
1.542 raeburn 2582: my @lines = &Apache::grades::get_scantronformat_file();
1.381 albertel 2583: my ($code_type,$code_length)=('letter',6);
1.542 raeburn 2584: foreach my $line (@lines) {
1.381 albertel 2585: my ($name,$type,$length) = (split(/:/,$line))[0,2,4];
2586: if ($name eq $code_option) {
2587: $code_length=$length;
2588: if ($type eq 'number') { $code_type = 'number'; }
2589: }
2590: }
1.288 albertel 2591: my %moreenv = ('textwidth' => &get_textwidth($helper,$LaTeXwidth));
1.353 foxr 2592: $moreenv{'problem_split'} = $parmhash{'problem_stream_switch'};
1.420 albertel 2593: $moreenv{'instructor_comments'}='hide';
1.288 albertel 2594: my $seed=time+($$<<16)+($$);
1.292 albertel 2595: my @allcodes;
2596: if ($old_name) {
1.381 albertel 2597: my %result=&Apache::lonnet::get('CODEs',
2598: [$old_name,"type\0$old_name"],
2599: $cdom,$cnum);
2600: $code_type=$result{"type\0$old_name"};
1.292 albertel 2601: @allcodes=split(',',$result{$old_name});
1.336 albertel 2602: $num_todo=scalar(@allcodes);
1.389 foxr 2603: } elsif ($selected_code) { # Selection value is always numeric.
1.388 foxr 2604: $num_todo = 1;
2605: @allcodes = ($selected_code);
1.385 foxr 2606: } elsif ($single_code) {
2607:
1.387 foxr 2608: $num_todo = 1; # Unconditionally one code to do.
1.385 foxr 2609: # If an alpha code have to convert to numbers so it can be
2610: # converted back to letters again :-)
2611: #
2612: if ($code_type ne 'number') {
2613: $single_code = &letters_to_num($single_code);
2614: }
2615: @allcodes = ($single_code);
1.292 albertel 2616: } else {
2617: my %allcodes;
1.299 albertel 2618: srand($seed);
1.292 albertel 2619: for (my $i=0;$i<$num_todo;$i++) {
1.381 albertel 2620: $moreenv{'CODE'}=&get_CODE(\%allcodes,$i,$seed,$code_length,
2621: $code_type);
1.292 albertel 2622: }
2623: if ($code_name) {
2624: &Apache::lonnet::put('CODEs',
1.381 albertel 2625: {
2626: $code_name =>join(',',keys(%allcodes)),
2627: "type\0$code_name" => $code_type
2628: },
1.292 albertel 2629: $cdom,$cnum);
2630: }
2631: @allcodes=keys(%allcodes);
2632: }
1.336 albertel 2633: my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'};
2634: my ($type) = split(/_/,$helper->{'VARS'}->{'PRINT_TYPE'});
1.452 albertel 2635: &adjust_number_to_print($helper);
1.336 albertel 2636: my $number_per_page=$helper->{'VARS'}->{'NUMBER_TO_PRINT'};
2637: if ($number_per_page eq '0' || $number_per_page eq 'all') {
2638: $number_per_page=$num_todo;
2639: }
2640: my $flag_latex_header_remove = 'NO';
2641: my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$num_todo,'inline','75');
1.295 albertel 2642: my $count=0;
1.292 albertel 2643: foreach my $code (sort(@allcodes)) {
1.295 albertel 2644: my $file_num=int($count/$number_per_page);
1.381 albertel 2645: if ($code_type eq 'number') {
2646: $moreenv{'CODE'}=$code;
2647: } else {
2648: $moreenv{'CODE'}=&num_to_letters($code);
2649: }
1.375 foxr 2650: my ($output,$fullname, $printed)=
1.288 albertel 2651: &print_resources($r,$helper,'anonymous',$type,\%moreenv,
1.360 albertel 2652: \@master_seq,$flag_latex_header_remove,
2653: $LaTeXwidth);
1.375 foxr 2654: $resources_printed .= ":";
1.295 albertel 2655: $print_array[$file_num].=$output;
1.288 albertel 2656: &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,
2657: &mt('last assignment').' '.$fullname);
2658: $flag_latex_header_remove = 'YES';
1.295 albertel 2659: $count++;
1.331 albertel 2660: if (&Apache::loncommon::connection_aborted($r)) { last; }
1.288 albertel 2661: }
2662: &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
2663: $result .= $print_array[0].' \end{document}';
2664: } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_from_directory') {
1.151 sakharuk 2665: #prints selected problems from the subdirectory
2666: $selectionmade = 6;
2667: my @list_of_files=split /\|\|\|/, $helper->{'VARS'}->{'FILES'};
1.154 sakharuk 2668: @list_of_files=sort @list_of_files;
1.175 sakharuk 2669: my $flag_latex_header_remove = 'NO';
2670: my $rndseed=time;
1.230 albertel 2671: if ($helper->{'VARS'}->{'curseed'}) {
2672: $rndseed=$helper->{'VARS'}->{'curseed'};
2673: }
1.151 sakharuk 2674: for (my $i=0;$i<=$#list_of_files;$i++) {
1.521 foxr 2675:
2676: &Apache::lonenc::reset_enc();
2677:
1.152 sakharuk 2678: my $urlp = $list_of_files[$i];
1.253 sakharuk 2679: $urlp=~s|//|/|;
1.152 sakharuk 2680: if ($urlp=~/\//) {
1.353 foxr 2681: $form{'problem_split'}=$parmhash{'problem_stream_switch'};
1.175 sakharuk 2682: $form{'rndseed'}=$rndseed;
1.152 sakharuk 2683: if ($urlp =~ m|/home/([^/]+)/public_html|) {
2684: $urlp =~ s|/home/([^/]*)/public_html|/~$1|;
2685: } else {
1.302 sakharuk 2686: $urlp =~ s|^$Apache::lonnet::perlvar{'lonDocRoot'}||;
1.152 sakharuk 2687: }
1.375 foxr 2688: $resources_printed .= $urlp.':';
1.515 foxr 2689: my $texversion=&ssi_with_retries($urlp, $ssi_retry_count, %form);
1.251 sakharuk 2690: if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') ||
1.253 sakharuk 2691: ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) {
1.380 foxr 2692: # Don't permanently pervert %form:
2693: my %answerform = %form;
2694: $answerform{'grade_target'}='answer';
2695: $answerform{'answer_output_mode'}='tex';
2696: $answerform{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
2697: $answerform{'rndseed'}=$rndseed;
1.375 foxr 2698: $resources_printed .= $urlp.':';
1.515 foxr 2699: my $answer=&ssi_with_retries($urlp, $ssi_retry_count, %answerform);
1.251 sakharuk 2700: if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {
2701: $texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/;
2702: } else {
1.253 sakharuk 2703: $texversion=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'});
2704: if ($helper->{'VARS'}->{'construction'} ne '1') {
2705: $texversion.='\vskip 0 mm \noindent ';
2706: $texversion.=&path_to_problem ($urlp,$LaTeXwidth);
2707: } else {
2708: $texversion.='\vskip 0 mm \noindent\textbf{Prints from construction space - there is no title.}\vskip 0 mm ';
2709: my $URLpath=$urlp;
2710: $URLpath=~s/~([^\/]+)/public_html\/$1\/$1/;
2711: $texversion.=&path_to_problem ($URLpath,$LaTeXwidth);
2712: }
2713: $texversion.='\vskip 1 mm '.$answer.'\end{document}';
1.251 sakharuk 2714: }
1.174 sakharuk 2715: }
1.515 foxr 2716: #this chunk is responsible for printing the path to problem
2717:
1.253 sakharuk 2718: my $newurlp=$urlp;
2719: if ($newurlp=~/~/) {$newurlp=~s|\/~([^\/]+)\/|\/home\/$1\/public_html\/|;}
2720: $newurlp=&path_to_problem($newurlp,$LaTeXwidth);
1.242 sakharuk 2721: $texversion =~ s/(\\begin{minipage}{\\textwidth})/$1 $newurlp/;
1.152 sakharuk 2722: if ($flag_latex_header_remove ne 'NO') {
2723: $texversion = &latex_header_footer_remove($texversion);
2724: } else {
2725: $texversion =~ s/\\end{document}//;
1.216 sakharuk 2726: }
2727: if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') {
2728: $texversion=&IndexCreation($texversion,$urlp);
1.152 sakharuk 2729: }
1.219 sakharuk 2730: if ($helper->{'VARS'}->{'CONSTR_RESOURSE_URL'} eq 'yes') {
2731: $texversion=~s/(\\addcontentsline\{toc\}\{subsection\}\{[^\}]*\})/$1 URL: \\verb|$urlp| \\strut\\\\\\strut /;
2732:
2733: }
1.152 sakharuk 2734: $result .= $texversion;
2735: }
2736: $flag_latex_header_remove = 'YES';
1.151 sakharuk 2737: }
1.175 sakharuk 2738: if ($helper->{VARS}->{'construction'} eq '1') {$result=~s/(\\typeout)/ RANDOM SEED IS $rndseed $1/;}
1.152 sakharuk 2739: $result .= '\end{document}';
1.140 sakharuk 2740: }
2741: #-------------------------------------------------------- corrections for the different page formats
1.499 foxr 2742:
2743: # Only post process if that has not been turned off e.g. by a raw latex resource.
2744:
2745: if ($do_postprocessing) {
2746: $result = &page_format_transformation($papersize,$laystyle,$numberofcolumns,$helper->{'VARS'}->{'PRINT_TYPE'},$result,$helper->{VARS}->{'assignment'},$helper->{'VARS'}->{'TABLE_CONTENTS'},$helper->{'VARS'}->{'TABLE_INDEX'},$selectionmade);
2747: $result = &latex_corrections($number_of_columns,$result,$selectionmade,
2748: $helper->{'VARS'}->{'ANSWER_TYPE'});
2749: #if ($numberofcolumns == 1) {
1.451 albertel 2750: $result =~ s/\\textwidth\s*=\s*-?\d*\.?\d*\s*(cm|mm|in)/\\textwidth= $helper->{'VARS'}->{'pagesize.width'} $helper->{'VARS'}->{'pagesize.widthunit'} /;
2751: $result =~ s/\\textheight\s*=?\s*-?\d*\.?\d*\s*(cm|mm|in)/\\textheight $helper->{'VARS'}->{'pagesize.height'} $helper->{'VARS'}->{'pagesize.heightunit'} /;
2752: $result =~ s/\\evensidemargin\s*=\s*-?\d*\.?\d*\s*(cm|mm|in)/\\evensidemargin= $helper->{'VARS'}->{'pagesize.lmargin'} $helper->{'VARS'}->{'pagesize.lmarginunit'} /;
2753: $result =~ s/\\oddsidemargin\s*=\s*-?\d*\.?\d*\s*(cm|mm|in)/\\oddsidemargin= $helper->{'VARS'}->{'pagesize.lmargin'} $helper->{'VARS'}->{'pagesize.lmarginunit'} /;
1.499 foxr 2754: #}
2755: }
1.367 foxr 2756:
1.515 foxr 2757: # Set URLback if this is a construction space print so we can provide
2758: # a link to the resource being edited.
2759: #
1.274 sakharuk 2760:
1.276 sakharuk 2761: my $URLback=''; #link to original document
1.510 albertel 2762: if ($helper->{'VARS'}->{'construction'} eq '1') {
1.276 sakharuk 2763: #prints resource from the construction space
2764: $URLback='/'.$helper->{'VARS'}->{'filename'};
1.279 albertel 2765: if ($URLback=~/([^?]+)/) {
2766: $URLback=$1;
2767: $URLback=~s|^/~|/priv/|;
2768: }
1.276 sakharuk 2769: }
1.556 foxr 2770: #
2771: # Final adjustment of the font size:
2772: #
2773:
2774: $result = set_font_size($result);
1.375 foxr 2775:
1.525 www 2776: #-- writing .tex file in prtspool
2777: my $temp_file;
2778: my $identifier = &Apache::loncommon::get_cgi_id();
2779: my $filename = "/home/httpd/prtspool/$env{'user.name'}_$env{'user.domain'}_printout_$identifier.tex";
2780: if (!($#print_array>0)) {
2781: unless ($temp_file = Apache::File->new('>'.$filename)) {
2782: $r->log_error("Couldn't open $filename for output $!");
2783: return SERVER_ERROR;
2784: }
2785: print $temp_file $result;
2786: my $begin=index($result,'\begin{document}',0);
2787: my $inc=substr($result,0,$begin+16);
1.515 foxr 2788: } else {
1.525 www 2789: my $begin=index($result,'\begin{document}',0);
2790: my $inc=substr($result,0,$begin+16);
2791: for (my $i=0;$i<=$#print_array;$i++) {
2792: if ($i==0) {
2793: $print_array[$i]=$result;
2794: } else {
2795: $print_array[$i].='\end{document}';
2796: $print_array[$i] =
2797: &latex_corrections($number_of_columns,$print_array[$i],
2798: $selectionmade,
2799: $helper->{'VARS'}->{'ANSWER_TYPE'});
1.515 foxr 2800:
1.525 www 2801: my $anobegin=index($print_array[$i],'\setcounter{page}',0);
2802: substr($print_array[$i],0,$anobegin)='';
2803: $print_array[$i]=$inc.$print_array[$i];
2804: }
2805: my $temp_file;
2806: my $newfilename=$filename;
2807: my $num=$i+1;
2808: $newfilename =~s/\.tex$//;
2809: $newfilename=sprintf("%s_%03d.tex",$newfilename, $num);
2810: unless ($temp_file = Apache::File->new('>'.$newfilename)) {
2811: $r->log_error("Couldn't open $newfilename for output $!");
2812: return SERVER_ERROR;
2813: }
2814: print $temp_file $print_array[$i];
2815: }
2816: }
2817: my $student_names='';
2818: if ($#print_array>0) {
2819: for (my $i=0;$i<=$#print_array;$i++) {
2820: $student_names.=$student_names[$i].'_ENDPERSON_';
1.515 foxr 2821: }
1.525 www 2822: } else {
2823: if ($#student_names>-1) {
2824: $student_names=$student_names[0].'_ENDPERSON_';
1.515 foxr 2825: } else {
1.525 www 2826: my $fullname = &get_name($env{'user.name'},$env{'user.domain'});
2827: $student_names=join(':',$env{'user.name'},$env{'user.domain'},
1.515 foxr 2828: $env{'request.course.sec'},$fullname).
2829: '_ENDPERSON_'.'_END_';
2830: }
1.525 www 2831: }
1.515 foxr 2832:
1.525 www 2833: # logic for now is too complex to trace if this has been defined
2834: # yet.
2835: my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
2836: my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
2837: &Apache::lonnet::appenv({'cgi.'.$identifier.'.file' => $filename,
1.515 foxr 2838: 'cgi.'.$identifier.'.layout' => $laystyle,
2839: 'cgi.'.$identifier.'.numcol' => $numberofcolumns,
2840: 'cgi.'.$identifier.'.paper' => $papersize,
2841: 'cgi.'.$identifier.'.selection' => $selectionmade,
2842: 'cgi.'.$identifier.'.tableofcontents' => $helper->{'VARS'}->{'TABLE_CONTENTS'},
2843: 'cgi.'.$identifier.'.tableofindex' => $helper->{'VARS'}->{'TABLE_INDEX'},
2844: 'cgi.'.$identifier.'.role' => $perm{'pav'},
2845: 'cgi.'.$identifier.'.numberoffiles' => $#print_array,
2846: 'cgi.'.$identifier.'.studentnames' => $student_names,
1.520 raeburn 2847: 'cgi.'.$identifier.'.backref' => $URLback,});
1.525 www 2848: &Apache::lonnet::appenv({"cgi.$identifier.user" => $env{'user.name'},
1.515 foxr 2849: "cgi.$identifier.domain" => $env{'user.domain'},
2850: "cgi.$identifier.courseid" => $cnum,
2851: "cgi.$identifier.coursedom" => $cdom,
1.520 raeburn 2852: "cgi.$identifier.resources" => $resources_printed});
1.515 foxr 2853:
1.525 www 2854: my $end_page = &Apache::loncommon::end_page();
1.529 raeburn 2855: my $continue_text = &mt('Continue');
1.525 www 2856: # If there's been an unrecoverable SSI error, report it to the user
2857: if ($ssi_error) {
2858: my $helpurl = &Apache::loncommon::top_nav_help('Helpdesk');
1.554 bisitz 2859: $r->print('<br /><p class="LC_error">'.&mt('An unrecoverable network error occurred:').'</p><p>'.
1.526 www 2860: &mt('At least one of the resources you chose to print could not be rendered due to an unrecoverable error when communicating with a server:').
2861: '<br />'.$ssi_last_error_resource.'<br />'.$ssi_last_error.
2862: '</p><p>'.&mt('You can continue using the link provided below, but make sure to carefully inspect your output file! The errors will be marked in the file.').'<br />'.
1.528 raeburn 2863: &mt('You may be able to reprint the individual resources for which this error occurred, as the issue may be temporary.').
1.525 www 2864: '<br />'.&mt('If the error persists, please contact the [_1] for assistance.',$helpurl).'</p><p>'.
2865: &mt('We apologize for the inconvenience.').'</p>'.
1.528 raeburn 2866: '<a href="/cgi-bin/printout.pl?'.$identifier.'">'.$continue_text.'</a>'.$end_page);
1.525 www 2867: } else {
1.515 foxr 2868: $r->print(<<FINALEND);
1.317 albertel 2869: <br />
1.288 albertel 2870: <meta http-equiv="Refresh" content="0; url=/cgi-bin/printout.pl?$identifier" />
1.528 raeburn 2871: <a href="/cgi-bin/printout.pl?$identifier">$continue_text</a>
1.431 albertel 2872: $end_page
1.140 sakharuk 2873: FINALEND
1.528 raeburn 2874: } # endif ssi errors.
1.140 sakharuk 2875: }
2876:
1.288 albertel 2877:
2878: sub get_CODE {
1.381 albertel 2879: my ($all_codes,$num,$seed,$size,$type)=@_;
1.288 albertel 2880: my $max='1'.'0'x$size;
2881: my $newcode;
2882: while(1) {
1.392 albertel 2883: $newcode=sprintf("%0".$size."d",int(rand($max)));
1.288 albertel 2884: if (!exists($$all_codes{$newcode})) {
2885: $$all_codes{$newcode}=1;
1.381 albertel 2886: if ($type eq 'number' ) {
2887: return $newcode;
2888: } else {
2889: return &num_to_letters($newcode);
2890: }
1.288 albertel 2891: }
2892: }
2893: }
1.140 sakharuk 2894:
1.284 albertel 2895: sub print_resources {
1.360 albertel 2896: my ($r,$helper,$person,$type,$moreenv,$master_seq,$remove_latex_header,
1.422 albertel 2897: $LaTeXwidth)=@_;
1.284 albertel 2898: my $current_output = '';
1.375 foxr 2899: my $printed = '';
1.284 albertel 2900: my ($username,$userdomain,$usersection) = split /:/,$person;
2901: my $fullname = &get_name($username,$userdomain);
1.492 foxr 2902: my $namepostfix = "\\\\"; # Both anon and not anon should get the same vspace.
1.288 albertel 2903: if ($person =~ 'anon') {
1.492 foxr 2904: $namepostfix .="Name: ";
1.288 albertel 2905: $fullname = "CODE - ".$moreenv->{'CODE'};
2906: }
1.444 foxr 2907: # Fullname may have special latex characters that need \ prefixing:
2908: #
2909:
1.350 foxr 2910: my $i = 0;
1.284 albertel 2911: #goes through all resources, checks if they are available for
2912: #current student, and produces output
1.428 albertel 2913:
2914: &Apache::lonxml::clear_problem_counter();
1.364 albertel 2915: my %page_breaks = &get_page_breaks($helper);
1.476 albertel 2916: my $columns_in_format = (split(/\|/,$helper->{'VARS'}->{'FORMAT'}))[1];
1.440 foxr 2917: #
1.441 foxr 2918: # end each student with a
1.440 foxr 2919: # Special that allows the post processor to even out the page
2920: # counts later. Nasty problem this... it would be really
2921: # nice to put the special in as a postscript comment
1.441 foxr 2922: # e.g. \special{ps:\ENDOFSTUDENTSTAMP} unfortunately,
1.440 foxr 2923: # The special gets passed the \ and dvips puts it in the output file
1.441 foxr 2924: # so we will just rely on prntout.pl to strip ENDOFSTUDENTSTAMP from the
2925: # postscript. Each ENDOFSTUDENTSTAMP will go on a line by itself.
1.440 foxr 2926: #
1.568 foxr 2927: my $syllabus_first = 0;
1.284 albertel 2928: foreach my $curresline (@{$master_seq}) {
1.351 foxr 2929: if (defined $page_breaks{$curresline}) {
1.350 foxr 2930: if($i != 0) {
2931: $current_output.= "\\newpage\n";
2932: }
2933: }
1.569 foxr 2934: $current_output .= &get_extra_vspaces($helper, $curresline);
1.350 foxr 2935: $i++;
1.511 foxr 2936:
1.284 albertel 2937: if ( !($type eq 'problems' &&
2938: ($curresline!~ m/\.(problem|exam|quiz|assess|survey|form|library)$/)) ) {
2939: my ($map,$id,$res_url) = &Apache::lonnet::decode_symb($curresline);
2940: if (&Apache::lonnet::allowed('bre',$res_url)) {
1.414 albertel 2941: if ($res_url!~m|^ext/|
1.413 albertel 2942: && $res_url=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)$/) {
1.375 foxr 2943: $printed .= $curresline.':';
1.428 albertel 2944: &Apache::lonxml::remember_problem_counter();
2945:
1.526 www 2946: my $rendered = &get_student_view_with_retries($curresline,$ssi_retry_count,$username,$userdomain,$env{'request.course.id'},'tex',$moreenv);
1.305 sakharuk 2947: if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') ||
2948: ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) {
1.380 foxr 2949: # Use a copy of the hash so we don't pervert it on future loop passes.
2950: my %answerenv = %{$moreenv};
2951: $answerenv{'answer_output_mode'}='tex';
2952: $answerenv{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
1.428 albertel 2953:
2954: &Apache::lonxml::restore_problem_counter();
2955:
1.380 foxr 2956: my $ansrendered = &Apache::loncommon::get_student_answers($curresline,$username,$userdomain,$env{'request.course.id'},%answerenv);
1.428 albertel 2957:
1.305 sakharuk 2958: if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {
2959: $rendered=~s/(\\keephidden{ENDOFPROBLEM})/$ansrendered$1/;
2960: } else {
1.423 foxr 2961:
2962:
2963: my $header =&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'});
1.552 foxr 2964: $header =~ s/\\begin{document}//; #<<<<<
1.477 albertel 2965: my $title = &Apache::lonnet::gettitle($curresline);
2966: $title = &Apache::lonxml::latex_special_symbols($title);
2967: my $body ='\vskip 0 mm \noindent\textbf{'.$title.'}\vskip 0 mm ';
2968: $body .=&path_to_problem($res_url,$LaTeXwidth);
1.423 foxr 2969: $body .='\vskip 1 mm '.$ansrendered;
2970: $body = &encapsulate_minipage($body);
2971: $rendered = $header.$body;
1.305 sakharuk 2972: }
2973: }
1.511 foxr 2974: if ($helper->{'VARS'}->{'PRINT_ANNOTATIONS'} eq 'yes') {
2975: my $url = &Apache::lonnet::clutter($res_url);
2976: my $annotation = &annotate($url);
2977: $rendered =~ s/(\\keephidden{ENDOFPROBLEM})/$annotation$1/;
2978: }
1.562 foxr 2979: my $junk;
1.305 sakharuk 2980: if ($remove_latex_header eq 'YES') {
2981: $rendered = &latex_header_footer_remove($rendered);
2982: } else {
2983: $rendered =~ s/\\end{document}//;
2984: }
2985: $current_output .= $rendered;
1.456 raeburn 2986: } elsif ($res_url=~/\/(smppg|syllabus|aboutme|bulletinboard)$/) {
1.568 foxr 2987: if ($i == 1) {
2988: $syllabus_first = 1;
2989: }
1.375 foxr 2990: $printed .= $curresline.':';
1.528 raeburn 2991: my $rendered = &get_student_view_with_retries($curresline,$ssi_retry_count,$username,$userdomain,$env{'request.course.id'},'tex',$moreenv);
1.511 foxr 2992: if ($helper->{'VARS'}->{'PRINT_ANNOTATIONS'} eq 'yes') {
2993: my $url = &Apache::lonnet::clutter($res_url);
2994: my $annotation = &annotate($url);
2995: $annotation =~ s/(\\end{document})/$annotation$1/;
2996: }
1.305 sakharuk 2997: if ($remove_latex_header eq 'YES') {
2998: $rendered = &latex_header_footer_remove($rendered);
1.284 albertel 2999: } else {
1.305 sakharuk 3000: $rendered =~ s/\\end{document}//;
1.284 albertel 3001: }
1.421 foxr 3002: $current_output .= $rendered.'\vskip 0.5mm\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}\strut \vskip 0 mm \strut ';
1.552 foxr 3003: } elsif($res_url = ~/\.pdf$/) {
3004: my $url = &Apache::lonnet::clutter($res_url);
3005: my $rendered = &include_pdf($url);
3006: if ($remove_latex_header ne 'NO') {
3007: $rendered = &latex_header_footer_remove($rendered);
3008: }
3009: $current_output .= $rendered;
1.284 albertel 3010: } else {
1.414 albertel 3011: my $rendered = &unsupported($res_url,$helper->{'VARS'}->{'LATEX_TYPE'},$curresline);
1.305 sakharuk 3012: if ($remove_latex_header ne 'NO') {
3013: $rendered = &latex_header_footer_remove($rendered);
3014: } else {
3015: $rendered =~ s/\\end{document}//;
3016: }
3017: $current_output .= $rendered;
1.284 albertel 3018: }
3019: }
3020: $remove_latex_header = 'YES';
1.550 foxr 3021: }
1.331 albertel 3022: if (&Apache::loncommon::connection_aborted($r)) { last; }
1.284 albertel 3023: }
1.552 foxr 3024:
3025:
1.284 albertel 3026: my $courseidinfo = &get_course();
3027: my $currentassignment=&Apache::lonxml::latex_special_symbols($helper->{VARS}->{'assignment'},'header');
1.476 albertel 3028: my $header_line =
1.486 foxr 3029: &format_page_header($LaTeXwidth, $parmhash{'print_header_format'},
1.537 foxr 3030: $currentassignment, $courseidinfo, $fullname, $usersection);
1.476 albertel 3031: my $header_start = ($columns_in_format == 1) ? '\lhead'
3032: : '\fancyhead[LO]';
3033: $header_line = $header_start.'{'.$header_line.'}';
1.568 foxr 3034: if ($current_output=~/\\documentclass/ && (!$syllabus_first)) {
1.476 albertel 3035: $current_output =~ s/\\begin{document}/\\setlength{\\topmargin}{1cm} \\begin{document}\\noindent\\parbox{\\minipagewidth}{\\noindent$header_line$namepostfix}\\vskip 5 mm /;
1.568 foxr 3036: } elsif ($syllabus_first) {
3037:
3038: $current_output =~ s/\\\\ Last updated:/Last updated:/
1.284 albertel 3039: } else {
1.476 albertel 3040: my $blankpages =
3041: '\clearpage\strut\clearpage'x$helper->{'VARS'}->{'EMPTY_PAGES'};
3042:
3043: $current_output = '\strut\vspace*{-6 mm}\\newline'.
3044: ©right_line().' \newpage '.$blankpages.$end_of_student.
3045: '\setcounter{page}{1}\noindent\parbox{\minipagewidth}{\noindent'.
3046: $header_line.$namepostfix.'} \vskip 5 mm '.$current_output;
1.284 albertel 3047: }
1.440 foxr 3048: #
3049: # Close the student bracketing.
3050: #
1.375 foxr 3051: return ($current_output,$fullname, $printed);
1.284 albertel 3052:
3053: }
1.140 sakharuk 3054:
1.3 sakharuk 3055: sub handler {
3056:
3057: my $r = shift;
1.397 albertel 3058:
3059: &init_perm();
1.114 bowersj2 3060:
1.416 foxr 3061:
1.67 www 3062:
1.397 albertel 3063: my $helper = printHelper($r);
3064: if (!ref($helper)) {
3065: return $helper;
1.60 sakharuk 3066: }
1.177 sakharuk 3067:
1.184 sakharuk 3068:
1.454 foxr 3069: %parmhash=&Apache::lonnet::coursedescription($env{'request.course.id'});
1.353 foxr 3070:
1.416 foxr 3071:
1.350 foxr 3072:
3073:
1.367 foxr 3074: # If a figure conversion queue file exists for this user.domain
3075: # we delete it since it can only be bad (if it were good, printout.pl
3076: # would have deleted it the last time around.
3077:
1.373 albertel 3078: my $conversion_queuefile = "/home/httpd/prtspool/$env{'user.name'}_$env{'user.domain'}_printout.dat";
1.367 foxr 3079: if(-e $conversion_queuefile) {
3080: unlink $conversion_queuefile;
3081: }
1.515 foxr 3082:
3083:
1.184 sakharuk 3084: &output_data($r,$helper,\%parmhash);
1.2 sakharuk 3085: return OK;
1.60 sakharuk 3086: }
1.2 sakharuk 3087:
1.131 bowersj2 3088: use Apache::lonhelper;
1.130 sakharuk 3089:
1.223 bowersj2 3090: sub addMessage {
3091: my $text = shift;
3092: my $paramHash = Apache::lonhelper::getParamHash();
3093: $paramHash->{MESSAGE_TEXT} = $text;
3094: Apache::lonhelper::message->new();
3095: }
3096:
1.416 foxr 3097:
1.238 bowersj2 3098:
1.397 albertel 3099: sub init_perm {
3100: undef(%perm);
3101: $perm{'pav'}=&Apache::lonnet::allowed('pav',$env{'request.course.id'});
3102: if (!$perm{'pav'}) {
3103: $perm{'pav'}=&Apache::lonnet::allowed('pav',
3104: $env{'request.course.id'}.'/'.$env{'request.course.sec'});
3105: }
1.465 albertel 3106: $perm{'pfo'}=&Apache::lonnet::allowed('pfo',$env{'request.course.id'});
1.397 albertel 3107: if (!$perm{'pfo'}) {
3108: $perm{'pfo'}=&Apache::lonnet::allowed('pfo',
3109: $env{'request.course.id'}.'/'.$env{'request.course.sec'});
3110: }
3111: }
3112:
1.507 albertel 3113: sub get_randomly_ordered_warning {
3114: my ($helper,$map) = @_;
3115:
3116: my $message;
3117:
3118: my $postdata = $env{'form.postdata'} || $helper->{VARS}{'postdata'};
3119: my $navmap = Apache::lonnavmaps::navmap->new();
1.547 raeburn 3120: if (defined($navmap)) {
3121: my $res = $navmap->getResourceByUrl($map);
3122: if ($res) {
3123: my $func =
3124: sub { return ($_[0]->is_map() && $_[0]->randomorder); };
3125: my @matches = $navmap->retrieveResources($res, $func,1,1,1);
3126: if (@matches) {
3127: $message = "Some of the items below are in folders set to be randomly ordered. However, when printing the contents of these folders, they will be printed in the original order for all students, not the randomized order.";
3128: }
3129: }
3130: if ($message) {
3131: return '<message type="warning">'.$message.'</message>';
3132: }
3133: } else {
3134: $message = "Retrieval of information about ordering of resources failed.";
3135: return '<message type="warning">'.$message.'</message>';
1.507 albertel 3136: }
3137: return;
3138: }
3139:
1.131 bowersj2 3140: sub printHelper {
1.115 bowersj2 3141: my $r = shift;
3142:
3143: if ($r->header_only) {
1.373 albertel 3144: if ($env{'browser.mathml'}) {
1.241 www 3145: &Apache::loncommon::content_type($r,'text/xml');
1.131 bowersj2 3146: } else {
1.241 www 3147: &Apache::loncommon::content_type($r,'text/html');
1.131 bowersj2 3148: }
3149: $r->send_http_header;
3150: return OK;
1.115 bowersj2 3151: }
3152:
1.131 bowersj2 3153: # Send header, nocache
1.373 albertel 3154: if ($env{'browser.mathml'}) {
1.241 www 3155: &Apache::loncommon::content_type($r,'text/xml');
1.115 bowersj2 3156: } else {
1.241 www 3157: &Apache::loncommon::content_type($r,'text/html');
1.115 bowersj2 3158: }
3159: &Apache::loncommon::no_cache($r);
3160: $r->send_http_header;
3161: $r->rflush();
3162:
1.131 bowersj2 3163: # Unfortunately, this helper is so complicated we have to
3164: # write it by hand
3165:
3166: Apache::loncommon::get_unprocessed_cgi($ENV{QUERY_STRING});
3167:
1.176 bowersj2 3168: my $helper = Apache::lonhelper::helper->new("Printing Helper");
1.146 bowersj2 3169: $helper->declareVar('symb');
1.156 bowersj2 3170: $helper->declareVar('postdata');
1.290 sakharuk 3171: $helper->declareVar('curseed');
3172: $helper->declareVar('probstatus');
1.156 bowersj2 3173: $helper->declareVar('filename');
3174: $helper->declareVar('construction');
1.178 sakharuk 3175: $helper->declareVar('assignment');
1.262 sakharuk 3176: $helper->declareVar('style_file');
1.340 foxr 3177: $helper->declareVar('student_sort');
1.363 foxr 3178: $helper->declareVar('FINISHPAGE');
1.366 foxr 3179: $helper->declareVar('PRINT_TYPE');
1.372 foxr 3180: $helper->declareVar("showallfoils");
1.483 foxr 3181: $helper->declareVar("STUDENTS");
1.569 foxr 3182: $helper->declareVar("EXTRASPACE");
1.518 foxr 3183:
3184:
3185:
3186:
1.569 foxr 3187: # The page breaks and extra spaces
3188: # can get loaded initially from the course environment:
1.394 foxr 3189: # But we only do this in the initial state so that they are allowed to change.
3190: #
1.366 foxr 3191:
1.363 foxr 3192:
3193: &Apache::loncommon::restore_course_settings('print',
1.366 foxr 3194: {'pagebreaks' => 'scalar',
1.569 foxr 3195: 'extraspace' => 'scalar',
1.570 foxr 3196: 'extraspace_units' => 'scalar',
1.366 foxr 3197: 'lastprinttype' => 'scalar'});
3198:
1.483 foxr 3199: # This will persistently load in the data we want from the
3200: # very first screen.
1.394 foxr 3201:
3202: if($helper->{VARS}->{PRINT_TYPE} eq $env{'form.lastprinttype'}) {
3203: if (!defined ($env{"form.CURRENT_STATE"})) {
3204:
3205: $helper->{VARS}->{FINISHPAGE} = $env{'form.pagebreaks'};
1.569 foxr 3206: $helper->{VARS}->{EXTRASPACE} = $env{'form.extraspace'};
1.570 foxr 3207: $helper->{VARS}->{EXTRASPACE_UNITS} = $env{'form.extraspace_units'};
1.394 foxr 3208: } else {
3209: my $state = $env{"form.CURRENT_STATE"};
3210: if ($state eq "START") {
3211: $helper->{VARS}->{FINISHPAGE} = $env{'form.pagebreaks'};
1.569 foxr 3212: $helper->{VARS}->{EXTRASPACE} = $env{'form.extraspace'};
1.570 foxr 3213: $helper->{VARS}->{EXTRASPACE_UNITS} = $env{'form.extraspace_units'};
3214:
1.394 foxr 3215: }
3216: }
3217:
1.366 foxr 3218: }
1.481 albertel 3219:
1.156 bowersj2 3220: # Detect whether we're coming from construction space
1.373 albertel 3221: if ($env{'form.postdata'}=~/^(?:http:\/\/[^\/]+\/|\/|)\~([^\/]+)\/(.*)$/) {
1.235 bowersj2 3222: $helper->{VARS}->{'filename'} = "~$1/$2";
1.156 bowersj2 3223: $helper->{VARS}->{'construction'} = 1;
1.481 albertel 3224: } else {
1.373 albertel 3225: if ($env{'form.postdata'}) {
3226: $helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($env{'form.postdata'});
1.482 albertel 3227: if ( $helper->{VARS}->{'symb'} eq '') {
3228: $helper->{VARS}->{'postdata'} = $env{'form.postdata'};
3229: }
1.156 bowersj2 3230: }
1.373 albertel 3231: if ($env{'form.symb'}) {
3232: $helper->{VARS}->{'symb'} = $env{'form.symb'};
1.156 bowersj2 3233: }
1.373 albertel 3234: if ($env{'form.url'}) {
1.156 bowersj2 3235: $helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($helper->{VARS}->{'postdata'});
3236: }
1.416 foxr 3237:
1.157 bowersj2 3238: }
1.481 albertel 3239:
1.373 albertel 3240: if ($env{'form.symb'}) {
3241: $helper->{VARS}->{'symb'} = $env{'form.symb'};
1.146 bowersj2 3242: }
1.373 albertel 3243: if ($env{'form.url'}) {
1.140 sakharuk 3244: $helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($helper->{VARS}->{'postdata'});
1.153 sakharuk 3245:
1.140 sakharuk 3246: }
1.343 albertel 3247: $helper->{VARS}->{'symb'}=
3248: &Apache::lonenc::check_encrypt($helper->{VARS}->{'symb'});
1.335 albertel 3249: my ($resourceTitle,$sequenceTitle,$mapTitle) = &details_for_menu($helper);
1.178 sakharuk 3250: if ($sequenceTitle ne '') {$helper->{VARS}->{'assignment'}=$sequenceTitle;}
1.481 albertel 3251:
1.156 bowersj2 3252:
1.146 bowersj2 3253: # Extract map
3254: my $symb = $helper->{VARS}->{'symb'};
1.156 bowersj2 3255: my ($map, $id, $url);
3256: my $subdir;
1.483 foxr 3257: my $is_published=0; # True when printing from resource space.
1.156 bowersj2 3258:
3259: # Get the resource name from construction space
3260: if ($helper->{VARS}->{'construction'}) {
3261: $resourceTitle = substr($helper->{VARS}->{'filename'},
3262: rindex($helper->{VARS}->{'filename'}, '/')+1);
3263: $subdir = substr($helper->{VARS}->{'filename'},
3264: 0, rindex($helper->{VARS}->{'filename'}, '/') + 1);
1.481 albertel 3265: } else {
1.562 foxr 3266: # From course space:
3267:
1.482 albertel 3268: if ($symb ne '') {
3269: ($map, $id, $url) = &Apache::lonnet::decode_symb($symb);
3270: $helper->{VARS}->{'postdata'} =
3271: &Apache::lonenc::check_encrypt(&Apache::lonnet::clutter($url));
3272: } else {
3273: $url = $helper->{VARS}->{'postdata'};
1.483 foxr 3274: $is_published=1; # From resource space.
1.482 albertel 3275: }
3276: $url = &Apache::lonnet::clutter($url);
1.156 bowersj2 3277: if (!$resourceTitle) { # if the resource doesn't have a title, use the filename
1.238 bowersj2 3278: my $postdata = $helper->{VARS}->{'postdata'};
3279: $resourceTitle = substr($postdata, rindex($postdata, '/') + 1);
1.156 bowersj2 3280: }
3281: $subdir = &Apache::lonnet::filelocation("", $url);
1.128 bowersj2 3282: }
1.373 albertel 3283: if (!$helper->{VARS}->{'curseed'} && $env{'form.curseed'}) {
3284: $helper->{VARS}->{'curseed'}=$env{'form.curseed'};
1.230 albertel 3285: }
1.373 albertel 3286: if (!$helper->{VARS}->{'probstatus'} && $env{'form.problemtype'}) {
1.512 foxr 3287: $helper->{VARS}->{'probstatus'}=$env{'form.problemstatus'};
1.290 sakharuk 3288: }
1.115 bowersj2 3289:
1.192 bowersj2 3290: my $userCanSeeHidden = Apache::lonnavmaps::advancedUser();
3291:
1.481 albertel 3292: Apache::lonhelper::registerHelperTags();
1.119 bowersj2 3293:
1.131 bowersj2 3294: # "Delete everything after the last slash."
1.119 bowersj2 3295: $subdir =~ s|/[^/]+$||;
3296:
1.131 bowersj2 3297: # What can be printed is a very dynamic decision based on
3298: # lots of factors. So we need to dynamically build this list.
3299: # To prevent security leaks, states are only added to the wizard
3300: # if they can be reached, which ensures manipulating the form input
3301: # won't allow anyone to reach states they shouldn't have permission
3302: # to reach.
3303:
3304: # printChoices is tracking the kind of printing the user can
3305: # do, and will be used in a choices construction later.
3306: # In the meantime we will be adding states and elements to
3307: # the helper by hand.
3308: my $printChoices = [];
3309: my $paramHash;
1.130 sakharuk 3310:
1.240 albertel 3311: if ($resourceTitle) {
1.458 www 3312: push @{$printChoices}, ["<b><i>$resourceTitle</i></b> (".&mt('the resource you just saw on the screen').")", 'current_document', 'PAGESIZE'];
1.156 bowersj2 3313: }
3314:
1.238 bowersj2 3315: # Useful filter strings
1.540 raeburn 3316: my $isProblem = '($res->is_problem()||$res->contains_problem||$res->is_practice()) ';
1.238 bowersj2 3317: $isProblem .= ' && !$res->randomout()' if !$userCanSeeHidden;
1.541 raeburn 3318: my $isProblemOrMap = '$res->is_problem() || $res->contains_problem() || $res->is_sequence() || $res->is_practice()';
1.287 albertel 3319: my $isNotMap = '!$res->is_sequence()';
1.238 bowersj2 3320: $isNotMap .= ' && !$res->randomout()' if !$userCanSeeHidden;
3321: my $isMap = '$res->is_map()';
1.342 albertel 3322: my $symbFilter = '$res->shown_symb()';
3323: my $urlValue = '$res->link()';
1.238 bowersj2 3324:
3325: $helper->declareVar('SEQUENCE');
3326:
1.465 albertel 3327: # If we're in a sequence...
1.416 foxr 3328:
1.465 albertel 3329: my $start_new_option;
3330: if ($perm{'pav'}) {
3331: $start_new_option =
3332: "<option text='".&mt('Start new page<br />before selected').
1.569 foxr 3333: "' variable='FINISHPAGE' />".
1.570 foxr 3334: "<option text='".&mt('Extra space<br />before selected').
1.569 foxr 3335: "' variable='EXTRASPACE' type='text' />" .
3336: "<option " .
1.570 foxr 3337: "' variable='POSSIBLE_RESOURCES' type='hidden' />".
3338: "<option text='".&mt('Space units<br />check for mm').
3339: "' variable='EXTRASPACE_UNITS' type='checkbox' />"
3340: ;
3341:
1.569 foxr 3342:
1.465 albertel 3343: }
1.238 bowersj2 3344:
1.562 foxr 3345: # If not construction space user can print the components of a page:
3346:
3347: my $page_ispage;
3348: my $page_title;
3349: if (!$helper->{VARS}->{'construction'}) {
3350: my $varspostdata = $helper->{VARS}->{'postdata'};
3351: my $varsassignment = $helper->{VARS}->{'assignment'};
3352: my $page_navmap = Apache::lonnavmaps::navmap->new();
1.563 foxr 3353: if (defined($page_navmap)) {
3354: my @page_resources = $page_navmap->retrieveResources($url);
3355: if(defined($page_resources[0])) {
3356: $page_ispage = $page_resources[0]->is_page();
3357: $page_title = $page_resources[0]->title();
3358: my $resourcesymb = $page_resources[0]->symb();
3359: my ($pagemap, $pageid, $pageurl) = &Apache::lonnet::decode_symb($symb);
3360: if ($page_ispage) {
3361: push @{$printChoices},
3362: [&mt('Selected [_1]Problems[_2] from page [_3]', '<b>', '</b>', '<b><i>'.$page_title.'</i></b>'),
3363: 'map_problems_in_page',
3364: 'CHOOSE_PROBLEMS_PAGE'];
3365: push @{$printChoices},
3366: [&mt('Selected [_1]Resources[_2] from page [_3]', '<b>', '</b>', '<b><i>'.$page_title.'</i></b>'),
3367: 'map_resources_in_page',
3368: 'CHOOSE_RESOURCES_PAGE'];
3369: }
1.562 foxr 3370: my $helperFragment = &generate_resource_chooser('CHOOSE_PROBLEMS_PAGE',
3371: 'Select Problem(s) to print',
3372: "multichoice='1' toponly='1' addstatus='1' closeallpages='1'",
3373: 'RESOURCES',
3374: 'PAGESIZE',
3375: $url,
3376: $isProblem, '', $symbFilter,
3377: $start_new_option);
3378:
3379:
3380: $helperFragment .= &generate_resource_chooser('CHOOSE_RESOURCES_PAGE',
3381: 'Select Resource(s) to print',
3382: 'multichoice="1" toponly="1" addstatus="1" closeallpages="1"',
3383: 'RESOURCES',
3384: 'PAGESIZE',
3385: $url,
3386: $isNotMap, '', $symbFilter,
3387: $start_new_option);
3388:
3389:
3390:
3391:
3392:
3393: &Apache::lonxml::xmlparse($r, 'helper', $helperFragment);
3394:
1.563 foxr 3395: }
3396: }
1.562 foxr 3397: }
3398:
3399: if (($helper->{'VAR'}->{'construction'} ne '1' ) &&
1.243 bowersj2 3400: $helper->{VARS}->{'postdata'} &&
3401: $helper->{VARS}->{'assignment'}) {
1.131 bowersj2 3402: # Allow problems from sequence
1.562 foxr 3403: push @{$printChoices},
3404: [&mt('Selected [_1]Problems[_2] from folder [_3]','<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>'),
3405: 'map_problems',
3406: 'CHOOSE_PROBLEMS'];
1.131 bowersj2 3407: # Allow all resources from sequence
1.562 foxr 3408: push @{$printChoices}, [&mt('Selected [_1]Resources[_2] from folder [_3]','<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>'),
3409: 'map_problems_pages',
3410: 'CHOOSE_PROBLEMS_HTML'];
3411: my $helperFragment = &generate_resource_chooser('CHOOSE_PROBLEMS',
3412: 'Select Problem(s) to print',
3413: 'multichoice="1" toponly="1" addstatus="1" closeallpages="1"',
3414: 'RESOURCES',
3415: 'PAGESIZE',
3416: $map,
3417: $isProblem, '',
3418: $symbFilter,
3419: $start_new_option);
3420: $helperFragment .= &generate_resource_chooser('CHOOSE_PROBLEMS_HTML',
3421: 'Select Resource(s) to print',
3422: 'multichoice="1" toponly="1" addstatus="1" closeallpages="1"',
3423: 'RESOURCES',
3424: 'PAGESIZE',
3425: $map,
3426: $isNotMap, '',
3427: $symbFilter,
3428: $start_new_option);
1.121 bowersj2 3429:
1.326 sakharuk 3430: &Apache::lonxml::xmlparse($r, 'helper', $helperFragment);
1.121 bowersj2 3431: }
3432:
1.546 bisitz 3433: # If the user has pfo (print for others) allow them to print all
3434: # problems and resources in the entire course, optionally for selected students
1.562 foxr 3435: my $post_data = $helper->{VARS}->{'postdata'};
1.483 foxr 3436: if ($perm{'pfo'} && !$is_published &&
1.562 foxr 3437: ($post_data=~/\/res\// || $post_data =~/\/(syllabus|smppg|aboutme|bulletinboard)$/)) {
1.481 albertel 3438:
1.509 albertel 3439: push @{$printChoices}, [&mtn('Selected <b>Problems</b> from <b>entire course</b>'), 'all_problems', 'ALL_PROBLEMS'];
3440: push @{$printChoices}, [&mtn('Selected <b>Resources</b> from <b>entire course</b>'), 'all_resources', 'ALL_RESOURCES'];
1.536 foxr 3441: push @{$printChoices}, [&mtn('Selected <b>Problems</b> from <b>entire course</b> for <b>selected people</b>'), 'all_problems_students', 'ALL_PROBLEMS_STUDENTS'];
1.562 foxr 3442: my $suffixXml = <<ALL_PROBLEMS;
1.536 foxr 3443: <state name="STUDENTS1" title="Select People">
3444: <message><b>Select sorting order of printout</b> </message>
3445: <choices variable='student_sort'>
3446: <choice computer='0'>Sort by section then student</choice>
3447: <choice computer='1'>Sort by students across sections.</choice>
3448: </choices>
3449: <message><br /><hr /><br /> </message>
3450: <student multichoice='1' variable="STUDENTS" nextstate="PRINT_FORMATTING" coursepersonnel="1"/>
3451: </state>
1.284 albertel 3452: ALL_PROBLEMS
1.562 foxr 3453: &Apache::lonxml::xmlparse($r, 'helper',
3454: &generate_resource_chooser('ALL_PROBLEMS',
3455: 'SelectProblem(s) to print',
3456: 'multichoice="1" suppressEmptySequences="0" addstatus="1" closeallpages="1"',
3457: 'RESOURCES',
3458: 'PAGESIZE',
3459: '',
3460: $isProblemOrMap, $isNotMap,
3461: $symbFilter,
3462: $start_new_option) .
3463: &generate_resource_chooser('ALL_RESOURCES',
3464: 'Select Resource(s) to print',
3465: " toponly='0' multichoice='1' suppressEmptySequences='0' addstatus='1' closeallpages='1'",
3466: 'RESOURCES',
3467: 'PAGESIZE',
3468: '',
3469: $isNotMap,'',$symbFilter,
3470: $start_new_option) .
3471: &generate_resource_chooser('ALL_PROBLEMS_STUDENTS',
3472: 'Select Problem(s) to print',
3473: 'toponly="0" multichoice="1" suppressEmptySequences="0" addstatus="1" closeallpages="1"',
3474: 'RESOURCES',
3475: 'STUDENTS1',
3476: '',
3477: $isProblemOrMap,'' , $symbFilter,
3478: $start_new_option) .
3479: $suffixXml
3480: );
1.132 bowersj2 3481:
1.284 albertel 3482: if ($helper->{VARS}->{'assignment'}) {
1.562 foxr 3483:
3484: # If we were looking at a page, allow a selection of problems from the page
3485: # either for selected students or for coded assignments.
3486:
3487: if ($page_ispage) {
3488: push @{$printChoices}, [&mt('Selected [_1]Problems[_2] from page [_3] for [_4]selected people[_5]',
3489: '<b>', '</b>', '<b><i>'.$page_title.'</i></b>', '<b>', '</b>'),
3490: 'problems_for_students_from_page', 'CHOOSE_TGT_STUDENTS_PAGE'];
3491: push @{$printChoices}, [&mt('Selected [_1]Problems[_2] from page [_3] for [_4]CODEd assignments[_5]',
3492: '<b>', '</b>', '<b><i>'.$page_title.'</i></b>', '<b>', '</b>'),
3493: 'problems_for_anon_page', 'CHOOSE_ANON1_PAGE'];
3494: }
3495: push @{$printChoices}, [&mt('Selected [_1]Problems[_2] from folder [_3] for [_4]selected people[_5]',
3496: '<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>','<b>','</b>'),
3497: 'problems_for_students', 'CHOOSE_STUDENTS'];
3498: push @{$printChoices}, [&mt('Selected [_1]Problems[_2] from folder [_3] for [_4]CODEd assignments[_5]',
3499: '<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>','<b>','</b>'),
3500: 'problems_for_anon', 'CHOOSE_ANON1'];
1.284 albertel 3501: }
1.424 foxr 3502:
1.507 albertel 3503: my $randomly_ordered_warning =
3504: &get_randomly_ordered_warning($helper,$map);
3505:
1.424 foxr 3506: # resource_selector will hold a few states that:
3507: # - Allow resources to be selected for printing.
3508: # - Determine pagination between assignments.
3509: # - Determine how many assignments should be bundled into a single PDF.
3510: # TODO:
3511: # Probably good to do things like separate this up into several vars, each
3512: # with one state, and use REGEXPs at inclusion time to set state names
3513: # and next states for better mix and match capability
3514: #
1.562 foxr 3515: my $resource_selector= &generate_resource_chooser('SELECT_PROBLEMS',
3516: 'Select resources to print',
3517: 'multichoice="1" addstatus="1" closeallpages="1"',
3518: 'RESOURCES',
3519: 'PRINT_FORMATTING',
1.571 droeschl 3520: $map,
1.562 foxr 3521: $isProblem, '', $symbFilter,
3522: $start_new_option);
3523: $resource_selector .= <<RESOURCE_SELECTOR;
1.424 foxr 3524: <state name="PRINT_FORMATTING" title="How should results be printed?">
1.155 sakharuk 3525: <message><br /><big><i><b>How should the results be printed?</b></i></big><br /></message>
1.149 bowersj2 3526: <choices variable="EMPTY_PAGES">
1.204 sakharuk 3527: <choice computer='0'>Start each student\'s assignment on a new page/column (add a pagefeed after each assignment)</choice>
3528: <choice computer='1'>Add one empty page/column after each student\'s assignment</choice>
3529: <choice computer='2'>Add two empty pages/column after each student\'s assignment</choice>
3530: <choice computer='3'>Add three empty pages/column after each student\'s assignment</choice>
1.284 albertel 3531: </choices>
1.424 foxr 3532: <nextstate>PAGESIZE</nextstate>
1.429 foxr 3533: <message><hr width='33%' /><b>How do you want assignments split into PDF files? </b></message>
3534: <choices variable="SPLIT_PDFS">
3535: <choice computer="all">All assignments in a single PDF file</choice>
3536: <choice computer="sections">Each PDF contains exactly one section</choice>
3537: <choice computer="oneper">Each PDF contains exactly one assignment</choice>
1.449 albertel 3538: <choice computer="usenumber" relatedvalue="NUMBER_TO_PRINT">
3539: Specify the number of assignments per PDF:</choice>
1.429 foxr 3540: </choices>
1.424 foxr 3541: </state>
1.284 albertel 3542: RESOURCE_SELECTOR
1.562 foxr 3543: $resource_selector .= &generate_resource_chooser('CHOOSE_STUDENTS_PAGE',
3544: 'Select Problem(s) to print',
3545: "multichoice='1' addstatus='1' closeallpages ='1'",
3546: 'RESOURCES',
3547: 'PRINT_FORMATTING',
3548: $url,
3549: $isProblem, '', $symbFilter,
3550: $start_new_option);
3551:
3552:
3553: # Generate student choosers.
3554:
3555:
1.284 albertel 3556:
1.562 foxr 3557: &Apache::lonxml::xmlparse($r, 'helper',
3558: &generate_student_chooser('CHOOSE_TGT_STUDENTS_PAGE',
3559: 'student_sort',
3560: 'STUDENTS',
3561: 'CHOOSE_STUDENTS_PAGE'));
3562: &Apache::lonxml::xmlparse($r, 'helper',
3563: &generate_student_chooser('CHOOSE_STUDENTS',
3564: 'student_sort',
3565: 'STUDENTS',
3566: 'SELECT_PROBLEMS'));
3567: &Apache::lonxml::xmlparse($r, 'helper', $resource_selector);
1.292 albertel 3568:
1.373 albertel 3569: my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
3570: my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
1.292 albertel 3571: my @names=&Apache::lonnet::getkeys('CODEs',$cdom,$cnum);
3572: my $namechoice='<choice></choice>';
1.337 albertel 3573: foreach my $name (sort {uc($a) cmp uc($b)} @names) {
1.294 albertel 3574: if ($name =~ /^error: 2 /) { next; }
1.381 albertel 3575: if ($name =~ /^type\0/) { next; }
1.292 albertel 3576: $namechoice.='<choice computer="'.$name.'">'.$name.'</choice>';
3577: }
1.389 foxr 3578:
3579:
3580: my %code_values;
1.405 albertel 3581: my %codes_to_print;
1.411 albertel 3582: foreach my $key (@names) {
1.389 foxr 3583: %code_values = &Apache::grades::get_codes($key, $cdom, $cnum);
1.405 albertel 3584: foreach my $key (keys(%code_values)) {
3585: $codes_to_print{$key} = 1;
1.388 foxr 3586: }
3587: }
1.389 foxr 3588:
1.452 albertel 3589: my $code_selection;
1.405 albertel 3590: foreach my $code (sort {uc($a) cmp uc($b)} (keys(%codes_to_print))) {
1.389 foxr 3591: my $choice = $code;
3592: if ($code =~ /^[A-Z]+$/) { # Alpha code
3593: $choice = &letters_to_num($code);
3594: }
1.432 albertel 3595: push(@{$helper->{DATA}{ALL_CODE_CHOICES}},[$code,$choice]);
1.388 foxr 3596: }
1.436 albertel 3597: if (%codes_to_print) {
3598: $code_selection .='
1.472 albertel 3599: <message><b>Choose single CODE from list:</b></message>
1.448 albertel 3600: <message></td><td></message>
1.452 albertel 3601: <dropdown variable="CODE_SELECTED_FROM_LIST" multichoice="0" allowempty="0">
3602: <choice></choice>
1.448 albertel 3603: <exec>
3604: push(@{$state->{CHOICES}},@{$helper->{DATA}{ALL_CODE_CHOICES}});
3605: </exec>
1.452 albertel 3606: </dropdown>
1.468 foxr 3607: <message></td></tr><tr><td></message>
1.436 albertel 3608: '.$/;
1.448 albertel 3609:
1.436 albertel 3610: }
1.432 albertel 3611:
1.542 raeburn 3612: my @lines = &Apache::grades::get_scantronformat_file();
1.381 albertel 3613: my $codechoice='';
1.542 raeburn 3614: foreach my $line (@lines) {
1.381 albertel 3615: my ($name,$description,$code_type,$code_length)=
3616: (split(/:/,$line))[0,1,2,4];
3617: if ($code_length > 0 &&
3618: $code_type =~/^(letter|number|-1)/) {
3619: $codechoice.='<choice computer="'.$name.'">'.$description.'</choice>';
3620: }
3621: }
3622: if ($codechoice eq '') {
3623: $codechoice='<choice computer="default">Default</choice>';
3624: }
1.562 foxr 3625: my $anon1 = &generate_code_selector($helper,
3626: 'CHOOSE_ANON1',
3627: 'SELECT_PROBLEMS',
3628: $codechoice,
3629: $code_selection,
3630: $namechoice) . $resource_selector;
3631:
3632:
3633: &Apache::lonxml::xmlparse($r, 'helper',$anon1);
3634:
3635: my $anon_page = &generate_code_selector($helper,
3636: 'CHOOSE_ANON1_PAGE',
3637: 'SELECT_PROBLEMS_PAGE',
3638: $codechoice,
3639: $code_selection,
3640: $namechoice) .
3641: &generate_resource_chooser('SELECT_PROBLEMS_PAGE',
3642: 'Select Problem(s) to print',
3643: "multichoice='1' addstatus='1' closeallpages ='1'",
3644: 'RESOURCES',
3645: 'PRINT_FORMATTING',
3646: $url,
3647: $isProblem, '', $symbFilter,
3648: $start_new_option);
3649: &Apache::lonxml::xmlparse($r, 'helper', $anon_page);
1.254 sakharuk 3650:
1.272 sakharuk 3651:
1.254 sakharuk 3652: if ($helper->{VARS}->{'assignment'}) {
1.546 bisitz 3653: push @{$printChoices}, [&mt('Selected [_1]Resources[_2] from folder [_3] for [_4]selected people[_5]','<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>','<b>','</b>'), 'resources_for_students', 'CHOOSE_STUDENTS1'];
3654: push @{$printChoices}, [&mt('Selected [_1]Resources[_2] from folder [_3] for [_4]CODEd assignments[_5]','<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>','<b>','</b>'), 'resources_for_anon', 'CHOOSE_ANON2'];
1.254 sakharuk 3655: }
1.284 albertel 3656:
3657:
3658: $resource_selector=<<RESOURCE_SELECTOR;
1.424 foxr 3659: <state name="SELECT_RESOURCES" title="Select Resources">
1.507 albertel 3660: $randomly_ordered_warning
1.424 foxr 3661: <nextstate>PRINT_FORMATTING</nextstate>
1.254 sakharuk 3662: <message><br /><big><i><b>Select resources for the assignment</b></i></big><br /></message>
1.287 albertel 3663: <resource variable="RESOURCES" multichoice="1" addstatus="1"
3664: closeallpages="1">
1.254 sakharuk 3665: <filterfunc>return $isNotMap;</filterfunc>
3666: <mapurl>$map</mapurl>
3667: <valuefunc>return $symbFilter;</valuefunc>
1.465 albertel 3668: $start_new_option
1.254 sakharuk 3669: </resource>
1.424 foxr 3670: </state>
1.562 foxr 3671:
1.424 foxr 3672: <state name="PRINT_FORMATTING" title="Format of the print job">
3673: <nextstate>NUMBER_PER_PDF</nextstate>
1.254 sakharuk 3674: <message><br /><big><i><b>How should the results be printed?</b></i></big><br /></message>
3675: <choices variable="EMPTY_PAGES">
3676: <choice computer='0'>Start each student\'s assignment on a new page/column (add a pagefeed after each assignment)</choice>
3677: <choice computer='1'>Add one empty page/column after each student\'s assignment</choice>
3678: <choice computer='2'>Add two empty pages/column after each student\'s assignment</choice>
3679: <choice computer='3'>Add three empty pages/column after each student\'s assignment</choice>
1.284 albertel 3680: </choices>
1.424 foxr 3681: <nextstate>PAGESIZE</nextstate>
1.429 foxr 3682: <message><hr width='33%' /><b>How do you want assignments split into PDF files? </b></message>
3683: <choices variable="SPLIT_PDFS">
3684: <choice computer="all">All assignments in a single PDF file</choice>
3685: <choice computer="sections">Each PDF contains exactly one section</choice>
3686: <choice computer="oneper">Each PDF contains exactly one assignment</choice>
1.449 albertel 3687: <choice computer="usenumber" relatedvalue="NUMBER_TO_PRINT">
3688: Specify the number of assignments per PDF:</choice>
1.429 foxr 3689: </choices>
1.424 foxr 3690: </state>
1.284 albertel 3691: RESOURCE_SELECTOR
3692:
3693: &Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_STUDENTS1);
3694: <state name="CHOOSE_STUDENTS1" title="Select Students and Resources">
1.340 foxr 3695: <choices variable='student_sort'>
3696: <choice computer='0'>Sort by section then student</choice>
3697: <choice computer='1'>Sort by students across sections.</choice>
3698: </choices>
1.437 foxr 3699: <message><br /><hr /><br /></message>
1.426 foxr 3700: <student multichoice='1' variable="STUDENTS" nextstate="SELECT_RESOURCES" coursepersonnel="1" />
1.340 foxr 3701:
1.424 foxr 3702: </state>
1.284 albertel 3703: $resource_selector
1.254 sakharuk 3704: CHOOSE_STUDENTS1
3705:
1.284 albertel 3706: &Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_ANON2);
1.472 albertel 3707: <state name="CHOOSE_ANON2" title="Select CODEd Assignments">
1.424 foxr 3708: <nextstate>SELECT_RESOURCES</nextstate>
1.472 albertel 3709: <message><h4>Fill out one of the forms below</h4></message>
3710: <message><br /><hr /> <br /></message>
3711: <message><h3>Generate new CODEd Assignments</h3></message>
3712: <message><table><tr><td><b>Number of CODEd assignments to print:</b></td><td></message>
1.362 albertel 3713: <string variable="NUMBER_TO_PRINT_TOTAL" maxlength="5" size="5">
3714: <validator>
3715: if (((\$helper->{'VARS'}{'NUMBER_TO_PRINT_TOTAL'}+0) < 1) &&
1.386 foxr 3716: !\$helper->{'VARS'}{'REUSE_OLD_CODES'} &&
1.388 foxr 3717: !\$helper->{'VARS'}{'SINGLE_CODE'} &&
3718: !\$helper->{'VARS'}{'CODE_SELECTED_FROM_LIST'}) {
1.362 albertel 3719: return "You need to specify the number of assignments to print";
3720: }
3721: return undef;
3722: </validator>
3723: </string>
3724: <message></td></tr><tr><td></message>
1.501 albertel 3725: <message><b>Names to save the CODEs under for later:</b></message>
1.412 albertel 3726: <message></td><td></message>
3727: <string variable="ANON_CODE_STORAGE_NAME" maxlength="50" size="20" />
3728: <message></td></tr><tr><td></message>
3729: <message><b>Bubble sheet type:</b></message>
3730: <message></td><td></message>
3731: <dropdown variable="CODE_OPTION" multichoice="0" allowempty="0">
3732: $codechoice
3733: </dropdown>
1.472 albertel 3734: <message></td></tr><tr><td></table></message>
3735: <message><br /><hr /><h3>Print a Specific CODE </h3><br /><table></message>
3736: <message><tr><td><b>Enter a CODE to print:</b></td><td></message>
1.412 albertel 3737: <string variable="SINGLE_CODE" size="10">
1.386 foxr 3738: <validator>
3739: if(!\$helper->{'VARS'}{'NUMBER_TO_PRINT_TOTAL'} &&
1.388 foxr 3740: !\$helper->{'VARS'}{'REUSE_OLD_CODES'} &&
3741: !\$helper->{'VARS'}{'CODE_SELECTED_FROM_LIST'}) {
1.386 foxr 3742: return &Apache::lonprintout::is_code_valid(\$helper->{'VARS'}{'SINGLE_CODE'},
3743: \$helper->{'VARS'}{'CODE_OPTION'});
3744: } else {
3745: return undef; # Other forces control us.
3746: }
3747: </validator>
3748: </string>
1.472 albertel 3749: <message></td></tr><tr><td></message>
1.432 albertel 3750: $code_selection
1.472 albertel 3751: <message></td></tr></table></message>
3752: <message><hr /><h3>Reprint a Set of Saved CODEs</h3><table><tr><td></message>
3753: <message><b>Select saved CODEs:</b></message>
1.381 albertel 3754: <message></td><td></message>
1.294 albertel 3755: <dropdown variable="REUSE_OLD_CODES">
3756: $namechoice
3757: </dropdown>
1.412 albertel 3758: <message></td></tr></table></message>
1.424 foxr 3759: </state>
1.284 albertel 3760: $resource_selector
3761: CHOOSE_ANON2
1.481 albertel 3762: }
3763:
1.121 bowersj2 3764: # FIXME: That RE should come from a library somewhere.
1.483 foxr 3765: if (($perm{'pav'}
1.482 albertel 3766: && $subdir ne $Apache::lonnet::perlvar{'lonDocRoot'}.'/res/'
3767: && (defined($helper->{'VARS'}->{'construction'})
3768: ||
3769: (&Apache::lonnet::allowed('bre',$subdir) eq 'F'
3770: &&
3771: $helper->{VARS}->{'postdata'}=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)/)
1.483 foxr 3772: ))
3773: && $helper->{VARS}->{'assignment'} eq ""
1.482 albertel 3774: ) {
3775: my $pretty_dir = &Apache::lonnet::hreflocation($subdir);
1.546 bisitz 3776: push @{$printChoices}, [&mt('Selected [_1]Problems[_2] from current subdirectory [_3]','<b>','</b>','<b><i>'.$pretty_dir.'</i></b>','<b>','</b>'), 'problems_from_directory', 'CHOOSE_FROM_SUBDIR'];
1.139 bowersj2 3777: my $xmlfrag = <<CHOOSE_FROM_SUBDIR;
1.482 albertel 3778: <state name="CHOOSE_FROM_SUBDIR" title="Select File(s) from <b><small>$pretty_dir</small></b> to print">
1.458 www 3779:
1.138 bowersj2 3780: <files variable="FILES" multichoice='1'>
1.144 bowersj2 3781: <nextstate>PAGESIZE</nextstate>
1.138 bowersj2 3782: <filechoice>return '$subdir';</filechoice>
1.139 bowersj2 3783: CHOOSE_FROM_SUBDIR
3784:
1.238 bowersj2 3785: # this is broken up because I really want interpolation above,
3786: # and I really DON'T want it below
1.139 bowersj2 3787: $xmlfrag .= <<'CHOOSE_FROM_SUBDIR';
1.225 bowersj2 3788: <filefilter>return Apache::lonhelper::files::not_old_version($filename) &&
3789: $filename =~ m/\.(problem|exam|quiz|assess|survey|form|library)$/;
1.131 bowersj2 3790: </filefilter>
1.138 bowersj2 3791: </files>
1.131 bowersj2 3792: </state>
3793: CHOOSE_FROM_SUBDIR
1.139 bowersj2 3794: &Apache::lonxml::xmlparse($r, 'helper', $xmlfrag);
1.131 bowersj2 3795: }
1.238 bowersj2 3796:
3797: # Allow the user to select any sequence in the course, feed it to
3798: # another resource selector for that sequence
1.483 foxr 3799: if (!$helper->{VARS}->{'construction'} && !$is_published) {
1.509 albertel 3800: push @$printChoices, [&mtn("Selected <b>Resources</b> from <b>selected folder</b> in course"),
1.249 sakharuk 3801: 'select_sequences', 'CHOOSE_SEQUENCE'];
1.244 bowersj2 3802: my $escapedSequenceName = $helper->{VARS}->{'SEQUENCE'};
3803: #Escape apostrophes and backslashes for Perl
3804: $escapedSequenceName =~ s/\\/\\\\/g;
3805: $escapedSequenceName =~ s/'/\\'/g;
1.239 bowersj2 3806: &Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_FROM_ANY_SEQUENCE);
1.238 bowersj2 3807: <state name="CHOOSE_SEQUENCE" title="Select Sequence To Print From">
3808: <message>Select the sequence to print resources from:</message>
3809: <resource variable="SEQUENCE">
3810: <nextstate>CHOOSE_FROM_ANY_SEQUENCE</nextstate>
3811: <filterfunc>return \$res->is_sequence;</filterfunc>
3812: <valuefunc>return $urlValue;</valuefunc>
1.447 foxr 3813: <choicefunc>return \$res->hasResource(\$res,sub { return !\$_[0]->is_sequence() },0,0);
1.391 foxr 3814: </choicefunc>
1.238 bowersj2 3815: </resource>
3816: </state>
3817: <state name="CHOOSE_FROM_ANY_SEQUENCE" title="Select Resources To Print">
3818: <message>(mark desired resources then click "next" button) <br /></message>
1.435 foxr 3819: <resource variable="RESOURCES" multichoice="1" toponly='1' addstatus="1"
1.287 albertel 3820: closeallpages="1">
1.238 bowersj2 3821: <nextstate>PAGESIZE</nextstate>
1.466 albertel 3822: <filterfunc>return $isNotMap</filterfunc>
1.244 bowersj2 3823: <mapurl evaluate='1'>return '$escapedSequenceName';</mapurl>
1.238 bowersj2 3824: <valuefunc>return $symbFilter;</valuefunc>
1.465 albertel 3825: $start_new_option
1.238 bowersj2 3826: </resource>
3827: </state>
3828: CHOOSE_FROM_ANY_SEQUENCE
1.239 bowersj2 3829: }
1.481 albertel 3830:
1.131 bowersj2 3831: # Generate the first state, to select which resources get printed.
1.223 bowersj2 3832: Apache::lonhelper::state->new("START", "Select Printing Options:");
1.131 bowersj2 3833: $paramHash = Apache::lonhelper::getParamHash();
1.155 sakharuk 3834: $paramHash->{MESSAGE_TEXT} = "";
1.131 bowersj2 3835: Apache::lonhelper::message->new();
3836: $paramHash = Apache::lonhelper::getParamHash();
3837: $paramHash->{'variable'} = 'PRINT_TYPE';
3838: $paramHash->{CHOICES} = $printChoices;
3839: Apache::lonhelper::choices->new();
1.161 bowersj2 3840:
1.223 bowersj2 3841: my $startedTable = 0; # have we started an HTML table yet? (need
3842: # to close it later)
3843:
1.397 albertel 3844: if (($perm{'pav'} and &Apache::lonnet::allowed('vgr',$env{'request.course.id'})) or
1.170 sakharuk 3845: ($helper->{VARS}->{'construction'} eq '1')) {
1.544 bisitz 3846: &addMessage('<br />'
3847: .'<h3>'.&mt('Print Options').'</h3>'
3848: .&Apache::lonhtmlcommon::start_pick_box()
3849: .&Apache::lonhtmlcommon::row_title(
3850: '<label for="ANSWER_TYPE_forminput">'
3851: .&mt('Print Answers')
3852: .'</label>'
3853: )
3854: );
1.161 bowersj2 3855: $paramHash = Apache::lonhelper::getParamHash();
1.162 sakharuk 3856: $paramHash->{'variable'} = 'ANSWER_TYPE';
3857: $helper->declareVar('ANSWER_TYPE');
1.161 bowersj2 3858: $paramHash->{CHOICES} = [
1.242 sakharuk 3859: ['Without Answers', 'yes'],
3860: ['With Answers', 'no'],
1.368 albertel 3861: ['Only Answers', 'only']
1.289 sakharuk 3862: ];
1.210 sakharuk 3863: Apache::lonhelper::dropdown->new();
1.544 bisitz 3864: &addMessage(&Apache::lonhtmlcommon::row_closure());
1.223 bowersj2 3865: $startedTable = 1;
1.556 foxr 3866:
3867: #
3868: # Select font size.
3869: #
3870:
3871: $helper->declareVar('fontsize');
3872: &addMessage(&Apache::lonhtmlcommon::row_title(&mt('Font Size')));
3873: my $xmlfrag = << "FONT_SELECTION";
3874:
3875:
3876: <dropdown variable='fontsize' multichoice='0', allowempty='0'>
3877: <defaultvalue>
3878: return 'normalsize';
3879: </defaultvalue>
3880: <choice computer='tiny'>Tiny</choice>
3881: <choice computer='sub/superscriptsize'>Script Size</choice>
3882: <choice computer='footnotesize'>Footnote Size</choice>
3883: <choice computer='small'>Small</choice>
3884: <choice computer='normalsize'>Normal (default)</choice>
3885: <choice computer='large'>larger than normal</choice>
3886: <choice computer='Large'>Even larger than normal</choice>
3887: <choice computer='LARGE'>Still larger than normal</choice>
3888: <choice computer='huge'>huge font size</choice>
3889: <choice computer='Huge'>Largest possible size</choice>
3890: </dropdown>
3891: FONT_SELECTION
3892: &Apache::lonxml::xmlparse($r, 'helper', $xmlfrag);
3893: &addMessage(&Apache::lonhtmlcommon::row_closure(1));
1.161 bowersj2 3894: }
1.209 sakharuk 3895:
1.397 albertel 3896: if ($perm{'pav'}) {
1.223 bowersj2 3897: if (!$startedTable) {
1.497 www 3898: addMessage("<hr width='33%' /><table><tr><td align='right'>".
3899: '<label for="LATEX_TYPE_forminput">'.
3900: &mt('LaTeX mode').
3901: "</label>: </td><td>");
1.223 bowersj2 3902: $startedTable = 1;
3903: } else {
1.544 bisitz 3904: &addMessage(&Apache::lonhtmlcommon::row_title(
3905: '<label for="LATEX_TYPE_forminput">'
3906: .&mt('LaTeX mode')
3907: .'</label>'
3908: )
3909: );
1.223 bowersj2 3910: }
1.203 sakharuk 3911: $paramHash = Apache::lonhelper::getParamHash();
3912: $paramHash->{'variable'} = 'LATEX_TYPE';
3913: $helper->declareVar('LATEX_TYPE');
3914: if ($helper->{VARS}->{'construction'} eq '1') {
3915: $paramHash->{CHOICES} = [
1.223 bowersj2 3916: ['standard LaTeX mode', 'standard'],
3917: ['LaTeX batchmode', 'batchmode'], ];
1.203 sakharuk 3918: } else {
3919: $paramHash->{CHOICES} = [
1.223 bowersj2 3920: ['LaTeX batchmode', 'batchmode'],
3921: ['standard LaTeX mode', 'standard'] ];
1.203 sakharuk 3922: }
1.210 sakharuk 3923: Apache::lonhelper::dropdown->new();
1.218 sakharuk 3924:
1.544 bisitz 3925: &addMessage(&Apache::lonhtmlcommon::row_closure()
3926: .&Apache::lonhtmlcommon::row_title(
3927: '<label for="TABLE_CONTENTS_forminput">'
3928: .&mt('Print Table of Contents')
3929: .'</label>'
3930: )
3931: );
1.209 sakharuk 3932: $paramHash = Apache::lonhelper::getParamHash();
3933: $paramHash->{'variable'} = 'TABLE_CONTENTS';
3934: $helper->declareVar('TABLE_CONTENTS');
3935: $paramHash->{CHOICES} = [
1.223 bowersj2 3936: ['No', 'no'],
3937: ['Yes', 'yes'] ];
1.210 sakharuk 3938: Apache::lonhelper::dropdown->new();
1.544 bisitz 3939: &addMessage(&Apache::lonhtmlcommon::row_closure());
1.214 sakharuk 3940:
1.220 sakharuk 3941: if (not $helper->{VARS}->{'construction'}) {
1.545 bisitz 3942: &addMessage(&Apache::lonhtmlcommon::row_title(
3943: '<label for="TABLE_INDEX_forminput">'
3944: .&mt('Print Index')
3945: .'</label>'
3946: )
3947: );
1.220 sakharuk 3948: $paramHash = Apache::lonhelper::getParamHash();
3949: $paramHash->{'variable'} = 'TABLE_INDEX';
3950: $helper->declareVar('TABLE_INDEX');
3951: $paramHash->{CHOICES} = [
1.223 bowersj2 3952: ['No', 'no'],
3953: ['Yes', 'yes'] ];
1.220 sakharuk 3954: Apache::lonhelper::dropdown->new();
1.545 bisitz 3955: &addMessage(&Apache::lonhtmlcommon::row_closure());
3956: &addMessage(&Apache::lonhtmlcommon::row_title(
3957: '<label for="PRINT_DISCUSSIONS_forminput">'
3958: .&mt('Print Discussions')
3959: .'</label>'
3960: )
3961: );
1.309 sakharuk 3962: $paramHash = Apache::lonhelper::getParamHash();
3963: $paramHash->{'variable'} = 'PRINT_DISCUSSIONS';
3964: $helper->declareVar('PRINT_DISCUSSIONS');
3965: $paramHash->{CHOICES} = [
3966: ['No', 'no'],
3967: ['Yes', 'yes'] ];
3968: Apache::lonhelper::dropdown->new();
1.545 bisitz 3969: &addMessage(&Apache::lonhtmlcommon::row_closure());
1.372 foxr 3970:
1.511 foxr 3971: # Prompt for printing annotations too.
3972:
1.545 bisitz 3973: &addMessage(&Apache::lonhtmlcommon::row_title(
3974: '<label for="PRINT_ANNOTATIONS_forminput">'
3975: .&mt('Print Annotations')
3976: .'</label>'
3977: )
3978: );
1.511 foxr 3979: $paramHash = Apache::lonhelper::getParamHash();
3980: $paramHash->{'variable'} = "PRINT_ANNOTATIONS";
3981: $helper->declareVar("PRINT_ANNOTATIONS");
3982: $paramHash->{CHOICES} = [
3983: ['No', 'no'],
3984: ['Yes', 'yes']];
3985: Apache::lonhelper::dropdown->new();
1.545 bisitz 3986: &addMessage(&Apache::lonhtmlcommon::row_closure());
1.511 foxr 3987:
1.545 bisitz 3988: &addMessage(&Apache::lonhtmlcommon::row_title(&mt('Foils')));
1.397 albertel 3989: $paramHash = Apache::lonhelper::getParamHash();
3990: $paramHash->{'multichoice'} = "true";
3991: $paramHash->{'allowempty'} = "true";
3992: $paramHash->{'variable'} = "showallfoils";
1.555 bisitz 3993: $paramHash->{'CHOICES'} = [ [&mt('Show All Foils'), "1"] ];
1.397 albertel 3994: Apache::lonhelper::choices->new();
1.545 bisitz 3995: &addMessage(&Apache::lonhtmlcommon::row_closure(1));
1.220 sakharuk 3996: }
1.219 sakharuk 3997:
1.230 albertel 3998: if ($helper->{'VARS'}->{'construction'}) {
1.505 albertel 3999: my $stylevalue='$Apache::lonnet::env{"construct.style"}';
1.497 www 4000: my $randseedtext=&mt("Use random seed");
4001: my $stylefiletext=&mt("Use style file");
1.506 albertel 4002: my $selectfiletext=&mt("Select style file");
1.497 www 4003:
1.544 bisitz 4004: my $xmlfrag .= '<message>'
4005: .&Apache::lonhtmlcommon::row_title('<label for="curseed_forminput">'
4006: .$randseedtext
4007: .'</label>'
4008: )
4009: .'</message>
4010: <string variable="curseed" size="15" maxlength="15">
4011: <defaultvalue>
4012: return '.$helper->{VARS}->{'curseed'}.';
4013: </defaultvalue>'
4014: .'</string>'
4015: .'<message>'
4016: .&Apache::lonhtmlcommon::row_closure()
4017: .&Apache::lonhtmlcommon::row_title('<label for="style_file">'
4018: .$stylefiletext
4019: .'</label>'
4020: )
4021: .'</message>
1.504 albertel 4022: <string variable="style_file" size="40">
1.544 bisitz 4023: <defaultvalue>
4024: return '.$stylevalue.';
4025: </defaultvalue>
4026: </string><message> '
4027: .qq|<a href="javascript:openbrowser('helpform','style_file_forminput','sty')">|
4028: .$selectfiletext.'</a>'
4029: .&Apache::lonhtmlcommon::row_closure()
1.555 bisitz 4030: .&Apache::lonhtmlcommon::row_title(&mt('Show All Foils'))
1.544 bisitz 4031: .'</message>
1.371 foxr 4032: <choices allowempty="1" multichoice="true" variable="showallfoils">
1.544 bisitz 4033: <choice computer="1"> </choice>
4034: </choices>'
4035: .'<message>'
4036: .&Apache::lonhtmlcommon::row_closure()
4037: .'</message>';
1.230 albertel 4038: &Apache::lonxml::xmlparse($r, 'helper', $xmlfrag);
1.512 foxr 4039:
4040:
1.544 bisitz 4041: &addMessage(&Apache::lonhtmlcommon::row_title(&mt('Problem Type')));
1.512 foxr 4042: #
4043: # Initial value from construction space:
4044: #
4045: if (!$helper->{VARS}->{'probstatus'} && $env{'form.problemtype'}) {
4046: $helper->{VARS}->{'probstatus'} = $env{'form.problemtype'}; # initial value
4047: }
1.518 foxr 4048: $xmlfrag = << "PROBTYPE";
4049: <dropdown variable="probstatus" multichoice="0" allowempty="0">
4050: <defaultvalue>
4051: return "$helper->{VARS}->{'probstatus'}";
4052: </defaultvalue>
4053: <choice computer="problem">Homework Problem</choice>
4054: <choice computer="exam">Exam Problem</choice>
4055: <choice computer="survey">Survey question</choice>
1.572 raeburn 4056: ,choice computer="anonsurvey"Anonymous survey question</choice>
1.518 foxr 4057: </dropdown>
4058: PROBTYPE
4059: &Apache::lonxml::xmlparse($r, 'helper', $xmlfrag);
1.544 bisitz 4060: &addMessage(&Apache::lonhtmlcommon::row_closure(1));
1.512 foxr 4061:
1.556 foxr 4062:
4063:
1.544 bisitz 4064: }
1.223 bowersj2 4065: }
1.264 sakharuk 4066:
4067:
4068:
1.218 sakharuk 4069:
1.223 bowersj2 4070: if ($startedTable) {
1.544 bisitz 4071: &addMessage(&Apache::lonhtmlcommon::end_pick_box());
1.215 sakharuk 4072: }
1.161 bowersj2 4073:
1.131 bowersj2 4074: Apache::lonprintout::page_format_state->new("FORMAT");
4075:
1.144 bowersj2 4076: # Generate the PAGESIZE state which will offer the user the margin
4077: # choices if they select one column
4078: Apache::lonhelper::state->new("PAGESIZE", "Set Margins");
4079: Apache::lonprintout::page_size_state->new('pagesize', 'FORMAT', 'FINAL');
4080:
4081:
1.131 bowersj2 4082: $helper->process();
4083:
1.416 foxr 4084:
1.131 bowersj2 4085: # MANUAL BAILOUT CONDITION:
4086: # If we're in the "final" state, bailout and return to handler
4087: if ($helper->{STATE} eq 'FINAL') {
4088: return $helper;
4089: }
1.130 sakharuk 4090:
1.131 bowersj2 4091: $r->print($helper->display());
1.395 www 4092: if ($helper->{STATE} eq 'START') {
4093: &recently_generated($r);
4094: }
1.333 albertel 4095: &Apache::lonhelper::unregisterHelperTags();
1.115 bowersj2 4096:
4097: return OK;
4098: }
4099:
1.1 www 4100:
4101: 1;
1.119 bowersj2 4102:
4103: package Apache::lonprintout::page_format_state;
4104:
4105: =pod
4106:
1.131 bowersj2 4107: =head1 Helper element: page_format_state
4108:
4109: See lonhelper.pm documentation for discussion of the helper framework.
1.119 bowersj2 4110:
1.131 bowersj2 4111: Apache::lonprintout::page_format_state is an element that gives the
4112: user an opportunity to select the page layout they wish to print
4113: with: Number of columns, portrait/landscape, and paper size. If you
4114: want to change the paper size choices, change the @paperSize array
4115: contents in this package.
1.119 bowersj2 4116:
1.131 bowersj2 4117: page_format_state is always directly invoked in lonprintout.pm, so there
4118: is no tag interface. You actually pass parameters to the constructor.
1.119 bowersj2 4119:
4120: =over 4
4121:
1.131 bowersj2 4122: =item * B<new>(varName): varName is where the print information will be stored in the format FIXME.
1.119 bowersj2 4123:
4124: =back
4125:
4126: =cut
4127:
1.131 bowersj2 4128: use Apache::lonhelper;
1.119 bowersj2 4129:
4130: no strict;
1.131 bowersj2 4131: @ISA = ("Apache::lonhelper::element");
1.119 bowersj2 4132: use strict;
1.266 sakharuk 4133: use Apache::lonlocal;
1.373 albertel 4134: use Apache::lonnet;
1.119 bowersj2 4135:
4136: my $maxColumns = 2;
1.376 albertel 4137: # it'd be nice if these all worked
4138: #my @paperSize = ("letter [8 1/2x11 in]", "legal [8 1/2x14 in]",
4139: # "tabloid (ledger) [11x17 in]", "executive [7 1/2x10 in]",
4140: # "a2 [420x594 mm]", "a3 [297x420 mm]", "a4 [210x297 mm]",
4141: # "a5 [148x210 mm]", "a6 [105x148 mm]" );
1.326 sakharuk 4142: my @paperSize = ("letter [8 1/2x11 in]", "legal [8 1/2x14 in]",
1.376 albertel 4143: "a4 [210x297 mm]");
1.119 bowersj2 4144:
4145: # Tentative format: Orientation (L = Landscape, P = portrait) | Colnum |
4146: # Paper type
4147:
4148: sub new {
1.131 bowersj2 4149: my $self = Apache::lonhelper::element->new();
1.119 bowersj2 4150:
1.135 bowersj2 4151: shift;
4152:
1.131 bowersj2 4153: $self->{'variable'} = shift;
1.134 bowersj2 4154: my $helper = Apache::lonhelper::getHelper();
1.135 bowersj2 4155: $helper->declareVar($self->{'variable'});
1.131 bowersj2 4156: bless($self);
1.119 bowersj2 4157: return $self;
4158: }
4159:
4160: sub render {
4161: my $self = shift;
1.131 bowersj2 4162: my $helper = Apache::lonhelper::getHelper();
1.119 bowersj2 4163: my $result = '';
1.131 bowersj2 4164: my $var = $self->{'variable'};
1.266 sakharuk 4165: my $PageLayout=&mt('Page layout');
4166: my $NumberOfColumns=&mt('Number of columns');
4167: my $PaperType=&mt('Paper type');
1.506 albertel 4168: my $landscape=&mt('Landscape');
4169: my $portrait=&mt('Portrait');
1.539 onken 4170: my $pdfFormLabel=&mt('PDF-Formfields');
4171: my $with=&mt('with Formfields');
4172: my $without=&mt('without Formfields');
1.556 foxr 4173:
4174:
1.544 bisitz 4175: $result.='<h3>'.&mt('Layout Options').'</h3>'
4176: .&Apache::loncommon::start_data_table()
4177: .&Apache::loncommon::start_data_table_header_row()
4178: .'<th>'.$PageLayout.'</th>'
4179: .'<th>'.$NumberOfColumns.'</th>'
4180: .'<th>'.$PaperType.'</th>'
4181: .'<th>'.$pdfFormLabel.'</th>'
4182: .&Apache::loncommon::end_data_table_header_row()
4183: .&Apache::loncommon::start_data_table_row()
4184: .'<td>'
4185: .'<label><input type="radio" name="'.${var}.'.layout" value="L" />'.$landscape.'</label><br />'
4186: .'<label><input type="radio" name="'.${var}.'.layout" value="P" checked="checked" />'.$portrait.'</label>'
4187: .'</td>';
1.119 bowersj2 4188:
1.544 bisitz 4189: $result.='<td align="center">'
4190: .'<select name="'.${var}.'.cols">';
1.119 bowersj2 4191:
4192: my $i;
4193: for ($i = 1; $i <= $maxColumns; $i++) {
1.144 bowersj2 4194: if ($i == 2) {
1.553 bisitz 4195: $result .= '<option value="'.$i.'" selected="selected">'.$i.'</option>'."\n";
1.119 bowersj2 4196: } else {
1.553 bisitz 4197: $result .= '<option value="'.$i.'">'.$i.'</option>'."\n";
1.119 bowersj2 4198: }
4199: }
4200:
4201: $result .= "</select></td><td>\n";
4202: $result .= "<select name='${var}.paper'>\n";
4203:
1.373 albertel 4204: my %parmhash=&Apache::lonnet::coursedescription($env{'request.course.id'});
1.398 albertel 4205: my $DefaultPaperSize=lc($parmhash{'default_paper_size'});
4206: $DefaultPaperSize=~s/\s//g;
1.304 sakharuk 4207: if ($DefaultPaperSize eq '') {$DefaultPaperSize='letter';}
1.119 bowersj2 4208: $i = 0;
4209: foreach (@paperSize) {
1.326 sakharuk 4210: $_=~/(\w+)/;
4211: my $papersize=$1;
1.304 sakharuk 4212: if ($paperSize[$i]=~/$DefaultPaperSize/) {
1.553 bisitz 4213: $result .= '<option selected="selected" value="'.$papersize.'">'.$paperSize[$i].'</option>'."\n";
1.119 bowersj2 4214: } else {
1.553 bisitz 4215: $result .= '<option value="'.$papersize.'">'.$paperSize[$i].'</option>'."\n";
1.119 bowersj2 4216: }
4217: $i++;
4218: }
1.539 onken 4219: $result .= <<HTML;
4220: </select>
4221: </td>
4222: <td align='center'>
4223: <select name='${var}.pdfFormFields'>
1.553 bisitz 4224: <option selected="selected" value="no">$without</option>
4225: <option value="yes">$with</option>
1.539 onken 4226: </select>
4227: </td>
4228: HTML
1.544 bisitz 4229: $result.=&Apache::loncommon::end_data_table_row()
4230: .&Apache::loncommon::end_data_table();
1.539 onken 4231:
1.119 bowersj2 4232: return $result;
1.135 bowersj2 4233: }
4234:
4235: sub postprocess {
4236: my $self = shift;
4237:
4238: my $var = $self->{'variable'};
1.136 bowersj2 4239: my $helper = Apache::lonhelper->getHelper();
1.135 bowersj2 4240: $helper->{VARS}->{$var} =
1.373 albertel 4241: $env{"form.$var.layout"} . '|' . $env{"form.$var.cols"} . '|' .
1.539 onken 4242: $env{"form.$var.paper"} . '|' . $env{"form.$var.pdfFormFields"};
1.135 bowersj2 4243: return 1;
1.119 bowersj2 4244: }
4245:
4246: 1;
1.144 bowersj2 4247:
4248: package Apache::lonprintout::page_size_state;
4249:
4250: =pod
4251:
4252: =head1 Helper element: page_size_state
4253:
4254: See lonhelper.pm documentation for discussion of the helper framework.
4255:
4256: Apache::lonprintout::page_size_state is an element that gives the
4257: user the opportunity to further refine the page settings if they
4258: select a single-column page.
4259:
4260: page_size_state is always directly invoked in lonprintout.pm, so there
4261: is no tag interface. You actually pass parameters to the constructor.
4262:
4263: =over 4
4264:
4265: =item * B<new>(varName): varName is where the print information will be stored in the format FIXME.
4266:
4267: =back
4268:
4269: =cut
4270:
4271: use Apache::lonhelper;
1.373 albertel 4272: use Apache::lonnet;
1.144 bowersj2 4273: no strict;
4274: @ISA = ("Apache::lonhelper::element");
4275: use strict;
4276:
4277:
4278:
4279: sub new {
4280: my $self = Apache::lonhelper::element->new();
4281:
4282: shift; # disturbs me (probably prevents subclassing) but works (drops
4283: # package descriptor)... - Jeremy
4284:
4285: $self->{'variable'} = shift;
4286: my $helper = Apache::lonhelper::getHelper();
4287: $helper->declareVar($self->{'variable'});
4288:
4289: # The variable name of the format element, so we can look into
4290: # $helper->{VARS} to figure out whether the columns are one or two
4291: $self->{'formatvar'} = shift;
4292:
1.463 foxr 4293:
1.144 bowersj2 4294: $self->{NEXTSTATE} = shift;
4295: bless($self);
1.467 foxr 4296:
1.144 bowersj2 4297: return $self;
4298: }
4299:
4300: sub render {
4301: my $self = shift;
4302: my $helper = Apache::lonhelper::getHelper();
4303: my $result = '';
4304: my $var = $self->{'variable'};
4305:
1.467 foxr 4306:
4307:
1.144 bowersj2 4308: if (defined $self->{ERROR_MSG}) {
1.464 albertel 4309: $result .= '<br /><span class="LC_error">' . $self->{ERROR_MSG} . '</span><br />';
1.144 bowersj2 4310: }
4311:
1.438 foxr 4312: my $format = $helper->{VARS}->{$self->{'formatvar'}};
1.463 foxr 4313:
4314: # Use format to get sensible defaults for the margins:
4315:
4316:
4317: my ($laystyle, $cols, $papersize) = split(/\|/, $format);
4318: ($papersize) = split(/ /, $papersize);
4319:
1.559 foxr 4320: $laystyle = &Apache::lonprintout::map_laystyle($laystyle);
1.463 foxr 4321:
4322:
4323:
1.464 albertel 4324: my %size;
4325: ($size{'width_and_units'},
4326: $size{'height_and_units'},
4327: $size{'margin_and_units'})=
4328: &Apache::lonprintout::page_format($papersize, $laystyle, $cols);
1.463 foxr 4329:
1.464 albertel 4330: foreach my $dimension ('width','height','margin') {
4331: ($size{$dimension},$size{$dimension.'_unit'}) =
4332: split(/ +/, $size{$dimension.'_and_units'},2);
4333:
4334: foreach my $unit ('cm','in') {
4335: $size{$dimension.'_options'} .= '<option ';
4336: if ($size{$dimension.'_unit'} eq $unit) {
4337: $size{$dimension.'_options'} .= 'selected="selected" ';
4338: }
4339: $size{$dimension.'_options'} .= '>'.$unit.'</option>';
4340: }
1.438 foxr 4341: }
4342:
1.470 foxr 4343: # Adjust margin for LaTeX margin: .. requires units == cm or in.
4344:
4345: if ($size{'margin_unit'} eq 'in') {
4346: $size{'margin'} += 1;
4347: } else {
4348: $size{'margin'} += 2.54;
4349: }
1.548 bisitz 4350: my %lt = &Apache::lonlocal::texthash(
4351: 'format' => 'How should each column be formatted?',
4352: 'width' => 'Width',
4353: 'height' => 'Height',
4354: 'margin' => 'Left Margin'
4355: );
4356:
4357: $result .= '<p>'.$lt{'format'}.'</p>'
4358: .&Apache::lonhtmlcommon::start_pick_box()
4359: .&Apache::lonhtmlcommon::row_title($lt{'width'})
4360: .'<input type="text" name="'.$var.'.width" value="'.$size{'width'}.'" size="4" />'
4361: .'<select name="'.$var.'.widthunit">'
4362: .$size{'width_options'}
4363: .'</select>'
4364: .&Apache::lonhtmlcommon::row_closure()
4365: .&Apache::lonhtmlcommon::row_title($lt{'height'})
4366: .'<input type="text" name="'.$var.'.height" value="'.$size{'height'}.'" size="4" />'
4367: .'<select name="'.$var.'.heightunit">'
4368: .$size{'height_options'}
4369: .'</select>'
4370: .&Apache::lonhtmlcommon::row_closure()
4371: .&Apache::lonhtmlcommon::row_title($lt{'margin'})
4372: .'<input type="text" name="'.$var.'.lmargin" value="'.$size{'margin'}.'" size="4" />'
4373: .'<select name="'.$var.'.lmarginunit">'
4374: .$size{'margin_options'}
4375: .'</select>'
4376: .&Apache::lonhtmlcommon::row_closure(1)
4377: .&Apache::lonhtmlcommon::end_pick_box();
4378: # <p>Hint: Some instructors like to leave scratch space for the student by
4379: # making the width much smaller than the width of the page.</p>
1.144 bowersj2 4380:
4381: return $result;
4382: }
4383:
1.470 foxr 4384:
1.144 bowersj2 4385: sub preprocess {
4386: my $self = shift;
4387: my $helper = Apache::lonhelper::getHelper();
4388:
4389: my $format = $helper->{VARS}->{$self->{'formatvar'}};
1.467 foxr 4390:
4391: # If the user does not have 'pav' privilege, set default widths and
4392: # on to the next state right away.
4393: #
4394: if (!$perm{'pav'}) {
4395: my $var = $self->{'variable'};
4396: my $format = $helper->{VARS}->{$self->{'formatvar'}};
4397:
4398: my ($laystyle, $cols, $papersize) = split(/\|/, $format);
4399: ($papersize) = split(/ /, $papersize);
4400:
4401:
1.560 foxr 4402: $laystyle = &Apache::lonprintout::map_laystyle($laystyle);
1.559 foxr 4403:
1.467 foxr 4404: # Figure out some good defaults for the print out and set them:
4405:
4406: my %size;
4407: ($size{'width'},
4408: $size{'height'},
4409: $size{'lmargin'})=
4410: &Apache::lonprintout::page_format($papersize, $laystyle, $cols);
4411:
4412: foreach my $dim ('width', 'height', 'lmargin') {
4413: my ($value, $units) = split(/ /, $size{$dim});
1.470 foxr 4414:
1.467 foxr 4415: $helper->{VARS}->{"$var.".$dim} = $value;
4416: $helper->{VARS}->{"$var.".$dim.'unit'} = $units;
4417:
4418: }
4419:
4420:
4421: # Transition to the next state
4422:
4423: $helper->changeState($self->{NEXTSTATE});
4424: }
1.144 bowersj2 4425:
4426: return 1;
4427: }
4428:
4429: sub postprocess {
4430: my $self = shift;
4431:
4432: my $var = $self->{'variable'};
4433: my $helper = Apache::lonhelper->getHelper();
1.373 albertel 4434: my $width = $helper->{VARS}->{$var .'.width'} = $env{"form.${var}.width"};
4435: my $height = $helper->{VARS}->{$var .'.height'} = $env{"form.${var}.height"};
4436: my $lmargin = $helper->{VARS}->{$var .'.lmargin'} = $env{"form.${var}.lmargin"};
4437: $helper->{VARS}->{$var .'.widthunit'} = $env{"form.${var}.widthunit"};
4438: $helper->{VARS}->{$var .'.heightunit'} = $env{"form.${var}.heightunit"};
4439: $helper->{VARS}->{$var .'.lmarginunit'} = $env{"form.${var}.lmarginunit"};
1.144 bowersj2 4440:
4441: my $error = '';
4442:
4443: # /^-?[0-9]+(\.[0-9]*)?$/ -> optional minus, at least on digit, followed
4444: # by an optional period, followed by digits, ending the string
4445:
1.464 albertel 4446: if ($width !~ /^-?[0-9]*(\.[0-9]*)?$/) {
1.144 bowersj2 4447: $error .= "Invalid width; please type only a number.<br />\n";
4448: }
1.464 albertel 4449: if ($height !~ /^-?[0-9]*(\.[0-9]*)?$/) {
1.144 bowersj2 4450: $error .= "Invalid height; please type only a number.<br />\n";
4451: }
1.464 albertel 4452: if ($lmargin !~ /^-?[0-9]*(\.[0-9]*)?$/) {
1.144 bowersj2 4453: $error .= "Invalid left margin; please type only a number.<br />\n";
1.470 foxr 4454: } else {
4455: # Adjust for LaTeX 1.0 inch margin:
4456:
4457: if ($env{"form.${var}.lmarginunit"} eq "in") {
4458: $helper->{VARS}->{$var.'.lmargin'} = $lmargin - 1;
4459: } else {
4460: $helper->{VARS}->{$var.'.lmargin'} = $lmargin - 2.54;
4461: }
1.144 bowersj2 4462: }
4463:
4464: if (!$error) {
4465: Apache::lonhelper::getHelper()->changeState($self->{NEXTSTATE});
4466: return 1;
4467: } else {
4468: $self->{ERROR_MSG} = $error;
4469: return 0;
4470: }
4471: }
4472:
4473:
1.119 bowersj2 4474:
1.1 www 4475: __END__
1.6 sakharuk 4476:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to lonprintout.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface