Diff for /loncom/homework/randomlabel.pm between versions 1.5 and 1.6

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);

Removed from v.1.5  
changed lines
  Added in v.1.6


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>