version 1.60, 2004/09/14 01:21:49
|
version 1.61, 2004/11/12 00:21:14
|
Line 232 sub handler {
|
Line 232 sub handler {
|
$lcm*=($#colcont+1)/euclid($lcm,($#colcont+1)); |
$lcm*=($#colcont+1)/euclid($lcm,($#colcont+1)); |
foreach (@colcont) { |
foreach (@colcont) { |
my $src=$hash{'src_'.$_}; |
my $src=$hash{'src_'.$_}; |
$src=~/\.(\w+)$/; |
my ($extension)=($src=~/\.(\w+)$/); |
|
if ($hash{'encrypted_'.$_}) { |
|
$src=&Apache::lonenc::encrypted($src); |
|
} |
$metalink{$_}=$src.'.meta'; |
$metalink{$_}=$src.'.meta'; |
$cellemb{$_}=Apache::loncommon::fileembstyle($1); |
$cellemb{$_}= |
|
&Apache::loncommon::fileembstyle($extension); |
if ($cellemb{$_} eq 'ssi') { |
if ($cellemb{$_} eq 'ssi') { |
# --------------------------------------------------------- This is an SSI cell |
# --------------------------------------------------------- This is an SSI cell |
my $prefix=$_.'_'; |
my $prefix=$_.'_'; |
Line 257 sub handler {
|
Line 261 sub handler {
|
} |
} |
} |
} |
my $output=Apache::lonnet::ssi($src,%posthash); |
my $output=Apache::lonnet::ssi($src,%posthash); |
$output=~ |
$output=~s|//(\s*<!--)? BEGIN LON-CAPA Internal.+// END LON-CAPA Internal\s*(-->)?\s||gs; |
s/\/\/ BEGIN LON\-CAPA Internal.+\/\/ END LON\-CAPA Internal\s//gs; |
|
if ($target eq 'tex') { |
if ($target eq 'tex') { |
$output =~ s/^([^&]+)\\begin{document}//; |
$output =~ s/^([^&]+)\\begin{document}//; |
$output =~ s/\\end{document}//; |
$output =~ s/\\end{document}//; |
Line 397 sub handler {
|
Line 400 sub handler {
|
# ------------------------------------------------------------------ Start form |
# ------------------------------------------------------------------ Start form |
if ($nforms) { |
if ($nforms) { |
$r->print('<form method="post" action="'. |
$r->print('<form method="post" action="'. |
$requrl.'">'); |
&Apache::lonenc::check_encrypt($requrl) |
|
.'">'); |
} |
} |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$r->print('\documentclass{article} |
$r->print('\documentclass{article} |
Line 433 sub handler {
|
Line 437 sub handler {
|
'<img src="/adm/lonMisc/cat_button.gif" border=0>'. |
'<img src="/adm/lonMisc/cat_button.gif" border=0>'. |
'</img></a>'; |
'</img></a>'; |
} |
} |
|
my $esrc=$hash{'src_'.$rid}; |
|
if ($hash{'encrypted_'.$rid}) { |
|
$esrc=&Apache::lonenc::encrypted($esrc); |
|
} |
$metainfo .= '<a href="/adm/evaluate?postdata='. |
$metainfo .= '<a href="/adm/evaluate?postdata='. |
&Apache::lonnet::escape(&Apache::lonnet::declutter($hash{'src_'.$rid})). |
&Apache::lonnet::escape(&Apache::lonnet::declutter($esrc)). |
'" target="LONcatInfo">'. |
'" target="LONcatInfo">'. |
'<img src="/adm/lonMisc/eval_button.gif" border=0>'. |
'<img src="/adm/lonMisc/eval_button.gif" border=0>'. |
'</img></a>'; |
'</img></a>'; |