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

Diff for /loncom/interface/lonprintout.pm between versions 1.7 and 1.9

version 1.7, 2001/10/15 14:50:10 version 1.9, 2001/12/07 23:16:22
Line 42  sub menu_for_output { Line 42  sub menu_for_output {
     $r->print(<<ENDMENUOUT);      $r->print(<<ENDMENUOUT);
 <input type="hidden" name="phase" value="two">  <input type="hidden" name="phase" value="two">
 <input type="radio" name="choice" value="Standard LaTeX output for current document">  Standard LaTeX output for current document<br></br>  <input type="radio" name="choice" value="Standard LaTeX output for current document">  Standard LaTeX output for current document<br></br>
 <input type="radio" name="choice" value="Standard LaTeX output for the whole sequence">  Standard LaTeX output for the whole sequence<br></br>  <input type="radio" name="choice" value="Standard LaTeX output for the primary sequence">  Standard LaTeX output for the primary sequence<br></br>
   <input type="radio" name="choice" value="Standard LaTeX output for the top level sequence">  Standard LaTeX output for the top level sequence<br></br>
 <input type="submit" value="Please make a choice">  <input type="submit" value="Please make a choice">
 </form>  </form>
 </body>  </body>
Line 71  ENDPART Line 72  ENDPART
  my $file=&Apache::lonnet::filelocation("",'/res/'.$ENV{'request.ambiguous'});   my $file=&Apache::lonnet::filelocation("",'/res/'.$ENV{'request.ambiguous'});
  my $filecontents=&Apache::lonnet::getfile($file);   my $filecontents=&Apache::lonnet::getfile($file);
  $result = &Apache::lonxml::xmlparse('tex',$filecontents,'',%mystyle);   $result = &Apache::lonxml::xmlparse('tex',$filecontents,'',%mystyle);
     } elsif ($choice eq 'Standard LaTeX output for the whole sequence') {      } elsif ($choice eq 'Standard LaTeX output for the primary sequence') {
  my @master_seq = ();   my @master_seq = ();
  my $keyword = 0;   my $keyword = 0;
  my $output_seq = '';   my $output_seq = '';
Line 138  ENDPART Line 139  ENDPART
  print $temp_file $result;   print $temp_file $result;
  }   }
 $r->print(<<FINALEND);  $r->print(<<FINALEND);
 <meta http-equiv="Refresh" content="0; url=http://bistromath.lite.msu.edu/cgi-bin/printout.pl?$filename">  <meta http-equiv="Refresh" content="0; url=/cgi-bin/printout.pl?$filename">
 </body>  </body>
 </html>  </html>
 FINALEND  FINALEND
Removed from v.1.7  
changed lines
  Added in v.1.9

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