version 1.5, 2001/10/14 05:08:09
|
version 1.6, 2001/10/24 19:40:50
|
Line 41 sub BEGIN {
|
Line 41 sub BEGIN {
|
sub start_randomlabel { |
sub start_randomlabel { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my $result=''; |
my $result=''; |
|
$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]= |
|
'/res/adm/includes/GLabel.class'; |
|
|
my $bgimg= &Apache::lonxml::get_param('bgimg',$parstack,$safeeval); |
my $bgimg= &Apache::lonxml::get_param('bgimg',$parstack,$safeeval); |
|
|
|
if ( $bgimg !~ /^http:/ ) { |
|
$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=$bgimg; |
|
$bgimg=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$bgimg); |
|
$bgimg=~s-$Apache::lonnet::perlvar{'lonDocRoot'}--; |
|
$bgimg="http://".$ENV{'SERVER_NAME'}.$bgimg; |
|
} |
my $code = &Apache::lonxml::get_param('code',$parstack,$safeeval); |
my $code = &Apache::lonxml::get_param('code',$parstack,$safeeval); |
my $codebase = &Apache::lonxml::get_param('codebase',$parstack,$safeeval); |
my $codebase = &Apache::lonxml::get_param('codebase',$parstack,$safeeval); |
my $w= &Apache::lonxml::get_param('width',$parstack,$safeeval); |
my $w= &Apache::lonxml::get_param('width',$parstack,$safeeval); |