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

[..hidden..]

Revision: 1670
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=1670&view=rev
Author:   einhverfr
Date:     2007-09-26 10:52:12 -0700 (Wed, 26 Sep 2007)

Log Message:
-----------
Moving Aurynn's set() function from DBObject to LedgerSMB namespaces since it is not specific to database defined objects

Modified Paths:
--------------
    trunk/LedgerSMB/DBObject/Admin.pm
    trunk/LedgerSMB/DBObject.pm
    trunk/LedgerSMB.pm
    trunk/scripts/menu.pl

Modified: trunk/LedgerSMB/DBObject/Admin.pm
===================================================================
--- trunk/LedgerSMB/DBObject/Admin.pm	2007-09-26 17:46:47 UTC (rev 1669)
+++ trunk/LedgerSMB/DBObject/Admin.pm	2007-09-26 17:52:12 UTC (rev 1670)
@@ -193,4 +193,4 @@
     return $sth->fetchall_arrayref( {} );
 }
 
-1;
\ No newline at end of file
+1;

Modified: trunk/LedgerSMB/DBObject.pm
===================================================================
--- trunk/LedgerSMB/DBObject.pm	2007-09-26 17:46:47 UTC (rev 1669)
+++ trunk/LedgerSMB/DBObject.pm	2007-09-26 17:52:12 UTC (rev 1670)
@@ -23,11 +23,9 @@
 
 =item exec_method ($self, procname => $function_name, args => ..hidden..)
 
-=item set (@attrs)
+Provides the basic mapping of parameters to the SQL stored procedure function 
+arguments.
 
-Copies the given key=>vars to $self. Allows for finer control of 
-merging hashes into self.
-
 =back
 
 =head1 Copyright (C) 2007, The LedgerSMB core team.
@@ -283,16 +281,4 @@
     return @return_array;
 }
 
-sub set {
-    
-    my $self = shift @_;
-    my %args = @_;
-    
-    for my $arg (keys(%args)) {
-        $self->{$arg} = $args{$arg};
-    }
-    return 1;    
-
-}
-
 1;

Modified: trunk/LedgerSMB.pm
===================================================================
--- trunk/LedgerSMB.pm	2007-09-26 17:46:47 UTC (rev 1669)
+++ trunk/LedgerSMB.pm	2007-09-26 17:52:12 UTC (rev 1670)
@@ -89,6 +89,11 @@
 used.  Behavior is not defined when index points to a field containing 
 non-numbers.
 
+=item set (@attrs)
+
+Copies the given key=>vars to $self. Allows for finer control of 
+merging hashes into self.
+
 =back
 
 =head1 Copyright (C) 2006, The LedgerSMB core team.
@@ -755,5 +760,17 @@
 
 sub DESTROY {}
 
+sub set {
+    
+    my $self = shift @_;
+    my %args = @_;
+    
+    for my $arg (keys(%args)) {
+        $self->{$arg} = $args{$arg};
+    }
+    return 1;    
+
+}
+
 1;
 

Modified: trunk/scripts/menu.pl
===================================================================
--- trunk/scripts/menu.pl	2007-09-26 17:46:47 UTC (rev 1669)
+++ trunk/scripts/menu.pl	2007-09-26 17:52:12 UTC (rev 1670)
@@ -71,6 +71,7 @@
     $request->{title} = "LedgerSMB $request->{VERSION} -- ".
 	"$request->{login} -- $request->{_user}->{dbname}";
 
+    $request->call_procedure(procname => );
     if (!$request->{menubar}){
         $request->{main} = "splash.html" if $request->{main} eq 'company_logo';
         $request->{main} = "am.pl?action=recurring_transactions"


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