version 1.67, 2005/04/07 06:56:22
|
version 1.69, 2005/04/12 09:56:07
|
Line 173 sub make_eps_image {
|
Line 173 sub make_eps_image {
|
&Apache::londefdef::image_size($bgimg,0.3,$parstack,$safeeval, |
&Apache::londefdef::image_size($bgimg,0.3,$parstack,$safeeval, |
$depth,1); |
$depth,1); |
my $dirtywidth=$width_param+5; |
my $dirtywidth=$width_param+5; |
my $result.='\vspace*{2mm}\noindent \parbox{'.$dirtywidth. |
my $result ="\n".'\vspace*{2mm}\noindent'."\n". |
|
'\parbox{'.$dirtywidth. |
' mm}{ \noindent \epsfxsize='.$width_param. |
' mm}{ \noindent \epsfxsize='.$width_param. |
' mm \epsffile{'.$path.$file. |
' mm \epsffile{'.$path.$file. |
'}\setlength{\unitlength}{1mm} \begin{picture}('. |
'}\setlength{\unitlength}{1mm}'."\n".' \begin{picture}('. |
$width_param.','.$height_param.')(0,-'.$height_param.')'; |
$width_param.','.$height_param.')(0,-'.$height_param.')'."\n"; |
return $result; |
return $result; |
} |
} |
|
|
Line 198 sub start_labelgroup {
|
Line 199 sub start_labelgroup {
|
@Apache::randomlabel::ycoord = (); |
@Apache::randomlabel::ycoord = (); |
@Apache::randomlabel::value = (); |
@Apache::randomlabel::value = (); |
@Apache::randomlabel::label_arr = (); |
@Apache::randomlabel::label_arr = (); |
@Apache::randomlabel::decription = (); |
@Apache::randomlabel::description = (); |
} elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |
$result.=&Apache::edit::tag_start($target,$token); |
$result.=&Apache::edit::tag_start($target,$token); |
$result.=&Apache::edit::text_arg('Name:','name',$token). |
$result.=&Apache::edit::text_arg('Name:','name',$token). |
Line 404 sub end_label {
|
Line 405 sub end_label {
|
if ($type eq 'image') { |
if ($type eq 'image') { |
&Apache::lonxml::debug("Turning $ltext, $Apache::lonxml::pwd[-1]"); |
&Apache::lonxml::debug("Turning $ltext, $Apache::lonxml::pwd[-1]"); |
$ltext=&Apache::imageresponse::clean_up_image($ltext); |
$ltext=&Apache::imageresponse::clean_up_image($ltext); |
|
# In .tex output mode, at least _ has to be replaced with |
|
# \_ |
|
if ($target eq 'tex') { |
|
$ltext =~ s/\_/\\\_/g; |
|
} |
# $ltext=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1], |
# $ltext=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1], |
# $ltext); |
# $ltext); |
&Apache::lonxml::debug("into $ltext"); |
&Apache::lonxml::debug("into $ltext"); |