Lines 228-234
EXAMPLE
Link Here
|
228 |
my dcxml = marc2dcxml (undef, undef, 1, "oaidc"); |
228 |
my dcxml = marc2dcxml (undef, undef, 1, "oaidc"); |
229 |
|
229 |
|
230 |
Convert MARC or MARCXML to Dublin Core metadata (XSLT Transformation), |
230 |
Convert MARC or MARCXML to Dublin Core metadata (XSLT Transformation), |
231 |
optionally can get an XML directly from database (biblioitems.marcxml) |
231 |
optionally can get an XML directly from biblio_metadata |
232 |
without item information. This method take into consideration the syspref |
232 |
without item information. This method take into consideration the syspref |
233 |
'marcflavour' (UNIMARC, MARC21 and NORMARC). |
233 |
'marcflavour' (UNIMARC, MARC21 and NORMARC). |
234 |
Return an XML file with the format defined in C<$format> |
234 |
Return an XML file with the format defined in C<$format> |
Lines 237-243
C<$marc> - an ISO-2709 scalar or MARC::Record object
Link Here
|
237 |
|
237 |
|
238 |
C<$xml> - a MARCXML file |
238 |
C<$xml> - a MARCXML file |
239 |
|
239 |
|
240 |
C<$biblionumber> - obtain the record directly from database (biblioitems.marcxml) |
240 |
C<$biblionumber> - biblionumber for database access |
241 |
|
241 |
|
242 |
C<$format> - accept three type of DC formats (oaidc, srwdc, and rdfdc ) |
242 |
C<$format> - accept three type of DC formats (oaidc, srwdc, and rdfdc ) |
243 |
|
243 |
|
Lines 258-264
sub marc2dcxml {
Link Here
|
258 |
# no need to catch errors or warnings marc2marcxml do it instead |
258 |
# no need to catch errors or warnings marc2marcxml do it instead |
259 |
$marcxml = C4::Record::marc2marcxml( $marc ); |
259 |
$marcxml = C4::Record::marc2marcxml( $marc ); |
260 |
} elsif ( not defined $xml and defined $biblionumber ) { |
260 |
} elsif ( not defined $xml and defined $biblionumber ) { |
261 |
# get MARCXML biblio directly from biblioitems.marcxml without item information |
261 |
# get MARCXML biblio directly without item information |
262 |
$marcxml = C4::Biblio::GetXmlBiblio( $biblionumber ); |
262 |
$marcxml = C4::Biblio::GetXmlBiblio( $biblionumber ); |
263 |
} else { |
263 |
} else { |
264 |
$marcxml = $xml; |
264 |
$marcxml = $xml; |