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

[..hidden..]

Revision: 1825
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=1825&view=rev
Author:   einhverfr
Date:     2007-10-29 19:29:04 -0700 (Mon, 29 Oct 2007)

Log Message:
-----------
Correcting improper redirect when reposting POS invoices.

Modified Paths:
--------------
    branches/1.2/LedgerSMB/Form.pm
    branches/1.2/bin/pos.pl

Modified: branches/1.2/LedgerSMB/Form.pm
===================================================================
--- branches/1.2/LedgerSMB/Form.pm	2007-10-28 19:13:38 UTC (rev 1824)
+++ branches/1.2/LedgerSMB/Form.pm	2007-10-30 02:29:04 UTC (rev 1825)
@@ -1260,7 +1260,6 @@
 sub cleanup {
 
     my $self = shift;
-
     chdir("$self->{tmpdir}");
 
     my @err = ();

Modified: branches/1.2/bin/pos.pl
===================================================================
--- branches/1.2/bin/pos.pl	2007-10-28 19:13:38 UTC (rev 1824)
+++ branches/1.2/bin/pos.pl	2007-10-30 02:29:04 UTC (rev 1825)
@@ -174,7 +174,9 @@
 sub edit {
 
     $form->{title} = $locale->text('Edit POS Invoice');
-
+    if (!$form->{nextsub}){
+        $form->{nextsub} = 'add';
+    }
     $form->{callback} =
 "$form->{script}?action=$form->{nextsub}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}";
 


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