--- loncom/homework/randomlabel.pm	2003/09/25 14:05:44	1.50
+++ loncom/homework/randomlabel.pm	2003/10/30 20:52:54	1.52
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # random labelling tool
 #
-# $Id: randomlabel.pm,v 1.50 2003/09/25 14:05:44 sakharuk Exp $
+# $Id: randomlabel.pm,v 1.52 2003/10/30 20:52:54 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -120,9 +120,7 @@ sub start_randomlabel {
 		    $temp_file = Apache::File->new('>>'.$filename);
 		    $newbgimg =~ s/(.*)\/res\//\/home\/httpd\/html\/res\//;
 		    print $temp_file "$newbgimg\n";
-		    $bgimg =~ m/\/([^\/]+)$/;
-		    $bgimg = '/home/httpd/prtspool/'.$1;
-		}
+		    $bgimg=~s/\/home\/httpd\/html\/res/\/home\/httpd\/prtspool/;		}
 	    }
 	}
 	$bgimg=~s/\/$//;
@@ -406,7 +404,6 @@ sub start_label {
 	$result.=&Apache::edit::editline('',$text,'',50).
 	    &Apache::edit::end_table();
     } elsif ($target eq 'modified') {
-	my $text=$$parser[-1]->get_text("/label");
 	$result = '<label>';
 	if ($type eq 'image') {
 	    my $constructtag=&Apache::edit::get_new_args($token,$parstack,
@@ -418,7 +415,7 @@ sub start_label {
 		$result = $token->[4];
 	    }
 	}
-	$result.=&Apache::edit::modifiedfield($token);
+	$result.=&Apache::edit::modifiedfield("/label",$parser);
     }
     return $result;
 }