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

Diff for /loncom/interface/lonprintout.pm between versions 1.30 and 1.32

version 1.30, 2002/05/21 00:44:03 version 1.32, 2002/06/20 17:50:24
Line 75  sub menu_for_output { Line 75  sub menu_for_output {
 <input type="radio" name="choice" value="Standard LaTeX output for the top level sequence">  All problems from the top level sequence<br />  <input type="radio" name="choice" value="Standard LaTeX output for the top level sequence">  All problems from the top level sequence<br />
 <br />  <br />
 ENDMENUOUT1  ENDMENUOUT1
     if ($ENV{'user.adv'} eq '1') {      my $subdirtoprint = &Apache::lonnet::filelocation("",$ENV{'form.url'});
       $subdirtoprint =~ s/\/[^\/]+$//;
       if (&Apache::lonnet::allowed('bre',$subdirtoprint) eq 'F') {
  $r->print(<<ENDMENUOUT2);   $r->print(<<ENDMENUOUT2);
 <input type="radio" name="choice" value="Subdirectory print">  All problems from particular subdirectory <input type="text" name="subdirect" value="/res/"><br />  <input type="radio" name="choice" value="Subdirectory print">  All problems from current subdirectory (where this particular problem is)<br />
 ENDMENUOUT2  ENDMENUOUT2
     }  }
  $r->print(<<ENDMENUOUT3);      $r->print(<<ENDMENUOUT3);
 <br /><hr /><br />  <br /><hr /><br />
 <h1>And what page format do you prefer?</h1>  <h1>And what page format do you prefer?</h1>
 <input type="radio" name="layout" value="CBI"> Two columns landscape <br />  <input type="radio" name="layout" value="CBI"> Two columns landscape <br />
Line 201  ENDPART Line 203  ENDPART
     }      }
  }       }    
  $result = &additional_cleanup($result);   $result = &additional_cleanup($result);
     } elsif ($choice eq 'Subdirectory print') {        } elsif ($choice eq 'Subdirectory print') {      
  if (&Apache::lonnet::allowed('bre',$subdirtoprint) eq 'F') {   my $subdirtoprint = &Apache::lonnet::filelocation("",$ENV{'form.url'});
     my $locald = &Apache::lonnet::filelocation("",$subdirtoprint);   $subdirtoprint =~ s/\/[^\/]+$//;
     unless (-e $locald) {   my @list_of_files = ();
 #do something in the case of the absence of this subdirectory on the local mashine   my $localdirectory = $subdirtoprint;
 #replication process   $localdirectory =~ s/.*(\/res\/)/$1/;
     }   my @content_directory = &Apache::lonnet::dirlist($localdirectory);
     my @list_of_files = ();   for (my $iy=0;$iy<=$#content_directory;$iy++) {
             my @content_directory = &Apache::lonnet::dirlist($subdirtoprint);      my @tempo_array = split(/&/,$content_directory[$iy]);
     for (my $iy=0;$iy<=$#content_directory;$iy++) {      $content_directory[$iy] = $tempo_array[0];
                 my @tempo_array = split(/&/,$content_directory[$iy]);      if ($content_directory[$iy] =~ m/^[^\.]+\.problem$/) {
  $content_directory[$iy] = $tempo_array[0];   push @list_of_files,$content_directory[$iy];
  if ($content_directory[$iy] =~ m/\.problem$/) {  
     push @list_of_files,$content_directory[$iy];  
  }  
     }      }
     for (my $i=0;$i<=$#list_of_files;$i++) {  
  $subdirtoprint =~ s/\/$//;  
  my $urlp = $subdirtoprint.'/'.$list_of_files[$i];  
  my %moreenv;  
  $moreenv{'form.grade_target'}='tex';  
  &Apache::lonnet::appenv(%moreenv);  
  my $texversion=&Apache::lonnet::ssi($urlp);  
  &Apache::lonnet::delenv('form.grade_target');  
  $texversion =~ s/(\\begin{document})/$1 {\\tiny\\begin{verbatim}$urlp\\end{verbatim}}/;  
  $result .= $texversion;     
     }  
     $result = &additional_cleanup($result);  
   
  } else {  
 #message "you not allowed to do this"     
  }   }
    $localdirectory =~ s/\/$//;
    for (my $i=0;$i<=$#list_of_files;$i++) {
       my $urlp = $localdirectory.'/'.$list_of_files[$i];     
       my %moreenv;
       $moreenv{'form.grade_target'}='tex';
       &Apache::lonnet::appenv(%moreenv);
       my $texversion=&Apache::lonnet::ssi($urlp);
       &Apache::lonnet::delenv('form.grade_target');
       $texversion =~ s/(\\begin{document})/$1 {\\tiny\\begin{verbatim}$urlp\\end{verbatim}}/;
       $result .= $texversion;   
    }
    $result = &additional_cleanup($result);
   
   
   
   
   
   
   
     }      }
   #-- corrections for page layout
       $result =~ s/&\s*REMOVE\\\\/\\\\/g;
       $_ = $result;
       m/\\end{document}(\d*)$/;
       my $insert = '{';
       for (my $id=1;$id<=$1;$id++) { $insert .='l'; }
       $insert .= '}';
       $result =~ s/(\\begin{tabular})INSERT/$1$insert/g;
 #-- corrections for the different page formats  #-- corrections for the different page formats
     if ($layout eq 'CBI') {      if ($layout eq 'CBI') {
  $result =~ s/\\begin{document}/\\setlength{\\oddsidemargin}{-40pt}\\setlength{\\evensidemargin}{-60pt}\\setlength{\\topmargin}{200pt}\\setlength{\\textwidth}{4\.4in}\\setlength{\\textheight}{6\.8in}\\setlength{\\parindent}{20pt}\\setlength{\\marginparwidth}{90pt}\\setlength{\\textfloatsep}{8pt plus 2\.0pt minus 4\.0pt} \\begin{document}/;   $result =~ s/\\begin{document}/\\setlength{\\oddsidemargin}{-40pt}\\setlength{\\evensidemargin}{-60pt}\\setlength{\\topmargin}{200pt}\\setlength{\\textwidth}{4\.4in}\\setlength{\\textheight}{6\.8in}\\setlength{\\parindent}{20pt}\\setlength{\\marginparwidth}{90pt}\\setlength{\\textfloatsep}{8pt plus 2\.0pt minus 4\.0pt} \\begin{document}/;
Line 249  ENDPART Line 254  ENDPART
         m/.*\/(.*)/;          m/.*\/(.*)/;
         $courseidinfo = $ENV{'course.physnet_'.$1.'.description'};          $courseidinfo = $ENV{'course.physnet_'.$1.'.description'};
  $result =~ s/\\documentclass\[letterpaper\]{article}/\\documentclass\[twocolumn\]{article}/;   $result =~ s/\\documentclass\[letterpaper\]{article}/\\documentclass\[twocolumn\]{article}/;
  $result =~ s/\\begin{document}/\\textheight 25\.9cm\\oddsidemargin = -0\.57in\\evensidemargin = -0\.57in\\textwidth= 7\.7in\\renewcommand{\\ref}{\\keephidden\}\\begin{document}\\voffset=-1\.8cm\\setcounter{page}{1}\\noindent\\fbox{\\textbf{$ENV{'environment.firstname'} $ENV{'environment.lastname'}}}\\hskip 1\.4in $courseidinfo \\vskip 5 mm /;   $result =~ s/\\begin{document}/\\textheight 25\.9cm\\oddsidemargin = -0\.57in\\evensidemargin = -0\.57in\\textwidth= 7\.7in\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/2-0\.2in}\\renewcommand{\\ref}{\\keephidden\}\\begin{document}\\voffset=-1\.8cm\\setcounter{page}{1}\\noindent\\fbox{\\textbf{$ENV{'environment.firstname'} $ENV{'environment.lastname'}}}\\hskip 1\.4in $courseidinfo \\vskip 5 mm /;
  $result =~ s/\\includegraphics{/\\includegraphics\[width=9\.0 cm\]{/g;   $result =~ s/\\includegraphics{/\\includegraphics\[width=9\.0 cm\]{/g;
  $result =~ s/(\\end{document})/\\newline\\noindent\\makebox\[9.0cm\]\[b\]{\\hrulefill}\\newline\\noindent\\tiny Dept\. of Physics and Astronomy, MSU\\makebox\[1.5cm\]\[b\]{\\hfill}LON-CAPA\\copyright MSU GNU\/GPL $1/;   $result =~ s/(\\end{document})/\\newline\\noindent\\makebox\[9.0cm\]\[b\]{\\hrulefill}\\newline\\noindent\\tiny Dept\. of Physics and Astronomy, MSU\\makebox\[1.5cm\]\[b\]{\\hfill}LON-CAPA\\copyright MSU GNU\/GPL $1/;
     }      }
Removed from v.1.30  
changed lines
  Added in v.1.32

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