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

[..hidden..]

Revision: 3677
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3677&view=rev
Author:   einhverfr
Date:     2011-08-20 23:30:45 +0000 (Sat, 20 Aug 2011)

Log Message:
-----------
Correcting a past fix regaring header info, and steps further along the way towards a migration script:

Modified Paths:
--------------
    trunk/LedgerSMB/IS.pm
    trunk/bin/am.pl
    trunk/scripts/setup.pl

Modified: trunk/LedgerSMB/IS.pm
===================================================================
--- trunk/LedgerSMB/IS.pm	2011-08-20 02:35:43 UTC (rev 3676)
+++ trunk/LedgerSMB/IS.pm	2011-08-20 23:30:45 UTC (rev 3677)
@@ -89,10 +89,10 @@
      return if !$form->{id};
      my $file = LedgerSMB::File->new();
      $file->new_dbobject({base => $form, locale => $locale});
-     ..hidden..>{files}} = $file->list({ref_key => $form->{id}, file_class => 1});
-     ..hidden..>{file_links}} = $file->list_links(
-     #             {ref_key => $form->{id}, file_class => 1}
-     #);
+     @{$form->{files}} = $file->list({ref_key => $form->{id}, file_class => 1});
+     @{$form->{file_links}} = $file->list_links(
+                  {ref_key => $form->{id}, file_class => 1}
+     );
 
 }
 

Modified: trunk/bin/am.pl
===================================================================
--- trunk/bin/am.pl	2011-08-20 02:35:43 UTC (rev 3676)
+++ trunk/bin/am.pl	2011-08-20 23:30:45 UTC (rev 3677)
@@ -2746,7 +2746,7 @@
     }
 
     $form->{callback} =
-"am.pl?action=recurring_transactions&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}";
+"am.pl?action=recurring_transactions&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&header=1";
     $form->redirect;
 
 }

Modified: trunk/scripts/setup.pl
===================================================================
--- trunk/scripts/setup.pl	2011-08-20 02:35:43 UTC (rev 3676)
+++ trunk/scripts/setup.pl	2011-08-20 23:30:45 UTC (rev 3677)
@@ -212,6 +212,22 @@
             template => 'form_dynatable',
             format => 'HTML',
     );
+    my $rows = [];
+    my $count = 1;
+    my $hiddens = {};
+    while (my $row = $sth->fetchrow_hashref('NAME_lc')){
+          $row->{$check->{'edit'}} = 
+                    { input => {
+                                name => "$check->{edit}_$roe->{id}",
+                                value => $row->{$check->{'edit'}},
+                                type => 'text',
+                                size => 10,
+                    },
+          };
+          $hiddens->{"id_$count"} = $row->{id},
+    }
+    $hiddens->{count} = $count;
+     # TODO:  Add this template render stuff.
 }
 
 =item create_db


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