version 1.87, 2007/05/10 10:46:51
|
version 1.91.2.1, 2008/12/21 15:10:12
|
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 131 sub start_randomlabel {
|
Line 130 sub start_randomlabel {
|
$label_xscale = 1.0; # Assume image size not overridden. |
$label_xscale = 1.0; # Assume image size not overridden. |
$label_yscale = 1.0; |
$label_yscale = 1.0; |
my $bgimg= &Apache::lonxml::get_param('bgimg',$parstack,$safeeval); |
my $bgimg= &Apache::lonxml::get_param('bgimg',$parstack,$safeeval); |
if ( defined($bgimg) && $bgimg !~ /^http:/ ) { |
if ( defined($bgimg) && $bgimg !~ /^https?\:/ ) { |
$bgimg=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$bgimg); |
$bgimg=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$bgimg); |
if (&Apache::lonnet::repcopy($bgimg) ne 'ok') { |
if (&Apache::lonnet::repcopy($bgimg) ne 'ok') { |
$bgimg='/home/httpd/html/adm/lonKaputt/lonlogo_broken.gif'; |
$bgimg='/home/httpd/html/adm/lonKaputt/lonlogo_broken.gif'; |
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 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 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=''; |