[interchange-cvs] interchange - heins modified code/UI_Tag/file_navigator.coretag

[interchange-core@icdevgroup.org]

User:      heins
Date:      2002-11-14 19:54:23 GMT
Modified:  code/UI_Tag file_navigator.coretag
Log:
* Add option to have no upward directory traverse and no "New File" access.

Revision  Changes    Path
1.7       +3 -2      interchange/code/UI_Tag/file_navigator.coretag


rev 1.7, prev_rev 1.6
Index: file_navigator.coretag
===================================================================
RCS file: /var/cvs/interchange/code/UI_Tag/file_navigator.coretag,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- file_navigator.coretag	13 Sep 2002 20:46:17 -0000	1.6
+++ file_navigator.coretag	14 Nov 2002 19:54:23 -0000	1.7
@@ -289,7 +289,7 @@
 	}
 
 	my $nd = $curdir;
-	if($nd ne '.') {
+	if($nd ne '.' and ! $opt->{no_up}) {
 		$nd =~ s:/[^/]*$::
 		  or $nd = '.';
 		my $msg = $nd eq '.'
@@ -299,7 +299,8 @@
 	}
 
 	my $pc = \$Vend::Session->{pageCount};
-	unshift @dir, [ "$curdir/", errmsg('(new file)'), $utmpl ];
+	unshift @dir, [ "$curdir/", errmsg('(new file)'), $utmpl ]
+		unless $opt->{no_new_file};
 
 	@dir = () if $opt->{no_dirs};