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

banghart lon-capa-cvs-allow@mail.lon-capa.org
Tue, 19 Jun 2007 20:25:46 -0000


banghart		Tue Jun 19 16:25:46 2007 EDT

  Modified files:              
    /loncom/xml	londefdef.pm 
  Log:
  	Use filecategories.tab to read Pictures extensions
  
  
Index: loncom/xml/londefdef.pm
diff -u loncom/xml/londefdef.pm:1.367 loncom/xml/londefdef.pm:1.368
--- loncom/xml/londefdef.pm:1.367	Tue Jun 19 15:40:07 2007
+++ loncom/xml/londefdef.pm	Tue Jun 19 16:25:45 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Tags Default Definition Module 
 #
-# $Id: londefdef.pm,v 1.367 2007/06/19 19:40:07 banghart Exp $
+# $Id: londefdef.pm,v 1.368 2007/06/19 20:25:45 banghart Exp $
 # 
 #
 # Copyright Michigan State University Board of Trustees
@@ -3001,9 +3001,10 @@
 	# And here's where the semi-quote breaks down: allow the user
         # to edit the beast as well by rendering the problem for edit:
     } elsif ($target eq 'edit') {
+        my $only = join(',',&Apache::loncommon::filecategorytypes('Pictures'));
 	$currentstring .=&Apache::edit::tag_start($target,$token);
 	$currentstring .=&Apache::edit::text_arg('Image Url:','src',$token,70).
-	    &Apache::edit::browse('src',undef,'alt','gif,jpg,png,jpeg').' '.
+	    &Apache::edit::browse('src',undef,'alt',$only).' '.
 	    &Apache::edit::search('src',undef,'alt').'<br />';
 	$currentstring .=&Apache::edit::text_arg('Description:','alt',$token,70).'<br />';
 	$currentstring .=&Apache::edit::text_arg('width (pixel):','width',$token,5);