Changeset 17754 for trunk/DataStoreServer/scripts/dsfsindex

Timestamp:

May 19, 2008, 4:25:40 PM (18 years ago)

Author:

bills

Message:

if file specific columns in a filelist don't change even when the file type
changes, don't output a new header

File:

• trunk/DataStoreServer/scripts/dsfsindex (modified) (2 diffs)

trunk/DataStoreServer/scripts/dsfsindex

@@ -65 +65 @@
 my $print_header=1;
 my $last_type = "";
+my $last_header = "";
 while( my $row = $stmt->fetchrow_hashref()) {
     my $type = $row->{type};
@@ -83 +84 @@
             $typeheader .= sprintf "%-8s|", $fileTypeDef->[$i];
         }
-        print "$header$typeheader\n";
+        my $newheader = "$header$typeheader";
+        # if the header actually changed (due to type specific columns) print it out
+        if ($newheader ne $last_header) {
+            print "$newheader\n";
+            $last_header = $newheader;
+        }
         $print_header = 0;
     }