|
version 1.11, 2001/12/19 17:17:46
|
version 1.12, 2002/01/11 17:06:56
|
|
Line 101 ENDPART
|
Line 101 ENDPART
|
| } |
} |
| my $file=&Apache::lonnet::filelocation("",$ENV{'form.url'}); |
my $file=&Apache::lonnet::filelocation("",$ENV{'form.url'}); |
| my $filecontents=&Apache::lonnet::getfile($file); |
my $filecontents=&Apache::lonnet::getfile($file); |
| $result = &Apache::lonxml::xmlparse('tex',$filecontents,'',%mystyle); |
$_ = $file; |
| |
if (/\.problem/) { |
| |
my $default=&Apache::lonnet::getfile('/home/httpd/html/res/adm/includes/default_homework.lcpm'); |
| |
if ($default == -1) { |
| |
&Apache::lonxml::error("<b>Unable to find <i>default_homework.lcpm</i></b>"); |
| |
$default=''; |
| |
} |
| |
$result = &Apache::lonxml::xmlparse('tex', $filecontents,$default.&Apache::lonhomework::setup_vars('tex'),%mystyle); |
| |
|
| |
|
| |
} else { |
| |
$result = &Apache::lonxml::xmlparse('tex',$filecontents,'',%mystyle); |
| |
} |
| |
|
| |
|
| |
|
| |
|
| |
|
| |
|
| |
# my $ere; |
| |
# foreach $ere (%ENV) { |
| |
# $result .= ' SS '.$ere.' => '.$ENV{$ere}.' FF '."\n\n"; |
| |
# } |
| } elsif ($choice eq 'Standard LaTeX output for the primary sequence') { |
} elsif ($choice eq 'Standard LaTeX output for the primary sequence') { |
| my @master_seq = (); |
my @master_seq = (); |
| my $keyword = 0; |
my $keyword = 0; |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonprintout.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface