Annotation of loncom/interface/lonprintout.pm, revision 1.592

1.590     foxr        1: 
1.389     foxr        2: # The LearningOnline Network
1.1       www         3: # Printout
                      4: #
1.592   ! foxr        5: # $Id: lonprintout.pm,v 1.591 2011/06/14 10:22:39 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 = &copyright_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:     #
                   3357:     if ($actually_printed == 0) {
                   3358: 
1.592   ! foxr     3359: 	$current_output  = &encapsulate_minipage("\\vskip -10mm \nNo incomplete resources\n \\vskip 100 mm { }\n");
1.591     foxr     3360: 	$current_output = &print_latex_header() . $current_output;
1.592   ! foxr     3361: 
1.591     foxr     3362:     }
1.552     foxr     3363: 
1.583     raeburn  3364:     if ($syllabus_first) {
                   3365:         $current_output =~ s/\\\\ Last updated:/Last updated:/
                   3366:     }
1.284     albertel 3367:     my $courseidinfo = &get_course();
                   3368:     my $currentassignment=&Apache::lonxml::latex_special_symbols($helper->{VARS}->{'assignment'},'header');
1.476     albertel 3369:     my $header_line =
1.486     foxr     3370: 	&format_page_header($LaTeXwidth, $parmhash{'print_header_format'},
1.537     foxr     3371: 			    $currentassignment, $courseidinfo, $fullname, $usersection);
1.476     albertel 3372:     my $header_start = ($columns_in_format == 1) ? '\lhead'
                   3373: 	                                         : '\fancyhead[LO]';
                   3374:     $header_line = $header_start.'{'.$header_line.'}';
1.583     raeburn  3375:     if ($current_output=~/\\documentclass/) {
1.476     albertel 3376: 	$current_output =~ s/\\begin{document}/\\setlength{\\topmargin}{1cm} \\begin{document}\\noindent\\parbox{\\minipagewidth}{\\noindent$header_line$namepostfix}\\vskip 5 mm /;
1.284     albertel 3377:     } else {
1.476     albertel 3378: 	my $blankpages = 
                   3379: 	    '\clearpage\strut\clearpage'x$helper->{'VARS'}->{'EMPTY_PAGES'};
                   3380: 	    
                   3381: 	$current_output = '\strut\vspace*{-6 mm}\\newline'.
                   3382: 	    &copyright_line().' \newpage '.$blankpages.$end_of_student.
                   3383: 	    '\setcounter{page}{1}\noindent\parbox{\minipagewidth}{\noindent'.
                   3384: 	    $header_line.$namepostfix.'} \vskip 5 mm '.$current_output;
1.284     albertel 3385:     }
1.440     foxr     3386:     #
                   3387:     #  Close the student bracketing.
                   3388:     #
1.375     foxr     3389:     return ($current_output,$fullname, $printed);
1.284     albertel 3390: 
                   3391: }
1.140     sakharuk 3392: 
1.3       sakharuk 3393: sub handler {
                   3394: 
                   3395:     my $r = shift;
1.397     albertel 3396:     
                   3397:     &init_perm();
1.114     bowersj2 3398: 
1.416     foxr     3399: 
1.67      www      3400: 
1.397     albertel 3401:     my $helper = printHelper($r);
                   3402:     if (!ref($helper)) {
                   3403: 	return $helper;
1.60      sakharuk 3404:     }
1.177     sakharuk 3405:    
1.184     sakharuk 3406: 
1.454     foxr     3407:     %parmhash=&Apache::lonnet::coursedescription($env{'request.course.id'});
1.353     foxr     3408:  
1.416     foxr     3409: 
1.350     foxr     3410: 
                   3411: 
1.367     foxr     3412:     #  If a figure conversion queue file exists for this user.domain
                   3413:     # we delete it since it can only be bad (if it were good, printout.pl
                   3414:     # would have deleted it the last time around.
                   3415: 
1.373     albertel 3416:     my $conversion_queuefile = "/home/httpd/prtspool/$env{'user.name'}_$env{'user.domain'}_printout.dat";
1.367     foxr     3417:     if(-e $conversion_queuefile) {
                   3418: 	unlink $conversion_queuefile;
                   3419:     }
1.515     foxr     3420:     
                   3421: 
1.184     sakharuk 3422:     &output_data($r,$helper,\%parmhash);
1.2       sakharuk 3423:     return OK;
1.60      sakharuk 3424: } 
1.2       sakharuk 3425: 
1.131     bowersj2 3426: use Apache::lonhelper;
1.130     sakharuk 3427: 
1.223     bowersj2 3428: sub addMessage {
                   3429:     my $text = shift;
                   3430:     my $paramHash = Apache::lonhelper::getParamHash();
                   3431:     $paramHash->{MESSAGE_TEXT} = $text;
                   3432:     Apache::lonhelper::message->new();
                   3433: }
                   3434: 
1.416     foxr     3435: 
1.238     bowersj2 3436: 
1.397     albertel 3437: sub init_perm {
                   3438:     undef(%perm);
                   3439:     $perm{'pav'}=&Apache::lonnet::allowed('pav',$env{'request.course.id'});
                   3440:     if (!$perm{'pav'}) {
                   3441: 	$perm{'pav'}=&Apache::lonnet::allowed('pav',
                   3442: 		  $env{'request.course.id'}.'/'.$env{'request.course.sec'});
                   3443:     }
1.465     albertel 3444:     $perm{'pfo'}=&Apache::lonnet::allowed('pfo',$env{'request.course.id'});
1.397     albertel 3445:     if (!$perm{'pfo'}) {
                   3446: 	$perm{'pfo'}=&Apache::lonnet::allowed('pfo',
                   3447: 		  $env{'request.course.id'}.'/'.$env{'request.course.sec'});
                   3448:     }
1.585     raeburn  3449:     $perm{'vgr'}=&Apache::lonnet::allowed('vgr',$env{'request.course.id'});
                   3450:     if (!$perm{'vgr'}) {
                   3451:         $perm{'vgr'}=&Apache::lonnet::allowed('vgr',
                   3452:                    $env{'request.course.id'}.'/'.$env{'request.course.sec'});
                   3453:     }
1.397     albertel 3454: }
                   3455: 
1.507     albertel 3456: sub get_randomly_ordered_warning {
                   3457:     my ($helper,$map) = @_;
                   3458: 
                   3459:     my $message;
                   3460: 
                   3461:     my $postdata = $env{'form.postdata'} || $helper->{VARS}{'postdata'};
                   3462:     my $navmap = Apache::lonnavmaps::navmap->new();
1.547     raeburn  3463:     if (defined($navmap)) {
                   3464:         my $res = $navmap->getResourceByUrl($map);
                   3465:         if ($res) {
                   3466: 	    my $func = 
                   3467: 	        sub { return ($_[0]->is_map() && $_[0]->randomorder); };
                   3468: 	    my @matches = $navmap->retrieveResources($res, $func,1,1,1);
                   3469: 	    if (@matches) {
                   3470: 	        $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.";
                   3471: 	    }
                   3472:         }
                   3473:         if ($message) {
                   3474: 	    return '<message type="warning">'.$message.'</message>';
                   3475:         }
                   3476:     } else {
                   3477:         $message = "Retrieval of information about ordering of resources failed."; 
                   3478:         return '<message type="warning">'.$message.'</message>';
1.507     albertel 3479:     }
                   3480:     return;
                   3481: }
                   3482: 
1.131     bowersj2 3483: sub printHelper {
1.115     bowersj2 3484:     my $r = shift;
                   3485: 
                   3486:     if ($r->header_only) {
1.373     albertel 3487:         if ($env{'browser.mathml'}) {
1.241     www      3488:             &Apache::loncommon::content_type($r,'text/xml');
1.131     bowersj2 3489:         } else {
1.241     www      3490:             &Apache::loncommon::content_type($r,'text/html');
1.131     bowersj2 3491:         }
                   3492:         $r->send_http_header;
                   3493:         return OK;
1.115     bowersj2 3494:     }
                   3495: 
1.131     bowersj2 3496:     # Send header, nocache
1.373     albertel 3497:     if ($env{'browser.mathml'}) {
1.241     www      3498:         &Apache::loncommon::content_type($r,'text/xml');
1.115     bowersj2 3499:     } else {
1.241     www      3500:         &Apache::loncommon::content_type($r,'text/html');
1.115     bowersj2 3501:     }
                   3502:     &Apache::loncommon::no_cache($r);
                   3503:     $r->send_http_header;
                   3504:     $r->rflush();
                   3505: 
1.131     bowersj2 3506:     # Unfortunately, this helper is so complicated we have to
                   3507:     # write it by hand
                   3508: 
                   3509:     Apache::loncommon::get_unprocessed_cgi($ENV{QUERY_STRING});
                   3510:     
1.176     bowersj2 3511:     my $helper = Apache::lonhelper::helper->new("Printing Helper");
1.146     bowersj2 3512:     $helper->declareVar('symb');
1.156     bowersj2 3513:     $helper->declareVar('postdata');    
1.290     sakharuk 3514:     $helper->declareVar('curseed'); 
                   3515:     $helper->declareVar('probstatus');   
1.156     bowersj2 3516:     $helper->declareVar('filename');
                   3517:     $helper->declareVar('construction');
1.178     sakharuk 3518:     $helper->declareVar('assignment');
1.262     sakharuk 3519:     $helper->declareVar('style_file');
1.340     foxr     3520:     $helper->declareVar('student_sort');
1.363     foxr     3521:     $helper->declareVar('FINISHPAGE');
1.366     foxr     3522:     $helper->declareVar('PRINT_TYPE');
1.372     foxr     3523:     $helper->declareVar("showallfoils");
1.483     foxr     3524:     $helper->declareVar("STUDENTS");
1.569     foxr     3525:     $helper->declareVar("EXTRASPACE");
1.518     foxr     3526: 
                   3527:    
                   3528: 
                   3529: 
1.569     foxr     3530:     #  The page breaks and extra spaces
                   3531:     #  can get loaded initially from the course environment:
1.394     foxr     3532:     # But we only do this in the initial state so that they are allowed to change.
                   3533:     #
1.366     foxr     3534: 
1.363     foxr     3535:     
                   3536:     &Apache::loncommon::restore_course_settings('print',
1.366     foxr     3537: 						{'pagebreaks'  => 'scalar',
1.569     foxr     3538: 						 'extraspace'  => 'scalar',
1.570     foxr     3539: 						 'extraspace_units' => 'scalar',
1.366     foxr     3540: 					         'lastprinttype' => 'scalar'});
                   3541:     
1.483     foxr     3542:     # This will persistently load in the data we want from the
                   3543:     # very first screen.
1.394     foxr     3544:     
                   3545:     if($helper->{VARS}->{PRINT_TYPE} eq $env{'form.lastprinttype'}) {
                   3546: 	if (!defined ($env{"form.CURRENT_STATE"})) {
                   3547: 	    
                   3548: 	    $helper->{VARS}->{FINISHPAGE} = $env{'form.pagebreaks'};
1.569     foxr     3549: 	    $helper->{VARS}->{EXTRASPACE} = $env{'form.extraspace'};
1.570     foxr     3550: 	    $helper->{VARS}->{EXTRASPACE_UNITS} = $env{'form.extraspace_units'};
1.394     foxr     3551: 	} else {
                   3552: 	    my $state = $env{"form.CURRENT_STATE"};
                   3553: 	    if ($state eq "START") {
                   3554: 		$helper->{VARS}->{FINISHPAGE} = $env{'form.pagebreaks'};
1.569     foxr     3555: 		$helper->{VARS}->{EXTRASPACE} = $env{'form.extraspace'};
1.570     foxr     3556: 		$helper->{VARS}->{EXTRASPACE_UNITS} = $env{'form.extraspace_units'};
                   3557: 		
1.394     foxr     3558: 	    }
                   3559: 	}
                   3560: 	
1.366     foxr     3561:     }
1.481     albertel 3562: 
1.156     bowersj2 3563:     # Detect whether we're coming from construction space
1.373     albertel 3564:     if ($env{'form.postdata'}=~/^(?:http:\/\/[^\/]+\/|\/|)\~([^\/]+)\/(.*)$/) {
1.235     bowersj2 3565:         $helper->{VARS}->{'filename'} = "~$1/$2";
1.156     bowersj2 3566:         $helper->{VARS}->{'construction'} = 1;
1.481     albertel 3567:     } else {
1.373     albertel 3568:         if ($env{'form.postdata'}) {
                   3569:             $helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($env{'form.postdata'});
1.482     albertel 3570: 	    if ( $helper->{VARS}->{'symb'} eq '') {
                   3571: 		$helper->{VARS}->{'postdata'} = $env{'form.postdata'};
                   3572: 	    }
1.156     bowersj2 3573:         }
1.373     albertel 3574:         if ($env{'form.symb'}) {
                   3575:             $helper->{VARS}->{'symb'} = $env{'form.symb'};
1.156     bowersj2 3576:         }
1.373     albertel 3577:         if ($env{'form.url'}) {
1.156     bowersj2 3578:             $helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($helper->{VARS}->{'postdata'});
                   3579:         }
1.416     foxr     3580: 
1.157     bowersj2 3581:     }
1.481     albertel 3582: 
1.373     albertel 3583:     if ($env{'form.symb'}) {
                   3584:         $helper->{VARS}->{'symb'} = $env{'form.symb'};
1.146     bowersj2 3585:     }
1.373     albertel 3586:     if ($env{'form.url'}) {
1.140     sakharuk 3587:         $helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($helper->{VARS}->{'postdata'});
1.153     sakharuk 3588: 
1.140     sakharuk 3589:     }
1.343     albertel 3590:     $helper->{VARS}->{'symb'}=
                   3591: 	&Apache::lonenc::check_encrypt($helper->{VARS}->{'symb'});
1.335     albertel 3592:     my ($resourceTitle,$sequenceTitle,$mapTitle) = &details_for_menu($helper);
1.178     sakharuk 3593:     if ($sequenceTitle ne '') {$helper->{VARS}->{'assignment'}=$sequenceTitle;}
1.481     albertel 3594: 
1.156     bowersj2 3595:     
1.146     bowersj2 3596:     # Extract map
                   3597:     my $symb = $helper->{VARS}->{'symb'};
1.156     bowersj2 3598:     my ($map, $id, $url);
                   3599:     my $subdir;
1.483     foxr     3600:     my $is_published=0;		# True when printing from resource space.
1.589     foxr     3601:     my $res_printable = 1;	# By default the current resource is printable.    
                   3602:     my $userCanPrint = ($perm{'pav'} || $perm{'pfo'});
1.156     bowersj2 3603: 
                   3604:     # Get the resource name from construction space
                   3605:     if ($helper->{VARS}->{'construction'}) {
                   3606:         $resourceTitle = substr($helper->{VARS}->{'filename'}, 
                   3607:                                 rindex($helper->{VARS}->{'filename'}, '/')+1);
                   3608:         $subdir = substr($helper->{VARS}->{'filename'},
                   3609:                          0, rindex($helper->{VARS}->{'filename'}, '/') + 1);
1.481     albertel 3610:     } else {
1.562     foxr     3611: 	# From course space:
                   3612: 
1.482     albertel 3613: 	if ($symb ne '') {
                   3614: 	    ($map, $id, $url) = &Apache::lonnet::decode_symb($symb);
                   3615: 	    $helper->{VARS}->{'postdata'} = 
                   3616: 		&Apache::lonenc::check_encrypt(&Apache::lonnet::clutter($url));
1.589     foxr     3617: 	    my $navmap = Apache::lonnavmaps::navmap->new();
                   3618: 	    my $res   = $navmap->getBySymb($symb);
                   3619: 	    $res_printable  = $res->resprintable() || $userCanPrint; #printability in course context
1.482     albertel 3620: 	} else {
1.589     foxr     3621: 	    # Resource space.
                   3622: 
1.482     albertel 3623: 	    $url = $helper->{VARS}->{'postdata'};
1.483     foxr     3624: 	    $is_published=1;	# From resource space.
1.482     albertel 3625: 	}
                   3626: 	$url = &Apache::lonnet::clutter($url);
1.156     bowersj2 3627:         if (!$resourceTitle) { # if the resource doesn't have a title, use the filename
1.238     bowersj2 3628:             my $postdata = $helper->{VARS}->{'postdata'};
                   3629:             $resourceTitle = substr($postdata, rindex($postdata, '/') + 1);
1.156     bowersj2 3630:         }
                   3631:         $subdir = &Apache::lonnet::filelocation("", $url);
1.589     foxr     3632: 
                   3633: 
1.128     bowersj2 3634:     }
1.373     albertel 3635:     if (!$helper->{VARS}->{'curseed'} && $env{'form.curseed'}) {
                   3636: 	$helper->{VARS}->{'curseed'}=$env{'form.curseed'};
1.230     albertel 3637:     }
1.373     albertel 3638:     if (!$helper->{VARS}->{'probstatus'} && $env{'form.problemtype'}) {
1.512     foxr     3639: 	$helper->{VARS}->{'probstatus'}=$env{'form.problemstatus'};
1.290     sakharuk 3640:     }
1.115     bowersj2 3641: 
1.192     bowersj2 3642:     my $userCanSeeHidden = Apache::lonnavmaps::advancedUser();
                   3643: 
1.481     albertel 3644:     Apache::lonhelper::registerHelperTags();
1.119     bowersj2 3645: 
1.131     bowersj2 3646:     # "Delete everything after the last slash."
1.119     bowersj2 3647:     $subdir =~ s|/[^/]+$||;
                   3648: 
1.131     bowersj2 3649:     # What can be printed is a very dynamic decision based on
                   3650:     # lots of factors. So we need to dynamically build this list.
                   3651:     # To prevent security leaks, states are only added to the wizard
                   3652:     # if they can be reached, which ensures manipulating the form input
                   3653:     # won't allow anyone to reach states they shouldn't have permission
                   3654:     # to reach.
                   3655: 
                   3656:     # printChoices is tracking the kind of printing the user can
                   3657:     # do, and will be used in a choices construction later.
                   3658:     # In the meantime we will be adding states and elements to
                   3659:     # the helper by hand.
                   3660:     my $printChoices = [];
                   3661:     my $paramHash;
1.130     sakharuk 3662: 
1.589     foxr     3663:     # If there is a current resource and it is printable
                   3664:     # Give that as a choice.
                   3665: 
                   3666:     if ($resourceTitle && $res_printable) {
1.458     www      3667:         push @{$printChoices}, ["<b><i>$resourceTitle</i></b> (".&mt('the resource you just saw on the screen').")", 'current_document', 'PAGESIZE'];
1.156     bowersj2 3668:     }
1.590     foxr     3669:     
1.156     bowersj2 3670: 
1.238     bowersj2 3671:     # Useful filter strings
1.589     foxr     3672: 
                   3673:     my $isPrintable = ' && $res->resprintable()';
                   3674: 
1.590     foxr     3675:     my $isProblem = '(($res->is_problem()||$res->contains_problem() ||$res->is_practice()))';
1.589     foxr     3676:     $isProblem .= $isPrintable unless $userCanPrint;
1.238     bowersj2 3677:     $isProblem .= ' && !$res->randomout()' if !$userCanSeeHidden;
1.589     foxr     3678:     my $isProblemOrMap = '($res->is_problem() || $res->contains_problem() || $res->is_sequence() || $res->is_practice())';
                   3679:     $isProblemOrMap .= $isPrintable unless $userCanPrint;
                   3680:     my $isNotMap = '(!$res->is_sequence())';
                   3681:     $isNotMap .= $isPrintable unless $userCanPrint;
1.238     bowersj2 3682:     $isNotMap .= ' && !$res->randomout()' if !$userCanSeeHidden;
1.589     foxr     3683:     my $isMap = '$res->is_map()';
                   3684:     $isMap .= $isPrintable unless $userCanPrint;
                   3685:     my $symbFilter = '$res->shown_symb() ';
1.342     albertel 3686:     my $urlValue = '$res->link()';
1.238     bowersj2 3687: 
                   3688:     $helper->declareVar('SEQUENCE');
                   3689: 
1.465     albertel 3690:     # If we're in a sequence...
1.416     foxr     3691: 
1.465     albertel 3692:     my $start_new_option;
                   3693:     if ($perm{'pav'}) {
                   3694: 	$start_new_option = 
                   3695: 	    "<option text='".&mt('Start new page<br />before selected').
1.569     foxr     3696: 	    "' variable='FINISHPAGE' />".
1.570     foxr     3697: 	    "<option text='".&mt('Extra space<br />before selected').
1.569     foxr     3698: 	    "' variable='EXTRASPACE' type='text' />" .
                   3699: 	    "<option " .
1.570     foxr     3700: 	    "' variable='POSSIBLE_RESOURCES' type='hidden' />".
                   3701: 	    "<option text='".&mt('Space units<br />check for mm').
                   3702: 	    "' variable='EXTRASPACE_UNITS' type='checkbox' />"
                   3703: 	    ;
                   3704: 	    
1.569     foxr     3705: 
1.465     albertel 3706:     }
1.238     bowersj2 3707: 
1.562     foxr     3708:     # If not construction space user can print the components of a page:
                   3709: 
                   3710:     my $page_ispage;
                   3711:     my $page_title;
                   3712:     if (!$helper->{VARS}->{'construction'}) {
                   3713: 	my $varspostdata = $helper->{VARS}->{'postdata'};
                   3714: 	my $varsassignment = $helper->{VARS}->{'assignment'};
                   3715: 	my $page_navmap         = Apache::lonnavmaps::navmap->new();
1.563     foxr     3716: 	if (defined($page_navmap)) {
                   3717: 	    my @page_resources      = $page_navmap->retrieveResources($url);
                   3718: 	    if(defined($page_resources[0])) {
                   3719: 		$page_ispage       = $page_resources[0]->is_page();
                   3720: 		$page_title     = $page_resources[0]->title();
                   3721: 		my $resourcesymb   = $page_resources[0]->symb();
                   3722: 		my ($pagemap, $pageid, $pageurl) = &Apache::lonnet::decode_symb($symb);
                   3723: 		if ($page_ispage) {
                   3724: 		    push @{$printChoices}, 
                   3725: 		    [&mt('Selected [_1]Problems[_2] from page [_3]', '<b>', '</b>', '<b><i>'.$page_title.'</i></b>'), 
                   3726: 		     'map_problems_in_page', 
                   3727: 		     'CHOOSE_PROBLEMS_PAGE'];
                   3728: 		    push @{$printChoices}, 
                   3729: 		    [&mt('Selected [_1]Resources[_2] from page [_3]', '<b>', '</b>', '<b><i>'.$page_title.'</i></b>'), 
                   3730: 		     'map_resources_in_page', 
                   3731: 		     'CHOOSE_RESOURCES_PAGE'];
                   3732: 		}
1.562     foxr     3733:         my $helperFragment = &generate_resource_chooser('CHOOSE_PROBLEMS_PAGE',
                   3734: 							'Select Problem(s) to print',
                   3735: 							"multichoice='1' toponly='1' addstatus='1' closeallpages='1'",
                   3736: 							'RESOURCES',
                   3737: 							'PAGESIZE',
                   3738: 							$url,
                   3739: 							$isProblem, '',  $symbFilter,
                   3740: 							$start_new_option);
                   3741: 
                   3742: 
                   3743:       $helperFragment .= &generate_resource_chooser('CHOOSE_RESOURCES_PAGE',
                   3744: 						    'Select Resource(s) to print',
                   3745: 						    'multichoice="1" toponly="1" addstatus="1" closeallpages="1"',
                   3746: 						    'RESOURCES',
                   3747: 						    'PAGESIZE',
                   3748: 						    $url,
                   3749: 						    $isNotMap, '', $symbFilter,
                   3750: 						    $start_new_option);
                   3751: 
                   3752: 						    
                   3753: 
                   3754: 
                   3755: 
                   3756: 	&Apache::lonxml::xmlparse($r, 'helper', $helperFragment);
                   3757: 	
1.563     foxr     3758: 	    }
                   3759: 	}
1.562     foxr     3760:     }
                   3761: 
                   3762:     if (($helper->{'VAR'}->{'construction'} ne '1' ) &&
1.243     bowersj2 3763: 	$helper->{VARS}->{'postdata'} &&
                   3764: 	$helper->{VARS}->{'assignment'}) {
1.590     foxr     3765: 
                   3766: 	# BZ 5209 - Print incomplete problems from sequence:
                   3767: 	# the exact form of this depends on whether or not we are privileged or a mere
                   3768: 	# plebe of s student:
                   3769: 
                   3770: 	my $printSelector = 'map_incomplete_problems_seq';
                   3771: 	my $nextState     = 'CHOOSE_INCOMPLETE_SEQ';
                   3772: 	my $textSuffix    = '';
                   3773: 
                   3774: 	if ($userCanPrint) {
                   3775: 	    $printSelector = 'map_incomplete_problems_people_seq';
                   3776: 	    $nextState     = 'CHOOSE_INCOMPLETE_PEOPLE_SEQ';
                   3777: 	    $textSuffix    = ' for selected students';
                   3778: 	    my $helperStates =
                   3779: 		&create_incomplete_folder_selstud_helper($helper, $map); 
                   3780: 	    &Apache::lonxml::xmlparse($r, 'helper', $helperStates);
                   3781: 	} else {
                   3782: 	    my $helperStates = &create_incomplete_folder_helper($helper, $map); # Create needed states for student.
                   3783: 	    &Apache::lonxml::xmlparse($r, 'helper', $helperStates);
                   3784: 	}
                   3785: 
                   3786: 	push(@{$printChoices},
                   3787: 	     [&mt('Selected Incomplete  [_1]Problems[_2] from folder [_3]' . $textSuffix,
                   3788: 		  '<b>', '</b>',
                   3789: 		  '<b><i>'. $sequenceTitle . '</b></i>'),
                   3790: 	      $printSelector,
                   3791: 	      $nextState]);
                   3792: 
1.131     bowersj2 3793:         # Allow problems from sequence
1.562     foxr     3794:         push @{$printChoices}, 
                   3795: 	    [&mt('Selected [_1]Problems[_2] from folder [_3]','<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>'), 
                   3796: 	     'map_problems', 
                   3797: 	     'CHOOSE_PROBLEMS'];
1.131     bowersj2 3798:         # Allow all resources from sequence
1.562     foxr     3799:         push @{$printChoices}, [&mt('Selected [_1]Resources[_2] from folder [_3]','<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>'), 
                   3800: 				'map_problems_pages', 
                   3801: 				'CHOOSE_PROBLEMS_HTML'];
                   3802:         my $helperFragment = &generate_resource_chooser('CHOOSE_PROBLEMS',
                   3803: 							'Select Problem(s) to print',
                   3804: 							'multichoice="1" toponly="1" addstatus="1" closeallpages="1"',
                   3805: 							'RESOURCES',
                   3806: 							'PAGESIZE',
                   3807: 							$map,
                   3808: 							$isProblem, '',
                   3809: 							$symbFilter,
                   3810: 							$start_new_option);
                   3811: 	$helperFragment .= &generate_resource_chooser('CHOOSE_PROBLEMS_HTML',
                   3812: 						      'Select Resource(s) to print',
                   3813: 						      	'multichoice="1" toponly="1" addstatus="1" closeallpages="1"',
                   3814: 						      'RESOURCES',
                   3815: 						      'PAGESIZE',
                   3816: 						      $map,
                   3817: 						      $isNotMap, '',
                   3818: 						      $symbFilter,
                   3819: 						      $start_new_option);
1.121     bowersj2 3820: 
1.326     sakharuk 3821: 	&Apache::lonxml::xmlparse($r, 'helper', $helperFragment);
1.121     bowersj2 3822:     }
                   3823: 
1.546     bisitz   3824:     # If the user has pfo (print for others) allow them to print all 
                   3825:     # problems and resources  in the entire course, optionally for selected students
1.562     foxr     3826:     my $post_data = $helper->{VARS}->{'postdata'};
1.590     foxr     3827:     
1.483     foxr     3828:     if ($perm{'pfo'} &&  !$is_published  &&
1.562     foxr     3829:         ($post_data=~/\/res\// || $post_data =~/\/(syllabus|smppg|aboutme|bulletinboard)$/)) { 
1.481     albertel 3830: 
1.590     foxr     3831: 	# BZ 5209 - incomplete problems from entire course:
                   3832: 
                   3833: 	push(@{$printChoices},
                   3834: 	     [&mtn('Selected incomplete <b>Problems</b> from <b>entire course</b> for selected people'),
                   3835: 	      'incomplete_problems_selpeople_course', 'INCOMPLETE_PROBLEMS_COURSE_RESOURCES']);
                   3836: 	my $helperFragment = &create_incomplete_course_helper($helper); # Create needed states.
                   3837: 
                   3838: 	&Apache::lonxml::xmlparse($r, 'helper', $helperFragment);
                   3839: 
                   3840: 	#  Selected problems/resources from entire course:
                   3841: 
1.509     albertel 3842:         push @{$printChoices}, [&mtn('Selected <b>Problems</b> from <b>entire course</b>'), 'all_problems', 'ALL_PROBLEMS'];
                   3843: 	push @{$printChoices}, [&mtn('Selected <b>Resources</b> from <b>entire course</b>'), 'all_resources', 'ALL_RESOURCES'];
1.536     foxr     3844: 	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     3845: my $suffixXml = <<ALL_PROBLEMS;
1.536     foxr     3846:   <state name="STUDENTS1" title="Select People">
                   3847:       <message><b>Select sorting order of printout</b> </message>
                   3848:     <choices variable='student_sort'>
                   3849:       <choice computer='0'>Sort by section then student</choice>
                   3850:       <choice computer='1'>Sort by students across sections.</choice>
                   3851:     </choices>
                   3852:       <message><br /><hr /><br /> </message>
                   3853:       <student multichoice='1' variable="STUDENTS" nextstate="PRINT_FORMATTING" coursepersonnel="1"/>
                   3854:   </state>
1.284     albertel 3855: ALL_PROBLEMS
1.562     foxr     3856:          &Apache::lonxml::xmlparse($r, 'helper', 
                   3857: 				   &generate_resource_chooser('ALL_PROBLEMS',
                   3858: 							      'SelectProblem(s) to print',
                   3859: 							      'multichoice="1" suppressEmptySequences="0" addstatus="1" closeallpages="1"',
                   3860: 							      'RESOURCES',
                   3861: 							      'PAGESIZE',
                   3862: 							      '',
                   3863: 							      $isProblemOrMap, $isNotMap,
                   3864: 							      $symbFilter,
                   3865: 							      $start_new_option) .
                   3866: 				   &generate_resource_chooser('ALL_RESOURCES',
                   3867: 							      'Select Resource(s) to print',
                   3868: 							      " toponly='0' multichoice='1' suppressEmptySequences='0' addstatus='1' closeallpages='1'",
                   3869: 							      'RESOURCES',
                   3870: 							      'PAGESIZE',
                   3871: 							      '',
                   3872: 							      $isNotMap,'',$symbFilter,
                   3873: 							      $start_new_option) .
                   3874: 				   &generate_resource_chooser('ALL_PROBLEMS_STUDENTS',
                   3875: 							      'Select Problem(s) to print',
                   3876: 							      'toponly="0" multichoice="1" suppressEmptySequences="0" addstatus="1" closeallpages="1"',
                   3877: 							      'RESOURCES',
                   3878: 							      'STUDENTS1',
                   3879: 							      '',
                   3880: 							      $isProblemOrMap,'' , $symbFilter,
                   3881: 							      $start_new_option) .
                   3882: 				     $suffixXml
                   3883: 				   );
1.132     bowersj2 3884: 
1.284     albertel 3885: 	if ($helper->{VARS}->{'assignment'}) {
1.562     foxr     3886: 
                   3887: 	    # If we were looking at a page, allow a selection of problems from the page
                   3888: 	    # either for selected students or for coded assignments.
                   3889: 
                   3890: 	    if ($page_ispage) {
                   3891: 		push @{$printChoices}, [&mt('Selected [_1]Problems[_2] from page [_3] for [_4]selected people[_5]',
                   3892: 					    '<b>', '</b>', '<b><i>'.$page_title.'</i></b>', '<b>', '</b>'),
                   3893: 					'problems_for_students_from_page', 'CHOOSE_TGT_STUDENTS_PAGE'];
                   3894: 		push @{$printChoices}, [&mt('Selected [_1]Problems[_2] from page [_3] for [_4]CODEd assignments[_5]',
                   3895: 					    '<b>', '</b>', '<b><i>'.$page_title.'</i></b>', '<b>', '</b>'),
                   3896: 					'problems_for_anon_page', 'CHOOSE_ANON1_PAGE'];
                   3897: 	    }
                   3898: 	    push @{$printChoices}, [&mt('Selected [_1]Problems[_2] from folder [_3] for [_4]selected people[_5]',
                   3899: 					'<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>','<b>','</b>'), 
                   3900: 				    'problems_for_students', 'CHOOSE_STUDENTS'];
                   3901: 	    push @{$printChoices}, [&mt('Selected [_1]Problems[_2] from folder [_3] for [_4]CODEd assignments[_5]',
                   3902: 					'<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>','<b>','</b>'), 
                   3903: 				    'problems_for_anon', 'CHOOSE_ANON1'];
1.284     albertel 3904: 	}
1.424     foxr     3905: 
1.507     albertel 3906: 	my $randomly_ordered_warning = 
1.591     foxr     3907:             &get_randomly_ordered_warning($helper, $map);
1.507     albertel 3908: 
1.424     foxr     3909: 	# resource_selector will hold a few states that:
                   3910: 	#   - Allow resources to be selected for printing.
                   3911: 	#   - Determine pagination between assignments.
                   3912: 	#   - Determine how many assignments should be bundled into a single PDF.
                   3913:         # TODO:
                   3914: 	#    Probably good to do things like separate this up into several vars, each
                   3915: 	#    with one state, and use REGEXPs at inclusion time to set state names
                   3916: 	#    and next states for better mix and match capability
                   3917: 	#
1.562     foxr     3918: 	my $resource_selector= &generate_resource_chooser('SELECT_PROBLEMS',
                   3919: 							  'Select resources to print',
                   3920: 							  'multichoice="1" addstatus="1" closeallpages="1"',
                   3921: 							  'RESOURCES', 
                   3922: 							  'PRINT_FORMATTING',
1.571     droeschl 3923: 							  $map,
1.562     foxr     3924: 							  $isProblem, '', $symbFilter,
                   3925: 							  $start_new_option);
1.586     raeburn  3926:         my $secpdfoption;
1.590     foxr     3927:         unless (($helper->{'VARS'} eq 'problems_for_anon')     ||
1.586     raeburn  3928:                 ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_anon_page') ||
                   3929:                 ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'resources_for_anon')  ) {
                   3930:             $secpdfoption =  '<choice computer="sections">Each PDF contains exactly one section</choice>';
                   3931:         }
                   3932: 	$resource_selector .=  &generate_format_selector($helper,
                   3933:                                                          'How should results be printed?').
                   3934:                                &generate_resource_chooser('CHOOSE_STUDENTS_PAGE',
1.562     foxr     3935: 							'Select Problem(s) to print',
                   3936: 							"multichoice='1' addstatus='1' closeallpages ='1'",
                   3937: 							'RESOURCES',
                   3938: 							'PRINT_FORMATTING',
                   3939: 							$url,
                   3940: 							$isProblem, '',  $symbFilter,
                   3941: 							$start_new_option);
                   3942: 
                   3943: 
                   3944: # Generate student choosers.
                   3945: 
                   3946: 
1.284     albertel 3947: 
1.562     foxr     3948:         &Apache::lonxml::xmlparse($r, 'helper',
                   3949: 				  &generate_student_chooser('CHOOSE_TGT_STUDENTS_PAGE',
                   3950: 							    'student_sort',
                   3951: 							    'STUDENTS',
                   3952: 							    'CHOOSE_STUDENTS_PAGE'));
                   3953: 	&Apache::lonxml::xmlparse($r, 'helper', 
                   3954: 				  &generate_student_chooser('CHOOSE_STUDENTS',
                   3955: 							    'student_sort',
                   3956: 							    'STUDENTS',
                   3957: 							    'SELECT_PROBLEMS'));
                   3958: 	&Apache::lonxml::xmlparse($r, 'helper', $resource_selector);
1.292     albertel 3959: 
1.373     albertel 3960: 	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                   3961: 	my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
1.292     albertel 3962:         my @names=&Apache::lonnet::getkeys('CODEs',$cdom,$cnum);
                   3963: 	my $namechoice='<choice></choice>';
1.337     albertel 3964: 	foreach my $name (sort {uc($a) cmp uc($b)} @names) {
1.294     albertel 3965: 	    if ($name =~ /^error: 2 /) { next; }
1.381     albertel 3966: 	    if ($name =~ /^type\0/) { next; }
1.292     albertel 3967: 	    $namechoice.='<choice computer="'.$name.'">'.$name.'</choice>';
                   3968: 	}
1.389     foxr     3969: 
                   3970: 
                   3971: 	my %code_values;
1.405     albertel 3972: 	my %codes_to_print;
1.411     albertel 3973: 	foreach my $key (@names) {
1.389     foxr     3974: 	    %code_values = &Apache::grades::get_codes($key, $cdom, $cnum);
1.405     albertel 3975: 	    foreach my $key (keys(%code_values)) {
                   3976: 		$codes_to_print{$key} = 1;
1.388     foxr     3977: 	    }
                   3978: 	}
1.389     foxr     3979: 
1.452     albertel 3980: 	my $code_selection;
1.405     albertel 3981: 	foreach my $code (sort {uc($a) cmp uc($b)} (keys(%codes_to_print))) {
1.389     foxr     3982: 	    my $choice  = $code;
                   3983: 	    if ($code =~ /^[A-Z]+$/) { # Alpha code
                   3984: 		$choice = &letters_to_num($code);
                   3985: 	    }
1.432     albertel 3986: 	    push(@{$helper->{DATA}{ALL_CODE_CHOICES}},[$code,$choice]);
1.388     foxr     3987: 	}
1.436     albertel 3988: 	if (%codes_to_print) {
                   3989: 	    $code_selection .='   
1.472     albertel 3990: 	    <message><b>Choose single CODE from list:</b></message>
1.448     albertel 3991: 		<message></td><td></message>
1.452     albertel 3992: 		<dropdown variable="CODE_SELECTED_FROM_LIST" multichoice="0" allowempty="0">
                   3993:                   <choice></choice>
1.448     albertel 3994:                   <exec>
                   3995:                      push(@{$state->{CHOICES}},@{$helper->{DATA}{ALL_CODE_CHOICES}});
                   3996:                   </exec>
1.452     albertel 3997: 		</dropdown>
1.468     foxr     3998: 	    <message></td></tr><tr><td></message>
1.436     albertel 3999:             '.$/;
1.448     albertel 4000: 
1.436     albertel 4001: 	}
1.432     albertel 4002: 
1.542     raeburn  4003:         my @lines = &Apache::grades::get_scantronformat_file();
1.381     albertel 4004: 	my $codechoice='';
1.542     raeburn  4005: 	foreach my $line (@lines) {
1.381     albertel 4006: 	    my ($name,$description,$code_type,$code_length)=
                   4007: 		(split(/:/,$line))[0,1,2,4];
                   4008: 	    if ($code_length > 0 && 
                   4009: 		$code_type =~/^(letter|number|-1)/) {
                   4010: 		$codechoice.='<choice computer="'.$name.'">'.$description.'</choice>';
                   4011: 	    }
                   4012: 	}
                   4013: 	if ($codechoice eq '') {
                   4014: 	    $codechoice='<choice computer="default">Default</choice>';
                   4015: 	}
1.562     foxr     4016: 	my $anon1 = &generate_code_selector($helper, 
                   4017: 					    'CHOOSE_ANON1',
                   4018: 					    'SELECT_PROBLEMS',
                   4019: 					    $codechoice,
                   4020: 					    $code_selection,
                   4021: 					    $namechoice) . $resource_selector;
                   4022: 					    
                   4023: 					    
                   4024:         &Apache::lonxml::xmlparse($r, 'helper',$anon1);
                   4025: 
                   4026: 	my $anon_page = &generate_code_selector($helper,
                   4027: 						'CHOOSE_ANON1_PAGE',
                   4028: 						'SELECT_PROBLEMS_PAGE',
                   4029: 						$codechoice,
                   4030: 						$code_selection,
                   4031: 						$namechoice) .
                   4032: 			&generate_resource_chooser('SELECT_PROBLEMS_PAGE',
                   4033: 						   'Select Problem(s) to print',
                   4034: 						   "multichoice='1' addstatus='1' closeallpages ='1'",
                   4035: 						   'RESOURCES',
                   4036: 						   'PRINT_FORMATTING',
                   4037: 						   $url,
                   4038: 						   $isProblem, '',  $symbFilter,
                   4039: 						   $start_new_option);
                   4040: 	&Apache::lonxml::xmlparse($r, 'helper', $anon_page);
1.254     sakharuk 4041: 
1.272     sakharuk 4042: 
1.254     sakharuk 4043: 	if ($helper->{VARS}->{'assignment'}) {
1.590     foxr     4044: 
                   4045: 	    # Assignment printing:
                   4046: 
1.546     bisitz   4047: 	    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'];
                   4048: 	    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 4049: 	}
1.284     albertel 4050: 	    
                   4051: 
                   4052: 	$resource_selector=<<RESOURCE_SELECTOR;
1.424     foxr     4053:     <state name="SELECT_RESOURCES" title="Select Resources">
1.507     albertel 4054:     $randomly_ordered_warning
1.424     foxr     4055:     <nextstate>PRINT_FORMATTING</nextstate>
1.254     sakharuk 4056:     <message><br /><big><i><b>Select resources for the assignment</b></i></big><br /></message>
1.287     albertel 4057:     <resource variable="RESOURCES" multichoice="1" addstatus="1" 
                   4058:               closeallpages="1">
1.254     sakharuk 4059:       <filterfunc>return $isNotMap;</filterfunc>
                   4060:       <mapurl>$map</mapurl>
                   4061:       <valuefunc>return $symbFilter;</valuefunc>
1.465     albertel 4062:       $start_new_option
1.254     sakharuk 4063:       </resource>
1.424     foxr     4064:     </state>
1.284     albertel 4065: RESOURCE_SELECTOR
                   4066: 
1.586     raeburn  4067:         my $nextstate = '<nextstate>NUMBER_PER_PDF</nextstate>'; 
                   4068:         $resource_selector .= &generate_format_selector($helper,
                   4069:                                                         'Format of the print job',
                   4070:                                                         $nextstate);
1.284     albertel 4071: 	&Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_STUDENTS1);
                   4072:   <state name="CHOOSE_STUDENTS1" title="Select Students and Resources">
1.340     foxr     4073:     <choices variable='student_sort'>
                   4074:       <choice computer='0'>Sort by section then student</choice>
                   4075:       <choice computer='1'>Sort by students across sections.</choice>
                   4076:     </choices>
1.437     foxr     4077:     <message><br /><hr /><br /></message>
1.426     foxr     4078:     <student multichoice='1' variable="STUDENTS" nextstate="SELECT_RESOURCES" coursepersonnel="1" />
1.340     foxr     4079: 
1.424     foxr     4080:     </state>
1.284     albertel 4081:     $resource_selector
1.254     sakharuk 4082: CHOOSE_STUDENTS1
                   4083: 
1.284     albertel 4084: 	&Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_ANON2);
1.472     albertel 4085:   <state name="CHOOSE_ANON2" title="Select CODEd Assignments">
1.424     foxr     4086:     <nextstate>SELECT_RESOURCES</nextstate>
1.472     albertel 4087:     <message><h4>Fill out one of the forms below</h4></message>
                   4088:     <message><br /><hr /> <br /></message>
                   4089:     <message><h3>Generate new CODEd Assignments</h3></message>
                   4090:     <message><table><tr><td><b>Number of CODEd assignments to print:</b></td><td></message>
1.579     foxr     4091:     <string variable="NUMBER_TO_PRINT_TOTAL" maxlength="5" size="5"  noproceed="1">
1.362     albertel 4092:        <validator>
                   4093: 	if (((\$helper->{'VARS'}{'NUMBER_TO_PRINT_TOTAL'}+0) < 1) &&
1.386     foxr     4094: 	    !\$helper->{'VARS'}{'REUSE_OLD_CODES'}                &&
1.388     foxr     4095: 	    !\$helper->{'VARS'}{'SINGLE_CODE'}                   &&
                   4096: 	    !\$helper->{'VARS'}{'CODE_SELECTED_FROM_LIST'}) {
1.362     albertel 4097: 	    return "You need to specify the number of assignments to print";
                   4098: 	}
1.578     foxr     4099:         if (((\$helper->{'VARS'}{'NUMBER_TO_PRINT_TOTAL'}+0) >= 1)  &&
                   4100:              (\$helper->{'VARS'}{'SINGLE_CODE'} ne '') ) {
                   4101:             return 'Specifying number of codes to print and a specific code is not compatible';
                   4102:         }
1.362     albertel 4103: 	return undef;
                   4104:        </validator>
                   4105:     </string>
                   4106:     <message></td></tr><tr><td></message>
1.501     albertel 4107:     <message><b>Names to save the CODEs under for later:</b></message>
1.412     albertel 4108:     <message></td><td></message>
                   4109:     <string variable="ANON_CODE_STORAGE_NAME" maxlength="50" size="20" />
                   4110:     <message></td></tr><tr><td></message>
                   4111:     <message><b>Bubble sheet type:</b></message>
                   4112:     <message></td><td></message>
                   4113:     <dropdown variable="CODE_OPTION" multichoice="0" allowempty="0">
                   4114:     $codechoice
                   4115:     </dropdown>
1.472     albertel 4116:     <message></td></tr><tr><td></table></message>
                   4117:     <message><br /><hr /><h3>Print a Specific CODE </h3><br /><table></message>
                   4118:     <message><tr><td><b>Enter a CODE to print:</b></td><td></message>
1.412     albertel 4119:     <string variable="SINGLE_CODE" size="10">
1.386     foxr     4120:         <validator>
                   4121: 	   if(!\$helper->{'VARS'}{'NUMBER_TO_PRINT_TOTAL'}           &&
1.388     foxr     4122: 	      !\$helper->{'VARS'}{'REUSE_OLD_CODES'}                 &&
                   4123: 	      !\$helper->{'VARS'}{'CODE_SELECTED_FROM_LIST'}) {
1.386     foxr     4124: 	      return &Apache::lonprintout::is_code_valid(\$helper->{'VARS'}{'SINGLE_CODE'},
                   4125: 						      \$helper->{'VARS'}{'CODE_OPTION'});
1.577     foxr     4126: 	  } elsif (\$helper->{'VARS'}{'SINGLE_CODE'} ne ''){
1.578     foxr     4127: 	      return 'Specifying a code name is incompatible specifying number of codes.';
1.386     foxr     4128: 	   } else {
                   4129: 	       return undef;	# Other forces control us.
                   4130: 	   }
                   4131:         </validator>
                   4132:     </string>
1.472     albertel 4133:     <message></td></tr><tr><td></message>
1.432     albertel 4134:         $code_selection
1.472     albertel 4135:     <message></td></tr></table></message>
                   4136:     <message><hr /><h3>Reprint a Set of Saved CODEs</h3><table><tr><td></message>
                   4137:     <message><b>Select saved CODEs:</b></message>
1.381     albertel 4138:     <message></td><td></message>
1.294     albertel 4139:     <dropdown variable="REUSE_OLD_CODES">
                   4140:         $namechoice
                   4141:     </dropdown>
1.412     albertel 4142:     <message></td></tr></table></message>
1.424     foxr     4143:   </state>
1.284     albertel 4144:     $resource_selector
                   4145: CHOOSE_ANON2
1.481     albertel 4146:     }
                   4147: 
1.121     bowersj2 4148:     # FIXME: That RE should come from a library somewhere.
1.483     foxr     4149:     if (($perm{'pav'} 
1.482     albertel 4150: 	&& $subdir ne $Apache::lonnet::perlvar{'lonDocRoot'}.'/res/'
                   4151: 	&& (defined($helper->{'VARS'}->{'construction'})
                   4152: 	    ||
                   4153: 	    (&Apache::lonnet::allowed('bre',$subdir) eq 'F'
                   4154: 	     && 
                   4155: 	     $helper->{VARS}->{'postdata'}=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)/)
1.483     foxr     4156: 	    )) 
                   4157: 	&& $helper->{VARS}->{'assignment'} eq ""
1.482     albertel 4158: 	) {
                   4159: 	my $pretty_dir = &Apache::lonnet::hreflocation($subdir);
1.546     bisitz   4160:         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 4161:         my $xmlfrag = <<CHOOSE_FROM_SUBDIR;
1.482     albertel 4162:   <state name="CHOOSE_FROM_SUBDIR" title="Select File(s) from <b><small>$pretty_dir</small></b> to print">
1.458     www      4163: 
1.138     bowersj2 4164:     <files variable="FILES" multichoice='1'>
1.144     bowersj2 4165:       <nextstate>PAGESIZE</nextstate>
1.138     bowersj2 4166:       <filechoice>return '$subdir';</filechoice>
1.139     bowersj2 4167: CHOOSE_FROM_SUBDIR
                   4168:         
1.238     bowersj2 4169:         # this is broken up because I really want interpolation above,
                   4170:         # and I really DON'T want it below
1.139     bowersj2 4171:         $xmlfrag .= <<'CHOOSE_FROM_SUBDIR';
1.225     bowersj2 4172:       <filefilter>return Apache::lonhelper::files::not_old_version($filename) &&
                   4173: 	  $filename =~ m/\.(problem|exam|quiz|assess|survey|form|library)$/;
1.131     bowersj2 4174:       </filefilter>
1.138     bowersj2 4175:       </files>
1.131     bowersj2 4176:     </state>
                   4177: CHOOSE_FROM_SUBDIR
1.139     bowersj2 4178:         &Apache::lonxml::xmlparse($r, 'helper', $xmlfrag);
1.131     bowersj2 4179:     }
1.238     bowersj2 4180: 
                   4181:     # Allow the user to select any sequence in the course, feed it to
                   4182:     # another resource selector for that sequence
1.483     foxr     4183:     if (!$helper->{VARS}->{'construction'} && !$is_published) {
1.509     albertel 4184: 	push @$printChoices, [&mtn("Selected <b>Resources</b> from <b>selected folder</b> in course"),
1.249     sakharuk 4185: 			      'select_sequences', 'CHOOSE_SEQUENCE'];
1.244     bowersj2 4186: 	my $escapedSequenceName = $helper->{VARS}->{'SEQUENCE'};
                   4187: 	#Escape apostrophes and backslashes for Perl
                   4188: 	$escapedSequenceName =~ s/\\/\\\\/g;
                   4189: 	$escapedSequenceName =~ s/'/\\'/g;
1.239     bowersj2 4190: 	&Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_FROM_ANY_SEQUENCE);
1.238     bowersj2 4191:   <state name="CHOOSE_SEQUENCE" title="Select Sequence To Print From">
                   4192:     <message>Select the sequence to print resources from:</message>
                   4193:     <resource variable="SEQUENCE">
                   4194:       <nextstate>CHOOSE_FROM_ANY_SEQUENCE</nextstate>
                   4195:       <filterfunc>return \$res->is_sequence;</filterfunc>
                   4196:       <valuefunc>return $urlValue;</valuefunc>
1.447     foxr     4197:       <choicefunc>return \$res->hasResource(\$res,sub { return !\$_[0]->is_sequence() },0,0);
1.391     foxr     4198: 	</choicefunc>
1.238     bowersj2 4199:       </resource>
                   4200:     </state>
                   4201:   <state name="CHOOSE_FROM_ANY_SEQUENCE" title="Select Resources To Print">
                   4202:     <message>(mark desired resources then click "next" button) <br /></message>
1.435     foxr     4203:     <resource variable="RESOURCES" multichoice="1" toponly='1' addstatus="1"
1.287     albertel 4204:               closeallpages="1">
1.238     bowersj2 4205:       <nextstate>PAGESIZE</nextstate>
1.466     albertel 4206:       <filterfunc>return $isNotMap</filterfunc>
1.244     bowersj2 4207:       <mapurl evaluate='1'>return '$escapedSequenceName';</mapurl>
1.238     bowersj2 4208:       <valuefunc>return $symbFilter;</valuefunc>
1.465     albertel 4209:       $start_new_option
1.238     bowersj2 4210:       </resource>
                   4211:     </state>
                   4212: CHOOSE_FROM_ANY_SEQUENCE
1.239     bowersj2 4213: }
1.481     albertel 4214: 
1.131     bowersj2 4215:     # Generate the first state, to select which resources get printed.
1.223     bowersj2 4216:     Apache::lonhelper::state->new("START", "Select Printing Options:");
1.131     bowersj2 4217:     $paramHash = Apache::lonhelper::getParamHash();
1.155     sakharuk 4218:     $paramHash->{MESSAGE_TEXT} = "";
1.131     bowersj2 4219:     Apache::lonhelper::message->new();
                   4220:     $paramHash = Apache::lonhelper::getParamHash();
                   4221:     $paramHash->{'variable'} = 'PRINT_TYPE';
                   4222:     $paramHash->{CHOICES} = $printChoices;
                   4223:     Apache::lonhelper::choices->new();
1.161     bowersj2 4224: 
1.223     bowersj2 4225:     my $startedTable = 0; # have we started an HTML table yet? (need
                   4226:                           # to close it later)
                   4227: 
1.585     raeburn  4228:     if (($perm{'pav'} and $perm{'vgr'}) or 
1.170     sakharuk 4229: 	($helper->{VARS}->{'construction'} eq '1')) {
1.544     bisitz   4230: 	&addMessage('<br />'
                   4231:                    .'<h3>'.&mt('Print Options').'</h3>'
                   4232:                    .&Apache::lonhtmlcommon::start_pick_box()
                   4233:                    .&Apache::lonhtmlcommon::row_title(
                   4234:                        '<label for="ANSWER_TYPE_forminput">'
                   4235:                       .&mt('Print Answers')
                   4236:                       .'</label>'
                   4237:                     )
                   4238:         );
1.161     bowersj2 4239:         $paramHash = Apache::lonhelper::getParamHash();
1.162     sakharuk 4240: 	$paramHash->{'variable'} = 'ANSWER_TYPE';   
                   4241: 	$helper->declareVar('ANSWER_TYPE');         
1.161     bowersj2 4242:         $paramHash->{CHOICES} = [
1.242     sakharuk 4243:                                    ['Without Answers', 'yes'],
                   4244:                                    ['With Answers', 'no'],
1.368     albertel 4245:                                    ['Only Answers', 'only']
1.289     sakharuk 4246:                                 ];
1.210     sakharuk 4247:         Apache::lonhelper::dropdown->new();
1.544     bisitz   4248: 	&addMessage(&Apache::lonhtmlcommon::row_closure());
1.223     bowersj2 4249: 	$startedTable = 1;
1.556     foxr     4250: 
                   4251: #
                   4252: #  Select font size.
                   4253: #
                   4254: 
                   4255:             $helper->declareVar('fontsize');
                   4256:             &addMessage(&Apache::lonhtmlcommon::row_title(&mt('Font Size')));
                   4257:             my $xmlfrag = << "FONT_SELECTION";
                   4258: 
                   4259:           
                   4260:             <dropdown variable='fontsize' multichoice='0', allowempty='0'>
                   4261:             <defaultvalue>
                   4262: 		  return 'normalsize';
                   4263:             </defaultvalue>
                   4264:             <choice computer='tiny'>Tiny</choice>
                   4265:             <choice computer='sub/superscriptsize'>Script Size</choice>
                   4266:             <choice computer='footnotesize'>Footnote Size</choice>
                   4267:             <choice computer='small'>Small</choice>
                   4268:             <choice computer='normalsize'>Normal (default)</choice>
                   4269:             <choice computer='large'>larger than normal</choice>
                   4270:             <choice computer='Large'>Even larger than normal</choice>
                   4271:             <choice computer='LARGE'>Still larger than normal</choice>
                   4272:             <choice computer='huge'>huge font size</choice>
                   4273:             <choice computer='Huge'>Largest possible size</choice>
                   4274:             </dropdown>
                   4275: FONT_SELECTION
                   4276:             &Apache::lonxml::xmlparse($r, 'helper', $xmlfrag);
                   4277:             &addMessage(&Apache::lonhtmlcommon::row_closure(1));
1.161     bowersj2 4278:     }
1.209     sakharuk 4279: 
1.397     albertel 4280:     if ($perm{'pav'}) {
1.223     bowersj2 4281: 	if (!$startedTable) {
1.497     www      4282: 	    addMessage("<hr width='33%' /><table><tr><td align='right'>".
                   4283:                        '<label for="LATEX_TYPE_forminput">'.
                   4284:                        &mt('LaTeX mode').
                   4285:                        "</label>: </td><td>");
1.223     bowersj2 4286: 	    $startedTable = 1;
                   4287: 	} else {
1.544     bisitz   4288: 	    &addMessage(&Apache::lonhtmlcommon::row_title(
                   4289:                            '<label for="LATEX_TYPE_forminput">'
                   4290:                            .&mt('LaTeX mode')
                   4291:                            .'</label>'
                   4292:                         )
                   4293:             );
1.223     bowersj2 4294: 	}
1.203     sakharuk 4295:         $paramHash = Apache::lonhelper::getParamHash();
                   4296: 	$paramHash->{'variable'} = 'LATEX_TYPE';   
                   4297: 	$helper->declareVar('LATEX_TYPE');  
                   4298: 	if ($helper->{VARS}->{'construction'} eq '1') {       
                   4299: 	    $paramHash->{CHOICES} = [
1.223     bowersj2 4300: 				     ['standard LaTeX mode', 'standard'], 
                   4301: 				     ['LaTeX batchmode', 'batchmode'], ];
1.203     sakharuk 4302: 	} else {
                   4303: 	    $paramHash->{CHOICES} = [
1.223     bowersj2 4304: 				     ['LaTeX batchmode', 'batchmode'],
                   4305: 				     ['standard LaTeX mode', 'standard'] ];
1.203     sakharuk 4306: 	}
1.210     sakharuk 4307:         Apache::lonhelper::dropdown->new();
1.218     sakharuk 4308:  
1.544     bisitz   4309: 	&addMessage(&Apache::lonhtmlcommon::row_closure()
                   4310:                    .&Apache::lonhtmlcommon::row_title(
                   4311:                         '<label for="TABLE_CONTENTS_forminput">'
                   4312:                        .&mt('Print Table of Contents')
                   4313:                        .'</label>'
                   4314:                     )
                   4315:         );
1.209     sakharuk 4316:         $paramHash = Apache::lonhelper::getParamHash();
                   4317: 	$paramHash->{'variable'} = 'TABLE_CONTENTS';   
                   4318: 	$helper->declareVar('TABLE_CONTENTS');         
                   4319:         $paramHash->{CHOICES} = [
1.223     bowersj2 4320:                                    ['No', 'no'],
                   4321:                                    ['Yes', 'yes'] ];
1.210     sakharuk 4322:         Apache::lonhelper::dropdown->new();
1.544     bisitz   4323: 	&addMessage(&Apache::lonhtmlcommon::row_closure());
1.214     sakharuk 4324:         
1.220     sakharuk 4325: 	if (not $helper->{VARS}->{'construction'}) {
1.545     bisitz   4326: 	    &addMessage(&Apache::lonhtmlcommon::row_title(
                   4327:                             '<label for="TABLE_INDEX_forminput">'
                   4328:                            .&mt('Print Index')
                   4329:                            .'</label>'
                   4330:                         )
                   4331:             );
1.220     sakharuk 4332: 	    $paramHash = Apache::lonhelper::getParamHash();
                   4333: 	    $paramHash->{'variable'} = 'TABLE_INDEX';   
                   4334: 	    $helper->declareVar('TABLE_INDEX');         
                   4335: 	    $paramHash->{CHOICES} = [
1.223     bowersj2 4336: 				     ['No', 'no'],
                   4337: 				     ['Yes', 'yes'] ];
1.220     sakharuk 4338: 	    Apache::lonhelper::dropdown->new();
1.545     bisitz   4339:             &addMessage(&Apache::lonhtmlcommon::row_closure());
                   4340:             &addMessage(&Apache::lonhtmlcommon::row_title(
                   4341:                             '<label for="PRINT_DISCUSSIONS_forminput">'
                   4342:                            .&mt('Print Discussions')
                   4343:                            .'</label>'
                   4344:                         )
                   4345:             );
1.309     sakharuk 4346: 	    $paramHash = Apache::lonhelper::getParamHash();
                   4347: 	    $paramHash->{'variable'} = 'PRINT_DISCUSSIONS';   
                   4348: 	    $helper->declareVar('PRINT_DISCUSSIONS');         
                   4349: 	    $paramHash->{CHOICES} = [
                   4350: 				     ['No', 'no'],
                   4351: 				     ['Yes', 'yes'] ];
                   4352: 	    Apache::lonhelper::dropdown->new();
1.545     bisitz   4353:             &addMessage(&Apache::lonhtmlcommon::row_closure());
1.372     foxr     4354: 
1.511     foxr     4355: 	    # Prompt for printing annotations too.
                   4356: 		
1.545     bisitz   4357: 	    &addMessage(&Apache::lonhtmlcommon::row_title(
                   4358:                             '<label for="PRINT_ANNOTATIONS_forminput">'
                   4359:                            .&mt('Print Annotations')
                   4360:                            .'</label>'
                   4361:                         )
                   4362:             );
1.511     foxr     4363: 	    $paramHash = Apache::lonhelper::getParamHash();
                   4364: 	    $paramHash->{'variable'} = "PRINT_ANNOTATIONS";
                   4365: 	    $helper->declareVar("PRINT_ANNOTATIONS");
                   4366: 	    $paramHash->{CHOICES} = [
                   4367: 				     ['No', 'no'],
                   4368: 				     ['Yes', 'yes']];
                   4369: 	    Apache::lonhelper::dropdown->new();
1.545     bisitz   4370:             &addMessage(&Apache::lonhtmlcommon::row_closure());
1.511     foxr     4371: 
1.545     bisitz   4372:             &addMessage(&Apache::lonhtmlcommon::row_title(&mt('Foils')));
1.397     albertel 4373: 	    $paramHash = Apache::lonhelper::getParamHash();
                   4374: 	    $paramHash->{'multichoice'} = "true";
                   4375: 	    $paramHash->{'allowempty'}  = "true";
                   4376: 	    $paramHash->{'variable'}   = "showallfoils";
1.555     bisitz   4377: 	    $paramHash->{'CHOICES'} = [ [&mt('Show All Foils'), "1"] ];
1.397     albertel 4378: 	    Apache::lonhelper::choices->new();
1.545     bisitz   4379:             &addMessage(&Apache::lonhtmlcommon::row_closure(1));
1.220     sakharuk 4380: 	}
1.219     sakharuk 4381: 
1.230     albertel 4382: 	if ($helper->{'VARS'}->{'construction'}) { 
1.505     albertel 4383: 	    my $stylevalue='$Apache::lonnet::env{"construct.style"}';
1.497     www      4384:             my $randseedtext=&mt("Use random seed");
                   4385:             my $stylefiletext=&mt("Use style file");
1.506     albertel 4386:             my $selectfiletext=&mt("Select style file");
1.497     www      4387: 
1.544     bisitz   4388: 	    my $xmlfrag .= '<message>'
                   4389:             .&Apache::lonhtmlcommon::row_title('<label for="curseed_forminput">'
                   4390:                                               .$randseedtext
                   4391:                                               .'</label>'
                   4392:              )
                   4393:             .'</message>
                   4394:             <string variable="curseed" size="15" maxlength="15">
                   4395:                 <defaultvalue>
                   4396:                    return '.$helper->{VARS}->{'curseed'}.';
                   4397:                 </defaultvalue>'
                   4398:             .'</string>'
                   4399:             .'<message>'
                   4400:             .&Apache::lonhtmlcommon::row_closure()
                   4401:             .&Apache::lonhtmlcommon::row_title('<label for="style_file">'
                   4402:                                               .$stylefiletext
                   4403:                                               .'</label>'
                   4404:              )
                   4405:             .'</message>
1.504     albertel 4406:              <string variable="style_file" size="40">
1.544     bisitz   4407:                 <defaultvalue>
                   4408:                     return '.$stylevalue.';
                   4409:                 </defaultvalue>
                   4410:              </string><message>&nbsp;'
                   4411: .qq|<a href="javascript:openbrowser('helpform','style_file_forminput','sty')">|
                   4412: .$selectfiletext.'</a>'
                   4413:             .&Apache::lonhtmlcommon::row_closure()
1.555     bisitz   4414:             .&Apache::lonhtmlcommon::row_title(&mt('Show All Foils'))
1.544     bisitz   4415:             .'</message>
1.371     foxr     4416: 	     <choices allowempty="1" multichoice="true" variable="showallfoils">
1.544     bisitz   4417:                 <choice computer="1">&nbsp;</choice>
                   4418:              </choices>'
                   4419: 	    .'<message>'
                   4420:             .&Apache::lonhtmlcommon::row_closure()
                   4421:             .'</message>';
1.230     albertel 4422:             &Apache::lonxml::xmlparse($r, 'helper', $xmlfrag);
1.512     foxr     4423: 
                   4424: 
1.544     bisitz   4425:             &addMessage(&Apache::lonhtmlcommon::row_title(&mt('Problem Type')));
1.512     foxr     4426: 	    #
                   4427: 	    # Initial value from construction space:
                   4428: 	    #
                   4429: 	    if (!$helper->{VARS}->{'probstatus'} && $env{'form.problemtype'}) {
                   4430: 		$helper->{VARS}->{'probstatus'} = $env{'form.problemtype'};	# initial value
                   4431: 	    }
1.518     foxr     4432: 	    $xmlfrag = << "PROBTYPE";
                   4433: 		<dropdown variable="probstatus" multichoice="0" allowempty="0">
                   4434: 		   <defaultvalue>
                   4435: 		      return "$helper->{VARS}->{'probstatus'}";
                   4436:                    </defaultvalue>
                   4437: 		   <choice computer="problem">Homework Problem</choice>
                   4438: 		   <choice computer="exam">Exam Problem</choice>
                   4439: 		   <choice computer="survey">Survey question</choice>
1.572     raeburn  4440:                    ,choice computer="anonsurvey"Anonymous survey question</choice>
1.518     foxr     4441: 		</dropdown>
                   4442: PROBTYPE
                   4443:             &Apache::lonxml::xmlparse($r, 'helper', $xmlfrag);
1.544     bisitz   4444:             &addMessage(&Apache::lonhtmlcommon::row_closure(1));
1.512     foxr     4445: 
1.556     foxr     4446: 
                   4447: 
1.544     bisitz   4448:         }
1.223     bowersj2 4449:     }
1.264     sakharuk 4450: 
                   4451: 
                   4452: 
1.218     sakharuk 4453: 
1.223     bowersj2 4454:     if ($startedTable) {
1.544     bisitz   4455:         &addMessage(&Apache::lonhtmlcommon::end_pick_box());
1.215     sakharuk 4456:     }
1.161     bowersj2 4457: 
1.131     bowersj2 4458:     Apache::lonprintout::page_format_state->new("FORMAT");
                   4459: 
1.144     bowersj2 4460:     # Generate the PAGESIZE state which will offer the user the margin
                   4461:     # choices if they select one column
                   4462:     Apache::lonhelper::state->new("PAGESIZE", "Set Margins");
                   4463:     Apache::lonprintout::page_size_state->new('pagesize', 'FORMAT', 'FINAL');
                   4464: 
                   4465: 
1.131     bowersj2 4466:     $helper->process();
                   4467: 
1.416     foxr     4468: 
1.131     bowersj2 4469:     # MANUAL BAILOUT CONDITION:
                   4470:     # If we're in the "final" state, bailout and return to handler
                   4471:     if ($helper->{STATE} eq 'FINAL') {
                   4472:         return $helper;
                   4473:     }    
1.130     sakharuk 4474: 
1.584     raeburn  4475:     my $footer;
1.395     www      4476:     if ($helper->{STATE} eq 'START') {
1.584     raeburn  4477:         my $prtspool=$r->dir_config('lonPrtDir'); 
                   4478: 	$footer = &recently_generated($prtspool);
1.395     www      4479:     }
1.584     raeburn  4480:     $r->print($helper->display($footer));
1.333     albertel 4481:     &Apache::lonhelper::unregisterHelperTags();
1.115     bowersj2 4482: 
                   4483:     return OK;
                   4484: }
                   4485: 
1.1       www      4486: 
                   4487: 1;
1.119     bowersj2 4488: 
                   4489: package Apache::lonprintout::page_format_state;
                   4490: 
                   4491: =pod
                   4492: 
1.131     bowersj2 4493: =head1 Helper element: page_format_state
                   4494: 
                   4495: See lonhelper.pm documentation for discussion of the helper framework.
1.119     bowersj2 4496: 
1.131     bowersj2 4497: Apache::lonprintout::page_format_state is an element that gives the 
                   4498: user an opportunity to select the page layout they wish to print 
                   4499: with: Number of columns, portrait/landscape, and paper size. If you 
                   4500: want to change the paper size choices, change the @paperSize array 
                   4501: contents in this package.
1.119     bowersj2 4502: 
1.131     bowersj2 4503: page_format_state is always directly invoked in lonprintout.pm, so there
                   4504: is no tag interface. You actually pass parameters to the constructor.
1.119     bowersj2 4505: 
                   4506: =over 4
                   4507: 
1.131     bowersj2 4508: =item * B<new>(varName): varName is where the print information will be stored in the format FIXME.
1.119     bowersj2 4509: 
                   4510: =back
                   4511: 
                   4512: =cut
                   4513: 
1.131     bowersj2 4514: use Apache::lonhelper;
1.119     bowersj2 4515: 
                   4516: no strict;
1.131     bowersj2 4517: @ISA = ("Apache::lonhelper::element");
1.119     bowersj2 4518: use strict;
1.266     sakharuk 4519: use Apache::lonlocal;
1.373     albertel 4520: use Apache::lonnet;
1.119     bowersj2 4521: 
                   4522: my $maxColumns = 2;
1.376     albertel 4523: # it'd be nice if these all worked
                   4524: #my @paperSize = ("letter [8 1/2x11 in]", "legal [8 1/2x14 in]", 
                   4525: #                 "tabloid (ledger) [11x17 in]", "executive [7 1/2x10 in]",
                   4526: #                 "a2 [420x594 mm]", "a3 [297x420 mm]", "a4 [210x297 mm]", 
                   4527: #                 "a5 [148x210 mm]", "a6 [105x148 mm]" );
1.326     sakharuk 4528: my @paperSize = ("letter [8 1/2x11 in]", "legal [8 1/2x14 in]", 
1.376     albertel 4529: 		 "a4 [210x297 mm]");
1.119     bowersj2 4530: 
                   4531: # Tentative format: Orientation (L = Landscape, P = portrait) | Colnum |
                   4532: #                   Paper type
                   4533: 
                   4534: sub new { 
1.131     bowersj2 4535:     my $self = Apache::lonhelper::element->new();
1.119     bowersj2 4536: 
1.135     bowersj2 4537:     shift;
                   4538: 
1.131     bowersj2 4539:     $self->{'variable'} = shift;
1.134     bowersj2 4540:     my $helper = Apache::lonhelper::getHelper();
1.135     bowersj2 4541:     $helper->declareVar($self->{'variable'});
1.131     bowersj2 4542:     bless($self);
1.119     bowersj2 4543:     return $self;
                   4544: }
                   4545: 
                   4546: sub render {
                   4547:     my $self = shift;
1.131     bowersj2 4548:     my $helper = Apache::lonhelper::getHelper();
1.119     bowersj2 4549:     my $result = '';
1.131     bowersj2 4550:     my $var = $self->{'variable'};
1.266     sakharuk 4551:     my $PageLayout=&mt('Page layout');
                   4552:     my $NumberOfColumns=&mt('Number of columns');
                   4553:     my $PaperType=&mt('Paper type');
1.506     albertel 4554:     my $landscape=&mt('Landscape');
                   4555:     my $portrait=&mt('Portrait');
1.539     onken    4556:     my $pdfFormLabel=&mt('PDF-Formfields');
                   4557:     my $with=&mt('with Formfields');
                   4558:     my $without=&mt('without Formfields');
1.556     foxr     4559:     
                   4560: 
1.544     bisitz   4561:     $result.='<h3>'.&mt('Layout Options').'</h3>'
                   4562:             .&Apache::loncommon::start_data_table()
                   4563:             .&Apache::loncommon::start_data_table_header_row()
                   4564:             .'<th>'.$PageLayout.'</th>'
                   4565:             .'<th>'.$NumberOfColumns.'</th>'
                   4566:             .'<th>'.$PaperType.'</th>'
                   4567:             .'<th>'.$pdfFormLabel.'</th>'
                   4568:             .&Apache::loncommon::end_data_table_header_row()
                   4569:             .&Apache::loncommon::start_data_table_row()
                   4570:     .'<td>'
                   4571:     .'<label><input type="radio" name="'.${var}.'.layout" value="L" />'.$landscape.'</label><br />'
                   4572:     .'<label><input type="radio" name="'.${var}.'.layout" value="P" checked="checked" />'.$portrait.'</label>'
                   4573:     .'</td>';
1.119     bowersj2 4574: 
1.544     bisitz   4575:     $result.='<td align="center">'
                   4576:             .'<select name="'.${var}.'.cols">';
1.119     bowersj2 4577: 
                   4578:     my $i;
                   4579:     for ($i = 1; $i <= $maxColumns; $i++) {
1.144     bowersj2 4580:         if ($i == 2) {
1.553     bisitz   4581:             $result .= '<option value="'.$i.'" selected="selected">'.$i.'</option>'."\n";
1.119     bowersj2 4582:         } else {
1.553     bisitz   4583:             $result .= '<option value="'.$i.'">'.$i.'</option>'."\n";
1.119     bowersj2 4584:         }
                   4585:     }
                   4586: 
                   4587:     $result .= "</select></td><td>\n";
                   4588:     $result .= "<select name='${var}.paper'>\n";
                   4589: 
1.373     albertel 4590:     my %parmhash=&Apache::lonnet::coursedescription($env{'request.course.id'});
1.398     albertel 4591:     my $DefaultPaperSize=lc($parmhash{'default_paper_size'});
                   4592:     $DefaultPaperSize=~s/\s//g;
1.304     sakharuk 4593:     if ($DefaultPaperSize eq '') {$DefaultPaperSize='letter';}
1.119     bowersj2 4594:     $i = 0;
                   4595:     foreach (@paperSize) {
1.326     sakharuk 4596: 	$_=~/(\w+)/;
                   4597: 	my $papersize=$1;
1.304     sakharuk 4598:         if ($paperSize[$i]=~/$DefaultPaperSize/) {
1.553     bisitz   4599:             $result .= '<option selected="selected" value="'.$papersize.'">'.$paperSize[$i].'</option>'."\n";
1.119     bowersj2 4600:         } else {
1.553     bisitz   4601:             $result .= '<option value="'.$papersize.'">'.$paperSize[$i].'</option>'."\n";
1.119     bowersj2 4602:         }
                   4603:         $i++;
                   4604:     }
1.539     onken    4605:     $result .= <<HTML;
                   4606:         </select>
                   4607:     </td>
                   4608:     <td align='center'>
                   4609:         <select name='${var}.pdfFormFields'>
1.553     bisitz   4610:             <option selected="selected" value="no">$without</option>
                   4611:             <option value="yes">$with</option>
1.539     onken    4612:         </select>
                   4613:     </td>
                   4614: HTML
1.544     bisitz   4615:     $result.=&Apache::loncommon::end_data_table_row()
                   4616:             .&Apache::loncommon::end_data_table();
1.539     onken    4617: 
1.119     bowersj2 4618:     return $result;
1.135     bowersj2 4619: }
                   4620: 
                   4621: sub postprocess {
                   4622:     my $self = shift;
                   4623: 
                   4624:     my $var = $self->{'variable'};
1.136     bowersj2 4625:     my $helper = Apache::lonhelper->getHelper();
1.135     bowersj2 4626:     $helper->{VARS}->{$var} = 
1.373     albertel 4627:         $env{"form.$var.layout"} . '|' . $env{"form.$var.cols"} . '|' .
1.539     onken    4628:         $env{"form.$var.paper"} . '|' . $env{"form.$var.pdfFormFields"};
1.135     bowersj2 4629:     return 1;
1.119     bowersj2 4630: }
                   4631: 
                   4632: 1;
1.144     bowersj2 4633: 
                   4634: package Apache::lonprintout::page_size_state;
                   4635: 
                   4636: =pod
                   4637: 
                   4638: =head1 Helper element: page_size_state
                   4639: 
                   4640: See lonhelper.pm documentation for discussion of the helper framework.
                   4641: 
                   4642: Apache::lonprintout::page_size_state is an element that gives the 
                   4643: user the opportunity to further refine the page settings if they
                   4644: select a single-column page.
                   4645: 
                   4646: page_size_state is always directly invoked in lonprintout.pm, so there
                   4647: is no tag interface. You actually pass parameters to the constructor.
                   4648: 
                   4649: =over 4
                   4650: 
                   4651: =item * B<new>(varName): varName is where the print information will be stored in the format FIXME.
                   4652: 
                   4653: =back
                   4654: 
                   4655: =cut
                   4656: 
                   4657: use Apache::lonhelper;
1.373     albertel 4658: use Apache::lonnet;
1.144     bowersj2 4659: no strict;
                   4660: @ISA = ("Apache::lonhelper::element");
                   4661: use strict;
                   4662: 
                   4663: 
                   4664: 
                   4665: sub new { 
                   4666:     my $self = Apache::lonhelper::element->new();
                   4667: 
                   4668:     shift; # disturbs me (probably prevents subclassing) but works (drops
                   4669:            # package descriptor)... - Jeremy
                   4670: 
                   4671:     $self->{'variable'} = shift;
                   4672:     my $helper = Apache::lonhelper::getHelper();
                   4673:     $helper->declareVar($self->{'variable'});
                   4674: 
                   4675:     # The variable name of the format element, so we can look into 
                   4676:     # $helper->{VARS} to figure out whether the columns are one or two
                   4677:     $self->{'formatvar'} = shift;
                   4678: 
1.463     foxr     4679: 
1.144     bowersj2 4680:     $self->{NEXTSTATE} = shift;
                   4681:     bless($self);
1.467     foxr     4682: 
1.144     bowersj2 4683:     return $self;
                   4684: }
                   4685: 
                   4686: sub render {
                   4687:     my $self = shift;
                   4688:     my $helper = Apache::lonhelper::getHelper();
                   4689:     my $result = '';
                   4690:     my $var = $self->{'variable'};
                   4691: 
1.467     foxr     4692: 
                   4693: 
1.144     bowersj2 4694:     if (defined $self->{ERROR_MSG}) {
1.464     albertel 4695:         $result .= '<br /><span class="LC_error">' . $self->{ERROR_MSG} . '</span><br />';
1.144     bowersj2 4696:     }
                   4697: 
1.438     foxr     4698:     my $format = $helper->{VARS}->{$self->{'formatvar'}};
1.463     foxr     4699: 
                   4700:     # Use format to get sensible defaults for the margins:
                   4701: 
                   4702: 
                   4703:     my ($laystyle, $cols, $papersize) = split(/\|/, $format);
                   4704:     ($papersize)                      = split(/ /, $papersize);
                   4705: 
1.559     foxr     4706:     $laystyle = &Apache::lonprintout::map_laystyle($laystyle);
1.463     foxr     4707: 
                   4708: 
                   4709: 
1.464     albertel 4710:     my %size;
                   4711:     ($size{'width_and_units'},
                   4712:      $size{'height_and_units'},
                   4713:      $size{'margin_and_units'})=
                   4714: 	 &Apache::lonprintout::page_format($papersize, $laystyle, $cols);
1.463     foxr     4715:     
1.464     albertel 4716:     foreach my $dimension ('width','height','margin') {
                   4717: 	($size{$dimension},$size{$dimension.'_unit'}) =
                   4718: 	    split(/ +/, $size{$dimension.'_and_units'},2);
                   4719:        	
                   4720: 	foreach my $unit ('cm','in') {
                   4721: 	    $size{$dimension.'_options'} .= '<option ';
                   4722: 	    if ($size{$dimension.'_unit'} eq $unit) {
                   4723: 		$size{$dimension.'_options'} .= 'selected="selected" ';
                   4724: 	    }
                   4725: 	    $size{$dimension.'_options'} .= '>'.$unit.'</option>';
                   4726: 	}
1.438     foxr     4727:     }
                   4728: 
1.470     foxr     4729:     # Adjust margin for LaTeX margin: .. requires units == cm or in.
                   4730: 
                   4731:     if ($size{'margin_unit'} eq 'in') {
                   4732: 	$size{'margin'} += 1;
                   4733:     }  else {
                   4734: 	$size{'margin'} += 2.54;
                   4735:     }
1.548     bisitz   4736:     my %lt = &Apache::lonlocal::texthash(
                   4737:         'format' => 'How should each column be formatted?',
                   4738:         'width'  => 'Width',
                   4739:         'height' => 'Height',
                   4740:         'margin' => 'Left Margin'
                   4741:     );
                   4742: 
                   4743:     $result .= '<p>'.$lt{'format'}.'</p>'
                   4744:               .&Apache::lonhtmlcommon::start_pick_box()
                   4745:               .&Apache::lonhtmlcommon::row_title($lt{'width'})
                   4746:               .'<input type="text" name="'.$var.'.width" value="'.$size{'width'}.'" size="4" />'
                   4747:               .'<select name="'.$var.'.widthunit">'
                   4748:               .$size{'width_options'}
                   4749:               .'</select>'
                   4750:               .&Apache::lonhtmlcommon::row_closure()
                   4751:               .&Apache::lonhtmlcommon::row_title($lt{'height'})
                   4752:               .'<input type="text" name="'.$var.'.height" value="'.$size{'height'}.'" size="4" />'
                   4753:               .'<select name="'.$var.'.heightunit">'
                   4754:               .$size{'height_options'}
                   4755:               .'</select>'
                   4756:               .&Apache::lonhtmlcommon::row_closure()
                   4757:               .&Apache::lonhtmlcommon::row_title($lt{'margin'})
                   4758:               .'<input type="text" name="'.$var.'.lmargin" value="'.$size{'margin'}.'" size="4" />'
                   4759:               .'<select name="'.$var.'.lmarginunit">'
                   4760:               .$size{'margin_options'}
                   4761:               .'</select>'
                   4762:               .&Apache::lonhtmlcommon::row_closure(1)
                   4763:               .&Apache::lonhtmlcommon::end_pick_box();
                   4764:     # <p>Hint: Some instructors like to leave scratch space for the student by
                   4765:     # making the width much smaller than the width of the page.</p>
1.144     bowersj2 4766: 
                   4767:     return $result;
                   4768: }
                   4769: 
1.470     foxr     4770: 
1.144     bowersj2 4771: sub preprocess {
                   4772:     my $self = shift;
                   4773:     my $helper = Apache::lonhelper::getHelper();
                   4774: 
                   4775:     my $format = $helper->{VARS}->{$self->{'formatvar'}};
1.467     foxr     4776: 
                   4777:     #  If the user does not have 'pav' privilege, set default widths and
                   4778:     #  on to the next state right away.
                   4779:     #
                   4780:     if (!$perm{'pav'}) {
                   4781: 	my $var = $self->{'variable'};
                   4782: 	my $format = $helper->{VARS}->{$self->{'formatvar'}};
                   4783: 	
                   4784: 	my ($laystyle, $cols, $papersize) = split(/\|/, $format);
                   4785: 	($papersize)                      = split(/ /, $papersize);
                   4786: 	
                   4787: 	
1.560     foxr     4788: 	$laystyle = &Apache::lonprintout::map_laystyle($laystyle);
1.559     foxr     4789: 
1.467     foxr     4790: 	#  Figure out some good defaults for the print out and set them:
                   4791: 	
                   4792: 	my %size;
                   4793: 	($size{'width'},
                   4794: 	 $size{'height'},
                   4795: 	 $size{'lmargin'})=
                   4796: 	     &Apache::lonprintout::page_format($papersize, $laystyle, $cols);
                   4797: 	
                   4798: 	foreach my $dim ('width', 'height', 'lmargin') {
                   4799: 	    my ($value, $units) = split(/ /, $size{$dim});
1.470     foxr     4800: 	    	    
1.467     foxr     4801: 	    $helper->{VARS}->{"$var.".$dim}      = $value;
                   4802: 	    $helper->{VARS}->{"$var.".$dim.'unit'} = $units;
                   4803: 	    
                   4804: 	}
                   4805: 	
                   4806: 
                   4807: 	# Transition to the next state
                   4808: 
                   4809: 	$helper->changeState($self->{NEXTSTATE});
                   4810:     }
1.144     bowersj2 4811:    
                   4812:     return 1;
                   4813: }
                   4814: 
                   4815: sub postprocess {
                   4816:     my $self = shift;
                   4817: 
                   4818:     my $var = $self->{'variable'};
                   4819:     my $helper = Apache::lonhelper->getHelper();
1.373     albertel 4820:     my $width = $helper->{VARS}->{$var .'.width'} = $env{"form.${var}.width"}; 
                   4821:     my $height = $helper->{VARS}->{$var .'.height'} = $env{"form.${var}.height"}; 
                   4822:     my $lmargin = $helper->{VARS}->{$var .'.lmargin'} = $env{"form.${var}.lmargin"}; 
                   4823:     $helper->{VARS}->{$var .'.widthunit'} = $env{"form.${var}.widthunit"}; 
                   4824:     $helper->{VARS}->{$var .'.heightunit'} = $env{"form.${var}.heightunit"}; 
                   4825:     $helper->{VARS}->{$var .'.lmarginunit'} = $env{"form.${var}.lmarginunit"}; 
1.144     bowersj2 4826: 
                   4827:     my $error = '';
                   4828: 
                   4829:     # /^-?[0-9]+(\.[0-9]*)?$/ -> optional minus, at least on digit, followed 
                   4830:     # by an optional period, followed by digits, ending the string
                   4831: 
1.464     albertel 4832:     if ($width !~  /^-?[0-9]*(\.[0-9]*)?$/) {
1.144     bowersj2 4833:         $error .= "Invalid width; please type only a number.<br />\n";
                   4834:     }
1.464     albertel 4835:     if ($height !~  /^-?[0-9]*(\.[0-9]*)?$/) {
1.144     bowersj2 4836:         $error .= "Invalid height; please type only a number.<br />\n";
                   4837:     }
1.464     albertel 4838:     if ($lmargin !~  /^-?[0-9]*(\.[0-9]*)?$/) {
1.144     bowersj2 4839:         $error .= "Invalid left margin; please type only a number.<br />\n";
1.470     foxr     4840:     } else {
                   4841: 	# Adjust for LaTeX 1.0 inch margin:
                   4842: 
                   4843: 	if ($env{"form.${var}.lmarginunit"} eq "in") {
                   4844: 	    $helper->{VARS}->{$var.'.lmargin'} = $lmargin - 1;
                   4845: 	} else {
                   4846: 	    $helper->{VARS}->{$var.'.lmargin'} = $lmargin - 2.54;
                   4847: 	}
1.144     bowersj2 4848:     }
                   4849: 
                   4850:     if (!$error) {
                   4851:         Apache::lonhelper::getHelper()->changeState($self->{NEXTSTATE});
                   4852:         return 1;
                   4853:     } else {
                   4854:         $self->{ERROR_MSG} = $error;
                   4855:         return 0;
                   4856:     }
                   4857: }
                   4858: 
                   4859: 
1.119     bowersj2 4860: 
1.1       www      4861: __END__
1.6       sakharuk 4862: 

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>