From 286dcf4f05a54be198a04628e32957b8660902d8 Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 22 Feb 2006 18:50:17 +0000
Subject: [PATCH] adding unapi support methods

git-svn-id: svn://svn.open-ils.org/ILS/trunk@3164 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 .../perlmods/OpenILS/Application/SuperCat.pm  | 55 ++++++++++++++++---
 1 file changed, 47 insertions(+), 8 deletions(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm b/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm
index d6a08281b4..d4ae0ba11c 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm
@@ -35,7 +35,8 @@ our (
   $_parser,
   $_xslt,
   $_storage,
-  %xslt,
+  %record_xslt,
+  %metarecord_xslt,
 );
 
 sub child_init {
@@ -53,7 +54,7 @@ sub child_init {
 		"/MARC21slim2MODS.xsl"
 	);
 	# and stash a transformer
-	$xslt{mods} = $_xslt->parse_stylesheet( $mods_xslt );
+	$record_xslt{mods} = $_xslt->parse_stylesheet( $mods_xslt );
 
 
 	# parse the RDFDC xslt ...
@@ -64,7 +65,7 @@ sub child_init {
 		"/MARC21slim2RDFDC.xsl"
 	);
 	# and stash a transformer
-	$xslt{rdfdc} = $_xslt->parse_stylesheet( $rdfdc_xslt );
+	$record_xslt{rdfdc} = $_xslt->parse_stylesheet( $rdfdc_xslt );
 
 
 	# parse the SRWDC xslt ...
@@ -75,7 +76,7 @@ sub child_init {
 		"/MARC21slim2SRWDC.xsl"
 	);
 	# and stash a transformer
-	$xslt{srwdc} = $_xslt->parse_stylesheet( $srwdc_xslt );
+	$record_xslt{srwdc} = $_xslt->parse_stylesheet( $srwdc_xslt );
 
 
 	# parse the OAIDC xslt ...
@@ -86,7 +87,7 @@ sub child_init {
 		"/MARC21slim2OAIDC.xsl"
 	);
 	# and stash a transformer
-	$xslt{oaidc} = $_xslt->parse_stylesheet( $oaidc_xslt );
+	$record_xslt{oaidc} = $_xslt->parse_stylesheet( $oaidc_xslt );
 
 
 	# parse the RSS xslt ...
@@ -97,7 +98,7 @@ sub child_init {
 		"/MARC21slim2RSS2.xsl"
 	);
 	# and stash a transformer
-	$xslt{rss2} = $_xslt->parse_stylesheet( $rss_xslt );
+	$record_xslt{rss2} = $_xslt->parse_stylesheet( $rss_xslt );
 
 
 	# and finally, a storage server session
@@ -109,7 +110,7 @@ sub child_init {
 }
 
 sub register_record_transforms {
-	for my $type ( keys %xslt ) {
+	for my $type ( keys %record_xslt ) {
 		__PACKAGE__->register_method(
 			method    => 'retrieve_record_transform',
 			api_name  => "open-ils.supercat.record.$type.retrieve",
@@ -188,7 +189,7 @@ sub retrieve_record_transform {
 		$rid
 	)->gather(1)->marc;
 
-	return entityize($xslt{$transform}->transform( $_parser->parse_string( $marc ) )->toString);
+	return entityize($record_xslt{$transform}->transform( $_parser->parse_string( $marc ) )->toString);
 }
 
 
@@ -359,6 +360,44 @@ Returns the MODS representation of the requested metarecord
 		}
 );
 
+sub list_metarecord_formats {
+	return ['mods', keys %metarecord_xslt];
+}
+__PACKAGE__->register_method(
+	method    => 'list_metarecord_formats',
+	api_name  => 'open-ils.supercat.metarecord.formats',
+	api_level => 1,
+	argc      => 0,
+	signature =>
+		{ desc     => <<"		  DESC",
+Returns the list of valid metarecord formats that supercat understands.
+		  DESC
+		  'return' =>
+		  	{ desc => 'The format list',
+			  type => 'array' }
+		}
+);
+
+
+sub list_record_formats {
+	return ['marcxml', keys %record_xslt];
+}
+__PACKAGE__->register_method(
+	method    => 'list_record_formats',
+	api_name  => 'open-ils.supercat.record.formats',
+	api_level => 1,
+	argc      => 0,
+	signature =>
+		{ desc     => <<"		  DESC",
+Returns the list of valid record formats that supercat understands.
+		  DESC
+		  'return' =>
+		  	{ desc => 'The format list',
+			  type => 'array' }
+		}
+);
+
+
 sub oISBN {
 	my $self = shift;
 	my $client = shift;
-- 
2.43.2