Added stored procedure collation handling stub

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1172 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 4 insertions, 0 deletions

diff --git a/LedgerSMB.pm b/LedgerSMB.pm
index 759ba7d8..8e0dcb3d 100755
--- a/LedgerSMB.pm
+++ b/LedgerSMB.pm
@@ -424,6 +424,7 @@ sub call_procedure {
     my %args     = @_;
     my $procname = $args{procname};
     my @args     = @{ $args{args} };
+    my $order_by = $args{order_by};
     my $argstr   = "";
     my @results;
     for ( 1 .. scalar @args ) {
@@ -431,6 +432,9 @@ sub call_procedure {
     }
     $argstr =~ s/\, $//;
     my $query = "SELECT * FROM $procname()";
+    if ($order_by){
+        $query .= " ORDER BY $order_by";
+    }
     $query =~ s/\(\)/($argstr)/;
     my $sth = $self->{dbh}->prepare($query);
     $sth->execute(@args);