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

[..hidden..]

Revision: 3616
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3616&view=rev
Author:   einhverfr
Date:     2011-08-03 20:34:13 +0000 (Wed, 03 Aug 2011)

Log Message:
-----------
Error on redirect resolved, on to why files don't list

Modified Paths:
--------------
    trunk/UI/file/attachment_screen.html
    trunk/UI/journal/journal_entry.html
    trunk/scripts/file.pl

Modified: trunk/UI/file/attachment_screen.html
===================================================================
--- trunk/UI/file/attachment_screen.html	2011-08-03 19:27:57 UTC (rev 3615)
+++ trunk/UI/file/attachment_screen.html	2011-08-03 20:34:13 UTC (rev 3616)
@@ -14,6 +14,11 @@
            value = ref_key
             name = "ref_key"
     } ?>
+    <?lsmb INCLUDE input element_data = {
+            type = "hidden"
+           value = callback
+            name = "callback"
+    } ?>
 <div class="listtop" id="title"><?lsmb text('Attach File') ?></div>
 <div class="inputline">
     <div class="inputgroup">

Modified: trunk/UI/journal/journal_entry.html
===================================================================
--- trunk/UI/journal/journal_entry.html	2011-08-03 19:27:57 UTC (rev 3615)
+++ trunk/UI/journal/journal_entry.html	2011-08-03 20:34:13 UTC (rev 3616)
@@ -347,8 +347,9 @@
 </tr>
 <?lsmb END # FOREACH ?>
 </table>
+<?lsmb callback = "gl.pl?action=edit&id=" _ form.id -?>
 <a href="file.pl?action=show_attachment_screen&ref_key=<?lsmb form.id 
-   ?>&file_class=1">[<?lsmb text('Attach') ?>]</a>
+   ?>&file_class=1&callback=<?lsmb tt_url(callback) ?>">[<?lsmb text('Attach') ?>]</a>
 <?lsmb END # IF form.id ?>
 </form>
 </body>

Modified: trunk/scripts/file.pl
===================================================================
--- trunk/scripts/file.pl	2011-08-03 19:27:57 UTC (rev 3615)
+++ trunk/scripts/file.pl	2011-08-03 20:34:13 UTC (rev 3616)
@@ -94,7 +94,7 @@
         $file->content($fdata);
     }
     $file->attach;
-    my $cgi = LedgerSMB::CGI->new;
+    my $cgi = CGI::Simple->new;
     print $cgi->redirect($request->{callback});
 }
 


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