########################################################################
# Method:       list_source
# Use:          lists the source code associated with a method
#		default value means all the code not directly associated
#		with a method.
#
# Created:      08/06/1998 MLN
########################################################################

sub list_source

{
	local($target) = $in{"target"};
        require "$method_dir/display.pl";   # so we can call &display_element

	if (!$target)
	{
		# if no target specified, then show the non-method associated
		# bucket source
		
                &display_element(".","$bucket_source_file");
                &log("list_source","OK","target = $bucket_source_file");

	}
	else 
	{
		# for the moment, we can treat this as the target as an
		# element in the methods package
		# assume all files are perl for the moment

                &display_element($method_dir,"$target.pl");
                &log("list_source","OK","target = $target");

	}

}

1;