SF.net SVN: ledger-smb:[2791] addons/1.3/templatetrans/trunk/scripts/ transtemplate.pl

[..hidden..]

Revision: 2791
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2791&view=rev
Author:   einhverfr
Date:     2009-11-10 21:00:46 +0000 (Tue, 10 Nov 2009)

Log Message:
-----------
One more minor fix (for safety's sake) on templatetrans.

Modified Paths:
--------------
    addons/1.3/templatetrans/trunk/scripts/transtemplate.pl

Modified: addons/1.3/templatetrans/trunk/scripts/transtemplate.pl
===================================================================
--- addons/1.3/templatetrans/trunk/scripts/transtemplate.pl	2009-11-10 19:38:10 UTC (rev 2790)
+++ addons/1.3/templatetrans/trunk/scripts/transtemplate.pl	2009-11-10 21:00:46 UTC (rev 2791)
@@ -13,7 +13,7 @@
         ar         => {script => 'bin/ar.pl', function => sub {update()}},
         gl         => {script => 'bin/gl.pl', function => sub {update()}},
     };
-
+  
     our $form = new Form;
     $form->{dbh} = $request->{dbh};
     our $locale = $request->{_locale};
@@ -26,6 +26,7 @@
     my $script = $template_dispatch->{$request->{entry_type}}->{script};
     $form->{script} = $script;
     $form->{script} =~ s/(bin|scripts)\///;
+    delete $form->{id};
     if ($script =~ /^bin/){
 	# I hate this old code!
         {


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