src/hg/encode/encodeDownloadsPage/encodeDownloadsPage.pl 1.18

1.18 2009/07/31 19:38:53 mikep
show only the encode dir, not full hive path
Index: src/hg/encode/encodeDownloadsPage/encodeDownloadsPage.pl
===================================================================
RCS file: /projects/compbio/cvsroot/kent/src/hg/encode/encodeDownloadsPage/encodeDownloadsPage.pl,v
retrieving revision 1.17
retrieving revision 1.18
diff -b -B -U 4 -r1.17 -r1.18
--- src/hg/encode/encodeDownloadsPage/encodeDownloadsPage.pl	8 Jul 2009 23:54:49 -0000	1.17
+++ src/hg/encode/encodeDownloadsPage/encodeDownloadsPage.pl	31 Jul 2009 19:38:53 -0000	1.18
@@ -54,13 +54,15 @@
     #local *OUT_FILE = shift;
     local *OUT_FILE = shift;
 
     my ($filePath,$fileName,$preamble) = @_;
+    my ($volume,$directories,$file) = File::Spec->splitpath( $filePath, 1 );
+    my @dirs = File::Spec->splitdir( $directories );
 
     print OUT_FILE "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 3.2 Final//EN\">\n";
     print OUT_FILE "<HTML>\n";
     print OUT_FILE " <HEAD>\n";
-    print OUT_FILE "  <TITLE>Index of $filePath</TITLE>\n";
+    print OUT_FILE "  <TITLE>Index of $dirs[-1]</TITLE>\n";
     print OUT_FILE " </HEAD>\n";
     print OUT_FILE " <BODY>\n";
     print OUT_FILE "<IMG SRC=\"/icons/back.gif\" ALT=\"[DIR]\"> <A HREF=\"../\">Parent Directory</A><BR>\n\n";
 # The following doesn't do any good because we want to sort, not drag and drop!