/[MITgcm]/mitgcm.org/front_content/Assemble.pl
ViewVC logotype

Diff of /mitgcm.org/front_content/Assemble.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.5 by edhill, Wed Mar 10 15:12:55 2004 UTC revision 1.7 by edhill, Thu Apr 6 19:52:17 2006 UTC
# Line 1  Line 1 
1  #! /usr/bin/env perl  #! /usr/bin/perl
2    
3  #  Ed Hill  #  Ed Hill
4  #  Tue Dec  2 20:17:27 EST 2003  #  Tue Dec  2 20:17:27 EST 2003
# Line 55  foreach $file (@flist) { Line 55  foreach $file (@flist) {
55      foreach $fm (@flist) {      foreach $fm (@flist) {
56          $ind = "";          $ind = "";
57          $name = $name0{$fm};          $name = $name0{$fm};
58    
59            if ($name eq "Documentation") {
60                $tmp = "<a href=\"http://mitgcm.org/pelican/\">"
61                    . "Documentation</a><br />\n";
62                $menu = join "", $menu, $tmp;
63                next;
64            }
65    
66          if (length($name1{$fm}) > 0) {          if (length($name1{$fm}) > 0) {
67              $ind = "&nbsp;&nbsp;&nbsp;";              $ind = "&nbsp;&nbsp;&nbsp;";
68              $name = $name1{$fm};              $name = $name1{$fm};
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22