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