[BACK]Return to lonprintout.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonprintout.pm between versions 1.106 and 1.190

version 1.106, 2003/01/27 16:01:13 version 1.190, 2003/06/19 15:04:30
Line 56  use GDBM_File; Line 56  use GDBM_File;
 my %hash;  my %hash;
 my $LaTeXwidth = 0;  my $LaTeXwidth = 0;
   
 sub headerform {  
     my $r = shift;  sub latex_header_footer_remove {
     $r->print(<<ENDHEADER);      my $text = shift;
 <html>      $text =~ s/\\end{document}//;
 <head>      $text =~ s/\\documentclass([^&]*)\\begin{document}//;
 <title>LON-CAPA output for printing</title>      return $text;
 </head>  
 <body bgcolor="FFFFFF">  
 <form method="post" enctype="multipart/form-data" action="/adm/printout" name="printform">  
 ENDHEADER  
   
     if ($ENV{'form.postdata'}=~m|^/res/|) {  
  $r->print(<<ENDHEADER1);  
 <b>Path to current document: </b><tt>$ENV{'form.postdata'}</tt><p>  
 ENDHEADER1  
     }  
 }  }
   
   
 sub menu_for_output {  sub character_chart {
     my $r = shift;      my $result = shift;
     my ($title_for_single_resource,$title_for_sequence,$title_for_main_map) = &details_for_menu;      $result =~ s/&\#0?0?(7|9);//g;
     my $assignment = $title_for_sequence;      $result =~ s/&\#0?(10|13);//g;
     if ($title_for_single_resource ne '') {$title_for_single_resource = '"'.$title_for_single_resource.'"';}      $result =~ s/&\#0?32;/ /g;
     if ($title_for_sequence ne '') {$title_for_sequence = '"'.$title_for_sequence.'"';}      $result =~ s/&\#0?33;/!/g;
     if ($title_for_main_map ne '') {$title_for_main_map = '"'.$title_for_main_map.'"';}      $result =~ s/&(\#0?34|quot);/\"/g;
     $ENV{'form.postdata'} =~ s|http://[^/]+||;      $result =~ s/&\#0?35;/\\\#/g;
     my $subdir_to_print = $ENV{'form.postdata'};      $result =~ s/&\#0?36;/\\\$/g;
     $subdir_to_print =~ m/\/([^\/]+)$/;      $result =~ s/&\#0?37;/\\%/g; 
     $subdir_to_print =~ s/\Q$1\E//;      $result =~ s/&(\#0?38|amp);/\\&/g; 
     $r->print(<<ENDMENUOUT1);      $result =~ s/&\#(0?39|146);/\'/g;
 <h1>What do you want to print? Make a choice.</h1><br />      $result =~ s/&\#0?40;/(/g;
 <input type="hidden" name="phase" value="two">      $result =~ s/&\#0?41;/)/g;
 <input type="hidden" name="url" value="$ENV{'form.postdata'}">      $result =~ s/&\#0?42;/\*/g;
 <input type="hidden" name="assignment" value="$assignment">      $result =~ s/&\#0?43;/\+/g;
 <input type="radio" name="choice" value="Standard LaTeX output for current document" checked>  Current document <b>$title_for_single_resource</b>      $result =~ s/&\#(0?44|130);/,/g;
 (prints what you just saw on the screen)<br />      $result =~ s/&\#0?45;/-/g;
 ENDMENUOUT1      $result =~ s/&\#0?46;/\./g;
     if ($ENV{'form.postdata'}=~/\/res\//) {      $result =~ s/&\#0?47;/\//g;
  $r->print(<<ENDMENUOUT2);      $result =~ s/&\#0?48;/0/g;
 <input type="radio" name="choice" value="Standard LaTeX output for the primary sequence">  Problem(s) from <b>$title_for_sequence</b><br />      $result =~ s/&\#0?49;/1/g;
 <input type="radio" name="choice" value="Standard LaTeX output for whole primary sequence">  Problem(s) plus page(s) or html/xml file(s) from <b>$title_for_sequence</b><br />      $result =~ s/&\#0?50;/2/g;
 ENDMENUOUT2      $result =~ s/&\#0?51;/3/g;
     }      $result =~ s/&\#0?52;/4/g;
     if (($ENV{'request.role'}=~m/^cc\./ or $ENV{'request.role'}=~m/^in\./ or $ENV{'request.role'}=~m/^ta\./) and ($ENV{'form.postdata'}=~/\/res\//)) {       $result =~ s/&\#0?53;/5/g;
  $r->print(<<ENDMENUOUT6);      $result =~ s/&\#0?54;/6/g;
 <input type="radio" name="choice" value="Standard LaTeX output for the top level sequence">  All problems in this course (<b>warning:</b> this may be time consuming) <br />      $result =~ s/&\#0?55;/7/g;
 <br />      $result =~ s/&\#0?56;/8/g;
 <input type="radio" name="choice" value="All class print">  All problems from <b>$title_for_sequence</b> for selected students<br /><br />      $result =~ s/&\#0?57;/9/g;
 ENDMENUOUT6      $result =~ s/&\#0?58;/:/g;
     }      $result =~ s/&\#0?59;/;/g;
       my $subdirtoprint = &Apache::lonnet::filelocation("",$ENV{'form.url'});      $result =~ s/&(\#0?60|lt|\#139);/\$<\$/g;
       $subdirtoprint =~ s/\/[^\/]+$//;      $result =~ s/&\#0?61;/\$=\$/g;
       if ((&Apache::lonnet::allowed('bre',$subdirtoprint) eq 'F') and ($ENV{'form.postdata'}=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)/)) {      $result =~ s/&(\#0?62|gt|\#155);/\$>\$/g;
   $r->print(<<ENDMENUOUT4);      $result =~ s/&\#0?63;/\?/g;
   <input type="radio" name="choice" value="Subdirectory print">  Problems from current subdirectory <b>$subdir_to_print</b><br />      $result =~ s/&\#0?65;/A/g;
 ENDMENUOUT4      $result =~ s/&\#0?66;/B/g;
       }      $result =~ s/&\#0?67;/C/g;
     $r->print(<<ENDMENUOUT5);      $result =~ s/&\#0?68;/D/g;
 <br /><hr /><br />      $result =~ s/&\#0?69;/E/g;
 <h1>And what page format do you prefer?</h1>      $result =~ s/&\#0?70;/F/g;
 <table>      $result =~ s/&\#0?71;/G/g;
  <tr>      $result =~ s/&\#0?72;/H/g;
    <td>      $result =~ s/&\#0?73;/I/g;
      <input type="radio" name="layout" value="CBI"> Landscape <br />      $result =~ s/&\#0?74;/J/g;
      <input type="radio" name="layout" value="CAPA" checked>  Portrait <br />      $result =~ s/&\#0?75;/K/g;
    </td>      $result =~ s/&\#0?76;/L/g;
    <td>&nbsp;</td>      $result =~ s/&\#0?77;/M/g;
    <td rawspan="2">      $result =~ s/&\#0?78;/N/g;
      Number of columns: <select name="numberofcolumns">      $result =~ s/&\#0?79;/O/g;
                          <option> 1 </option>      $result =~ s/&\#0?80;/P/g;
                          <option selected> 2 </option>      $result =~ s/&\#0?81;/Q/g;
                         </select>       $result =~ s/&\#0?82;/R/g;
    </td>      $result =~ s/&\#0?83;/S/g;
    <td rawspan="2">      $result =~ s/&\#0?84;/T/g;
      Paper size (format [width x height]): <select name="papersize">      $result =~ s/&\#0?85;/U/g;
                                             <option selected> Letter [8 1/2x11 in] </option>      $result =~ s/&\#0?86;/V/g;
                                             <option> Legal [8 1/2x14 in] </option>      $result =~ s/&\#0?87;/W/g;
                                             <option> Ledger/Tabloid [11x17 in] </option>      $result =~ s/&\#0?88;/X/g;
                                             <option> Executive [7 1/2x10 in] </option>      $result =~ s/&\#0?89;/Y/g;
                                             <option> A2 [420x594 mm] </option>      $result =~ s/&\#0?90;/Z/g;
                                             <option> A3 [297x420 mm] </option>      $result =~ s/&\#0?91;/[/g;
                                             <option> A4 [210x297 mm] </option>      $result =~ s/&\#0?92;/\$\\setminus\$/g;
                                             <option> A5 [148x210 mm] </option>      $result =~ s/&\#0?93;/]/g;
                                             <option> A6 [105x148 mm] </option>      $result =~ s/&\#(0?94|136);/\$\\wedge\$/g;
                                            </select>       $result =~ s/&\#(0?95|138|154);/\\underline{\\makebox[2mm]{\\strut}}/g;
    </td>      $result =~ s/&\#(0?96|145);/\`/g;
  </tr>      $result =~ s/&\#0?97;/a/g;
 </table>      $result =~ s/&\#0?98;/b/g;
 </br>       $result =~ s/&\#0?99;/c/g;
 <input type="submit" value="Submit your choice">      $result =~ s/&\#100;/d/g;
 ENDMENUOUT5      $result =~ s/&\#101;/e/g;
       $result =~ s/&\#102;/f/g;
       $result =~ s/&\#103;/g/g;
       $result =~ s/&\#104;/h/g;
       $result =~ s/&\#105;/i/g;
       $result =~ s/&\#106;/j/g;
       $result =~ s/&\#107;/k/g;
       $result =~ s/&\#108;/l/g;
       $result =~ s/&\#109;/m/g;
       $result =~ s/&\#110;/n/g;
       $result =~ s/&\#111;/o/g;
       $result =~ s/&\#112;/p/g;
       $result =~ s/&\#113;/q/g;
       $result =~ s/&\#114;/r/g;
       $result =~ s/&\#115;/s/g;
       $result =~ s/&\#116;/t/g;
       $result =~ s/&\#117;/u/g;
       $result =~ s/&\#118;/v/g;
       $result =~ s/&\#119;/w/g;
       $result =~ s/&\#120;/x/g;
       $result =~ s/&\#121;/y/g;
       $result =~ s/&\#122;/z/g;
       $result =~ s/&\#123;/\\{/g;
       $result =~ s/&\#124;/\|/g;
       $result =~ s/&\#125;/\\}/g;
       $result =~ s/&\#126;/\~/g;
       $result =~ s/&\#131;/\\textflorin /g;
       $result =~ s/&\#132;/\"/g;
       $result =~ s/&\#133;/\$\\ldots\$/g;
       $result =~ s/&\#134;/\$\\dagger\$/g;
       $result =~ s/&\#135;/\$\\ddagger\$/g;
       $result =~ s/&\#137;/\\textperthousand /g;
       $result =~ s/&\#140;/{\\OE}/g;
       $result =~ s/&\#147;/\`\`/g;
       $result =~ s/&\#148;/\'\'/g;
       $result =~ s/&\#149;/\$\\bullet\$/g;
       $result =~ s/&\#150;/--/g;
       $result =~ s/&\#151;/---/g;
       $result =~ s/&\#152;/\$\\sim\$/g;
       $result =~ s/&\#153;/\\texttrademark /g;
       $result =~ s/&\#156;/\\oe/g;
       $result =~ s/&\#159;/\\\"Y/g;
       $result =~ s/&(\#160|nbsp);//g;
       $result =~ s/&(\#161|iexcl);/!\`/g;
       $result =~ s/&(\#162|cent);/\\textcent /g;
       $result =~ s/&(\#163|pound);/\\pounds /g; 
       $result =~ s/&(\#164|curren);/\\textcurrency /g;
       $result =~ s/&(\#165|yen);/\\textyen /g;
       $result =~ s/&(\#166|brvbar);/\\textbrokenbar /g;
       $result =~ s/&(\#167|sect);/\\textsection /g;
       $result =~ s/&(\#168|uml);/\\texthighdieresis /g;
       $result =~ s/&(\#169|copy);/\\copyright /g;
       $result =~ s/&(\#170|ordf);/\\textordfeminine /g;
       $result =~ s/&(\#172|not);/\$\\neg\$/g;
       $result =~ s/&(\#173|shy);/ - /g;
       $result =~ s/&(\#174|reg);/\\textregistered /g;
       $result =~ s/&(\#175|macr);/\$^{-}\$/g;
       $result =~ s/&(\#176|deg);/\$^{\\circ}\$/g;
       $result =~ s/&(\#177|plusmn);/\$\\pm\$/g;
       $result =~ s/&(\#178|sup2);/\$^2\$/g;
       $result =~ s/&(\#179|sup3);/\$^3\$/g;
       $result =~ s/&(\#180|acute);/\\textacute /g;
       $result =~ s/&(\#181|micro);/\$\\mu\$/g;
       $result =~ s/&(\#182|para);/\\P/g;
       $result =~ s/&(\#183|middot);/\$\\cdot\$/g;
       $result =~ s/&(\#184|cedil);/\\c{\\strut}/g;
       $result =~ s/&(\#185|sup1);/\$^1\$/g;
       $result =~ s/&(\#186|ordm);/\\textordmasculine /g;
       $result =~ s/&(\#188|frac14);/\\textonequarter /g;
       $result =~ s/&(\#189|frac12);/\\textonehalf /g;
       $result =~ s/&(\#190|frac34);/\\textthreequarters /g;
       $result =~ s/&(\#191|iquest);/?\`/g;   
       $result =~ s/&(\#192|Agrave);/\\\`{A}/g;  
       $result =~ s/&(\#193|Aacute);/\\\'{A}/g; 
       $result =~ s/&(\#194|Acirc);/\\^{A}/g;
       $result =~ s/&(\#195|Atilde);/\\~{A}/g;
       $result =~ s/&(\#196|Auml);/\\\"{A}/g; 
       $result =~ s/&(\#197|Aring);/{\\AA}/g;
       $result =~ s/&(\#198|AElig);/{\\AE}/g;
       $result =~ s/&(\#199|Ccedil);/\\c{c}/g;
       $result =~ s/&(\#200|Egrave);/\\\`{E}/g;  
       $result =~ s/&(\#201|Eacute);/\\\'{E}/g;    
       $result =~ s/&(\#202|Ecirc);/\\^{E}/g;
       $result =~ s/&(\#203|Euml);/\\\"{E}/g;
       $result =~ s/&(\#204|Igrave);/\\\`{I}/g;
       $result =~ s/&(\#205|Iacute);/\\\'{I}/g;    
       $result =~ s/&(\#206|Icirc);/\\^{I}/g;
       $result =~ s/&(\#207|Iuml);/\\\"{I}/g;    
       $result =~ s/&(\#209|Ntilde);/\\~{N}/g;
       $result =~ s/&(\#210|Ograve);/\\\`{O}/g;
       $result =~ s/&(\#211|Oacute);/\\\'{O}/g;
       $result =~ s/&(\#212|Ocirc);/\\^{O}/g;
       $result =~ s/&(\#213|Otilde);/\\~{O}/g;
       $result =~ s/&(\#214|Ouml);/\\\"{O}/g;    
       $result =~ s/&(\#215|times);/\$\\times\$/g;
       $result =~ s/&(\#216|Oslash);/{\\O}/g;
       $result =~ s/&(\#217|Ugrave);/\\\`{U}/g;    
       $result =~ s/&(\#218|Uacute);/\\\'{U}/g;
       $result =~ s/&(\#219|Ucirc);/\\^{U}/g;
       $result =~ s/&(\#220|Uuml);/\\\"{U}/g;
       $result =~ s/&(\#221|Yacute);/\\\'{Y}/g;
       $result =~ s/&(\#223|szlig);/\\ss/g;
       $result =~ s/&(\#224|agrave);/\\\`{a}/g;
       $result =~ s/&(\#225|aacute);/\\\'{a}/g;
       $result =~ s/&(\#226|acirc);/\\^{a}/g;
       $result =~ s/&(\#227|atilde);/\\~{a}/g;
       $result =~ s/&(\#228|auml);/\\\"{a}/g;
       $result =~ s/&(\#229|aring);/{\\aa}/g;
       $result =~ s/&(\#230|aelig);/{\\ae}/g;
       $result =~ s/&(\#231|ccedil);/\\c{c}/g;
       $result =~ s/&(\#232|egrave);/\\\`{e}/g;
       $result =~ s/&(\#233|eacute);/\\\'{e}/g;
       $result =~ s/&(\#234|ecirc);/\\^{e}/g;
       $result =~ s/&(\#235|euml);/\\\"{e}/g;
       $result =~ s/&(\#236|igrave);/\\\`{i}/g;
       $result =~ s/&(\#237|iacute);/\\\'{i}/g;
       $result =~ s/&(\#238|icirc);/\\^{i}/g;
       $result =~ s/&(\#239|iuml);/\\\"{i}/g;
       $result =~ s/&(\#240|eth);/\$\\partial\$/g;
       $result =~ s/&(\#241|ntilde);/\\~{n}/g;
       $result =~ s/&(\#242|ograve);/\\\`{o}/g;
       $result =~ s/&(\#243|oacute);/\\\'{o}/g;
       $result =~ s/&(\#244|ocirc);/\\^{o}/g;
       $result =~ s/&(\#245|otilde);/\\~{o}/g;
       $result =~ s/&(\#246|ouml);/\\\"{o}/g;
       $result =~ s/&(\#247|divide);/\$\\div\$/g;
       $result =~ s/&(\#248|oslash);/{\\o}/g;
       $result =~ s/&(\#249|ugrave);/\\\`{u}/g; 
       $result =~ s/&(\#250|uacute);/\\\'{u}/g;
       $result =~ s/&(\#251|ucirc);/\\^{u}/g;
       $result =~ s/&(\#252|uuml);/\\\"{u}/g;
       $result =~ s/&(\#253|yacute);/\\\'{y}/g;
       $result =~ s/&(\#255|yuml);/\\\"{y}/g;
       $result =~ s/&\#952;/\$\\theta\$/g;
   #Greek Alphabet
       $result =~ s/&(alpha|\#945);/\$\\alpha \$/g;
       $result =~ s/&(beta|\#946);/\$\\beta \$/g;
       $result =~ s/&(gamma|\#947);/\$\\gamma \$/g;
       $result =~ s/&(delta|\#948);/\$\\delta \$/g;
       $result =~ s/&(epsilon|\#949);/\$\\epsilon \$/g;
       $result =~ s/&(zeta|\#950);/\$\\zeta \$/g;
       $result =~ s/&(eta|\#951);/\$\\eta \$/g;
       $result =~ s/&(theta|\#952);/\$\\theta \$/g;
       $result =~ s/&(iota|\#953);/\$\\iota \$/g;
       $result =~ s/&(kappa|\#954);/\$\\kappa \$/g;
       $result =~ s/&(lambda|\#955);/\$\\lambda \$/g;
       $result =~ s/&(mu|\#956);/\$\\mu \$/g;
       $result =~ s/&(nu|\#957);/\$\\nu \$/g;
       $result =~ s/&(xi|\#958);/\$\\xi \$/g;
       $result =~ s/&(pi|\#960);/\$\\pi \$/g;
       $result =~ s/&(rho|\#961);/\$\\rho \$/g;
       $result =~ s/&(sigma|\#963);/\$\\sigma \$/g;
       $result =~ s/&(tau|\#964);/\$\\tau \$/g;
       $result =~ s/&(upsilon|\#965);/\$\\upsilon \$/g;
       $result =~ s/&(phi|\#966);/\$\\phi \$/g;
       $result =~ s/&(chi|\#967);/\$\\chi \$/g;
       $result =~ s/&(psi|\#968);/\$\\psi \$/g;
       $result =~ s/&(omega|\#969);/\$\\omega \$/g;
       $result =~ s/&(Gamma|\#915);/\$\\Gamma \$/g;
       $result =~ s/&(Delta|\#916);/\$\\Delta \$/g;
       $result =~ s/&(Theta|\#920);/\$\\Theta \$/g;
       $result =~ s/&(Lambda|\#923);/\$\\Lambda \$/g;
       $result =~ s/&(Xi|\#926);/\$\\Xi \$/g;
       $result =~ s/&(Pi|\#928);/\$\\Pi \$/g;
       $result =~ s/&(Sigma|\#931);/\$\\Sigma \$/g;
       $result =~ s/&(Upsilon|\#933);/\$\\Upsilon \$/g;
       $result =~ s/&(Phi|\#934);/\$\\Phi \$/g;
       $result =~ s/&(Psi|\#936);/\$\\Psi \$/g;
       $result =~ s/&(Omega|\#937);/\$\\Omega \$/g;
       return $result;
 }  }
   
   
 sub sequence_content_menu {  sub page_format {
     my ($key_to,$r) = @_;  #
     my $primary_sequence;  #Correspondence between $papersize variable and real paper format:
     my $symbolic = &Apache::lonnet::symbread($ENV{'form.url'});  # 0 - "Letter [8 1/2x11 in]"
     my @sequence = split('___',$symbolic);  # 1 - "Legal [8 1/2x14 in]"
     if ($sequence[0]=~/^uploaded/) {$primary_sequence = '/'.$sequence[0];}   # 2 - "Ledger/Tabloid [11x17 in]"
       else {$primary_sequence = '/res/'.$sequence[0];}   # 3 - "Executive [7 1/2x10 in]"
     my @master_seq = &coming_from_hash($primary_sequence,$sequence[0]);  # 4 - "A2 [420x594 mm]"
     my @titles_master_seq = &titles_coming_from_hash($primary_sequence,$sequence[0]);  # 5 - "A3 [297x420 mm]"
     foreach my $entity (@titles_master_seq) {$entity=~/^(.*)&&/; $entity=$1}  # 6 - "A4 [210x297 mm]"
     my @master_seq_view = @master_seq;  # 7 - "A5 [148x210 mm]"
     if (not $ENV{'request.role'}=~/^st\./) {  # 8 - "A6 [105x148 mm]"
       for (my $i=0;$i<=$#master_seq_view;$i++) {  # 
  $master_seq_view[$i]=~/___\d+___(.+)$/;      my ($papersize,$layout,$numberofcolumns) = @_; 
  $master_seq_view[$i]='/'.$1;      my ($textwidth,$textheight,$oddoffset,$evenoffset) = (0,0,0,0);
       }      if ($papersize eq '0') {
     } else {   if ($layout eq 'book') {
       for (my $i=0;$i<=$#master_seq_view;$i++) {      if ($numberofcolumns == 1) {
   $master_seq_view[$i]=' ';   $textwidth = '7.1 in';      #'18 cm';
       }   $textheight = '10.2 in';    #'25.9 cm';
     }   $oddoffset = '-0.57 in';
     $r->print(<<ENDMENUOUT1);   $evenoffset = '-0.57 in';
 <input type="hidden" name="url" value="$ENV{'form.url'}">      } elsif ($numberofcolumns == 2) {
 <input type="hidden" name="choice" value="$ENV{'form.choice'}">   $textwidth = '3.66 in';     #'93 mm';
 <input type="hidden" name="layout" value="$ENV{'form.layout'}">   $textheight = '10.2 in';    #'25.9 cm';
 <input type="hidden" name="papersize" value="$ENV{'form.papersize'}">   $oddoffset = '-0.57 in';
 <input type="hidden" name="assignment" value="$ENV{'form.assignment'}">   $evenoffset = '-0.57 in';
 <input type="hidden" name="numberofcolumns" value="$ENV{'form.numberofcolumns'}">      }
 <h1>Mark item(s) which you want to print</h1>   } elsif ($layout eq 'album') {
 <script>      if ($numberofcolumns eq '1') {
     function checkall() {   $textwidth = '8.8 in';
  for (i=0; i<document.forms.printform.elements.length; i++) {   $textheight = '6.8 in';
             if    $oddoffset = '-40 pt';
           (document.forms.printform.elements[i].name.indexOf('whatfile')==0) {   $evenoffset = '-60 pt';
       document.forms.printform.elements[i].checked=true;      } elsif ($numberofcolumns == 2) {
             }   $textwidth = '4.2 in';
         }   $textheight = '6.8 in';
     }   $oddoffset = '-40 pt';
     function uncheckall() {   $evenoffset = '-60 pt';
  for (i=0; i<document.forms.printform.elements.length; i++) {      }
             if    }
           (document.forms.printform.elements[i].name.indexOf('whatfile')==0) {  #    } elsif($papersize eq '1') {
       document.forms.printform.elements[i].checked=false;  #    } elsif($papersize eq '2') {
             }  #    } elsif($papersize eq '3'/) {
         }      } elsif($papersize eq '6') {
    if ($layout eq 'book') {
       if ($numberofcolumns == 1) {
    $textwidth = '18 cm';
    $textheight = '28 cm';
    $oddoffset = '-0.57 in';
    $evenoffset = '-0.57 in';
       } elsif ($numberofcolumns == 2) {
    $textwidth = '96 mm';
    $textheight = '2 cm';
    $oddoffset = '-0.57 in';
    $evenoffset = '-0.57 in';
       }
    } elsif ($layout eq 'album') {
       if ($numberofcolumns eq '1') {
    $textwidth = '8.5 in';
    $textheight = '7.7 in';
    $oddoffset = '-40 pt';
    $evenoffset = '-60 pt';
       } elsif ($numberofcolumns == 2) {
    $textwidth = '3.9 in';
    $textheight = '7.7 in';
    $oddoffset = '-40 pt';
    $evenoffset = '-60 pt';
       }
    }
   #    } elsif($papersize eq '5') {
   #    } elsif($papersize eq '4') {
   #    } elsif($papersize eq '7') {
   #    } elsif($papersize eq '8') {
     }      }
 </script>      return $textwidth,$textheight,$oddoffset,$evenoffset;
 <input type=button onClick="checkall()" value="Check All">&nbsp;  }
 <input type=button onClick="uncheckall()" value="Uncheck">&nbsp;  
 <input type="submit" value="Submit">  
 <p>  
 ENDMENUOUT1  
     my $inc=0;   
     for (my $i=0;$i<=$#master_seq_view;$i++) {  
       if ($key_to==1 && $master_seq[$i]=~/\.(problem|exam|quiz|assess|survey|form|library)$/) {  
  $r->print('<br /><input type=checkbox name="whatfile'.$inc.'" value="'.$master_seq[$i].'"> '."\n".'<b>'.  
                   $titles_master_seq[$i].'</b>&nbsp;&nbsp;&nbsp;<small>'.$master_seq_view[$i].'</small>');  
         $inc++;  
     } elsif ($key_to==0 && $master_seq[$i]=~/\.(problem|exam|quiz|assess|survey|form|library|xml|htm|html|page)$/) {  
  $r->print('<br /><input type=checkbox name="whatfile'.$inc.'" value="'.$master_seq[$i].'"> '."\n".'<b>'.  
                   $titles_master_seq[$i].'</b>&nbsp;&nbsp;&nbsp;<small>'.$master_seq_view[$i].'</small>');  
         $inc++;  
       }  
     }  
     $r->print(<<ENDMENUOUT2);  
 <br />  
 <input type="hidden" name="numberoffiles" value="$inc">  
 <input type="hidden" name="phase" value="three">  
 <input type="submit" value="Submit">  
 ENDMENUOUT2  
   
   
   sub get_name {
       my ($uname,$udom)=@_;
       if (!defined($uname)) { $uname=$ENV{'user.name'}; }
       if (!defined($udom)) { $uname=$ENV{'user.domain'}; }
       my $plainname=&Apache::loncommon::plainname($uname,$udom);
       if ($plainname=~/^\s*$/) { $plainname=$uname; }
       return &Apache::lonxml::latex_special_symbols($plainname,undef,undef,
     'header');
 }  }
   
   
 sub problem_choice_menu {  sub page_format_transformation {
     my $r = shift;      my ($papersize,$layout,$numberofcolumns,$choice,$text,$assignment) = @_; 
     my $subdirtoprint = &Apache::lonnet::filelocation("",$ENV{'form.url'});      my ($textwidth,$textheight,$oddoffset,$evenoffset);
     $subdirtoprint =~ s/\/[^\/]+$//;   $assignment=~s/_/ /g;
     my @list_of_files = ();          if ($numberofcolumns != 1) {
     my @content_directory = ();            ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format($papersize,$layout,$numberofcolumns);
     if ($subdirtoprint =~ m|/home/([^/]+)/public_html|) {   } else {
  #localmachine CSTR space    ($textwidth,$textheight,$oddoffset,$evenoffset) = ($ENV{'form.width'},$ENV{'form.height'},$ENV{'form.leftmargin'},$ENV{'form.leftmargin'});
  my $user=$1;   }
  my $domain=$Apache::lonnet::perlvar{'lonDefDomain'};      my $name = &get_name();
  @content_directory = &Apache::lonnet::dirlist($subdirtoprint,      if ($name =~ /^\s*$/) {
       $domain, $user,'');   $name=&Apache::lonxml::latex_special_symbols($ENV{'user.name'},undef,
     } else {       undef,'header');
  @content_directory = &Apache::lonnet::dirlist($subdirtoprint);      }
     }      my $courseidinfo = &Apache::lonxml::latex_special_symbols(&Apache::lonnet::unescape($ENV{'course.'.$ENV{'request.course.id'}.'.description'}),'','','header');
     for (my $iy=0;$iy<=$#content_directory;$iy++) {      if ($layout eq 'album') {
  my @tempo_array = split(/&/,$content_directory[$iy]);      $text =~ s/\\begin{document}/\\setlength{\\oddsidemargin}{$oddoffset}\\setlength{\\evensidemargin}{$evenoffset}\\setlength{\\topmargin}{200pt}\\setlength{\\textwidth}{$textwidth}\\setlength{\\textheight}{$textheight}\\setlength{\\parindent}{20pt}\\setlength{\\marginparwidth}{90pt}\\setlength{\\textfloatsep}{8pt plus 2\.0pt minus 4\.0pt}\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm} \\begin{document}\\setcounter{page}{1}\\noindent\\parbox{\\minipagewidth}{\\noindent\\fbox{\\textbf{$name}} \\hfill  $courseidinfo} \\vskip 5 mm /;
  if ($tempo_array[0] =~ m/^[^\.]+\.(problem|exam|quiz|assess|survey|form|library)$/) {      } elsif ($layout eq 'book') {
     push(@list_of_files,$tempo_array[0]);   if ($choice ne 'All class print') { 
       $text =~ s/\\begin{document}/\\textheight $textheight\\oddsidemargin = $evenoffset\\evensidemargin = $evenoffset\\textwidth= $textwidth\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\\renewcommand{\\ref}{\\keephidden\}\\usepackage{fancyhdr}\\pagestyle{fancy}\\rhead{}\\chead{}\\lhead{\\textbf{$name} - $courseidinfo \\hfill \\thepage \\\\ \\textit{$assignment}}\\begin{document}\\voffset=-0\.8 cm\\setcounter{page}{1}/;
    } else {
       $text =~ s/\\pagestyle{fancy}\\rhead{}\\chead{}\s*\\begin{document}/\\textheight = $textheight\\oddsidemargin = $evenoffset\\evensidemargin = $evenoffset\\textwidth= $textwidth\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\\renewcommand{\\ref}{\\keephidden\}\\pagestyle{fancy}\\rhead{}\\chead{}\\begin{document}\\voffset=-0\.8cm\\setcounter{page}{1}  \\vskip 5 mm /;
  }   }
     }      }
     $subdirtoprint =~ s/\/$//;      return $text;
     for (my $i=0;$i<=$#list_of_files;$i++) {  }
  $list_of_files[$i] = $subdirtoprint.'/'.$list_of_files[$i];  
     }  
     $r->print(<<ENDMENUOUT1);  
 <input type="hidden" name="url" value="$ENV{'form.url'}">  
 <input type="hidden" name="choice" value="$ENV{'form.choice'}">  
 <input type="hidden" name="layout" value="$ENV{'form.layout'}">  
 <input type="hidden" name="numberofcolumns" value="$ENV{'form.numberofcolumns'}">  
 <h1>Mark problems which you want to print</h1>  
 <script>  
     function checkall() {  
  for (i=0; i<document.forms.printform.elements.length; i++) {  
             if   
           (document.forms.printform.elements[i].name.indexOf('whattoprint')==0) {  
       document.forms.printform.elements[i].checked=true;  
             }  
         }  
     }  
   
   
     function uncheckall() {  sub page_cleanup {
  for (i=0; i<document.forms.printform.elements.length; i++) {      my $result = shift;
             if    
           (document.forms.printform.elements[i].name.indexOf('whattoprint')==0) {      $result =~ m/\\end{document}(\d*)$/;
       document.forms.printform.elements[i].checked=false;      my $number_of_columns = $1;
             }      my $insert = '{';
         }      for (my $id=1;$id<=$number_of_columns;$id++) { $insert .='l'; }
     }      $insert .= '}';
 </script>      $result =~ s/(\\begin{longtable})INSERTTHEHEADOFLONGTABLE\\endfirsthead\\endhead/$1$insert/g;
 <input type=button onClick="checkall()" value="Check All">&nbsp;      $result =~ s/&\s*REMOVETHEHEADOFLONGTABLE\\\\/\\\\/g;
 <input type=button onClick="uncheckall()" value="Uncheck">      return $result,$number_of_columns;
 <p>  
 ENDMENUOUT1  
     my $i=0;  
     foreach my $file (sort @list_of_files) {  
  $r->print('<br /><input type=checkbox name="whattoprint'.$i.'" value="'.$file.'"> '.  
                   $file);  
  $i++;  
     }  
     $r->print(<<ENDMENUOUT2);  
 <br />  
 <input type="hidden" name="papersize" value="$ENV{'form.papersize'}">  
 <input type="hidden" name="numberofproblems" value="$i">  
 <input type="hidden" name="phase" value="three">  
 <input type="submit" value="Submit">  
 ENDMENUOUT2  
 }  }
   
   
 sub additional_class_menu {  sub details_for_menu {
     my $r = shift;  
     $r->print(<<ENDMENUOUT1);  
 <input type="hidden" name="url" value="$ENV{'form.url'}">  
 <input type="hidden" name="choice" value="$ENV{'form.choice'}">  
 <input type="hidden" name="layout" value="$ENV{'form.layout'}">  
 <input type="hidden" name="numberofcolumns" value="$ENV{'form.numberofcolumns'}">  
 <input type="hidden" name="assignment" value="$ENV{'form.assignment'}">  
 <h1>Select student(s) whose assignment you want to print</h1>  
 ENDMENUOUT1  
     my %courselist=&Apache::lonnet::dump(  
                    'classlist',  
    $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},  
    $ENV{'course.'.$ENV{'request.course.id'}.'.num'});  
     my $now=time;  
     $r->print(<<ENDDISHEADER);  
 <script>  
     function checkall() {  
  for (i=0; i<document.forms.printform.elements.length; i++) {  
             if   
           (document.forms.printform.elements[i].name.indexOf('whomtoprint')==0) {  
       document.forms.printform.elements[i].checked=true;  
             }  
         }  
     }  
   
     function checksec() {      my $name_of_resourse = $hash{'title_'.$hash{'ids_'.$ENV{'form.postdata'}}};
  for (i=0; i<document.forms.printform.elements.length; i++) {      my $symbolic = &Apache::lonnet::symbread($ENV{'form.postdata'});
             if       my ($map,$id,$resource)=split(/___/,$symbolic);
           (document.forms.printform.elements[i].value.indexOf      $map=&Apache::lonnet::clutter($map);
            (document.forms.printform.chksec.value)==0) {      my $name_of_sequence;
       document.forms.printform.elements[i].checked=true;      $name_of_sequence = $hash{'title_'.$hash{'ids_'.$map}};
             }      if ($name_of_sequence =~ /^\s*$/) {
         }   $map =~ m|([^/]+)$|;
    $name_of_sequence = $1;
     }      }
       my $name_of_map = $hash{'title_'.$hash{'ids_'.&Apache::lonnet::clutter($ENV{'request.course.uri'})}};
     function uncheckall() {      if ($name_of_map =~ /^\s*$/) {
  for (i=0; i<document.forms.printform.elements.length; i++) {   $ENV{'request.course.uri'} =~ m|([^/]+)$|;
             if    $name_of_map = $1;
           (document.forms.printform.elements[i].name.indexOf('whomtoprint')==0) {  
       document.forms.printform.elements[i].checked=false;  
             }  
         }  
     }      }
 </script>      return ($name_of_resourse,$name_of_sequence,$name_of_map);
 <input type=button onClick="checkall()" value="Check All">&nbsp;  
 <input type=button onClick="checksec()" value="Type Section/Group then click">  
 <input type=text size=5 name=chksec>&nbsp;  
 <input type=button onClick="uncheckall()" value="Uncheck">  
 <p>  
 ENDDISHEADER  
     my $i = 0;  
     foreach (sort keys %courselist) {  
         my ($end,$start)=split(/\:/,$courselist{$_});  
         my $active=1;  
         if (($end) && ($now>$end)) { $active=0; }  
         if ($active) {  
            my ($sname,$sdom)=split(/\:/,$_);  
            my %reply=&Apache::lonnet::get('environment',  
               ['firstname','middlename','lastname','generation'],  
               $sdom,$sname);  
            my $section=&Apache::lonnet::usection  
        ($sdom,$sname,$ENV{'request.course.id'});  
            $r->print(  
         '<br /><input type=checkbox name="whomtoprint'.$i.'" value="'.$section.':'.$_.'"> '.  
       $reply{'firstname'}.' '.   
                       $reply{'middlename'}.' '.  
                       $reply{'lastname'}.' '.  
                       $reply{'generation'}.  
                       ' ('.$_.') '.$section);  
    $i++;  
         }   
     }  
     $r->print(<<ENDMENUOUT2);  
 <br />Number of blank pages to add: <select name="addedpages"><option selected>0</option>  
                                                               <option>1</option>  
                                                               <option>2</option>  
                                                               <option>3</option>  
                                     </select>  
 <br />   
 <input type="hidden" name="papersize" value="$ENV{'form.papersize'}">  
 <input type="hidden" name="numberofstudents" value="$i">  
 <input type="hidden" name="phase" value="three">  
 <input type="submit" value="Submit">  
 ENDMENUOUT2  
 }  }
   
   
 sub additional_print_menu {   sub latex_corrections {
     my $r = shift;  
     my $what_to_print = '';      my ($number_of_columns,$result) = @_;
     for (my $i=0; $i<$ENV{'form.numberofstudents'};$i++) {  
  $what_to_print .= '<input type="hidden" name="whomtoprint'.$i.'" value="'.$ENV{'form.whomtoprint'.$i}.'">';  #    $result =~ s/\\includegraphics{/\\includegraphics\[width=\\minipagewidth\]{/g;
     }      $result =~ s/\$number_of_columns/$number_of_columns/g;
     for (my $i=0; $i<$ENV{'form.numberofproblems'};$i++) {      $result =~ s/(\\end{document})/\\strut\\newline\\noindent\\makebox\[\\textwidth\/$number_of_columns\]\[b\]{\\hrulefill}\\newline\\noindent\\tiny Printed from LON-CAPA\\copyright MSU{\\hfill} Licensed under GNU General Public License  $1/;
  $what_to_print .= '<input type="hidden" name="whattoprint'.$i.'" value="'.$ENV{'form.whattoprint'.$i}.'">';      $result =~ s/(\\end{longtable}\s*)(\\strut\\newline\\noindent\\makebox\[\\textwidth\/$number_of_columns\]\[b\]{\\hrulefill})/$2$1/g;
     }      $result =~ s/(\\end{longtable}\s*)\\strut\\newline/$1/g;
     for (my $i=0; $i<$ENV{'form.numberoffiles'};$i++) {  #-- LaTeX corrections     
  $what_to_print .= '<input type="hidden" name="whatfile'.$i.'" value="'.$ENV{'form.whatfile'.$i}.'">';      my $first_comment = index($result,'<!--',0);
     }      while ($first_comment != -1) {
     $r->print(<<ENDMENUOUT);   my $end_comment = index($result,'-->',$first_comment);
     $what_to_print   substr($result,$first_comment,$end_comment-$first_comment+3) = '';
 <input type="hidden" name="url" value="$ENV{'form.url'}">   $first_comment = index($result,'<!--',$first_comment);
 <input type="hidden" name="choice" value="$ENV{'form.choice'}">      }
 <input type="hidden" name="layout" value="$ENV{'form.layout'}">      $result =~ s/^\s+$//gm; #remove empty lines
 <input type="hidden" name="papersize" value="$ENV{'form.papersize'}">      $result =~ s/(\s)(\s+)/$1/g; #removes more than one empty space
 <input type="hidden" name="numberofstudents" value="$ENV{'form.numberofstudents'}">      $result =~ s/\\\\\s*\\vskip/\\vskip/gm;
 <input type="hidden" name="numberofproblems" value="$ENV{'form.numberofproblems'}">      $result =~ s/\\\\\s*\\noindent\s*(\\\\)+/\\\\\\noindent /g;
 <input type="hidden" name="numberoffiles" value="$ENV{'form.numberoffiles'}">      $result =~ s/{\\par }\s*\\\\/\\\\/gm;
 <input type="hidden" name="numberofcolumns" value="$ENV{'form.numberofcolumns'}">   $result =~ s/\\\\\s+\[/ \[/g;
 <input type="hidden" name="assignment" value="$ENV{'form.assignment'}">      $result =~ s/\b__+\b/\\makebox\[1 cm\]\[b\]{\\hrulefill}/g;
 <input type="hidden" name="addedpages" value="$ENV{'form.addedpages'}">      #conversion of html characters to LaTeX equivalents
 Define one column layout parameters: <br />      if ($result =~ m/&(\w+|#\d+);/) {
 <b>Width</b>: <input type="text" name="width" width="8" value="9cm"> <br />   $result = &character_chart($result);
 <b>Height</b>: <input type="text" name="height" width="8" value="25.9cm"> <br />      }
 <b>Left margin</b>: <input type="text" name="leftmargin" width="8" value="-0.57in"> <br />      $result =~ s/(\\end{tabular})\s*\\vskip 0 mm/$1/g;
 <input type="hidden" name="phase" value="four">      $result =~ s/(\\begin{enumerate})\s*\\noindent/$1/g;
 <input type="submit" value="Submit">  
 </form>      return $result;
 </body>  
 </html>  
 ENDMENUOUT  
 }  }
   
   
 sub output_data {  sub output_data {
     my $r = shift;      my ($r,$helper,$rparmhash) = @_;
       my %parmhash = %$rparmhash;
       my $bodytag=&Apache::loncommon::bodytag('Preparing Printout');
     $r->print(<<ENDPART);      $r->print(<<ENDPART);
 <html>  <html>
 <head>  <head>
 <title>LON-CAPA output for printing</title>  <title>LON-CAPA output for printing</title>
 </head>  </head>
 <body bgcolor="FFFFFF">  $bodytag
 <hr>  Please stand by while processing your print request, this may take some time ...
 ENDPART  ENDPART
   
     my $choice = $ENV{'form.choice'};      my $format_from_helper = $helper->{'VARS'}->{'FORMAT'};
     my $layout = $ENV{'form.layout'};      my ($result,$selectionmade) = ('','');
     my $numberofcolumns = $ENV{'form.numberofcolumns'};    
     my $papersize = $ENV{'form.papersize'};            
     my $laystyle = 'book';  
     my $assignment =  $ENV{'form.assignment'};  
     if ($choice eq 'Subdirectory print') {  
  if ($ENV{'form.layout'} eq '') {$layout = 'CAPA';}  
  if ($ENV{'form.papersize'} eq '') {$papersize = 'Letter [8 1/2x11 in]';}  
  if ($ENV{'form.numberofcolumns'} eq '') {$numberofcolumns = 2;}  
     }  
     if (($choice eq 'Standard LaTeX output for current document') &&  
  ($ENV{'form.url'}=~m|^/~|)) {  
  if ($ENV{'form.layout'} eq '') {$layout = 'CAPA';}  
  if ($ENV{'form.papersize'} eq '') {$papersize = 'Letter [8 1/2x11 in]';}  
  if ($ENV{'form.numberofcolumns'} eq '') {$numberofcolumns = 2;}  
     }  
     my $result = '';  
     my $number_of_columns = 1; #used only for pages to determine the width of the cell      my $number_of_columns = 1; #used only for pages to determine the width of the cell
     my $selectionmade = '';      my @temporary_array=split /\|/,$format_from_helper;
     my ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format($papersize,$layout,$numberofcolumns);      my ($laystyle,$numberofcolumns,$papersize)=@temporary_array;
     if ($numberofcolumns == 1) {      if ($laystyle eq 'L') {
  $textwidth=$ENV{'form.width'};   $laystyle='album';
  $textheight=$ENV{'form.height'};      } else {
    $laystyle='book';
     }      }
       my ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format($papersize,$laystyle,$numberofcolumns);
       my $assignment =  $ENV{'form.assignment'};
     my $LaTeXwidth;       my $LaTeXwidth; 
     if ($textwidth=~/(\d+\s*cm)/) {      if ($textwidth=~/(\d+\.?\d*)\s*cm/) {
  $LaTeXwidth = $1*10;   $LaTeXwidth = $1*10;
     } elsif ($textwidth=~/(\d+\s*mm)/) {      } elsif ($textwidth=~/(\d+\.?\d*)\s*mm/) {
  $LaTeXwidth = $1;   $LaTeXwidth = $1;
       } elsif ($textwidth=~/(\d+\.?\d*)\s*in/) {
    $LaTeXwidth = $1*25.4;
     }      }
     if ($choice eq 'Standard LaTeX output for current document') {      $LaTeXwidth.=' mm';
       #-- single document - problem, page, html, xml        
       $selectionmade = 1;      if ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'current_document') {
       if ($ENV{'form.url'}=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)$/) {        #-- single document - problem, page, html, xml, ...
         my %moreenv;   my $currentURL;
         $moreenv{'form.grade_target'}='tex';   if ($helper->{'VARS'}->{'construction'} ne '1') {
         if (&Apache::lonnet::allowed('bre',$ENV{'form.url'})) {              #prints published resource
   $ENV{'form.url'}=~s/http:\/\/[^\/]+//;      $currentURL=$helper->{'VARS'}->{'postdata'};
         }   } else {
         $moreenv{'request.filename'}=$ENV{'form.url'};              #prints resource from the construction space
         $moreenv{'form.textwidth'}=$LaTeXwidth;      $currentURL=$helper->{'VARS'}->{'filename'};
         &Apache::lonnet::appenv(%moreenv);      $currentURL=~s/\/home\//\/~/;
         my $texversion=&Apache::lonnet::ssi($ENV{'form.url'});      $currentURL=~s/public_html\///;
         &Apache::lonnet::delenv('form.grade_target','form.textwidth','form.counter');   }
         $result .= $texversion;   $selectionmade = 1;
         if ($ENV{'form.url'}=~m/\.page\s*$/) {   if ($currentURL=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)$/) {
   ($result,$number_of_columns) = &page_cleanup($result);      my %moreenv;
         }      $moreenv{'request.filename'}=$currentURL;
       } else {      my %form;
   $result='\documentclass[letterpaper]{article}\usepackage{calc}\begin{document}Printout of this type of document is currently not supported: ';      $form{'grade_target'}='tex';
   if ($ENV{'form.url'}=~/\/(aboutme|syllabus|bulletinboard|smppg)$/) {      $form{'textwidth'}=$LaTeXwidth;
       $result.=$1;      my $rndseed=time;
   } else {      $form{'rndseed'}=$rndseed;
       $result.=$ENV{'form.url'};      &Apache::lonnet::appenv(%moreenv);
   }      my $texversion=&Apache::lonnet::ssi($currentURL,%form);
   $result.=' \end{document}'      &Apache::lonnet::delenv('form.counter');
       }      &Apache::lonnet::delenv('request.filename');
     } elsif ($choice eq 'Standard LaTeX output for the primary sequence' or       if($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {
              $choice eq 'Standard LaTeX output for whole primary sequence') {   my %form;
       #-- minimal sequence to which the current document belongs   $form{'grade_target'}='answer';
         #-- where is the primary sequence containing file?   $form{'answer_output_mode'}='tex';
         my @master_seq = ();   $form{'rndseed'}=$rndseed;
  for (my $i=0; $i<$ENV{'form.numberoffiles'};$i++) {   my $answer=&Apache::lonnet::ssi($currentURL,%form);
     if ($ENV{'form.whatfile'.$i}=~/\S/) {   $texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/;
  push @master_seq,$ENV{'form.whatfile'.$i};      }
       $result .= $texversion;
       if ($currentURL=~m/\.page\s*$/) {
    ($result,$number_of_columns) = &page_cleanup($result);
     }      }
    } else {
   #  $result='\documentclass[letterpaper]{article}\usepackage{calc}\begin{document}Printout of this type of document is currently not supported: ';
   #  if ($ENV{'form.url'}=~/\/(aboutme|syllabus|bulletinboard|smppg)$/) {
   #      $result.=$1;
   #  } else {
   #      $result.=$ENV{'form.url'};
   #  }
   #  $result.=' \end{document}'
  }   }
       } elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems') or
                ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems_pages') or
                ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems')) { 
         #-- produce an output string          #-- produce an output string
  my $flag_latex_header_remove = 'NO';   my $flag_latex_header_remove = 'NO';
  my $flag_page_in_sequence = 'NO';   my $flag_page_in_sequence = 'NO';
    my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'};
  for (my $i=0;$i<=$#master_seq;$i++) {   for (my $i=0;$i<=$#master_seq;$i++) {
            my ($urlp,$symb) = split /&&/, $master_seq[$i];      $master_seq[$i]=~/___\d+___(.*)$/;
     if ($choice eq 'Standard LaTeX output for the primary sequence') {      my $urlp='/res/'.$1;
               $selectionmade = 2;      if ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems') {
     } elsif ($choice eq 'Standard LaTeX output for whole primary sequence') {   $selectionmade = 2;
               $selectionmade = 3;      } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems_pages') {
    $selectionmade = 3;
       } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems') {
    $selectionmade = 4;
       }
       my %form;   
       $form{'grade_target'}='tex';
       $form{'textwidth'}=$LaTeXwidth;
       $form{'symb'}=$master_seq[$i];
               $form{'problem_split'}=$parmhash{'problem_stream_switch'};
       #&Apache::lonnet::logthis("Trying to get $urlp with symb $master_seq[$i]");
       my $texversion=&Apache::lonnet::ssi($urlp,%form);
       if ($urlp=~/\.page$/) {
    ($texversion,my $number_of_columns_page) = &page_cleanup($texversion);
    if ($number_of_columns_page > $number_of_columns) {$number_of_columns=$number_of_columns_page;} 
    $texversion =~ s/\\end{document}\d*/\\end{document}/;
    $flag_page_in_sequence = 'YES';
       } 
       if ($flag_latex_header_remove ne 'NO') {
    $texversion = &latex_header_footer_remove($texversion);
       } else {
    $texversion =~ s/\\end{document}//;
       }
       if($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {
    my %form;
    $form{'grade_target'}='answer';
    $form{'answer_output_mode'}='tex';
    my $answer=&Apache::lonnet::ssi($urlp,%form);
    $texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/;
     }      }
    my %moreenv;      $result .= $texversion;         
    $moreenv{'form.grade_target'}='tex';      $flag_latex_header_remove = 'YES';   
    $moreenv{'form.textwidth'}=$LaTeXwidth;  
    &Apache::lonnet::appenv(%moreenv);  
    #&Apache::lonnet::logthis("Trying to get $urlp with symb $symb");  
    my $texversion=&Apache::lonnet::ssi($urlp,('symb'=>$symb));  
    &Apache::lonnet::delenv('form.grade_target','form.textwidth');  
    if ($urlp =~ m/\.page/) {  
      ($texversion,my $number_of_columns_page) = &page_cleanup($texversion);  
      if ($number_of_columns_page > $number_of_columns) {$number_of_columns=$number_of_columns_page;}   
      $texversion =~ s/\\end{document}\d*/\\end{document}/;  
      $flag_page_in_sequence = 'YES';  
    }   
    if ($flag_latex_header_remove ne 'NO') {  
      $texversion = &latex_header_footer_remove($texversion);  
    } else {  
      $texversion =~ s/\\end{document}//;  
    }  
    $result .= $texversion;           
    $flag_latex_header_remove = 'YES';     
  }   }
  &Apache::lonnet::delenv('form.counter');   &Apache::lonnet::delenv('form.counter');
  if ($flag_page_in_sequence eq 'YES') {$result =~ s/\\usepackage{calc}/\\usepackage{calc}\\usepackage{longtable}/;}   if ($flag_page_in_sequence eq 'YES') {$result =~ s/\\usepackage{calc}/\\usepackage{calc}\\usepackage{longtable}/;}
  $result .= '\end{document}';   $result .= '\end{document}';
     }  elsif ($choice eq 'Standard LaTeX output for the top level sequence') {       } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_students') { 
         # where is the main sequence of the course?       #-- prints assignments for whole class or for selected students  
  $selectionmade = 4;   $selectionmade=5;
  my $main_seq;   my @students=split /\|\|\|/, $helper->{'VARS'}->{'STUDENTS'};
  if ($ENV{'request.course.uri'}=~/\/?uploaded\//) {   my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'};
     $main_seq = $ENV{'request.course.uri'};   #loop over students
  } else {   my $flag_latex_header_remove = 'NO'; 
     $main_seq = '/res/'.$ENV{'request.course.uri'};   my %moreenv;
  }   $moreenv{'form.textwidth'}=$LaTeXwidth;
  my @file_seq = &coming_from_hash_whole($main_seq);   &Apache::lonnet::appenv(%moreenv);
  my $flag_latex_header_remove = 'NO';   my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$#students+1);
         #-- produce an output string   foreach my $person (@students) {
  for (my $i=0;$i<=$#file_seq;$i++) {  
    if (not $file_seq[$i]=~/^&&/) {  
      my ($urlp,$symb) = split /&&/, $file_seq[$i];  
      $urlp=~s/\/home\/httpd\/html//;      
      if ($urlp=~m/\.(problem|exam|quiz|assess|survey|form|library)/) {  
  my %moreenv;  
  $moreenv{'form.grade_target'}='tex';  
  $moreenv{'form.textwidth'}=$LaTeXwidth;  
  &Apache::lonnet::appenv(%moreenv);  
  my $texversion=&Apache::lonnet::ssi($urlp,('symb'=>$symb));  
  &Apache::lonnet::delenv('form.grade_target','form.textwidth');      
  if ($flag_latex_header_remove ne 'NO') {  
     $texversion = &latex_header_footer_remove($texversion);  
  } else {  
     $texversion =~ s/\\end{document}//;  
  }  
  $result .= $texversion;    
  $flag_latex_header_remove = 'YES';  
      }  
    }  
  }      
  $result .= '\end{document}';  
     } elsif ($choice eq 'All class print') {   
     #-- prints assignments for whole class or for selected students    
  $selectionmade = 5;  
         my @students = ();  
  for (my $i=0; $i<$ENV{'form.numberofstudents'};$i++) {  
     if ($ENV{'form.whomtoprint'.$i}=~/:/) {  
  push @students,$ENV{'form.whomtoprint'.$i};  
     }  
  }  
  #where is the primary sequence containing current resource (the same for all students)?  
  my $symbolic = &Apache::lonnet::symbread($ENV{'form.url'});  
  my @sequence = split('___',$symbolic);  
  my $primary_sequence = '/res/'.$sequence[0];  
  my @master_seq = &coming_from_hash($primary_sequence,$sequence[0]);   
         #loop over students  
  my $flag_latex_header_remove = 'NO';   
  my %moreenv;  
  $moreenv{'form.textwidth'}=$LaTeXwidth;  
  &Apache::lonnet::appenv(%moreenv);  
  foreach my $person (@students) {  
     my $current_output = '';       my $current_output = ''; 
     my ($usersection,$username,$userdomain) = split /:/,$person;  #    my ($usersection,$username,$userdomain) = split /:/,$person;
     my $fullname = &Apache::grades::get_fullname($username,$userdomain);      my ($username,$userdomain) = split /:/,$person;
       my $fullname = &get_name($username,$userdomain);
             #goes through all resources, checks if they are available for current student, and produces output                 #goes through all resources, checks if they are available for current student, and produces output   
     foreach my $curresline (@master_seq)  {      foreach my $curresline (@master_seq)  {
  my ($curres,$symb) = split /&&/, $curresline;   if ($curresline=~ m/\.(problem|exam|quiz|assess|survey|form|library)$/) {
                 if ($curres=~ m/\.(problem|exam|quiz|assess|survey|form|library)/) {      my ($map,$id,$res_url) = split(/___/,$curresline);
     my ($map,$id,$res_url) = split(/___/,$symb);  
     if (&Apache::lonnet::allowed('bre',$res_url)) {      if (&Apache::lonnet::allowed('bre',$res_url)) {
  my $rendered = &Apache::loncommon::get_student_view($symb,$username,$userdomain,   my $rendered = &Apache::loncommon::get_student_view($curresline,$username,$userdomain,
                                                                         $ENV{'request.course.id'},'tex');                                                                          $ENV{'request.course.id'},'tex');
  if ($flag_latex_header_remove eq 'YES') {   if ($flag_latex_header_remove eq 'YES') {
     $rendered = &latex_header_footer_remove($rendered);      $rendered = &latex_header_footer_remove($rendered);
  } else {   } else {
     $rendered =~ s/\\end{document}//;      $rendered =~ s/\\end{document}//;
  }   }
    if($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {
       my %form;
       $form{'answer_output_mode'}='tex';
       my $ansrendered = &Apache::loncommon::get_student_answers($curresline,$username,$userdomain,
         $ENV{'request.course.id'},%form);
       $rendered=~s/(\\keephidden{ENDOFPROBLEM})/$ansrendered$1/;
    }
  $current_output .= $rendered;   $current_output .= $rendered;
     }      }
     $flag_latex_header_remove = 'YES';      $flag_latex_header_remove = 'YES';
  }   }
     }      }
       my $courseidinfo = $ENV{'course.'.$ENV{'request.course.id'}.'.description'};
     if ($current_output=~/\\documentclass/) {      if ($current_output=~/\\documentclass/) {
  my $courseidinfo = $ENV{'course.'.$ENV{'request.course.id'}.'.description'};   $current_output =~ s/\\begin{document}/\\setlength{\\topmargin}{1cm} \\begin{document}\\noindent\\lhead{\\textit{\\textbf{$fullname}} - $courseidinfo \\hfill \\thepage \\\\ \\textit{$helper->{VARS}->{'assignment'}}}\\vskip 3 mm /;
  $current_output =~ s/\\begin{document}/\\setlength{\\topmargin}{1cm}\\setlength{\\headheight}{1cm}\\setlength{\\headsep}{0.5cm}\\pagestyle{myheadings}\\markboth{}{{$courseidinfo  - $assignment}}\\begin{document}\\noindent\\textit{\\textbf{$fullname}}\\vskip 3 mm /;  
     } else {      } else {
  my $blanspages = '';   my $blanspages = '';
  for (my $j=0;$j<$ENV{'form.addedpages'};$j++) {$blanspages.='\clearpage\strut\clearpage';}   for (my $j=0;$j<$helper->{'VARS'}->{'EMPTY_PAGES'};$j++) {$blanspages.='\clearpage\strut\clearpage';}
  $current_output = '\strut\\newline\\noindent\\makebox[\\textwidth/$number_of_columns][b]{\\hrulefill}\\newline\\noindent{\\tiny Printed from LON-CAPA\\copyright MSU{\\hfill} Licensed under GNU General Public License } \\vskip 3mm'.$blanspages.'\setcounter{page}{1}\noindent\parbox{\minipagewidth}{\noindent\textit{\textbf{'.$fullname.'}}\hskip 1.4in } \vskip 5 mm '.$current_output;   $current_output = '\strut\\newline\\noindent\\makebox[\\textwidth/$number_of_columns][b]{\\hrulefill}\\newline\\noindent{\\tiny Printed from LON-CAPA\\copyright MSU{\\hfill} Licensed under GNU General Public License }\\newpage '.$blanspages.'\setcounter{page}{1}\noindent\parbox{\minipagewidth}{\noindent\\lhead{\\textit{\\textbf{'.$fullname.'}} - '.$courseidinfo.' \\hfill \\thepage \\\\ \\textit{'.$helper->{VARS}->{'assignment'}.'}}} \vskip -5 mm '.$current_output;
     }      }
     $result .= $current_output;      $result .= $current_output;
     &Apache::lonnet::delenv('form.counter');      &Apache::lonnet::delenv('form.counter');    
       &Apache::lonxml::init_counter(); 
       &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,
       'last student '.$fullname);
  }   }
    &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
  $result .= '\end{document}';   $result .= '\end{document}';
  &Apache::lonnet::delenv('form.textwidth');   &Apache::lonnet::delenv('form.textwidth');
     } elsif ($choice eq 'Subdirectory print') {            } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_from_directory') {      
     #prints selected problems from the subdirectory       #prints selected problems from the subdirectory 
  $selectionmade = 6;   $selectionmade = 6;
         my @list_of_files = ();          my @list_of_files=split /\|\|\|/, $helper->{'VARS'}->{'FILES'};
  for (my $i=0; $i<$ENV{'form.numberofproblems'};$i++) {   @list_of_files=sort @list_of_files;
     if ($ENV{'form.whattoprint'.$i}=~/^\//) {   my $flag_latex_header_remove = 'NO'; 
  push @list_of_files,$ENV{'form.whattoprint'.$i};   my $rndseed=time;
     }  
  }  
  my $flag_latex_header_remove = 'NO';    
  for (my $i=0;$i<=$#list_of_files;$i++) {   for (my $i=0;$i<=$#list_of_files;$i++) {
     my $urlp = $list_of_files[$i];      my $urlp = $list_of_files[$i];
     if ($urlp=~/\//) {      if ($urlp=~/\//) {
  my %moreenv;   my %form;
  $moreenv{'form.grade_target'}='tex';   $form{'grade_target'}='tex';
  $moreenv{'form.textwidth'}=$LaTeXwidth;   $form{'textwidth'}=$LaTeXwidth;
  &Apache::lonnet::appenv(%moreenv);   $form{'rndseed'}=$rndseed;
  if ($urlp =~ m|/home/([^/]+)/public_html|) {   if ($urlp =~ m|/home/([^/]+)/public_html|) {
     $urlp =~ s|/home/([^/]*)/public_html|/~$1|;      $urlp =~ s|/home/([^/]*)/public_html|/~$1|;
    } else {
       $urlp =~ s|^/home/httpd/html||;
    }
    my $texversion=&Apache::lonnet::ssi($urlp,%form);
    if($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {
       my %form;
       $form{'grade_target'}='answer';
       $form{'answer_output_mode'}='tex';
       $form{'rndseed'}=$rndseed;
       my $answer=&Apache::lonnet::ssi($urlp,%form);
       $texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/;
  }   }
  my $texversion=&Apache::lonnet::ssi($urlp);  
  &Apache::lonnet::delenv('form.grade_target','form.textwidth');  
                 #this chunck is responsible for printing the path to problem                  #this chunck is responsible for printing the path to problem
  my $newurlp = '';   my $newurlp = '';
  my $HowMany = length($urlp)*2;   my $HowMany = length($urlp)*2;
Line 673  ENDPART Line 741  ENDPART
     }      }
     $flag_latex_header_remove = 'YES';        $flag_latex_header_remove = 'YES';  
  }   }
    if ($helper->{VARS}->{'construction'} eq '1') {$result=~s/(\\typeout)/ RANDOM SEED IS $rndseed $1/;}
  $result .= '\end{document}';         $result .= '\end{document}';      
     }      }
 #-------------------------------------------------------- corrections for the different page formats  #-------------------------------------------------------- corrections for the different page formats
     $result = &page_format_transformation($papersize,$layout,$numberofcolumns,$choice,$result,$assignment);      $result = &page_format_transformation($papersize,$laystyle,$numberofcolumns,$helper->{'VARS'}->{'PRINT_TYPE'},$result,$helper->{VARS}->{'assignment'});
     if ($layout eq 'CBI') {  
         $laystyle = 'album';  
     }  
     $result = &latex_corrections($number_of_columns,$result);      $result = &latex_corrections($number_of_columns,$result);
     #changes page's parameters for the one column output       #changes page's parameters for the one column output 
     if ($ENV{'form.numberofcolumns'} == 1) {  #    if ($numberofcolumns == 1) {
  $result =~ s/\\textwidth= 9cm/\\textwidth= $ENV{'form.width'}/;  # $result =~ s/\\textwidth= 9cm/\\textwidth= $ENV{'form.width'}/;
  $result =~ s/\\textheight 25\.9cm/\\textheight $ENV{'form.height'}/;  # $result =~ s/\\textheight 25\.9cm/\\textheight $ENV{'form.height'}/;
  $result =~ s/\\evensidemargin = -0\.57in/\\evensidemargin= $ENV{'form.leftmargin'}/;  # $result =~ s/\\evensidemargin = -0\.57in/\\evensidemargin= $ENV{'form.leftmargin'}/;
  $result =~ s/\\oddsidemargin = -0\.57in/\\oddsidemargin= $ENV{'form.leftmargin'}/;  # $result =~ s/\\oddsidemargin = -0\.57in/\\oddsidemargin= $ENV{'form.leftmargin'}/;
     }  #    }
 #-- writing .tex file in prtspool   #-- writing .tex file in prtspool 
     my $temp_file;      my $temp_file;
     my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout_".time."_".rand(10000000).".tex";      my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout_".time."_".rand(10000000).".tex";
Line 696  ENDPART Line 762  ENDPART
  return SERVER_ERROR;    return SERVER_ERROR; 
     }       } 
     print $temp_file $result;      print $temp_file $result;
   
   #<meta http-equiv="Refresh" content="0; url=/cgi-bin/printout.pl?$filename&$laystyle&$numberofcolumns&$selectionmade">
 $r->print(<<FINALEND);  $r->print(<<FINALEND);
 <meta http-equiv="Refresh" content="0; url=/cgi-bin/printout.pl?$filename&$laystyle&$numberofcolumns&$selectionmade">  <meta http-equiv="Refresh" content="0; url=/cgi-bin/printout.pl?$filename&$laystyle&$numberofcolumns&$selectionmade">
 </body>  </body>
Line 704  FINALEND Line 772  FINALEND
 }  }
   
   
 sub coming_from_hash_whole {  
   
     my $mainsequence = shift;  sub handler {
     my @resourcelist = ();  
     my $mapid = $hash{'map_pc_'.$mainsequence};      my $r = shift;
     my $mapstart = $hash{'map_start_'.$mainsequence};      my $helper;
     my $mapfinish = $hash{'map_finish_'.$mainsequence};  
     my $current_resource = $mapstart;  #    my $loaderror=&Apache::lonnet::overloaderror($r);
     while ($current_resource ne $mapfinish) {  #    if ($loaderror) { return $loaderror; }
  if ($hash{'src_'.$current_resource}=~/\.sequence$/) {  #    $loaderror=
     push @resourcelist,&coming_from_hash_whole($hash{'src_'.$current_resource});  #       &Apache::lonnet::overloaderror($r,
  } else {  #         $ENV{'course.'.$ENV{'request.course.id'}.'.home'});
     my $presymb;   #    if ($loaderror) { return $loaderror; }
     if ($mainsequence =~ /\/res\/(.*)$/) {$presymb = $1;}   
               elsif ($mainsequence =~ /\/?(uploaded\/(.*))$/) {$presymb = $1;}       my $result = printHelper($r);
     my $rid = $hash{'ids_'.$hash{'src_'.$current_resource}};      if (!ref($result)) {
     if ($rid=~/,/) {   return $result;
  my @rid = split /,/, $rid;  
  foreach my $rid_element (@rid) {  
     if ($rid_element =~ m/^$mapid\.(\d*)/) {  
  $rid = $1;   
  last;  
     }  
  }  
     } else {  
         $rid =~ m/^$mapid\.(\d*)/;  
                 $rid = $1;    
     }  
     $hash{'src_'.$current_resource} =~ m/\/res\/(.*)$/;  
     my $symb = $presymb.'___'.$rid.'___'.$1;      
     push @resourcelist,$hash{'src_'.$current_resource}.'&&'.$symb;  
  }  
  $current_resource = $hash{'goesto_'.$hash{'to_'.$current_resource}};  
     }      }
     return @resourcelist;      $helper = $result;
 }     
   # my $key; 
   # foreach $key (keys %{$helper->{'VARS'}}) {
   #    $r->print(' '.$key.'->'.$helper->{'VARS'}->{$key}.'<-<br />');
   # }
   # return OK;
   
       my %parmhash=&Apache::lonnet::coursedescription($ENV{'request.course.id'});
       
   
 sub coming_from_hash {      &output_data($r,$helper,\%parmhash);
       return OK;
   } 
   
     my ($mainsequence,$symb) = @_;  use Apache::lonhelper;
     my @resourcelist = ();  
     my $mapid = $hash{'map_pc_'.$mainsequence};  sub printHelper {
     my $mapstart = $hash{'map_start_'.$mainsequence};      my $r = shift;
     my $mapfinish = $hash{'map_finish_'.$mainsequence};  
     my ($presymb);      if ($ENV{'request.course.id'}) {
     if ($symb) {   my $fn=$ENV{'request.course.fn'};
  ($presymb)=split(/___/,$symb);   tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640);
     } else {  
  $presymb=$mainsequence;  
  $presymb=~s|^/res/||;  
     }      }
     $presymb = $presymb.'___';  
     my $current_resource = $mapstart;      if ($r->header_only) {
     while ($current_resource ne $mapfinish) {          if ($ENV{'browser.mathml'}) {
  if (not $hash{'src_'.$current_resource}=~/\.sequence$/) {              $r->content_type('text/xml');
     my $rid = $hash{'ids_'.$hash{'src_'.$current_resource}};          } else {
             if ($rid=~/,/) {              $r->content_type('text/html');
  my @rid = split /,/, $rid;          }
  foreach my $rid_element (@rid) {          $r->send_http_header;
     if ($rid_element =~ m/^$mapid\.(\d*)/) {          return OK;
  $rid = $1;   
  last;  
     }  
  }  
     } else {  
  $rid =~ m/^$mapid\.(\d*)/;  
                 $rid = $1;    
     }  
     $hash{'src_'.$current_resource} =~ m/\/res\/(.*)$/;  
     $symb = $presymb.$rid.'___'.$1;  
     push @resourcelist,$hash{'src_'.$current_resource}.'&&'.$symb;  
  } else {  
     push @resourcelist,&coming_from_hash($hash{'src_'.$current_resource});  
  }  
  $current_resource = $hash{'goesto_'.$hash{'to_'.$current_resource}};  
     }      }
     #needs if final resource in the map (type="finish") contains something  
     if (not $hash{'src_'.$current_resource}=~/\.sequence$/) {      # Send header, nocache
     my $rid = $hash{'ids_'.$hash{'src_'.$current_resource}};      if ($ENV{'browser.mathml'}) {
             if ($rid=~/,/) {          $r->content_type('text/xml');
  my @rid = split /,/, $rid;  
  foreach my $rid_element (@rid) {  
     if ($rid_element =~ m/^$mapid\.(\d*)/) {  
  $rid = $1;   
  last;  
     }  
  }  
     } else {  
  $rid =~ m/^$mapid\.(\d*)/;  
                 $rid = $1;    
     }  
     $hash{'src_'.$current_resource} =~ m/\/res\/(.*)$/;  
     $symb = $presymb.$rid.'___'.$1;  
  push @resourcelist,$hash{'src_'.$current_resource}.'&&'.$symb;  
     } else {      } else {
  push @resourcelist,&coming_from_hash($hash{'src_'.$current_resource});          $r->content_type('text/html');
     }      }
     return @resourcelist;      &Apache::loncommon::no_cache($r);
 }      $r->send_http_header;
       $r->rflush();
   
 sub titles_coming_from_hash {      # Unfortunately, this helper is so complicated we have to
       # write it by hand
   
     my ($mainsequence,$symb) = @_;      Apache::loncommon::get_unprocessed_cgi($ENV{QUERY_STRING});
     my @resourcelist = ();      
     my $mapid = $hash{'map_pc_'.$mainsequence};      my $helper = Apache::lonhelper::helper->new("Printing Helper");
     my $mapstart = $hash{'map_start_'.$mainsequence};      $helper->declareVar('symb');
     my $mapfinish = $hash{'map_finish_'.$mainsequence};      $helper->declareVar('postdata');    
     my ($presymb);      $helper->declareVar('filename');
     if ($symb) {      $helper->declareVar('construction');
  ($presymb)=split(/___/,$symb);      $helper->declareVar('assignment');
       
       # This will persistently load in the data we want from the
       # very first screen.
       # Detect whether we're coming from construction space
       if ($ENV{'form.postdata'} =~ /http:\/\// ) {
           $ENV{'form.postdata'} =~ /http:\/\/[^\/]+\/~([^\/]+)\/(.*)/;
           $helper->{VARS}->{'filename'} = "/home/$1/public_html/$2";
           $helper->{VARS}->{'construction'} = 1;
     } else {      } else {
  $presymb=$mainsequence;          if ($ENV{'form.postdata'}) {
  $presymb=~s|^/res/||;              $helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($ENV{'form.postdata'});
           }
           if ($ENV{'form.symb'}) {
               $helper->{VARS}->{'symb'} = $ENV{'form.symb'};
           }
           if ($ENV{'form.url'}) {
               $helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($helper->{VARS}->{'postdata'});
           }
     }      }
     $presymb = $presymb.'___';  
     my $current_resource = $mapstart;      if ($ENV{'form.symb'}) {
     while ($current_resource ne $mapfinish) {          $helper->{VARS}->{'symb'} = $ENV{'form.symb'};
  if (not $hash{'src_'.$current_resource}=~/\.sequence$/) {  
     my $rid = $hash{'ids_'.$hash{'src_'.$current_resource}};  
             if ($rid=~/,/) {  
  my @rid = split /,/, $rid;  
  foreach my $rid_element (@rid) {  
     if ($rid_element =~ m/^$mapid\.(\d*)/) {  
  $rid = $1;   
  last;  
     }  
  }  
     } else {  
  $rid =~ m/^$mapid\.(\d*)/;  
                 $rid = $1;    
     }  
     $hash{'src_'.$current_resource} =~ m/\/res\/(.*)$/;  
     $symb = $presymb.$rid.'___'.$1;  
     push @resourcelist,$hash{'title_'.$current_resource}.'&&'.$symb;  
  } else {  
     push @resourcelist,&titles_coming_from_hash($hash{'src_'.$current_resource});  
  }  
  $current_resource = $hash{'goesto_'.$hash{'to_'.$current_resource}};  
     }      }
     #needs if final resource in the map (type="finish") contains something      if ($ENV{'form.url'}) {
     if (not $hash{'src_'.$current_resource}=~/\.sequence$/) {          $helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($helper->{VARS}->{'postdata'});
     my $rid = $hash{'ids_'.$hash{'src_'.$current_resource}};  
             if ($rid=~/,/) {      }
  my @rid = split /,/, $rid;      
  foreach my $rid_element (@rid) {      my ($resourceTitle,$sequenceTitle,$mapTitle) = &details_for_menu;
     if ($rid_element =~ m/^$mapid\.(\d*)/) {      if ($sequenceTitle ne '') {$helper->{VARS}->{'assignment'}=$sequenceTitle;}
  $rid = $1;   
  last;      
     }      # Extract map
  }      my $symb = $helper->{VARS}->{'symb'};
     } else {      my ($map, $id, $url);
  $rid =~ m/^$mapid\.(\d*)/;      my $subdir;
                 $rid = $1;    
     }      # Get the resource name from construction space
     $hash{'src_'.$current_resource} =~ m/\/res\/(.*)$/;      if ($helper->{VARS}->{'construction'}) {
     $symb = $presymb.$rid.'___'.$1;          $resourceTitle = substr($helper->{VARS}->{'filename'}, 
  push @resourcelist,$hash{'title_'.$current_resource}.'&&'.$symb;                                  rindex($helper->{VARS}->{'filename'}, '/')+1);
           $subdir = substr($helper->{VARS}->{'filename'},
                            0, rindex($helper->{VARS}->{'filename'}, '/') + 1);
     } else {      } else {
  push @resourcelist,&titles_coming_from_hash($hash{'src_'.$current_resource});          ($map, $id, $url) = split(/___/, $symb);
           $helper->{VARS}->{'postdata'} = Apache::lonnet::clutter($url);
   
           if (!$resourceTitle) { # if the resource doesn't have a title, use the filename
               my $url = $helper->{VARS}->{'postdata'};
               $resourceTitle = substr($url, rindex($url, '/') + 1);
           }
           $subdir = &Apache::lonnet::filelocation("", $url);
     }      }
     return @resourcelist;  
 }  
   
 sub latex_header_footer_remove {      Apache::lonhelper::registerHelperTags();
     my $text = shift;  
     $text =~ s/\\end{document}//;  
     $text =~ s/\\documentclass([^&]*)\\begin{document}//;  
     return $text;  
 }  
   
       # "Delete everything after the last slash."
       $subdir =~ s|/[^/]+$||;
       if (not $helper->{VARS}->{'construction'}) {
    $subdir='/home/httpd/html/res/'.$subdir;
       }
       # "Remove all duplicate slashes."
       $subdir =~ s|/+|/|g;
   
       # What can be printed is a very dynamic decision based on
       # lots of factors. So we need to dynamically build this list.
       # To prevent security leaks, states are only added to the wizard
       # if they can be reached, which ensures manipulating the form input
       # won't allow anyone to reach states they shouldn't have permission
       # to reach.
   
       # printChoices is tracking the kind of printing the user can
       # do, and will be used in a choices construction later.
       # In the meantime we will be adding states and elements to
       # the helper by hand.
       my $printChoices = [];
       my $paramHash;
   
       if ($resourceTitle) {
           push @{$printChoices}, ["<b>$resourceTitle</b> (prints what you just saw on the screen)", 'current_document', 'PAGESIZE'];
       }
   
   #    $r->print($helper->{VARS}->{'postdata'});
   
       # If we're in a sequence...
       if ($helper->{'VARS'}->{'construction'} ne '1') {
           # Allow problems from sequence
           push @{$printChoices}, ["Problem(s) from <b>$sequenceTitle</b>", 'map_problems', 'CHOOSE_PROBLEMS'];
           # Allow all resources from sequence
           push @{$printChoices}, ["Everything (problem(s), page(s), html/xml file(s)) from <b>$sequenceTitle</b>", 'map_problems_pages', 'CHOOSE_PROBLEMS_HTML'];
   
           my $isProblem = '$res->is_problem();';
           my $isProblemOrMap = '$res->is_problem() || $res->is_map()';
           my $isNotMap = '!$res->is_map();';
           my $symb = '$res->symb();';
           my $helperFragment = <<HELPERFRAGMENT;
     <state name="CHOOSE_PROBLEMS" title="Select Problem(s) to print">
       <message>(mark them then click "next" button) <br /></message>
       <resource variable="RESOURCES" multichoice="1" toponly='1'>
         <nextstate>PAGESIZE</nextstate>
         <filterfunc>return $isProblem</filterfunc>
         <mapurl>$map</mapurl>
         <valuefunc>return $symb</valuefunc>
         </resource>
       </state>
   
     <state name="CHOOSE_PROBLEMS_HTML" title="Select Resource(s) to print">
       <message>(mark them then click "next" button) <br /></message>
       <resource variable="RESOURCES" multichoice="1" toponly='1'>
         <nextstate>PAGESIZE</nextstate>
         <filterfunc>return $isNotMap;</filterfunc>
         <mapurl>$map</mapurl>
         <valuefunc>return $symb</valuefunc>
         </resource>
       </state>
   HELPERFRAGMENT
   
           &Apache::lonxml::xmlparse($r, 'helper', $helperFragment); 
       }
   
       # If the user is priviledged, allow them to print all 
       # problems in the course, optionally for selected students
       if (($ENV{'request.role'}=~m/^cc\./ or $ENV{'request.role'}=~m/^in\./ or $ENV{'request.role'}=~m/^ta\./) and ($helper->{VARS}->{'postdata'}=~/\/res\//)) { 
           push @{$printChoices}, ['<b>Problems</b> in this course', 'all_problems', 'ALL_PROBLEMS'];
           push @{$printChoices}, ["Problems from <b>$sequenceTitle</b> for selected students", 'problems_for_students', 'CHOOSE_STUDENTS'];
   
           my $isProblem = '$res->is_problem();';
           my $isProblemOrMap = '$res->is_problem() || $res->is_map()';
           my $symb = '$res->symb();';
           &Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_STUDENTS);
     <state name="ALL_PROBLEMS" title="Select Problem(s) to print">
       <message>(mark them then click "next" button) <br /></message>
       <resource variable="RESOURCES" multichoice="1" suppressEmptySequences='1'>
         <nextstate>PAGESIZE</nextstate>
         <filterfunc>return $isProblemOrMap</filterfunc>
         <choicefunc>return $isProblem</choicefunc>
         <valuefunc>return $symb</valuefunc>
         </resource>
       </state>
   
     <state name="CHOOSE_STUDENTS" title="Choose Students whose assignments you want to print">
       <message>(do not forget to select assignment itself - make another selection below) <br /></message>
       <student multichoice='1' variable="STUDENTS" nextstate="PAGESIZE" />
       <message><br /><big><i><b>Select resources for the assignment</b></i></big><br /></message>
       <resource variable="RESOURCES" multichoice="1">
         <filterfunc>return $isProblem</filterfunc>
         <mapurl>$map</mapurl>
         <valuefunc>return $symb</valuefunc>
         </resource>
       <message><br /><big><i><b>How should the results be printed?</b></i></big><br /></message>
       <choices variable="EMPTY_PAGES">
         <choice computer='0'>Start each student's assignment on a new page (add a pagefeed after each assignment)</choice>
         <choice computer='1'>Add one empty page after each student's assignment</choice>
         <choice computer='2'>Add two empty pages after each student's assignment</choice>
         </choices>
       </state>
   CHOOSE_STUDENTS
       }
   
       # FIXME: That RE should come from a library somewhere.
       if (((&Apache::lonnet::allowed('bre',$subdir) eq 'F') and ($helper->{VARS}->{'postdata'}=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)/)) or defined $helper->{'VARS'}->{'construction'}) {    
           push @{$printChoices}, ["Problems from current subdirectory <b>$subdir</b>", 'problems_from_directory', 'CHOOSE_FROM_SUBDIR'];
           
           my $f = '$filename';
           my $xmlfrag = <<CHOOSE_FROM_SUBDIR;
     <state name="CHOOSE_FROM_SUBDIR" title="Select File(s) from <b><small>$subdir</small></b> to print">
       <message>(mark them then click "next" button) <br /></message>
       <files variable="FILES" multichoice='1'>
         <nextstate>PAGESIZE</nextstate>
         <filechoice>return '$subdir';</filechoice>
   CHOOSE_FROM_SUBDIR
           
           $xmlfrag .= <<'CHOOSE_FROM_SUBDIR';
         <filefilter>return $filename =~ 
              m/^[^\.]+\.(problem|exam|quiz|assess|survey|form|library)$/;
         </filefilter>
         </files>
       </state>
   CHOOSE_FROM_SUBDIR
           &Apache::lonxml::xmlparse($r, 'helper', $xmlfrag);
       }
   
       # Generate the first state, to select which resources get printed.
       Apache::lonhelper::state->new("START", "What do you want to print? Make a choice.");
       $paramHash = Apache::lonhelper::getParamHash();
       $paramHash->{MESSAGE_TEXT} = "";
       Apache::lonhelper::message->new();
       $paramHash = Apache::lonhelper::getParamHash();
       $paramHash->{'variable'} = 'PRINT_TYPE';
       $helper->declareVar('PRINT_TYPE');
       $paramHash->{CHOICES} = $printChoices;
       Apache::lonhelper::choices->new();
   
       if (($ENV{'request.role.adv'} and &Apache::lonnet::allowed('vgr',$ENV{'request.course.id'})) or 
    ($helper->{VARS}->{'construction'} eq '1')) {
           $paramHash = Apache::lonhelper::getParamHash();
           $paramHash->{MESSAGE_TEXT} = "<br /><big><b><i>Next option is available only for advanced users:</i></b></big><br />";
           Apache::lonhelper::message->new();
           $paramHash = Apache::lonhelper::getParamHash();
    $paramHash->{'variable'} = 'ANSWER_TYPE';   
    $helper->declareVar('ANSWER_TYPE');         
           $paramHash->{CHOICES} = [
                                      ['Print without answer', 'yes'],
                                      ['Print with answers', 'no'] ];
           Apache::lonhelper::choices->new();
       }
   
       Apache::lonprintout::page_format_state->new("FORMAT");
   
       # Generate the PAGESIZE state which will offer the user the margin
       # choices if they select one column
       Apache::lonhelper::state->new("PAGESIZE", "Set Margins");
       Apache::lonprintout::page_size_state->new('pagesize', 'FORMAT', 'FINAL');
   
   
       $helper->process();
   
       # MANUAL BAILOUT CONDITION:
       # If we're in the "final" state, bailout and return to handler
       if ($helper->{STATE} eq 'FINAL') {
           return $helper;
       }    
   
 sub character_chart {      $r->print($helper->display());
     my $result = shift;  
     $result =~ s/&#0?0?7;//g;      Apache::lonhelper::unregisterHelperTags();
     $result =~ s/&#0?0?9;//g;  
     $result =~ s/&#0?10;//g;      untie %hash;
     $result =~ s/&#0?13;//g;  
     $result =~ s/&#0?32;/ /g;      return OK;
     $result =~ s/&#0?33;/!/g;  
     $result =~ s/&#0?34;/"/g;  
     $result =~ s/&quot;/"/g;   #"  
     $result =~ s/&#0?35;/\\#/g;  
 #    $result =~ s/&#0?36;/\\\$/g;  
     $result =~ s/&#0?37;/\\%/g;   
     $result =~ s/&#0?38;/\\&/g;   
     $result =~ s/&amp;/\\&/g;  
     $result =~ s/&#0?39;/'/g;  
     $result =~ s/&#0?40;/(/g;  
     $result =~ s/&#0?41;/)/g;  
     $result =~ s/&#0?42;/\*/g;  
     $result =~ s/&#0?43;/\+/g;  
     $result =~ s/&#0?44;/,/g;  
     $result =~ s/&#0?45;/-/g;  
     $result =~ s/&#0?46;/\./g;  
     $result =~ s/&#0?47;/\//g;  
     $result =~ s/&#0?48;/0/g;  
     $result =~ s/&#0?49;/1/g;  
     $result =~ s/&#0?50;/2/g;  
     $result =~ s/&#0?51;/3/g;  
     $result =~ s/&#0?52;/4/g;  
     $result =~ s/&#0?53;/5/g;  
     $result =~ s/&#0?54;/6/g;  
     $result =~ s/&#0?55;/7/g;  
     $result =~ s/&#0?56;/8/g;  
     $result =~ s/&#0?57;/9/g;  
     $result =~ s/&#0?58;/:/g;  
     $result =~ s/&#0?59;/;/g;  
     $result =~ s/&#0?60;/\$<\$/g;  
     $result =~ s/&lt;/\$<\$/g;  
     $result =~ s/&#0?61;/\$=\$/g;  
     $result =~ s/&#0?62;/\$>\$/g;  
     $result =~ s/&gt;/\$>\$/g;  
     $result =~ s/&#0?63;/?/g;  
 #    $result =~ s/&#0?64;//g;  
     $result =~ s/&#0?65;/A/g;  
     $result =~ s/&#0?66;/B/g;  
     $result =~ s/&#0?67;/C/g;  
     $result =~ s/&#0?68;/D/g;  
     $result =~ s/&#0?69;/E/g;  
     $result =~ s/&#0?70;/F/g;  
     $result =~ s/&#0?71;/G/g;  
     $result =~ s/&#0?72;/H/g;  
     $result =~ s/&#0?73;/I/g;  
     $result =~ s/&#0?74;/J/g;  
     $result =~ s/&#0?75;/K/g;  
     $result =~ s/&#0?76;/L/g;  
     $result =~ s/&#0?77;/M/g;  
     $result =~ s/&#0?78;/N/g;  
     $result =~ s/&#0?79;/O/g;  
     $result =~ s/&#0?80;/P/g;  
     $result =~ s/&#0?81;/Q/g;  
     $result =~ s/&#0?82;/R/g;  
     $result =~ s/&#0?83;/S/g;  
     $result =~ s/&#0?84;/T/g;  
     $result =~ s/&#0?85;/U/g;  
     $result =~ s/&#0?86;/V/g;  
     $result =~ s/&#0?87;/W/g;  
     $result =~ s/&#0?88;/X/g;  
     $result =~ s/&#0?89;/Y/g;  
     $result =~ s/&#0?90;/Z/g;  
     $result =~ s/&#0?91;/[/g;  
     $result =~ s/&#0?92;/\\/g;  
     $result =~ s/&#0?93;/]/g;  
 #    $result =~ s/&#0?94;//g;  
 #    $result =~ s/&#0?95;//g;  
     $result =~ s/&#0?96;/`/g;  
     $result =~ s/&#0?97;/a/g;  
     $result =~ s/&#0?98;/b/g;  
     $result =~ s/&#0?99;/c/g;  
     $result =~ s/&#100;/d/g;  
     $result =~ s/&#101;/e/g;  
     $result =~ s/&#102;/f/g;  
     $result =~ s/&#103;/g/g;  
     $result =~ s/&#104;/h/g;  
     $result =~ s/&#105;/i/g;  
     $result =~ s/&#106;/j/g;  
     $result =~ s/&#107;/k/g;  
     $result =~ s/&#108;/l/g;  
     $result =~ s/&#109;/m/g;  
     $result =~ s/&#110;/n/g;  
     $result =~ s/&#111;/o/g;  
     $result =~ s/&#112;/p/g;  
     $result =~ s/&#113;/q/g;  
     $result =~ s/&#114;/r/g;  
     $result =~ s/&#115;/s/g;  
     $result =~ s/&#116;/t/g;  
     $result =~ s/&#117;/u/g;  
     $result =~ s/&#118;/v/g;  
     $result =~ s/&#119;/w/g;  
     $result =~ s/&#120;/x/g;  
     $result =~ s/&#121;/y/g;  
     $result =~ s/&#122;/z/g;  
     $result =~ s/&#123;/\\{/g;  
     $result =~ s/&#124;/\|/g;  
     $result =~ s/&#125;/\\}/g;  
     $result =~ s/&#126;/\~/g;  
     $result =~ s/&#130;/,/g;  
 #    $result =~ s/&#131;//g;  
     $result =~ s/&#132;/''/g;  
     $result =~ s/&#133;/\$\\ldots\$/g;  
     $result =~ s/&#134;/\$\\dagger\$/g;  
     $result =~ s/&#135;/\$\\ddagger\$/g;  
 #    $result =~ s/&#136;//g;  
 #    $result =~ s/&#137;//g;  
 #    $result =~ s/&#138;//g;  
     $result =~ s/&#139;/\$<\$/g;  
 #    $result =~ s/&#140;//g;  
     $result =~ s/&#145;/`/g;  
     $result =~ s/&#146;/'/g;  
     $result =~ s/&#147;/``/g;  
     $result =~ s/&#148;/''/g;  
     $result =~ s/&#149;/\$\\bullet\$/g;  
 #    $result =~ s/&#150;//g;  
 #    $result =~ s/&#151;//g;  
     $result =~ s/&#152;/~/g;  
 #    $result =~ s/&#153;//g;  
 #    $result =~ s/&#154;//g;  
     $result =~ s/&#155;/\$>\$/g;  
     $result =~ s/&#156;/\\{\\oe\\}/g;  
     $result =~ s/&#159;/\\"\\{Y\\}/g;  
     $result =~ s/&#160;//g;  
     $result =~ s/&nbsp;//g;  
     $result =~ s/&#161;/!`/g;  
     $result =~ s/&iexcl;/!`/g; #`  
 #    $result =~ s/&#162;//g;  
 #    $result =~ s/&cent;//g;  
     $result =~ s/&#163;/\\pounds/g;   
     $result =~ s/&pound;/\\pounds/g;  
 #    $result =~ s/&#164;//g;  
 #    $result =~ s/&curren;//g;  
 #    $result =~ s/&#165;//g;  
 #    $result =~ s/&yen;//g;  
 #    $result =~ s/&#166;//g;  
 #    $result =~ s/&brvbar;//g;  
 #    $result =~ s/&#167;//g;  
 #    $result =~ s/&sect;//g;  
 #    $result =~ s/&#168;//g;  
 #    $result =~ s/&uml;//g;  
     $result =~ s/&#169;/\\copyright/g;  
     $result =~ s/&copy;/\\copyright/g;  
 #    $result =~ s/&#170;//g;  
 #    $result =~ s/&ordf;//g;  
 #    $result =~ s/&#171;//g;  
 #    $result =~ s/&laquo;//g;  
     $result =~ s/&#172;/\$\\neg\$/g;  
     $result =~ s/&not;/\$\\neg\$/g;  
 #    $result =~ s/&#173;//g;  
 #    $result =~ s/&shy;//g;  
 #    $result =~ s/&#174;//g;  
 #    $result =~ s/&reg;//g;  
 #    $result =~ s/&#175;//g;  
 #    $result =~ s/&macr;//g;  
     $result =~ s/&#176;/\$^{\\circ}\$/g;  
     $result =~ s/&deg;/\$^{\\circ}\$/g;  
     $result =~ s/&#177;/\$\\pm\$/g;  
     $result =~ s/&plusmn;/\$\\pm\$/g;  
     $result =~ s/&#178;/\$^2\$/g;  
     $result =~ s/&sup2;/\$^2\$/g;  
     $result =~ s/&#179;/\$^3\$/g;  
     $result =~ s/&sup3;/\$^3\$/g;  
 #    $result =~ s/&#180;//g;  
 #    $result =~ s/&acute;//g;  
     $result =~ s/&#181;/\$\\mu\$/g;  
     $result =~ s/&micro;/\$\\mu\$/g;  
     $result =~ s/&#182;/\\P/g;  
     $result =~ s/&para;/\\P/g;  
     $result =~ s/&#183;/\$\\cdot\$/g;  
     $result =~ s/&middot;/\$\\cdot\$/g;  
 #    $result =~ s/&#184;//g;  
 #    $result =~ s/&cedil;//g;  
     $result =~ s/&#185;/\$^1\$/g;  
     $result =~ s/&sup1;/\$^1\$/g;  
 #    $result =~ s/&#186;//g;  
 #    $result =~ s/&ordm;//g;  
 #    $result =~ s/&#187;//g;  
 #    $result =~ s/&raquo;//g;  
 #    $result =~ s/&#188;//g;  
 #    $result =~ s/&frac14;//g;  
 #    $result =~ s/&#189;//g;  
 #    $result =~ s/&frac12;//g;  
 #    $result =~ s/&#190;//g;  
 #    $result =~ s/&frac34;//g;  
     $result =~ s/&#191;/?`/g;     
     $result =~ s/&iquest;/?`/g;      #`  
     $result =~ s/&#192;/\\`{A}/g;   
     $result =~ s/&Agrave;/\\`{A}/g;  #`   
     $result =~ s/&#193;/\\'{A}/g;   
     $result =~ s/&Aacute;/\\'{A}/g;  #'  
     $result =~ s/&#194;/\\^{A}/g;  
     $result =~ s/&Acirc;/\\^{A}/g;  
     $result =~ s/&#195;/\\~{A}/g;  
     $result =~ s/&Atilde;/\\~{A}/g;  
     $result =~ s/&#196;/\\"{A}/g;   
     $result =~ s/&Auml;/\\"{A}/g;    #"  
     $result =~ s/&#197;/{\\AA}/g;  
     $result =~ s/&Aring;/{\\AA}/g;  
     $result =~ s/&#198;/{\\AE}/g;  
     $result =~ s/&AElig;/{\\AE}/g;  
 #    $result =~ s/&#199;//g;  
 #    $result =~ s/&Ccedil;//g;  
     $result =~ s/&#200;/\\`{E}/g;    
     $result =~ s/&Egrave;/\\`{E}/g;  #`  
     $result =~ s/&#201;/\\'{E}/g;    #'  
     $result =~ s/&Eacute;/\\'{E}/g;  #'  
     $result =~ s/&#202;/\\^{E}/g;  
     $result =~ s/&Ecirc;/\\^{E}/g;  
     $result =~ s/&#203;/\\`{E}/g;  
     $result =~ s/&Euml;/\\`{E}/g;    #`  
     $result =~ s/&#204;/\\`{I}/g;  
     $result =~ s/&Igrave;/\\`{I}/g;  #`  
     $result =~ s/&#205;/\\'{I}/g;      
     $result =~ s/&Iacute;/\\'{I}/g;  #'  
     $result =~ s/&#206;/\\^{I}/g;  
     $result =~ s/&Icirc;/\\^{I}/g;  
     $result =~ s/&#207;/\\"{I}/g;      
     $result =~ s/&Iuml;/\\"{I}/g;    #"  
 #    $result =~ s/&#208;//g;  
 #    $result =~ s/&ETH;//g;  
     $result =~ s/&#209;/\\~{N}/g;  
     $result =~ s/&Ntilde;/\\~{N}/g;  
     $result =~ s/&#210;/\\`{O}/g;  
     $result =~ s/&Ograve;/\\`{O}/g;  #`  
     $result =~ s/&#211;/\\'{O}/g;  
     $result =~ s/&Oacute;/\\'{O}/g;  #'  
     $result =~ s/&#212;/\\^{O}/g;  
     $result =~ s/&Ocirc;/\\^{O}/g;  
     $result =~ s/&#213;/\\~{O}/g;  
     $result =~ s/&Otilde;/\\~{O}/g;  
     $result =~ s/&#214;/\\"{O}/g;      
     $result =~ s/&Ouml;/\\"{O}/g;    #"  
     $result =~ s/&#215;/\$\\times\$/g;  
     $result =~ s/&times;/\$\\times\$/g;  
     $result =~ s/&#216;/{\\O}/g;  
     $result =~ s/&Oslash;/{\\O}/g;  
     $result =~ s/&#217;/\\`{U}/g;      
     $result =~ s/&Ugrave;/\\`{U}/g;  #`  
     $result =~ s/&#218;/\\'{U}/g;    #'  
     $result =~ s/&Uacute;/\\'{U}/g;  #'  
     $result =~ s/&#219;/\\^{U}/g;  
     $result =~ s/&Ucirc;/\\^{U}/g;  
     $result =~ s/&#220;/\\"{U}/g;    #"  
     $result =~ s/&Uuml;/\\"{U}/g;    #"  
     $result =~ s/&#221;/\\'{Y}/g;  
     $result =~ s/&Yacute;/\\'{Y}/g;  #'  
 #    $result =~ s/&#222;//g;  
 #    $result =~ s/&THORN;//g;  
 #    $result =~ s/&#223;//g;  
 #    $result =~ s/&szlig;//g;  
     $result =~ s/&#224;/\\`{a}/g;  
     $result =~ s/&agrave;/\\`{a}/g;  #`  
     $result =~ s/&#225;/\\'{a}/g;  
     $result =~ s/&aacute;/\\'{a}/g;  #'  
     $result =~ s/&#226;/\\^{a}/g;  
     $result =~ s/&acirc;/\\^{a}/g;  
     $result =~ s/&#227;/\\~{a}/g;  
     $result =~ s/&atilde;/\\~{a}/g;  
     $result =~ s/&#228;/\\"{a}/g;  
     $result =~ s/&auml;/\\"{a}/g;    #"  
     $result =~ s/&#229;/{\\aa}/g;  
     $result =~ s/&aring;/{\\aa}/g;  
     $result =~ s/&#230;/{\\ae}/g;  
     $result =~ s/&aelig;/{\\ae}/g;  
 #    $result =~ s/&#231;//g;  
 #    $result =~ s/&ccedil;//g;  
     $result =~ s/&#232;/\\`{e}/g;  
     $result =~ s/&egrave;/\\`{e}/g;  #`  
     $result =~ s/&#233;/\\'{e}/g;  
     $result =~ s/&eacute;/\\'{e}/g;  #'  
     $result =~ s/&#234;/\\^{e}/g;  
     $result =~ s/&ecirc;/\\^{e}/g;  
     $result =~ s/&#235;/\\"{e}/g;  
     $result =~ s/&euml;/\\"{e}/g;    #"  
     $result =~ s/&#236;/\\`{i}/g;  
     $result =~ s/&igrave;/\\`{i}/g;  #`  
     $result =~ s/&#237;/\\'{i}/g;  
     $result =~ s/&iacute;/\\'{i}/g;  #'  
     $result =~ s/&#238;/\\^{i}/g;  
     $result =~ s/&icirc;/\\^{i}/g;  
     $result =~ s/&#239;/\\"{i}/g;  
     $result =~ s/&iuml;/\\"{i}/g;    #"  
 #    $result =~ s/&#240;//g;  
 #    $result =~ s/&eth;//g;  
     $result =~ s/&#241;/\\~{n}/g;  
     $result =~ s/&ntilde;/\\~{n}/g;  
     $result =~ s/&#242;/\\`{o}/g;  
     $result =~ s/&ograve;/\\`{o}/g;  #`  
     $result =~ s/&#243;/\\'{o}/g;  
     $result =~ s/&oacute;/\\'{o}/g;  #'  
     $result =~ s/&#244;/\\^{o}/g;  
     $result =~ s/&ocirc;/\\^{o}/g;  
     $result =~ s/&#245;/\\~{o}/g;  
     $result =~ s/&otilde;/\\~{o}/g;  
     $result =~ s/&#246;/\\"{o}/g;  
     $result =~ s/&ouml;/\\"{o}/g;    #"  
     $result =~ s/&#247;/\$\\div\$/g;  
     $result =~ s/&divide;/\$\\div\$/g;  
     $result =~ s/&#248;/{\\o}/g;  
     $result =~ s/&oslash;/{\\o}/g;  
     $result =~ s/&#249;/\\`{u}/g;   
     $result =~ s/&ugrave;/\\`{u}/g;  #`   
     $result =~ s/&#250;/\\'{u}/g;  
     $result =~ s/&uacute;/\\'{u}/g;  #'  
     $result =~ s/&#251;/\\^{u}/g;  
     $result =~ s/&ucirc;/\\^{u}/g;  
     $result =~ s/&#252;/\\"{u}/g;  
     $result =~ s/&uuml;/\\"{u}/g;    #"  
     $result =~ s/&#253;/\\'{y}/g;  
     $result =~ s/&yacute;/\\'{y}/g;  #'  
 #    $result =~ s/&#254;//g;  
 #    $result =~ s/&thorn;//g;  
     $result =~ s/&#255;/\\"{y}/g;  
     $result =~ s/&yuml;/\\"{y}/g;    #"  
     $result =~ s/&#952;/\$\\theta\$/g; #converts theta from html into tex  
     return $result;  
 }  }
   
   
     sub page_format {  1;
  my ($papersize,$layout,$numberofcolumns) = @_;   
  my ($textwidth,$textheight,$oddoffset,$evenoffset) = (0,0,0,0);  
  if ($papersize=~/Letter/) {  
     if ($layout eq 'CAPA') {  
  if ($numberofcolumns == 1) {  
     $textwidth = '18 cm';  
     $textheight = '25.9 cm';  
     $oddoffset = '-0.57 in';  
     $evenoffset = '-0.57 in';  
  } elsif ($numberofcolumns == 2) {  
     $textwidth = '93 mm';  
     $textheight = '25.9 cm';  
     $oddoffset = '-0.57 in';  
     $evenoffset = '-0.57 in';  
  }  
     } elsif ($layout eq 'CBI') {  
  if ($numberofcolumns eq '1') {  
     $textwidth = '8.8 in';  
     $textheight = '6.8 in';  
     $oddoffset = '-40 pt';  
     $evenoffset = '-60 pt';  
  } elsif ($numberofcolumns == 2) {  
     $textwidth = '4.2 in';  
     $textheight = '6.8 in';  
     $oddoffset = '-40 pt';  
     $evenoffset = '-60 pt';  
  }  
     }  
 #    } elsif($papersize=~/Legal/) {  
 #    } elsif($papersize=~/Ledger/) {  
 #    } elsif($papersize=~/Executive/) {  
     } elsif($papersize=~/A4/) {  
     if ($layout eq 'CAPA') {  
  if ($numberofcolumns == 1) {  
     $textwidth = '18 cm';  
     $textheight = '28 cm';  
     $oddoffset = '-0.57 in';  
     $evenoffset = '-0.57 in';  
  } elsif ($numberofcolumns == 2) {  
     $textwidth = '96 mm';  
     $textheight = '2 cm';  
     $oddoffset = '-0.57 in';  
     $evenoffset = '-0.57 in';  
  }  
     } elsif ($layout eq 'CBI') {  
  if ($numberofcolumns eq '1') {  
     $textwidth = '8.5 in';  
     $textheight = '7.7 in';  
     $oddoffset = '-40 pt';  
     $evenoffset = '-60 pt';  
  } elsif ($numberofcolumns == 2) {  
     $textwidth = '3.9 in';  
     $textheight = '7.7 in';  
     $oddoffset = '-40 pt';  
     $evenoffset = '-60 pt';  
  }  
     }  
 #    } elsif($papersize=~/A3/) {  
 #    } elsif($papersize=~/A2/) {  
 #    } elsif($papersize=~/A5/) {  
 #    } elsif($papersize=~/A6/) {  
  }  
  return $textwidth,$textheight,$oddoffset,$evenoffset;  
     }  
   
   package Apache::lonprintout::page_format_state;
   
 sub page_format_transformation {  =pod
     my ($papersize,$layout,$numberofcolumns,$choice,$text,$assignment) = @_;   
     my ($textwidth,$textheight,$oddoffset,$evenoffset);  
  $assignment=~s/_/ /g;  
         if ($numberofcolumns != 1) {  
           ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format($papersize,$layout,$numberofcolumns);  
  } else {  
   ($textwidth,$textheight,$oddoffset,$evenoffset) = ($ENV{'form.width'},$ENV{'form.height'},$ENV{'form.leftmargin'},$ENV{'form.leftmargin'});  
  }  
  my $courseidinfo = $ENV{'course.'.$ENV{'request.course.id'}.'.description'};  
  if ($layout eq 'CBI') {  
     $text =~ s/\\begin{document}/\\setlength{\\oddsidemargin}{$oddoffset}\\setlength{\\evensidemargin}{$evenoffset}\\setlength{\\topmargin}{200pt}\\setlength{\\textwidth}{$textwidth}\\setlength{\\textheight}{$textheight}\\setlength{\\parindent}{20pt}\\setlength{\\marginparwidth}{90pt}\\setlength{\\textfloatsep}{8pt plus 2\.0pt minus 4\.0pt}\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm} \\begin{document}\\setcounter{page}{1}\\noindent\\parbox{\\minipagewidth}{\\noindent\\fbox{\\textbf{$ENV{'environment.firstname'} $ENV{'environment.lastname'}}} \\hfill  $courseidinfo} \\vskip 5 mm /;  
  } elsif ($layout eq 'CAPA') {  
      if ($choice ne 'All class print') {   
  $text =~ s/\\begin{document}/\\textheight $textheight\\oddsidemargin = $evenoffset\\evensidemargin = $evenoffset\\textwidth= $textwidth\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\\renewcommand{\\ref}{\\keephidden\}\\setlength{\\topmargin}{1cm}\\setlength{\\headheight}{1cm}\\setlength{\\headsep}{0.5cm}\\markboth{}{\\textbf{$ENV{'environment.firstname'} $ENV{'environment.lastname'}} $courseidinfo - $assignment}\\pagestyle{myheadings}\\begin{document}\\voffset=-1\.8cm\\setcounter{page}{1}/;  
     } else {  
  $text =~ s/\\begin{document}/\\textheight $textheight\\oddsidemargin = $evenoffset\\evensidemargin = $evenoffset\\textwidth= $textwidth\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\\renewcommand{\\ref}{\\keephidden\}\\begin{document}\\voffset=-1\.8cm\\setcounter{page}{1}  \\vskip 5 mm /;  
     }  
  }  
  return $text;  
 }  
   
   =head1 Helper element: page_format_state
   
 sub page_cleanup {  See lonhelper.pm documentation for discussion of the helper framework.
     my $result = shift;  
    Apache::lonprintout::page_format_state is an element that gives the 
     $result =~ m/\\end{document}(\d*)$/;  user an opportunity to select the page layout they wish to print 
     my $number_of_columns = $1;  with: Number of columns, portrait/landscape, and paper size. If you 
     my $insert = '{';  want to change the paper size choices, change the @paperSize array 
     for (my $id=1;$id<=$number_of_columns;$id++) { $insert .='l'; }  contents in this package.
     $insert .= '}';  
     $result =~ s/(\\begin{longtable})INSERTTHEHEADOFLONGTABLE\\endfirsthead\\endhead/$1$insert/g;  page_format_state is always directly invoked in lonprintout.pm, so there
     $result =~ s/&\s*REMOVETHEHEADOFLONGTABLE\\\\/\\\\/g;  is no tag interface. You actually pass parameters to the constructor.
     return $result,$number_of_columns;  
   =over 4
   
   =item * B<new>(varName): varName is where the print information will be stored in the format FIXME.
   
   =back
   
   =cut
   
   use Apache::lonhelper;
   
   no strict;
   @ISA = ("Apache::lonhelper::element");
   use strict;
   
   my $maxColumns = 2;
   my @paperSize = ("Letter [8 1/2x11 in]", "Legal [8 1/2x14 in]", 
                    "Ledger/Tabloid [11x17 in]", "Executive [7 1/2x10 in]",
                    "A2 [420x594 mm]", "A3 [297x420 mm]", "A4 [210x297 mm]", 
                    "A5 [148x210 mm]", "A6 [105x148 mm]" );
   
   # Tentative format: Orientation (L = Landscape, P = portrait) | Colnum |
   #                   Paper type
   
   sub new { 
       my $self = Apache::lonhelper::element->new();
   
       shift;
   
       $self->{'variable'} = shift;
       my $helper = Apache::lonhelper::getHelper();
       $helper->declareVar($self->{'variable'});
       bless($self);
       return $self;
 }  }
   
   sub render {
       my $self = shift;
       my $helper = Apache::lonhelper::getHelper();
       my $result = '';
       my $var = $self->{'variable'};
   
 sub details_for_menu {      $result .= <<STATEHTML;
   
     my $name_of_resourse = $hash{'title_'.$hash{'ids_'.$ENV{'form.postdata'}}};  <p><big><i><b>What page format do you prefer?</b></i></big></p>
     my $symbolic = &Apache::lonnet::symbread($ENV{'form.postdata'});  <table cellpadding="3">
     my ($map,$id,$resource)=split(/___/,$symbolic);    <tr>
     my $name_of_sequence;      <td align="center"><b>Page layout</b></td>
     if ($map=~/^uploaded/) {      <td align="center"><b>Number of columns</b></td>
  $name_of_sequence = $hash{'title_'.$hash{'ids_/'.$map}};      <td align="center"><b>Paper type</b></td>
     } else {    </tr>
  $name_of_sequence = $hash{'title_'.$hash{'ids_/res/'.$map}};    <tr>
       <td>
         <input type="radio" name="${var}.layout" value="L" /> Landscape<br />
         <input type="radio" name="${var}.layout" value="P" checked='1'  /> Portrait
       </td>
       <td align="center">
         <select name="${var}.cols">
   STATEHTML
   
       my $i;
       for ($i = 1; $i <= $maxColumns; $i++) {
           if ($i == 2) {
               $result .= "<option value='$i' selected>$i</option>\n";
           } else {
               $result .= "<option value='$i'>$i</option>\n";
           }
     }      }
     if ($name_of_sequence =~ /^\s*$/) {  
      $map =~ m|([^/]+)$|;      $result .= "</select></td><td>\n";
       $name_of_sequence = $1;      $result .= "<select name='${var}.paper'>\n";
   
       $i = 0;
       foreach (@paperSize) {
           if ($i == 0) {
               $result .= "<option selected value='$i'>" . $paperSize[$i] . "</option>\n";
           } else {
               $result .= "<option value='$i'>" . $paperSize[$i] . "</option>\n";
           }
           $i++;
     }      }
     my $name_of_map = $hash{'title_'.$hash{'ids_/res/'.$ENV{'request.course.uri'}}};  
     if ($name_of_map =~ /^\s*$/) {  
       $ENV{'request.course.uri'} =~ m|([^/]+)$|;  
       $name_of_map = $1;  
     }    
     return ($name_of_resourse,$name_of_sequence,$name_of_map);  
   
       $result .= "</select></td></tr></table>";
       return $result;
 }  }
   
   sub postprocess {
       my $self = shift;
   
 sub latex_corrections {      my $var = $self->{'variable'};
       my $helper = Apache::lonhelper->getHelper();
       $helper->{VARS}->{$var} = 
           $ENV{"form.$var.layout"} . '|' . $ENV{"form.$var.cols"} . '|' .
           $ENV{"form.$var.paper"};
       return 1;
   }
   
     my ($number_of_columns,$result) = @_;  1;
   
     $result =~ s/\\includegraphics{/\\includegraphics\[width=\\minipagewidth\]{/g;  package Apache::lonprintout::page_size_state;
     $result =~ s/\$number_of_columns/$number_of_columns/g;  
     $result =~ s/(\\end{document})/\\strut\\newline\\noindent\\makebox\[\\textwidth\/$number_of_columns\]\[b\]{\\hrulefill}\\newline\\noindent\\tiny Printed from LON-CAPA\\copyright MSU{\\hfill} Licensed under GNU General Public License  $1/;  =pod
     $result =~ s/(\\end{longtable}\s*)(\\strut\\newline\\noindent\\makebox\[\\textwidth\/$number_of_columns\]\[b\]{\\hrulefill})/$2$1/g;  
     $result =~ s/(\\end{longtable}\s*)\\strut\\newline/$1/g;  =head1 Helper element: page_size_state
 #-- LaTeX corrections       
     my $first_comment = index($result,'<!--',0);  See lonhelper.pm documentation for discussion of the helper framework.
     while ($first_comment != -1) {  
  my $end_comment = index($result,'-->',$first_comment);  Apache::lonprintout::page_size_state is an element that gives the 
  substr($result,$first_comment,$end_comment-$first_comment+3) = '';  user the opportunity to further refine the page settings if they
  $first_comment = index($result,'<!--',$first_comment);  select a single-column page.
     }  
     $result =~ s/^\s+$//gm; #remove empty lines  page_size_state is always directly invoked in lonprintout.pm, so there
     $result =~ s/(\s)(\s+)/$1/g; #removes more than one empty space  is no tag interface. You actually pass parameters to the constructor.
     $result =~ s/\\\\\s*\\vskip/\\vskip/gm;  
     $result =~ s/\\\\\s*\\noindent\s*(\\\\)+/\\\\\\noindent /g;  =over 4
     $result =~ s/{\\par }\s*\\\\/\\\\/gm;  
  $result =~ s/\\\\\s+\[/ \[/g;  =item * B<new>(varName): varName is where the print information will be stored in the format FIXME.
     $result =~ s/\b__+\b/\\makebox\[1 cm\]\[b\]{\\hrulefill}/g;  
     #conversion of html characters to LaTeX equivalents  =back
     if ($result =~ m/&(\w+|#\d+);/) {  
  $result = &character_chart($result);  =cut
   
   use Apache::lonhelper;
   
   no strict;
   @ISA = ("Apache::lonhelper::element");
   use strict;
   
   
   
   sub new { 
       my $self = Apache::lonhelper::element->new();
   
       shift; # disturbs me (probably prevents subclassing) but works (drops
              # package descriptor)... - Jeremy
   
       $self->{'variable'} = shift;
       my $helper = Apache::lonhelper::getHelper();
       $helper->declareVar($self->{'variable'});
   
       # The variable name of the format element, so we can look into 
       # $helper->{VARS} to figure out whether the columns are one or two
       $self->{'formatvar'} = shift;
   
       # The state to transition to after selection, or after discovering
       # the cols are not set to 1
       $self->{NEXTSTATE} = shift;
       bless($self);
       return $self;
   }
   
   sub render {
       my $self = shift;
       my $helper = Apache::lonhelper::getHelper();
       my $result = '';
       my $var = $self->{'variable'};
   
       if (defined $self->{ERROR_MSG}) {
           $result .= '<br /><font color="#FF0000">' . $self->{ERROR_MSG} . '</font><br />';
     }      }
     $result =~ s/(\\end{tabular})\s*\\vskip 0 mm/$1/g;  
     $result =~ s/(\\begin{enumerate})\s*\\noindent/$1/g;      $result .= <<ELEMENTHTML;
   
   <p>How should the column be formatted?</p>
   
   <table cellpadding='3'>
     <tr>
       <td align='right'><b>Width</b>:</td>
       <td align='left'><input type='text' name='$var.width' value='18' size='4'></td>
       <td align='left'>
         <select name='$var.widthunit'>
           <option>cm</option><option>in</option>
         </select>
       </td>
     </tr>
     <tr>
       <td align='right'><b>Height</b>:</td>
       <td align='left'><input type='text' name="$var.height" value="25.9" size='4'></td>
       <td align='left'>
         <select name='$var.heightunit'>
           <option>cm</option><option>in</option>
         </select>
       </td>
     </tr>
     <tr>
       <td align='right'><b>Left margin</b>:</td>
       <td align='left'><input type='text' name='$var.lmargin' value='-1.5' size='4'></td>
       <td align='left'>
         <select name='$var.lmarginunit'>
           <option>cm</option><option>in</option>
         </select>
       </td>
     </tr>
   </table>
   
   <p>Hint: Some instructors like to leave scratch space for the student by
   making the width much smaller then the width of the page.</p>
   
   ELEMENTHTML
   
     return $result;      return $result;
 }  }
   
   # If the user didn't select 1 column, skip this state.
   sub preprocess {
       my $self = shift;
       my $helper = Apache::lonhelper::getHelper();
   
       my $format = $helper->{VARS}->{$self->{'formatvar'}};
       if (substr($format, 2, 1) ne '1') {
           $helper->changeState($self->{NEXTSTATE});
       }
      
       return 1;
   }
   
 sub handler {  sub postprocess {
       my $self = shift;
   
     my $r = shift;      my $var = $self->{'variable'};
       my $helper = Apache::lonhelper->getHelper();
       my $width = $helper->{VARS}->{$var .'.width'} = $ENV{"form.${var}.width"}; 
       my $height = $helper->{VARS}->{$var .'.height'} = $ENV{"form.${var}.height"}; 
       my $lmargin = $helper->{VARS}->{$var .'.lmargin'} = $ENV{"form.${var}.lmargin"}; 
       $helper->{VARS}->{$var .'.widthunit'} = $ENV{"form.${var}.widthunit"}; 
       $helper->{VARS}->{$var .'.heightunit'} = $ENV{"form.${var}.heightunit"}; 
       $helper->{VARS}->{$var .'.lmarginunit'} = $ENV{"form.${var}.lmarginunit"}; 
   
     my $loaderror=&Apache::lonnet::overloaderror($r);      my $error = '';
     if ($loaderror) { return $loaderror; }  
     $loaderror=  
        &Apache::lonnet::overloaderror($r,  
          $ENV{'course.'.$ENV{'request.course.id'}.'.home'});  
     if ($loaderror) { return $loaderror; }  
   
     $r->content_type('text/html');      # /^-?[0-9]+(\.[0-9]*)?$/ -> optional minus, at least on digit, followed 
     $r->send_http_header;      # by an optional period, followed by digits, ending the string
     $r->print(&Apache::loncommon::bodytag("Printing"));  
   
     if ($ENV{'request.course.id'}) {      if ($width !~  /^-?[0-9]+(\.[0-9]*)?$/) {
  my $fn=$ENV{'request.course.fn'};          $error .= "Invalid width; please type only a number.<br />\n";
  tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640);      }
       if ($height !~  /^-?[0-9]+(\.[0-9]*)?$/) {
           $error .= "Invalid height; please type only a number.<br />\n";
       }
       if ($lmargin !~  /^-?[0-9]+(\.[0-9]*)?$/) {
           $error .= "Invalid left margin; please type only a number.<br />\n";
     }      }
   
 #-- start form      if (!$error) {
     &headerform($r);          Apache::lonhelper::getHelper()->changeState($self->{NEXTSTATE});
 #-- menu for output          return 1;
     unless  ($ENV{'form.phase'}) {      } else {
  &menu_for_output($r);          $self->{ERROR_MSG} = $error;
     }          return 0;
 #-- additional menu for class printing  
      if ($ENV{'form.phase'} eq 'two') {  
  if($ENV{'form.choice'} eq 'Standard LaTeX output for whole primary sequence') {  
      &sequence_content_menu(0,$r);  
  } elsif($ENV{'form.choice'} eq 'Standard LaTeX output for the primary sequence') {  
      &sequence_content_menu(1,$r);  
  } elsif($ENV{'form.choice'} eq 'All class print') {  
      &additional_class_menu($r);  
  } elsif($ENV{'form.choice'} eq 'Subdirectory print') {  
      &problem_choice_menu($r);  
  } else {  
      $ENV{'form.phase'} = 'three';  
  }  
      }  
 #-- additional menu for page layout (one column case)  
     if ($ENV{'form.phase'} eq 'three') {  
  if($ENV{'form.numberofcolumns'} == 1) {  
     &additional_print_menu($r);  
  } else {  
     $ENV{'form.phase'} = 'four';  
  }  
     }      }
 #-- core part   }
     if ($ENV{'form.phase'} eq 'four') {  
  &output_data($r);  
     }  
     untie %hash;  
     return OK;  
      
 }   
   
   
 1;  
 __END__  __END__
   
Removed from v.1.106  
changed lines
  Added in v.1.190

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.