Changeset 13418

Timestamp:

2006-12-05T16:23:41+13:00 (17 years ago)

Author:

kjdon

Message:

added format_metadata_as_table method, which takes a metadata hash and returns soem text containing an HTML table of metadata names and values

File:

• trunk/gsdl/perllib/metadatautil.pm (modified) (1 diff)

trunk/gsdl/perllib/metadatautil.pm

@@ -84 +84 @@
 }
 
+sub format_metadata_as_table {
+    my ($metadata, $remove_namespace) = @_;
+    
+    my $text = "<table cellpadding=\"4\" cellspacing=\"0\">\n";
+    
+    foreach my $field (keys(%$metadata)) {
+    # $metadata->{$field} may be an array reference
+    if ($field eq "gsdlassocfile_tobe") {
+        # ignore
+    } else {
+        my $no_ns = $field;
+        if ($remove_namespace) {
+        $no_ns =~ s/^\w+\.//;
+        }
+        if (ref ($metadata->{$field}) eq "ARRAY") {
+        map { 
+            $text .= "<tr><td valign=top><nobr><b>$no_ns</b></nobr></td><td>".$_."</td></tr>";
+        } @{$metadata->{$field}};
+        } else {
+        $text .= "<tr><td valign=top><nobr><b>$no_ns</b></nobr></td><td valign=top>$metadata->{$field}</td></tr>\n";
+        }
+    }
+
+    }
+    $text .= "</table>\n";
+    return $text;
+}
+
 1;