Changeset 12448

Timestamp:

2006-08-15T15:48:40+12:00 (18 years ago)

Author:

kjdon

Message:

changed output_dc_section to use the old buffer_dc_section not the new new_buffer_dc_section which was added by Jeffrey but we don't know why

File:

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

trunk/gsdl/perllib/doc.pm

@@ -731 +731 @@
 
 # Build up dublin_core metadata.  Priority given to dc.* over ex.*
-
+# This method was apparently added by Jeffrey and committed by Shaoqun.
+# But we don't know why it was added, so not using it anymore.
 sub new_buffer_dc_section {
     
@@ -856 +857 @@
 
 # Print out dublin_core metadata
+# changed back to using old method, don't know why Jeffrey changed this
 sub output_dc_section {
     my $self = shift(@_);
     my ($handle, $section, $version) = @_;
     
-    #my $all_text = $self->buffer_dc_section($section,$version);
-    my $all_text = $self->new_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;