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