From 4484b8028cab08638f282426fceaf0d8da0a6ad2 Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem.moulin@ens-lyon.org>
Date: Sat, 14 Jan 2012 14:24:16 +0100
Subject: bug

---
 videoadd.pl | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/videoadd.pl b/videoadd.pl
index fb978ad..eed8b86 100755
--- a/videoadd.pl
+++ b/videoadd.pl
@@ -208,21 +208,23 @@ if ( defined($file) ) {
 unless ( defined $ignoredb_flag ) {
     my $INSERT = "INSERT INTO $config{videodata}
                   SET mediatype = 14";
-    if (defined $config{filedate}) {
-        $INSERT .= ", FROM_UNIXTIME($config{filedate})";
-        delete $config{filedate};
+    if (defined $new{filedate}) {
+        $INSERT .= ", FROM_UNIXTIME($new{filedate})";
+        delete $new{filedate};
     }
 
     while (my ($k,$v) = each %new) {
         $INSERT .= ", " .$k. " = " .$dbh->quote ($v);
     }
 #    $dbh->do($INSERT) or die "Can't insert: $!\n";
+    print $INSERT, "\n";
     
     my $ids = $dbh->selectall_arrayref ( "SELECT id FROM $config{videodata}
                                           WHERE filename = ? ",
                                          undef, $new{filename} );
     if ($#$ids == 0) {
-        print LOG $config{url}, "/show.php?id=", $ids->[0]->[0], "\n"
+        print LOG "See the result there: ",
+                  $config{url}, "/show.php?id=", $ids->[0]->[0], "\n"
             or die "Can't print: $!";
     }
     else {
-- 
cgit v1.2.3