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

Diff for /loncom/interface/lonprintout.pm between versions 1.38 and 1.39

version 1.38, 2002/07/16 20:30:53 version 1.39, 2002/07/18 17:34:29
Line 71  sub menu_for_output { Line 71  sub menu_for_output {
 <input type="hidden" name="url" value="$ENV{'form.postdata'}">  <input type="hidden" name="url" value="$ENV{'form.postdata'}">
 <input type="radio" name="choice" value="Standard LaTeX output for current document" checked>  Current document  <input type="radio" name="choice" value="Standard LaTeX output for current document" checked>  Current document
 (you will print what you see on the screen)<br />  (you will print what you see on the screen)<br />
   ENDMENUOUT1
       if (!$ENV{'request.role'}=~m/^au\./) {
       $r->print(<<ENDMENUOUT2);
 <input type="radio" name="choice" value="Standard LaTeX output for the primary sequence">  All problems from the primary sequence<br />  <input type="radio" name="choice" value="Standard LaTeX output for the primary sequence">  All problems from the primary sequence<br />
 <input type="radio" name="choice" value="Standard LaTeX output for whole primary sequence">  The whole primary sequence (problems plus all html and xml files)<br />  <input type="radio" name="choice" value="Standard LaTeX output for whole primary sequence">  The whole primary sequence (problems plus all html and xml files)<br />
 <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  
     my $subdirtoprint = &Apache::lonnet::filelocation("",$ENV{'form.url'});  
     $subdirtoprint =~ s/\/[^\/]+$//;  
     if (&Apache::lonnet::allowed('bre',$subdirtoprint) eq 'F') {  
  $r->print(<<ENDMENUOUT2);  
 <input type="radio" name="choice" value="Subdirectory print">  All problems from current subdirectory (where this particular problem is)<br />  
 ENDMENUOUT2  ENDMENUOUT2
 }        my $subdirtoprint = &Apache::lonnet::filelocation("",$ENV{'form.url'});
     $r->print(<<ENDMENUOUT3);        $subdirtoprint =~ s/\/[^\/]+$//;
         if (&Apache::lonnet::allowed('bre',$subdirtoprint) eq 'F') {
     $r->print(<<ENDMENUOUT4);
     <input type="radio" name="choice" value="Subdirectory print">  All problems from current subdirectory (where this particular problem is)<br />
   ENDMENUOUT4
         }
       }
       $r->print(<<ENDMENUOUT5);
 <br /><hr /><br />  <br /><hr /><br />
 <h1>And what page format do you prefer?</h1>  <h1>And what page format do you prefer?</h1>
 <table>  <table>
Line 103  ENDMENUOUT2 Line 107  ENDMENUOUT2
 </form>  </form>
 </body>  </body>
 </html>  </html>
 ENDMENUOUT3  ENDMENUOUT5
 }  }
   
   
Line 131  ENDPART Line 135  ENDPART
       #-- single document - problem, page, html, xml          #-- single document - problem, page, html, xml  
       my %moreenv;        my %moreenv;
       $moreenv{'form.grade_target'}='tex';        $moreenv{'form.grade_target'}='tex';
         if ($ENV{'request.role'}=~m/^au\./) {$ENV{'form.url'}=~s/http:\/\/[^\/]+//;}
       $moreenv{'request.filename'}=$ENV{'form.url'};        $moreenv{'request.filename'}=$ENV{'form.url'};
       &Apache::lonnet::appenv(%moreenv);        &Apache::lonnet::appenv(%moreenv);
       my $texversion=&Apache::lonnet::ssi($ENV{'form.url'});        my $texversion=&Apache::lonnet::ssi($ENV{'form.url'});
Line 312  sub character_chart { Line 317  sub character_chart {
     $result =~ s/&#032;/ /g;      $result =~ s/&#032;/ /g;
     $result =~ s/&#033;/!/g;      $result =~ s/&#033;/!/g;
     $result =~ s/&#034;/"/g;      $result =~ s/&#034;/"/g;
     $result =~ s/&quot;/"/g; #"      $result =~ s/&quot;/"/g; 
     $result =~ s/&#035;/\\#/g;      $result =~ s/&#035;/\\#/g;
     $result =~ s/&#036;/\\\$/g;  #    $result =~ s/&#036;/\\\$/g;
     $result =~ s/&#037;/\\%/g;       $result =~ s/&#037;/\\%/g; 
     $result =~ s/&#038;/\\&/g;       $result =~ s/&#038;/\\&/g; 
     $result =~ s/&amp;/\\&/g;      $result =~ s/&amp;/\\&/g;
Removed from v.1.38  
changed lines
  Added in v.1.39

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