Deal with VMethods causing problems with form.sort

Add wrapper for a simpler UI constructor


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

1 files changed, 3 insertions, 6 deletions

diff --git a/bin/ca.pl b/bin/ca.pl
index 68ffdc5f..99a7ef66 100644
--- a/bin/ca.pl
+++ b/bin/ca.pl
@@ -238,13 +238,10 @@ sub list {
         value => 'Y',
         text => $locale->text('Subtotal'),
     });
-    $form->{sort} ||= ''; #SC: blah.  Find out why this breaks when undef
-    my $template = LedgerSMB::Template->new(
-        user => \%myconfig, 
+    my $template = LedgerSMB::Template->new_UI(
+        user => \%myconfig,
         locale => $locale,
-        path => 'UI',
-        template => 'ca-list-selector',
-        format => 'HTML');
+        template => 'ca-list-selector');
     $template->render({
         form => $form,
 	includes => \@includes,