Changeset 12327

Timestamp:

2006-07-28T14:49:58+12:00 (18 years ago)

Author:

shaoqun

Message:

added methods used by plugout

File:

• trunk/gsdl/perllib/doc.pm (modified) (7 diffs)

trunk/gsdl/perllib/doc.pm

@@ -225 +225 @@
 sub _escape_text {
     my ($text) = @_;
-
     # special characters in the gml encoding
     $text =~ s/&/&/g; # this has to be first...
@@ -733 +732 @@
 # Build up dublin_core metadata.  Priority given to dc.* over ex.*
 
+sub new_buffer_dc_section {
+    
+    my $self = shift(@_);
+    my ($section, $version) = @_;
+
+    # build up string of dublin core metadata
+    $section="" unless defined $section;
+    
+    my $section_ptr=$self->_lookup_section($section);
+    return "" unless defined $section_ptr;
+    foreach my $data (@{$section_ptr->{'metadata'}}){
+    my $escaped_value = &_escape_text($data->[1]);
+    my $dc_element =  $data->[0];
+    
+    my @array = split('\.',$dc_element);
+    my ($type,$name);
+
+    if(defined $array[1])
+    {
+        $type = $array[0];
+        $name = $array[1];
+    }
+    else
+    {
+        $type = "ex";
+        $name = $array[0];
+    }
+    
+    $all_text .= '   <Metadata Type="'. $type.'" Name="'.$name.'">'. $escaped_value. "</Metadata>\n";
+    }
+    return $all_text;
+}
+
+
 sub buffer_dc_section {
     my $self = shift(@_);
@@ -743 +776 @@
     return "" unless defined $section_ptr;
 
+
     my $explicit_dc = {};
     my $explicit_ex = {};
@@ -748 +782 @@
     my $all_text="";
     foreach my $data (@{$section_ptr->{'metadata'}}){
+    foreach my $temp (@$data)
+    {
+        print "($temp) ";
+    }   
+    print "\n";
     my $escaped_value = &_escape_text($data->[1]);
     if ($data->[0]=~ m/^dc\./) {
@@ -821 +860 @@
     my ($handle, $section, $version) = @_;
     
-    my $all_text = $self->buffer_dc_section($section,$version);
-
+    #my $all_text = $self->buffer_dc_section($section,$version);
+    my $all_text = $self->new_buffer_dc_section($section,$version);
+    
     print $handle $all_text;
 }
@@ -836 +876 @@
 
     while (defined $section && $section ne "") {
+    
     ($num, $section) = $section =~ /^\.?(\d+)(.*)$/;
-    $num =~ s/^0+(\d)/$1/; # remove leading 0s
+    
+    $num =~ s/^0+(\d)/$1/ if defined $num ; # remove leading 0s
+    
     $section = "" unless defined $section;
     
+
     if (defined $num && defined $sectionref->{'subsections'}->{$num}) {
         $sectionref = $sectionref->{'subsections'}->{$num};
@@ -1358 +1402 @@
 }
 
+# returns a xml element of the form <MetadataList><Metadata name="metadata-name">metadata_value</Metadata>...</MetadataList>
+sub get_top_metadata_list{
+    my $self = shift (@_);
+
+    my @topmetadata =$self->get_all_metadata($self->get_top_section());
+    my $metadatalist ='<MetadataList>';
+   
+     foreach my $i (@topmetadata){
+     foreach my $j (@$i){   
+         my %metaMap = @$j;
+         foreach my $key (keys %metaMap){
+         $metadatalist .='<Metadata name='."\"$key\"".'>'.$metaMap{$key}.'</Metadata>'."\n";
+         }        
+     }    
+     }
+
+  $metadatalist .='</MetadataList>';   
+
+   return $metadatalist;
+}
+
+
 # $value is optional
 sub delete_metadata {