version 1.89, 2007/06/20 17:33:33
|
version 1.91, 2008/03/12 02:46:53
|
Line 61 use Apache::File();
|
Line 61 use Apache::File();
|
use Apache::Constants qw(:common :http); |
use Apache::Constants qw(:common :http); |
use Image::Magick; |
use Image::Magick; |
use Apache::lonplot; |
use Apache::lonplot; |
use lib '/home/httpd/lib/perl/'; |
|
use LONCAPA; |
use LONCAPA; |
|
|
|
|
Line 179 sub end_randomlabel {
|
Line 178 sub end_randomlabel {
|
$count = $Apache::randomlabel::obj_cnt; |
$count = $Apache::randomlabel::obj_cnt; |
if( $count != 0) { $args{"cgi.$cgi_id.OBJCOUNT"}=$count; } |
if( $count != 0) { $args{"cgi.$cgi_id.OBJCOUNT"}=$count; } |
$result.='<img src="/adm/randomlabel.png?token='.$cgi_id.'" /><br />'."\n"; |
$result.='<img src="/adm/randomlabel.png?token='.$cgi_id.'" /><br />'."\n"; |
&Apache::lonnet::appenv(%args); |
&Apache::lonnet::appenv(\%args); |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$result='\end{picture}\\\\'; |
$result='\end{picture}\\\\'; |
$result.= ' \vskip -'.$height_param.' mm } \\\\ '; |
$result.= ' \vskip -'.$height_param.' mm } \\\\ '; |
Line 553 sub end_location {
|
Line 552 sub end_location {
|
} |
} |
|
|
# <label>$var_abc</label> |
# <label>$var_abc</label> |
|
sub insert_label { |
|
my ($after) = @_; |
|
my $depth = scalar(@Apache::lonxml::depthcounter); |
|
$depth-- if ($after); |
|
my $inset = "\t"x$depth; |
|
return "\n$inset<label></label>"; |
|
} |
|
|
sub start_label { |
sub start_label { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my $result=''; |
my $result=''; |