[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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



Revision: 219
          http://svn.sourceforge.net/ledger-smb/?rev=219&view=rev
Author:   einhverfr
Date:     2006-10-16 08:27:25 -0700 (Mon, 16 Oct 2006)

Log Message:
-----------
`cat svn-commit.2.tmp`

Modified Paths:
--------------
    trunk/LedgerSMB/Form.pm
    trunk/bin/admin.pl
    trunk/menu.pl

Modified: trunk/LedgerSMB/Form.pm
===================================================================
--- trunk/LedgerSMB/Form.pm	2006-10-16 14:26:24 UTC (rev 218)
+++ trunk/LedgerSMB/Form.pm	2006-10-16 15:27:25 UTC (rev 219)
@@ -2704,8 +2704,13 @@
 
 	my ($self, $myconfig, $fld) = @_;
 
+	if (!$self->{dbh}){
+		$self->db_init($myconfig);
+	}
+
 	my $dbh = $self->{dbh};
 
+
 	my $query = qq|SELECT $fld FROM defaults FOR UPDATE|;
 	($_) = $dbh->selectrow_array($query);
 

Modified: trunk/bin/admin.pl
===================================================================
--- trunk/bin/admin.pl	2006-10-16 14:26:24 UTC (rev 218)
+++ trunk/bin/admin.pl	2006-10-16 15:27:25 UTC (rev 219)
@@ -754,6 +754,7 @@
 
 sub save {
 
+	$form->db_init;
 	# no driver checked
 	$form->error($locale->text('Database Driver not checked!')) unless $form->{dbdriver};
 

Modified: trunk/menu.pl
===================================================================
--- trunk/menu.pl	2006-10-16 14:26:24 UTC (rev 218)
+++ trunk/menu.pl	2006-10-16 15:27:25 UTC (rev 219)
@@ -106,7 +106,6 @@
 
 $myconfig{dbpasswd} = unpack 'u', $myconfig{dbpasswd};
 map { $form->{$_} = $myconfig{$_} } qw(stylesheet timeout) unless ($form->{type} eq 'preferences');
-
 $form->db_init(\%myconfig);
 
 if ($form->{path} ne 'bin/lynx'){ $form->{path} = 'bin/mozilla';}	


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