Changeset 7580

Timestamp:

2004-06-10T10:18:38+12:00 (20 years ago)

Author:

kjdon

Message:

added a new function: generate_title_from_metadata to BasClas - takes a list of metadata and returns something that is more likely to have a corresponding button

Location:

trunk/gsdl/perllib/classify

Files:

• AZCompactList.pm (modified) (1 diff)
• AZList.pm (modified) (1 diff)
• BasClas.pm (modified) (1 diff)

trunk/gsdl/perllib/classify/AZCompactList.pm

@@ -175 +175 @@
     }
 
-    $title = $metaname unless ($title);
+    $title = $self->generate_title_from_metadata($metaname) unless ($title);
+    #$title = $metaname unless ($title);
 
     $self->{'list'} = {};

trunk/gsdl/perllib/classify/AZList.pm

@@ -99 +99 @@
     
     my @meta_list = split(/,/, $metadata);
-    my $meta1 = $meta_list[0];
-
-    $title = $meta1 unless ($title);
-    
+    #my $meta1 = $meta_list[0];
+
+    #$title = $meta1 unless ($title);
+    $title = $self->generate_title_from_metadata($metadata) unless ($title);
     $self->{'list'} = {};
     $self->{'meta_list'} = \@meta_list;

trunk/gsdl/perllib/classify/BasClas.pm

@@ -293 +293 @@
 }
 
-
-1;
+# previously, if a buttonname wasn't specified, we just use the metadata value,
+# but with a list of metadata, we want to do something a bit nicer so that
+# eg -metadata dc.Title,Title will end up with Title as the buttonname
+
+# current algorithm - use the first element, but strip its namespace
+sub generate_title_from_metadata {
+    
+    my $self = shift (@_);
+    my $metadata = shift (@_);
+    
+    my @metalist = split(/,/, $metadata);
+    my $firstmeta = $metalist[0];
+    if ($firstmeta =~ /\./) {
+    $firstmeta =~ s/^\w+\.//;
+    }
+    return $firstmeta; 
+}
+
+1;