[LON-CAPA-cvs] cvs: loncom /homework randomlabel.pm

[banghart]

banghart		Wed Jun 20 13:33:34 2007 EDT

  Modified files:              
    /loncom/homework	randomlabel.pm 
  Log:
  	Browse only image files in search for random labeled images.
  
  
Index: loncom/homework/randomlabel.pm
diff -u loncom/homework/randomlabel.pm:1.88 loncom/homework/randomlabel.pm:1.89
--- loncom/homework/randomlabel.pm:1.88	Wed May 23 18:36:21 2007
+++ loncom/homework/randomlabel.pm	Wed Jun 20 13:33:33 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # random labelling tool
 #
-# $Id: randomlabel.pm,v 1.88 2007/05/23 22:36:21 albertel Exp $
+# $Id: randomlabel.pm,v 1.89 2007/06/20 17:33:33 banghart Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -147,12 +147,13 @@
     } elsif ($target eq 'tex' && defined($bgimg)) {
 	$result.=&make_eps_image($bgimg,$parstack,$safeeval);
     } elsif ($target eq 'edit') {
+        my $only = join(',',&Apache::loncommon::filecategorytypes('Pictures'));
 	$result.=&Apache::edit::tag_start($target,$token);
 	$Apache::edit::bgimgsrc=
 	    &Apache::lonxml::get_param('bgimg',$parstack,$safeeval);
 	$Apache::edit::bgimgsrccurdepth=$Apache::lonxml::curdepth;
 	$result.=&Apache::edit::text_arg('Image:','bgimg',$token,75).' ';
-	$result.=&Apache::edit::browse('bgimg').' ';
+	$result.=&Apache::edit::browse('bgimg',undef,undef,$only).' ';
 	$result.=&Apache::edit::search('bgimg').'<br />'.
 	    &Apache::edit::text_arg('Width(pixel):' ,'width'   ,$token,6).
 	    &Apache::edit::text_arg('Height(pixel):','height'  ,$token,6).