version 1.80, 2005/07/14 04:17:44
|
version 1.83, 2006/08/29 10:42:59
|
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; |
|
|
|
|
my %args; |
my %args; |
my $cgi_id; |
my $cgi_id; |
Line 138 sub start_randomlabel {
|
Line 141 sub start_randomlabel {
|
if ($target eq 'web') { |
if ($target eq 'web') { |
$cgi_id=&Apache::loncommon::get_cgi_id(); |
$cgi_id=&Apache::loncommon::get_cgi_id(); |
%args=(); |
%args=(); |
$args{"cgi.$cgi_id.BGIMG"}=&Apache::lonnet::escape($bgimg); |
$args{"cgi.$cgi_id.BGIMG"}=&escape($bgimg); |
$height_param = &Apache::lonxml::get_param('height',$parstack, $safeeval); |
$height_param = &Apache::lonxml::get_param('height',$parstack, $safeeval); |
$width_param = &Apache::lonxml::get_param('width', $parstack, $safeeval); |
$width_param = &Apache::lonxml::get_param('width', $parstack, $safeeval); |
} elsif ($target eq 'tex' && defined($bgimg)) { |
} elsif ($target eq 'tex' && defined($bgimg)) { |
Line 223 sub end_bgimg {
|
Line 226 sub end_bgimg {
|
&Apache::lonxml::debug("Image: $bgimg"); |
&Apache::lonxml::debug("Image: $bgimg"); |
$bgimg=&Apache::imageresponse::clean_up_image($bgimg); |
$bgimg=&Apache::imageresponse::clean_up_image($bgimg); |
&Apache::lonxml::debug("Cleaned image: $bgimg"); |
&Apache::lonxml::debug("Cleaned image: $bgimg"); |
$args{"cgi.$cgi_id.BGIMG"}=&Apache::lonnet::escape($bgimg); |
$args{"cgi.$cgi_id.BGIMG"}=&escape($bgimg); |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
# Some bg images can create latex for us... e.g. gnuplot. |
# Some bg images can create latex for us... e.g. gnuplot. |
# If it looks like we have some latex use that, |
# If it looks like we have some latex use that, |
Line 293 sub make_eps_image {
|
Line 296 sub make_eps_image {
|
&Apache::lonxml::debug("Image size: $height_param x $width_param"); |
&Apache::lonxml::debug("Image size: $height_param x $width_param"); |
|
|
my $dirtywidth=$width_param+5; |
my $dirtywidth=$width_param+5; |
|
# |
|
# Note that lonprintout/prinout will conspire to replace |
|
# spaces in paths and names with _'s since spacess cause problems |
|
# for latex included filenames. Therefore: |
|
# |
|
my $safe_path = $path; |
|
$safe_path =~ s/ /\_/g; |
|
my $safe_file = $file; |
|
$safe_file =~ s/ /\_/g; |
|
|
my $result ="\n".'\vspace*{2mm}\noindent'."\n". |
my $result ="\n".'\vspace*{2mm}\noindent'."\n". |
'\parbox{'.$dirtywidth. |
'\parbox{'.$dirtywidth. |
' mm}{ \noindent \epsfxsize='.$width_param. |
' mm}{ \noindent \epsfxsize='.$width_param. |
' mm \epsffile{'.$path.$file. |
' mm \epsffile{'.$safe_path.$safe_file. |
'}\setlength{\unitlength}{1mm}'."\n".' \begin{picture}('. |
'}\setlength{\unitlength}{1mm}'."\n".' \begin{picture}('. |
$width_param.','.$height_param.')(0,-'.$height_param.')'."\n"; |
$width_param.','.$height_param.')(0,-'.$height_param.')'."\n"; |
my $magick = Image::Magick->new; |
my $magick = Image::Magick->new; |
Line 422 sub end_labelgroup {
|
Line 435 sub end_labelgroup {
|
my $i=$Apache::randomlabel::obj_cnt++; |
my $i=$Apache::randomlabel::obj_cnt++; |
if( $type eq 'text') { |
if( $type eq 'text') { |
&add_vars($gname,$_,$label,$idx_arr[$_],$value,'',$safeeval); |
&add_vars($gname,$_,$label,$idx_arr[$_],$value,'',$safeeval); |
$str = join(':',$x,$y,&Apache::lonnet::escape($label)); |
$str = join(':',$x,$y,&escape($label)); |
$args{"cgi.$cgi_id.OBJTYPE"}.='LABEL:'; |
$args{"cgi.$cgi_id.OBJTYPE"}.='LABEL:'; |
} elsif ( $type eq 'image') { |
} elsif ( $type eq 'image') { |
&add_vars($gname,$_, |
&add_vars($gname,$_, |
$Apache::randomlabel::description[$idx_arr[$_]], |
$Apache::randomlabel::description[$idx_arr[$_]], |
$idx_arr[$_],$value,$label,$safeeval); |
$idx_arr[$_],$value,$label,$safeeval); |
$str = join(':',$x,$y,&Apache::lonnet::escape($label)); |
$str = join(':',$x,$y,&escape($label)); |
$args{"cgi.$cgi_id.OBJTYPE"}.='IMAGE:'; |
$args{"cgi.$cgi_id.OBJTYPE"}.='IMAGE:'; |
} else { |
} else { |
&Apache::lonxml::error('Unknown type of label :'.$type.':'); |
&Apache::lonxml::error('Unknown type of label :'.$type.':'); |
Line 479 sub end_labelgroup {
|
Line 492 sub end_labelgroup {
|
} elsif ( $type eq 'image') { |
} elsif ( $type eq 'image') { |
my ($path,$file) = &Apache::londefdef::get_eps_image($label); |
my ($path,$file) = &Apache::londefdef::get_eps_image($label); |
my $image_name = $path.$file; |
my $image_name = $path.$file; |
|
# |
|
# Note that spaces in e.. \includegraphics cause problems for Latex |
|
# so they get replaced by _'s by lonprintout/printout and us: |
|
# |
|
$image_name =~ s/ /\_/g; |
my $label_width = &get_label_width($label); |
my $label_width = &get_label_width($label); |
|
|
$result .= '\includegraphics[width='.$label_width.'mm]{' |
$result .= '\includegraphics[width='.$label_width.'mm]{' |
Line 551 sub start_label {
|
Line 569 sub start_label {
|
&Apache::lonxml::startredirection; |
&Apache::lonxml::startredirection; |
} elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |
$result.=&Apache::edit::tag_start($target,$token,"$type Label"); |
$result.=&Apache::edit::tag_start($target,$token,"$type Label"); |
my $text=&Apache::lonxml::get_all_text("/label",$parser); |
my $text=&Apache::lonxml::get_all_text("/label",$parser,$style); |
if ($type eq 'image') { |
if ($type eq 'image') { |
$result.=&Apache::edit::end_row(). |
$result.=&Apache::edit::end_row(). |
&Apache::edit::start_spanning_row(); |
&Apache::edit::start_spanning_row(); |