loncom/interface/lonprintout.pm - diff - 1.8

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

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

version 1.7, 2001/10/15 14:50:10	version 1.8, 2001/11/29 18:18:38
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 = '';

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