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