[LON-CAPA-cvs] cvs: loncom /xml londefdef.pm

[www]

www		Thu Feb 14 17:37:47 2008 EDT

  Modified files:              
    /loncom/xml	londefdef.pm 
  Log:
  Broken image symbols are ugly.
  
  
Index: loncom/xml/londefdef.pm
diff -u loncom/xml/londefdef.pm:1.380 loncom/xml/londefdef.pm:1.381
--- loncom/xml/londefdef.pm:1.380	Thu Dec  6 06:22:37 2007
+++ loncom/xml/londefdef.pm	Thu Feb 14 17:37:46 2008
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Tags Default Definition Module 
 #
-# $Id: londefdef.pm,v 1.380 2007/12/06 11:22:37 foxr Exp $
+# $Id: londefdef.pm,v 1.381 2008/02/14 22:37:46 www Exp $
 # 
 #
 # Copyright Michigan State University Board of Trustees
@@ -3063,11 +3063,14 @@
 	my $width=  &Apache::lonxml::get_param('width',$parstack,$safeeval);
 	my $height= &Apache::lonxml::get_param('height',$parstack,$safeeval);
 
-
-	$currentstring .= '<img src="'.$src.'" alt="'.$alt.'" ';
-	if ($width) { $currentstring.=' width="'.$width.'" '; }
-	if ($height) { $currentstring.=' height="'.$height.'" '; }
-	$currentstring .= ' />';
+        if ($token->[2]{'src'}=~/\$/) {
+           $currentstring.='Variable image source';
+        } else {
+	   $currentstring .= '<img src="'.$src.'" alt="'.$alt.'" ';
+	   if ($width) { $currentstring.=' width="'.$width.'" '; }
+	   if ($height) { $currentstring.=' height="'.$height.'" '; }
+	   $currentstring .= ' />';
+        }
     } elsif ($target eq 'modified') {
 	my ($osrc,$owidth,$oheight)=
 	    ($token->[2]{'src'},$token->[2]{'width'},$token->[2]{'height'});