[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.187,1.188

[Rob H. <for...@us...>]

Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv31070/bin

Modified Files:
	sandweb.cgi 
Log Message:
* file viewer supports module_name


Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.187
retrieving revision 1.188
diff -U2 -r1.187 -r1.188
--- sandweb.cgi	19 Feb 2002 06:53:17 -0000	1.187
+++ sandweb.cgi	19 Feb 2002 07:00:25 -0000	1.188
@@ -191,4 +191,5 @@
 					file_command => $file_command,
 					filename => \@filename,
+					module_name => $module_name,
 					location => CGI::param('location'),
 				);
@@ -785,4 +786,5 @@
 	$log->debug("file command is : $file_command");
 	my $location = $args{'location'};
+	my $module_name = $args{'module_name'};
 	$log->debug("location is : $location");
 	my @filename = ();
@@ -824,5 +826,5 @@
 				'log_obj' => $log,
 				'filename' => $entry,
-				'location' => "$users_dir/$username$location",
+				'location' => "$users_dir/$username$location$module_name",
 			);
 
@@ -871,5 +873,5 @@
 			'log_obj' => $log,
 			'filename' => $filename,
-			'location' => "$users_dir/$username$location",
+			'location' => "$users_dir/$username$location$module_name",
 		);
 	}
@@ -1042,5 +1044,5 @@
 				'log_obj' => $log,
 				'filename' => $filename,
-				'location' => "$users_dir/$username$location",
+				'location' => "$users_dir/$username$location$module_name",
 			);
 			$file->upload(