From da53a1f4cc90575802b2841882a2f92b5388b666 Mon Sep 17 00:00:00 2001
From: miker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Fri, 27 Jan 2006 22:01:38 +0000
Subject: [PATCH] sort field and sort order support; signature fix for bill

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@629 9efc2488-bf62-4759-914b-345cdb29e865
---
 src/perlmods/OpenSRF/Application.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/perlmods/OpenSRF/Application.pm b/src/perlmods/OpenSRF/Application.pm
index c323182..6365ff7 100644
--- a/src/perlmods/OpenSRF/Application.pm
+++ b/src/perlmods/OpenSRF/Application.pm
@@ -322,7 +322,7 @@ sub normalize_whitespace {
 	return $txt;
 }
 
-sub parse_notes_signature {
+sub parse_string_signature {
 	my $string = shift;
 	my @chunks = split(/\@/so, $string);
 
@@ -386,8 +386,11 @@ sub register_method {
 	if (!$args{signature}) {
 		if ($args{notes} && !ref($args{notes})) {
 			$args{signature} =
-				parse_array_signature( parse_notes_signature( $args{notes} ) );
+				parse_array_signature( parse_string_signature( $args{notes} ) );
 		}
+	} elsif( !ref($args{signature}) ) {
+		$args{signature} =
+			parse_array_signature( parse_string_signature( $args{notes} ) );
 	} elsif( ref($args{signature}) eq 'ARRAY') {
 		$args{signature} =
 			parse_array_signature( $args{signature} );
-- 
2.11.0