version 1.61, 2004/11/12 00:21:14
|
version 1.66, 2004/12/17 22:34:53
|
Line 241 sub handler {
|
Line 241 sub handler {
|
&Apache::loncommon::fileembstyle($extension); |
&Apache::loncommon::fileembstyle($extension); |
if ($cellemb{$_} eq 'ssi') { |
if ($cellemb{$_} eq 'ssi') { |
# --------------------------------------------------------- This is an SSI cell |
# --------------------------------------------------------- This is an SSI cell |
|
my ($mapid,$resid)=split(/\./,$_); |
|
my $symb=&Apache::lonnet::encode_symb($hash{'map_id_'.$mapid},$resid,$src); |
|
|
my $prefix=$_.'_'; |
my $prefix=$_.'_'; |
my %posthash=('request.prefix' => $prefix); |
my %posthash=('request.prefix' => $prefix, |
|
'symb' => $symb); |
if ($ENV{'form.grade_target'} eq 'tex') { |
if ($ENV{'form.grade_target'} eq 'tex') { |
$posthash{'grade_target'}=$ENV{'form.grade_target'}; |
$posthash{'grade_target'}=$ENV{'form.grade_target'}; |
$posthash{'textwidth'}=$ENV{'form.textwidth'}; |
$posthash{'textwidth'}=$ENV{'form.textwidth'}; |
Line 417 sub handler {
|
Line 421 sub handler {
|
$r->print('\begin{longtable}INSERTTHEHEADOFLONGTABLE\endfirsthead\endhead '); |
$r->print('\begin{longtable}INSERTTHEHEADOFLONGTABLE\endfirsthead\endhead '); |
if ($number_of_columns le $lcm) {$number_of_columns=$lcm;}; |
if ($number_of_columns le $lcm) {$number_of_columns=$lcm;}; |
} else { |
} else { |
$r->print('<table cols="'.$lcm.'" border="0">'); |
$r->print('<table width="100%" cols="'.$lcm.'" border="0">'); |
} |
} |
for ($i=0;$i<=$#rows;$i++) { |
for ($i=0;$i<=$#rows;$i++) { |
if ($rows[$i]) { |
if ($rows[$i]) { |
Line 429 sub handler {
|
Line 433 sub handler {
|
for ($j=0;$j<=$#colcont;$j++) { |
for ($j=0;$j<=$#colcont;$j++) { |
my $rid=$colcont[$j]; |
my $rid=$colcont[$j]; |
my $metainfo = ''; |
my $metainfo = ''; |
print STDERR "src is $hash{'src_'.$rid}\n"; |
my $esrc=&Apache::lonnet::declutter($hash{'src_'.$rid}); |
|
my ($mapid,$resid)=split(/\./,$rid); |
|
my $symb=&Apache::lonnet::encode_symb($hash{'map_id_'.$mapid},$resid,$hash{'src_'.$rid}); |
|
if ($hash{'encrypted_'.$rid}) { |
|
$symb=&Apache::lonenc::encrypted($symb); |
|
$esrc=&Apache::lonenc::encrypted($esrc); |
|
} |
unless ($hash{'src_'.$rid} =~ m-^/uploaded/-) { |
unless ($hash{'src_'.$rid} =~ m-^/uploaded/-) { |
$metainfo ='<a name="'. |
$metainfo ='<a name="'.&Apache::lonnet::escape($symb).'" />'. |
&Apache::lonnet::escape(&Apache::lonnet::declutter($hash{'src_'.$rid})).'" />'. |
|
'<a href="'.$metalink{$rid}.'" target="LONcatInfo">'. |
'<a href="'.$metalink{$rid}.'" target="LONcatInfo">'. |
'<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($esrc)). |
&Apache::lonnet::escape($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>'; |
Line 553 sub handler {
|
Line 558 sub handler {
|
} else { |
} else { |
$r->print('\end{document}'.$number_of_columns); |
$r->print('\end{document}'.$number_of_columns); |
} |
} |
|
&Apache::lonnet::symblist($requrl,%symbhash); |
# -------------------------------------------------------------------- End page |
# -------------------------------------------------------------------- End page |
} |
} |
# ------------------------------------------------------------- End render page |
# ------------------------------------------------------------- End render page |