SF.net SVN: ledger-smb:[2384] trunk

[..hidden..]

Revision: 2384
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2384&view=rev
Author:   einhverfr
Date:     2008-11-10 18:58:42 +0000 (Mon, 10 Nov 2008)

Log Message:
-----------
Unapplying for now the drafts fix

Modified Paths:
--------------
    trunk/LedgerSMB/DBObject.pm
    trunk/LedgerSMB/GL.pm
    trunk/scripts/drafts.pl
    trunk/scripts/vendor.pl

Modified: trunk/LedgerSMB/DBObject.pm
===================================================================
--- trunk/LedgerSMB/DBObject.pm	2008-11-07 21:17:59 UTC (rev 2383)
+++ trunk/LedgerSMB/DBObject.pm	2008-11-10 18:58:42 UTC (rev 2384)
@@ -121,7 +121,7 @@
 
     $ref = $sth->fetchrow_hashref('NAME_lc');
     
-    my $pargs = $ref->{proargnames};
+    my $args = $ref->{proargnames};
     my @proc_args;
 
     if ( !$ref->{proname} ) {    # no such function
@@ -132,7 +132,7 @@
     $ref->{pronargs} = 0 unless defined $ref->{pronargs};
     # If the user provided args..
     if (!defined  $args{args}) {
-        @proc_args = $self->_parse_array($pargs);
+        @proc_args = $self->_parse_array($args);
         if (@proc_args) {
             for my $arg (@proc_args) {
                 if ( $arg =~ s/^in_// ) {

Modified: trunk/LedgerSMB/GL.pm
===================================================================
--- trunk/LedgerSMB/GL.pm	2008-11-07 21:17:59 UTC (rev 2383)
+++ trunk/LedgerSMB/GL.pm	2008-11-10 18:58:42 UTC (rev 2384)
@@ -564,7 +564,6 @@
         my $results = $sth->fetchall_hashref('setting_key');
         $form->{closedto} = $results->{'closedto'}->{'value'};
         $form->{revtrans} = $results->{'revtrans'}->{'value'};
-        #$form->{separate_duties} = $results->{'separate_duties'}->{'value'};
         $sth->finish;
 
         $query = qq|SELECT g.*, d.description AS department

Modified: trunk/scripts/drafts.pl
===================================================================
--- trunk/scripts/drafts.pl	2008-11-07 21:17:59 UTC (rev 2383)
+++ trunk/scripts/drafts.pl	2008-11-10 18:58:42 UTC (rev 2384)
@@ -11,7 +11,7 @@
     $request->{class_types} = [
 	{text => $request->{_locale}->text('AR'),  value => 'ar'},
 	{text => $request->{_locale}->text('AP'),  value => 'ap'},
-	{text => $request->{_locale}->text('GL'),  value => 'gl'},
+	{text => $request->{_locale}->text('GL'),  value => 'GL'},
     ];
     my $template = LedgerSMB::Template->new(
         user =>$request->{_user}, 

Modified: trunk/scripts/vendor.pl
===================================================================
--- trunk/scripts/vendor.pl	2008-11-07 21:17:59 UTC (rev 2383)
+++ trunk/scripts/vendor.pl	2008-11-10 18:58:42 UTC (rev 2384)
@@ -23,7 +23,7 @@
 use LedgerSMB::DBObject::Vendor;
 use base qw(LedgerSMB::ScriptLib::Company);
 
-# require 'lsmb-request.pl';
+require 'lsmb-request.pl';
 
 sub set_entity_class {
     my ($null, $request) = @_;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.