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

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

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