josch/yolanda
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

added second part of upload xform

Browse source 
git-svn-id: http://yolanda.mister-muffin.de/svn@332 7eef14d0-6ed0-489d-bf55-20463b2d70db
This commit is contained in:
josch 2008-04-29 14:07:28 +00:00
parent e45f3c4c12
commit e757b4bab6
1 changed files with 41 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

41
trunk/upload.pl
View file

@ -68,6 +68,47 @@ $node->setNamespace( "http://www.w3.org/2001/XMLSchema-instance", "xsi", 0 );
$node->setAttributeNS( "http://www.w3.org/2001/XMLSchema-instance", "type", "xsd:language" );
$video->appendChild($node);
$node = XML::LibXML::Element->new( "Creator" );
$node->setNamespace( "http://purl.org/dc/elements/1.1/", "dc" );
$node->setNamespace( "http://www.w3.org/2001/XMLSchema-instance", "xsi", 0 );
$node->setAttributeNS( "http://www.w3.org/2001/XMLSchema-instance", "type", "xsd:normalizedString" );
$video->appendChild($node);
$node = XML::LibXML::Element->new( "Contributor" );
$node->setNamespace( "http://purl.org/dc/elements/1.1/", "dc" );
$node->setNamespace( "http://www.w3.org/2001/XMLSchema-instance", "xsi", 0 );
$node->setAttributeNS( "http://www.w3.org/2001/XMLSchema-instance", "type", "xsd:normalizedString" );
$video->appendChild($node);
$node = XML::LibXML::Element->new( "Publisher" );
$node->setNamespace( "http://purl.org/dc/elements/1.1/", "dc" );
$node->setNamespace( "http://www.w3.org/2001/XMLSchema-instance", "xsi", 0 );
$node->setAttributeNS( "http://www.w3.org/2001/XMLSchema-instance", "type", "xsd:normalizedString" );
$video->appendChild($node);
$node = XML::LibXML::Element->new( "Relation" );
$node->setNamespace( "http://purl.org/dc/elements/1.1/", "dc" );
$node->setNamespace( "http://www.w3.org/2001/XMLSchema-instance", "xsi", 0 );
$node->setAttributeNS( "http://www.w3.org/2001/XMLSchema-instance", "type", "xsd:anyURI" );
$video->appendChild($node);
$node = XML::LibXML::Element->new( "Rights" );
$node->setNamespace( "http://purl.org/dc/elements/1.1/", "dc" );
$node->setNamespace( "http://www.w3.org/2001/XMLSchema-instance", "xsi", 0 );
$node->setAttributeNS( "http://www.w3.org/2001/XMLSchema-instance", "type", "xsd:anyURI" );
$video->appendChild($node);
$node = XML::LibXML::Element->new( "Source" );
$node->setNamespace( "http://purl.org/dc/elements/1.1/", "dc" );
$node->setNamespace( "http://www.w3.org/2001/XMLSchema-instance", "xsi", 0 );
$node->setAttributeNS( "http://www.w3.org/2001/XMLSchema-instance", "type", "xsd:anyURI" );
$video->appendChild($node);
$node = XML::LibXML::Element->new( "data" );
$node->setNamespace( "http://www.w3.org/2001/XMLSchema-instance", "xsi", 0 );
$node->setAttributeNS( "http://www.w3.org/2001/XMLSchema-instance", "type", "xsd:base64Binary" );
$video->appendChild($node);
$instance->appendChild($video);
$page->appendChild($instance);