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