WebSVN – PEEPS – Diff – /trunk/site/view_league.pl

         $actionbutton .= formField ("Cancel", "Back");
+      }
+    }
   } else {
     error ("No Organization ID provided.") unless $ORCUSER->{SYSADMIN};
     print $h->p ("Adding a new League...");
     foreach (@DBFields) {
       $F{$_} = formField ($_);
+    }
-#		$F{$DBFields[0]} = "NEW".$h->input ({ type=>"hidden", name=>$DBFields[0], value=> "NEW" });
+		$F{$DBFields[0]} = "NEW".$h->input ({ type=>"hidden", name=>$DBFields[0], value=> "NEW" });
     $actionbutton = formField ("choice", "Save");
     $actionbutton .= formField ("Cancel");
   my $FTS = shift;
   if ($FTS->{$DBFields[0]} eq "NEW") {
     $dbh->do (
       "INSERT INTO $DBTable (".
-      join (", ", @DBFields)
+      join (", ", grep { $FTS->{$_} } grep { $_ ne $primary } @DBFields)
-      .") VALUES (". join (", ", map { '?' } @DBFields) .")",
+      .") VALUES (". join (", ", map { '?' } grep { $FTS->{$_} } grep { $_ ne $primary } @DBFields) .")",
     	undef,
-    	map { $FTS->{$_} } @DBFields
+    	map { $FTS->{$_} } grep { $FTS->{$_} } grep { $_ ne $primary } @DBFields
-    );
+    ) or warn $dbh->errstr;
-    if (!$FTS->{$primary}) {
+    if ($FTS->{$primary} eq "NEW") {
       ($FTS->{$primary}) = $dbh->selectrow_array ("select max($primary) from $DBTable");
     }
-    logit ($user->{person_id}, "$username edited a league (".join (", ", map { $FTS->{$_} } @DBFields).")");
+    logit ($user->{person_id}, "$username added a league (".join (", ", map { $FTS->{$_} } @DBFields).")");
   } else {
     my $OG = $dbh->selectrow_hashref ("select * from organization where id = ?", undef, $FTS->{$primary});

Subversion Repositories PEEPS

(root)/trunk/site/view_league.pl – Rev 22 → 26