[LON-CAPA-cvs] cvs: loncom /interface lonindexer.pm

[www]

www		Tue Mar 30 12:55:26 2004 EDT

  Modified files:              
    /loncom/interface	lonindexer.pm 
  Log:
  Better handling of the "UP" arrow in sequences
  
  
Index: loncom/interface/lonindexer.pm
diff -u loncom/interface/lonindexer.pm:1.97 loncom/interface/lonindexer.pm:1.98
--- loncom/interface/lonindexer.pm:1.97	Mon Mar 29 21:50:27 2004
+++ loncom/interface/lonindexer.pm	Tue Mar 30 12:55:26 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Directory Indexer
 #
-# $Id: lonindexer.pm,v 1.97 2004/03/30 02:50:27 www Exp $
+# $Id: lonindexer.pm,v 1.98 2004/03/30 17:55:26 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -732,9 +732,14 @@
 
 # display uplink arrow
     if ($filecom[1] eq 'viewOneUp') {
+	my $updir=$startdir;
+# -------------- Filter out sequence containment in crumbs and "recent folders"
+	$updir='/'.(split(/\.(page|sequence)\/\//,$startdir))[-1];
+	$updir=~s/\/+/\//g;
+
 	$r->print("<tr valign='$valign' bgcolor=$fileclr>$extrafield");
 	$r->print("<td>\n");
-	$r->print ('<form method="post" name="dirpathUP" action="'.$startdir.
+	$r->print ('<form method="post" name="dirpathUP" action="'.$updir.
 		   '/" '.
 		   'onSubmit="return rep_dirpath(\'UP\','.
 		   'document.forms.fileattr.acts.value)" '.