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(
|
