|
version 1.64, 2005/02/10 23:00:10
|
version 1.69, 2005/04/12 09:56:07
|
|
Line 25
|
Line 25
|
| # |
# |
| # http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
| # |
# |
| # 7/20/2001 Isaac Tsai, initial syntax |
|
| # 8/10/2001 Isaac Tsai, |
|
| # 8/30/2001 Isaac Tsai, |
|
| # SYNTAX: |
# SYNTAX: |
| # <randomlabel bgimg="URL" width="12" height="45" texwidth="50"> |
# <randomlabel bgimg="URL" width="12" height="45" texwidth="50"> |
| # <labelgroup name="GroupOne" type="image"> |
# <labelgroup name="GroupOne" type="image"> |
|
Line 91 sub start_randomlabel {
|
Line 88 sub start_randomlabel {
|
| 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 !~ /^http:/ ) { |
| $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 176 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 201 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 407 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"); |
![[BACK]](/icons/back.gif){kind=icon}
Return to randomlabel.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework