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

version 1.6, 2001/10/24 19:40:50 version 1.7, 2001/10/26 18:47:43
Line 49  sub start_randomlabel { Line 49  sub start_randomlabel {
   if ( $bgimg !~ /^http:/ ) {    if ( $bgimg !~ /^http:/ ) {
     $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=$bgimg;      $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=$bgimg;
     $bgimg=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$bgimg);      $bgimg=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$bgimg);
     $bgimg=~s-$Apache::lonnet::perlvar{'lonDocRoot'}--;      if ($bgimg =~ /$Apache::lonnet::perlvar{'lonDocRoot'}/) {
         $bgimg=~s/$Apache::lonnet::perlvar{'lonDocRoot'}//;
       } elsif ($bgimg =~ m:^/home/.*/public_html:) {
         $bgimg =~ s:^/home/(.*)/public_html:/~$1:;
       }
     $bgimg="http://".$ENV{'SERVER_NAME'}.$bgimg;      $bgimg="http://".$ENV{'SERVER_NAME'}.$bgimg;
   }    }
   my $code = &Apache::lonxml::get_param('code',$parstack,$safeeval);    my $code = &Apache::lonxml::get_param('code',$parstack,$safeeval);

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


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