You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
125 lines
3.3 KiB
125 lines
3.3 KiB
14 years ago
|
<?php
|
||
|
|
// $Id$
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Implements a simple class for working with Dublin Core data and exporting it
|
||
|
|
* back to XML. Inspiration and design shamelessly stolen from the pyfedora
|
||
|
|
* project at http://pypi.python.org/pypi/pyfedora/0.1.0
|
||
|
|
*/
|
||
|
|
|
||
|
|
class Dublin_Core {
|
||
|
|
public $dc = array(
|
||
|
|
'dc:title' => array(),
|
||
|
|
'dc:creator' => array(),
|
||
|
|
'dc:subject' => array(),
|
||
|
|
'dc:description' => array(),
|
||
|
|
'dc:publisher' => array(),
|
||
|
|
'dc:contributor' => array(),
|
||
|
|
'dc:date' => array(),
|
||
|
|
'dc:type' => array(),
|
||
|
|
'dc:format' => array(),
|
||
|
|
'dc:identifier' => array(),
|
||
|
|
'dc:source' => array(),
|
||
|
|
'dc:language' => array(),
|
||
|
|
'dc:relation' => array(),
|
||
|
|
'dc:coverage' => array(),
|
||
|
|
'dc:rights' => array(),
|
||
|
|
);
|
||
|
|
public $owner;
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Constructs a Dublin_Core object from a Fedora_Item object and populates
|
||
|
|
* the $dc array.
|
||
|
|
* @param <type> $item
|
||
|
|
*/
|
||
|
|
function Dublin_Core($item = NULL) {
|
||
|
|
if (!empty($item)) {
|
||
|
|
$this->owner = $item;
|
||
|
|
$dc_xml = $item->get_datastream_dissemination('DC');
|
||
|
|
$this->dc = self::import_from_xml_string($dc_xml)->dc;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
*
|
||
|
|
* @param <type> $element_name
|
||
|
|
* @param <type> $value
|
||
|
|
*/
|
||
|
|
function add_element( $element_name, $value ) {
|
||
|
|
if (is_string($value) && is_array($this->dc[$element_name])) {
|
||
|
|
$this->dc[$element_name][] = $value;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Replace the given DC element with the values in $values
|
||
|
|
* @param string $elemnt_name
|
||
|
|
* @param array $values
|
||
|
|
*/
|
||
|
|
function set_element($element_name, $values) {
|
||
|
|
if (is_array($values)) {
|
||
|
|
$this->dc[$element_name] = $values;
|
||
|
|
}
|
||
|
|
elseif (is_string($values)) {
|
||
|
|
$this->dc[$element_name] = array($values);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Serialize this object to XML and return it.
|
||
|
|
*/
|
||
|
|
function as_xml( $with_preamble = FALSE ) {
|
||
|
|
$dc_xml = new DomDocument();
|
||
|
|
$oai_dc = $dc_xml->createElementNS('http://www.openarchives.org/OAI/2.0/oai_dc/', 'oai_dc:dc');
|
||
|
|
$oai_dc->setAttribute('xmlns:dc', 'http://purl.org/dc/elements/1.1/');
|
||
|
|
foreach ($this->dc as $dc_element => $values) {
|
||
|
|
if (is_array($values) && !empty($values)) {
|
||
|
|
foreach ($values as $value) {
|
||
|
|
$new_item = $dc_xml->createElement($dc_element, $value);
|
||
|
|
$oai_dc->appendChild($new_item);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
$new_item = $dc_xml->createElement($dc_element);
|
||
|
|
$oai_dc->appendChild($new_item);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
$dc_xml->appendChild($oai_dc);
|
||
|
|
return $dc_xml->saveXML();
|
||
|
|
}
|
||
|
|
|
||
|
|
static function create_dc_from_dict() {
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
function save($alt_owner = NULL) {
|
||
|
|
$item_to_update = (!empty($alt_owner) ? $alt_owner : $this->owner);
|
||
|
|
// My Java roots showing, trying to do polymorphism in PHP.
|
||
|
|
if (!empty($item_to_update)) {
|
||
|
|
$item_to_update->modify_datastream_by_value($this->as_xml(), 'DC', 'Default Dublin Core Metadata', 'text/xml');
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Creates a new instance of the class by parsing dc_xml
|
||
|
|
* @param string $dc_xml
|
||
|
|
* @return Dublin_Core
|
||
|
|
*/
|
||
|
|
static function import_from_xml_string($dc_xml) {
|
||
|
|
$dc_doc = new DomDocument();
|
||
|
|
if ($dc_doc->loadXML($dc_xml)) {
|
||
|
|
$oai_dc = $dc_doc->getElementsByTagNameNS('http://purl.org/dc/elements/1.1/', '*');
|
||
|
|
$new_dc = new Dublin_Core();
|
||
|
|
foreach ($oai_dc as $child) {
|
||
|
|
array_push($new_dc->dc[$child->nodeName], $child->nodeValue);
|
||
|
|
}
|
||
|
|
return $new_dc;
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
return NULL;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|