SF.net SVN: ledger-smb: [1015] branches/1.2/LedgerSMB

[..hidden..]

Revision: 1015
          http://svn.sourceforge.net/ledger-smb/?rev=1015&view=rev
Author:   einhverfr
Date:     2007-03-30 10:33:38 -0700 (Fri, 30 Mar 2007)

Log Message:
-----------
Fixing missing date errors

Modified Paths:
--------------
    branches/1.2/LedgerSMB/CP.pm
    branches/1.2/LedgerSMB/Locale.pm

Modified: branches/1.2/LedgerSMB/CP.pm
===================================================================
--- branches/1.2/LedgerSMB/CP.pm	2007-03-27 16:37:41 UTC (rev 1014)
+++ branches/1.2/LedgerSMB/CP.pm	2007-03-30 17:33:38 UTC (rev 1015)
@@ -307,6 +307,7 @@
 
 	my ($self, $myconfig, $form) = @_;
 
+	
 	# connect to database, turn AutoCommit off
 	my $dbh = $form->{dbh};
 
@@ -422,7 +423,7 @@
 				            ?)|;
 			$sth = $dbh->prepare($query);
 			$sth->execute($form->{"id_$i"}, $id, 
-				$form->{date_paid}, $amount * $ml) 
+				$form->{datepaid}, $amount * $ml) 
 					|| $form->dberror($query, __file__, __line__);
 
 			# add payment

Modified: branches/1.2/LedgerSMB/Locale.pm
===================================================================
--- branches/1.2/LedgerSMB/Locale.pm	2007-03-27 16:37:41 UTC (rev 1014)
+++ branches/1.2/LedgerSMB/Locale.pm	2007-03-30 17:33:38 UTC (rev 1015)
@@ -116,9 +116,6 @@
 		$mm = substr("0$mm", -2);
 		$longdate = "$yy$spc$mm$spc$dd"; 
 
-		if (defined $longformat) {
-			$longdate = &text($self, $longmonth[--$mm])." $dd $yy";
-		}
 
 	} else {
 
@@ -127,10 +124,11 @@
 		$mm = substr("0$mm", -2);
 		$longdate = "$mm$spc$dd$spc$yy"; 
 
-		if (defined $longformat) {
-			$longdate = &text($self, $longmonth[--$mm])." $dd $yy";
-		}
 	}
+	if (defined $longformat) {
+		$longdate = &text($self, $longmonth[--$mm])." $dd $yy";
+	}
+	$longdate;
 }
 
 1;


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