loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.13, 2002/01/22 10:42:57
+version 1.14, 2002/02/21 04:12:16
  Line 96  ENDPART
      my $filename;
      if ($choice eq 'Standard LaTeX output for current document') {
- 	$_ = $ENV{'form.url'};
+       my %moreenv;
- 	if (/\.problem/) {
+       my $currequest=$ENV{'request.filename'};
- 	    my %moreenv;
+       $moreenv{'form.grade_target'}='tex';
- 	    $moreenv{'form.grade_target'}='tex';
+       $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'});
- 	    &Apache::lonnet::delenv('form.grade_target');
+       &Apache::lonnet::delenv('form.grade_target');
- 	    $texversion =~ s!\.gif!\.eps!;
+       %moreenv = ();
- 	    $result .= $texversion;
+       $moreenv{'request.filename'}=$currequest;
- 	} else {
+       &Apache::lonnet::appenv(%moreenv);
- 	    my $file=&Apache::lonnet::filelocation("",$ENV{'form.url'});
+       $texversion =~ s!\.gif!\.eps!;
- 	    my $filecontents=&Apache::lonnet::getfile($file);
+       $result .= $texversion;
- 	    $result = &Apache::lonxml::xmlparse('tex',$filecontents,'',%mystyle);
- 	}
      } elsif ($choice eq 'Standard LaTeX output for the primary sequence') {
  	my @master_seq = ();
  	my $keyword = 0;