bin/populate-lang-table: Store description with new language.

Stupid bug fix.

diff --git a/bin/populate-lang-table b/bin/populate-lang-table
index 912aaf6bab9d5602d3fe91f252357765c20aeae6..a5b6beeaf61e7d6cea764c41813cfdda9bd93346 100755 (executable)
--- a/bin/populate-lang-table
+++ b/bin/populate-lang-table
@@ -28,8 +28,8 @@ Odin::xact {
   for my $lang (keys %newlang) {
     if (!exists $oldlang{$lang}) {
       print ";; insert new language `$lang' (`$newlang{$lang}')\n";
   for my $lang (keys %newlang) {
     if (!exists $oldlang{$lang}) {
       print ";; insert new language `$lang' (`$newlang{$lang}')\n";

-      $db->do("INSERT INTO odin_pastebin_lang (lang) VALUES (?)",
-             undef, $lang);
+      $db->do("INSERT INTO odin_pastebin_lang (lang, descr) VALUES (?, ?)",
+             undef, $lang, $newlang{$lang});

     } elsif ($oldlang{$lang} ne $newlang{$lang}) {
       print ";; change description for `$lang' ",
        "(`$oldlang{$lang}' -> `$newlang{$lang}')\n";
     } elsif ($oldlang{$lang} ne $newlang{$lang}) {
       print ";; change description for `$lang' ",
        "(`$oldlang{$lang}' -> `$newlang{$lang}')\n";