[open-ils-commits] r12463 - trunk/Open-ILS/src/perlmods/OpenILS/Application (dbs)

[svn at svn.open-ils.org]

Author: dbs
Date: 2009-03-07 14:47:23 -0500 (Sat, 07 Mar 2009)
New Revision: 12463

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm
Log:
Add MODS 3.3 as a supported format to SuperCat. Baby steps.

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm	2009-03-07 03:25:20 UTC (rev 12462)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm	2009-03-07 19:47:23 UTC (rev 12463)
@@ -45,8 +45,21 @@
 
 	# and an xslt parser
 	$_xslt = new XML::LibXSLT;
-	
+
 	# parse the MODS xslt ...
+	my $mods33_xslt = $_parser->parse_file(
+		OpenSRF::Utils::SettingsClient
+			->new
+			->config_value( dirs => 'xsl' ).
+		"/MARC21slim2MODS33.xsl"
+	);
+	# and stash a transformer
+	$record_xslt{mods33}{xslt} = $_xslt->parse_stylesheet( $mods33_xslt );
+	$record_xslt{mods33}{namespace_uri} = 'http://www.loc.gov/mods/v3';
+	$record_xslt{mods33}{docs} = 'http://www.loc.gov/mods/';
+	$record_xslt{mods33}{schema_location} = 'http://www.loc.gov/standards/mods/v3/mods-3-3.xsd';
+
+	# parse the MODS xslt ...
 	my $mods32_xslt = $_parser->parse_file(
 		OpenSRF::Utils::SettingsClient
 			->new