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