[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
SF.net SVN: ledger-smb:[3190] trunk/scripts/account.pl
- Subject: SF.net SVN: ledger-smb:[3190] trunk/scripts/account.pl
- From: ..hidden..
- Date: Sun, 29 May 2011 23:20:40 +0000
Revision: 3190
http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3190&view=rev
Author: einhverfr
Date: 2011-05-29 23:20:40 +0000 (Sun, 29 May 2011)
Log Message:
-----------
Erik's fix for bug 3306482
Modified Paths:
--------------
trunk/scripts/account.pl
Modified: trunk/scripts/account.pl
===================================================================
--- trunk/scripts/account.pl 2011-05-29 23:18:36 UTC (rev 3189)
+++ trunk/scripts/account.pl 2011-05-29 23:20:40 UTC (rev 3190)
@@ -1,8 +1,12 @@
use Template;
use LedgerSMB::DBObject::Account;
package LedgerSMB::Scripts::account;
+use LedgerSMB::Log;
+use Data::Dumper;
use strict;
+my $logger = Log::Log4perl::get_logger("LedgerSMB::DBObject::Account");
+
sub new {
my ($request) = @_;
$request->{title} = $request->{_locale}->text('Add Account');
@@ -28,7 +32,7 @@
edit($request);
}
-sub save_new {
+sub save_as_new {
my ($request) = @_;
delete $request->{id};
save($request);
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.