--- loncom/homework/randomlabel.pm	2001/10/24 19:40:50	1.6
+++ loncom/homework/randomlabel.pm	2001/10/26 18:47:43	1.7
@@ -49,7 +49,11 @@ sub start_randomlabel {
   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'}--;
+    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;
   }
   my $code = &Apache::lonxml::get_param('code',$parstack,$safeeval);