--- loncom/xml/londefdef.pm	2002/11/06 16:50:11	1.97
+++ loncom/xml/londefdef.pm	2002/11/07 19:33:52	1.99
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Tags Default Definition Module 
 #
-# $Id: londefdef.pm,v 1.97 2002/11/06 16:50:11 sakharuk Exp $
+# $Id: londefdef.pm,v 1.99 2002/11/07 19:33:52 albertel Exp $
 # 
 #
 # Copyright Michigan State University Board of Trustees
@@ -1543,18 +1543,18 @@ sub start_table {
 #-- <img> tag
         sub start_img {
 	    my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
-            $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=
-                                        $token->[2]->{'src'};
+	    my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval,
+						 undef,1);
+            $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=$src;
             my $currentstring = '';
 	    my $width_param = '';
 	    my $height_param = '';
 	    my $scaling = .3;
 
 	    if ($target eq 'web') {
-              $currentstring = $token->[4];     
+              $currentstring = $token->[4];
 	    } elsif ($target eq 'tex') {
-		my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval);
-		&image_replication($src);
+	      &image_replication($src);
 	      $src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);
               #if original gif/jpg file exist do following:
               if (-e $src) {          
@@ -1715,17 +1715,30 @@ sub start_embed {
 	   return $currentstring;
 	}
 #-- <allow> tag
-        sub start_allow {
-	    my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;	  
-            $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=   
-                                        $token->[2]->{'src'};
-	    my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval);
-	    &image_replication($src);
-	    return '';
-	}
-        sub end_allow {
-	   return '';
-	}
+sub start_allow {
+    my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
+    $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=
+	$token->[2]->{'src'};
+    my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval);
+    &image_replication($src);
+    my $result;
+    if ($target eq 'edit') {
+	$result .=&Apache::edit::tag_start($target,$token);
+	$result .=&Apache::edit::text_arg('File Spec:','src',$token,70);
+	$result .=&Apache::edit::end_row();#.&Apache::edit::start_spanning_row();
+    } elsif ($target eq 'modified') {
+	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
+						     $safeeval,'src');
+	if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
+    }
+    return $result;
+}
+
+sub end_allow {
+    my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
+    if ( $target eq 'edit') { return (&Apache::edit::end_table()); }
+    return '';
+}
 #-- Frames
 	sub start_frameset {
 	  my ($target,$token) = @_;