SF.net SVN: ledger-smb:[3769] branches/1.3

[..hidden..]

Revision: 3769
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3769&view=rev
Author:   einhverfr
Date:     2011-09-28 04:13:33 +0000 (Wed, 28 Sep 2011)
Log Message:
-----------
Correcting more gl bugs

Modified Paths:
--------------
    branches/1.3/bin/gl.pl
    branches/1.3/scripts/vouchers.pl

Modified: branches/1.3/bin/gl.pl
===================================================================
--- branches/1.3/bin/gl.pl	2011-09-28 03:56:10 UTC (rev 3768)
+++ branches/1.3/bin/gl.pl	2011-09-28 04:13:33 UTC (rev 3769)
@@ -290,7 +290,7 @@
 		  for ( 'post_as_new', 'schedule' ) { $a{$_} = 1 }
 
 		  if ( !$form->{locked} ) {
-		      if ( $transdate > $closedto ) {
+		      if ( $transdate ge $closedto  and defined $closedto) {
 			  for ( 'post', 'delete' ) { $a{$_} = 1 }
 		      }
 		  }
@@ -302,7 +302,7 @@
 		  }
 	      }
 
-	      if (!$form->{approved} && !$form->{batch_id}){
+	      if ($form->{id} && (!$form->{approved} && !$form->{batch_id})){
 		$button{approve} = { 
 			ndx   => 3, 
 			key   => 'S', 

Modified: branches/1.3/scripts/vouchers.pl
===================================================================
--- branches/1.3/scripts/vouchers.pl	2011-09-28 03:56:10 UTC (rev 3768)
+++ branches/1.3/scripts/vouchers.pl	2011-09-28 04:13:33 UTC (rev 3769)
@@ -478,6 +478,10 @@
     batch_delete(@_);
 }
 
+sub get_batch_batch_delete {
+    batch_delete(@_);
+}
+
 # alias for batch_post, needed for form-dynatable
 sub list_batches_batch_approve {
     batch_approve(@_);

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