--- foxridge-archiver/MPIWGStor.pm	2005/08/23 15:01:08	1.4
+++ foxridge-archiver/MPIWGStor.pm	2005/09/20 17:24:57	1.5
@@ -140,12 +140,17 @@ sub ymd_date {
 # file name (the last path element) and path
 #
 sub split_file_path {
-    my ($fn) = @_;
+    my ($fn, $nodot) = @_;
 
     if ($fn =~ /^(.*)\/([^\/]+)$/) {
         return ($2, $1);
+    } 
+    # only file name
+    if ($nodot) {
+	return ($fn, '');
+    } else {
+	return ($fn, '.');
     }
-    return ($fn, '.'); # only file name
 }