[Yapcom checkin] rev 67 - lib/YAPC

[prev] [thread] [next] [lurker] [Date index for 2003/11/26]

Author: jon
Date: 2003-11-26 17:04:24 +0200 (Wed, 26 Nov 2003)
New Revision: 67

Modified:
   lib/YAPC/Talk.pm
Log:


Modified: lib/YAPC/Talk.pm
===================================================================
--- lib/YAPC/Talk.pm	2003-11-26 14:43:21 UTC (rev 66)
+++ lib/YAPC/Talk.pm	2003-11-26 15:04:24 UTC (rev 67)
@@ -20,8 +20,6 @@
 #   delete $args{run};    # was added for CGI::Application
 #   delete $args{submit};    # was added for CGI::Application
 
-    my @valid_args = qw(user_id id title language length abstract other accepted);
-
 #   $args{user_id} = YAPC::Login->get_user_id(cookie => $args{cookie});
 #   delete $args{cookie};
 
@@ -36,7 +34,7 @@
 
     # the form will have comment field and now we use the other field for our purposes
     $args{other} = $args{comment};
-    delete $args{comment};
+#   delete $args{comment};
 
     if (not grep {$args{language} eq $_} @YAPC::Config::proposal_languages) {
        croak("Incorrect language\n");
@@ -46,6 +44,7 @@
        croak("Incorrect length\n");
     }
 
+    my @valid_args = qw(user_id title language length abstract other accepted);
     my %passed_args;
     @passed_args{@valid_args}= @args{@valid_args};
 

• [Yapcom checkin] rev 67 - lib/YAPC svn 17:04 on 26 Nov 2003

Generated at 18:06 on 26 Nov 2003 by mariachi 0.51