Changeset 8906

Timestamp:

2005-01-18T14:49:06+13:00 (19 years ago)

Author:

chi

Message:

Modifications of dublin_core element value into the DSpace's format. For example,"dc.Title" will be saved as "title" in dublin_core.xml.

File:

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

trunk/gsdl/perllib/doc.pm

@@ -567 +567 @@
     my $escaped_value = &_escape_text($data->[1]);
     if ($data->[0]=~ /^dc/) {
+        $data->[0] =~ tr/[A-Z]/[a-z]/;
+        $data->[0] =~ /^dc\.(.*)/;
+        my $dc_element =  $1;
         #$all_text .= '   <dcvalue element="'. $data->[0].'" qualifier="#####">'. $escaped_value. "</dcvalue>\n";
-        $all_text .= '   <dcvalue element="'. $data->[0].'">'. $escaped_value. "</dcvalue>\n";
+        $all_text .= '   <dcvalue element="'. $dc_element.'">'. $escaped_value. "</dcvalue>\n";
     } 
     }