|
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; |