[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);