SF.net SVN: net-policy: [4682] trunk/net-policy/perl/QWizard/Generator/Gtk2 .pm

[<har...@us...>]

Revision: 4682
          http://net-policy.svn.sourceforge.net/net-policy/?rev=4682&view=rev
Author:   hardaker
Date:     2007-12-16 14:20:45 -0800 (Sun, 16 Dec 2007)

Log Message:
-----------
save the file name properly

Modified Paths:
--------------
    trunk/net-policy/perl/QWizard/Generator/Gtk2.pm

Modified: trunk/net-policy/perl/QWizard/Generator/Gtk2.pm
===================================================================
--- trunk/net-policy/perl/QWizard/Generator/Gtk2.pm	2007-12-01 19:02:04 UTC (rev 4681)
+++ trunk/net-policy/perl/QWizard/Generator/Gtk2.pm	2007-12-16 22:20:45 UTC (rev 4682)
@@ -957,9 +957,13 @@
 
 			       # open the file to save the data in
 			       my $filename = $but->{'pwidget'}->get_filename();
+			       # save the value
+			       $_[0]->{'generator'}->qwparam($_[0]->{'qwname'},
+							     $filename);
 			       my $fileh = new IO::File;
 			       $fileh->open(">" . $filename);
 
+
 			       # save the question data field
 			       if ($but->{'data'}) {
 				   print $fileh $but->{'data'};


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