From: miker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Fri, 27 Jan 2006 22:01:38 +0000 (+0000)
Subject: sort field and sort order support; signature fix for bill
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=da53a1f4cc90575802b2841882a2f92b5388b666;p=opensrf%2Fbjwebb.git

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

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