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; |