--- trunk/webwork2/lib/WeBWorK/URLPath.pm	2006/09/01 17:28:51	4435
+++ trunk/webwork2/lib/WeBWorK/URLPath.pm	2006/09/29 19:02:31	4536
@@ -1,7 +1,7 @@
 ################################################################################
 # WeBWorK Online Homework Delivery System
 # Copyright © 2000-2006 The WeBWorK Project, http://openwebwork.sf.net/
-# $CVSHeader: webwork2/lib/WeBWorK/URLPath.pm,v 1.31 2006/07/20 18:32:25 sh002i Exp $
+# $CVSHeader: webwork2/lib/WeBWorK/URLPath.pm,v 1.33 2006/09/13 23:40:26 sh002i Exp $
 # 
 # This program is free software; you can redistribute it and/or modify it under
 # the terms of either: (a) the GNU General Public License as published by the
@@ -247,7 +247,7 @@
 		name    => 'Instructor Tools',
 		parent  => 'set_list',
 		kids    => [ qw/instructor_user_list instructor_set_list instructor_add_users
-			instructor_set_assigner instructor_file_transfer instructor_file_manager
+			instructor_set_assigner instructor_file_manager
 			instructor_problem_editor instructor_set_maker instructor_compare
 			instructor_config
 			instructor_scoring instructor_scoring_download instructor_mail_merge
@@ -367,15 +367,6 @@
 		produce => 'setmaker/',
 		display => 'WeBWorK::ContentGenerator::Instructor::SetMaker',
 	},
-	instructor_file_transfer => {
-		name    => 'File Transfer',
-		parent  => 'instructor_tools',
-		kids    => [ qw// ],
-		match   => qr|^file_xfer/|,
-		capture => [ qw// ],
-		produce => 'file_xfer/',
-		display => 'WeBWorK::ContentGenerator::Instructor::FileXfer',
-	},
 	instructor_file_manager => {
 		name    => 'File Manager',
 		parent  => 'instructor_tools',
@@ -401,7 +392,7 @@
 		match   => qr|^([^/]+)/|,
 		capture => [ qw/setID/ ],
 		produce => '$setID/',
-		display => '',
+		display => undef,
 	},
 	instructor_problem_editor_withset_withproblem => {
 		name    => '$problemID',
@@ -802,6 +793,18 @@
 
 =over
 
+=item all_modules()
+
+Return a list of the display modules associated with all possible path types.
+
+=cut
+
+sub all_modules {
+	my @modules = grep { defined } map { $pathTypes{$_}{display} } keys %pathTypes;
+	my %modules; @modules{@modules} = (); # remove duplicates
+	return keys %modules;
+}
+
 =item interpolate($string, %symbols)
 
 Replaces simple scalars (\$\w+) in $string with values in %symbols. If a scalar