version 1.87, 2007/05/10 10:46:51
|
version 1.90, 2007/10/17 22:11:55
|
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 147 sub start_randomlabel {
|
Line 146 sub start_randomlabel {
|
} elsif ($target eq 'tex' && defined($bgimg)) { |
} elsif ($target eq 'tex' && defined($bgimg)) { |
$result.=&make_eps_image($bgimg,$parstack,$safeeval); |
$result.=&make_eps_image($bgimg,$parstack,$safeeval); |
} elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |
|
my $only = join(',',&Apache::loncommon::filecategorytypes('Pictures')); |
$result.=&Apache::edit::tag_start($target,$token); |
$result.=&Apache::edit::tag_start($target,$token); |
$Apache::edit::bgimgsrc= |
$Apache::edit::bgimgsrc= |
&Apache::lonxml::get_param('bgimg',$parstack,$safeeval); |
&Apache::lonxml::get_param('bgimg',$parstack,$safeeval); |
$Apache::edit::bgimgsrccurdepth=$Apache::lonxml::curdepth; |
$Apache::edit::bgimgsrccurdepth=$Apache::lonxml::curdepth; |
$result.=&Apache::edit::text_arg('Image:','bgimg',$token,75).' '; |
$result.=&Apache::edit::text_arg('Image:','bgimg',$token,75).' '; |
$result.=&Apache::edit::browse('bgimg').' '; |
$result.=&Apache::edit::browse('bgimg',undef,undef,$only).' '; |
$result.=&Apache::edit::search('bgimg').'<br />'. |
$result.=&Apache::edit::search('bgimg').'<br />'. |
&Apache::edit::text_arg('Width(pixel):' ,'width' ,$token,6). |
&Apache::edit::text_arg('Width(pixel):' ,'width' ,$token,6). |
&Apache::edit::text_arg('Height(pixel):','height' ,$token,6). |
&Apache::edit::text_arg('Height(pixel):','height' ,$token,6). |
Line 164 sub start_randomlabel {
|
Line 164 sub start_randomlabel {
|
'height','texwidth'); |
'height','texwidth'); |
if ($constructtag) { |
if ($constructtag) { |
$result = &Apache::edit::rebuild_tag($token); |
$result = &Apache::edit::rebuild_tag($token); |
$result.=&Apache::edit::handle_insert(); |
|
} |
} |
} |
} |
return $result; |
return $result; |
Line 354 sub start_labelgroup {
|
Line 353 sub start_labelgroup {
|
'TeXsize'); |
'TeXsize'); |
if ($constructtag) { |
if ($constructtag) { |
$result = &Apache::edit::rebuild_tag($token); |
$result = &Apache::edit::rebuild_tag($token); |
$result.=&Apache::edit::handle_insert(); |
|
} |
} |
} |
} |
return $result; |
return $result; |
Line 540 sub start_location {
|
Line 538 sub start_location {
|
$safeeval,'x','y','value'); |
$safeeval,'x','y','value'); |
if ($constructtag) { |
if ($constructtag) { |
$result = &Apache::edit::rebuild_tag($token); |
$result = &Apache::edit::rebuild_tag($token); |
$result.=&Apache::edit::handle_insert(); |
|
} |
} |
} |
} |
$Apache::lonxml::debug = 0; |
$Apache::lonxml::debug = 0; |
Line 555 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=''; |