diff --git a/trunk/uploader.pl b/trunk/uploader.pl index e947fb9..7388bc7 100644 --- a/trunk/uploader.pl +++ b/trunk/uploader.pl @@ -26,8 +26,13 @@ if($userid) my $dbh = DBI->connect("DBI:mysql:$database:$host", $dbuser, $dbpass) or die $dbh->errstr; #make new entry for video into the databse - my $sth = $dbh->prepare(qq{insert into uploaded (title, description, userid, timestamp) values ( ?, ?, ?, unix_timestamp())}) or die $dbh->errstr; - $sth->execute($query->param("DC.Title"), $query->param("DC.Description"), $userid) or die $dbh->errstr; + #FIXME: contributor, rights + my $sth = $dbh->prepare(qq{insert into uploaded (title, description, userid, timestamp, + creator, subject, contributor, source, language, coverage, rights) + values ( ?, ?, ?, unix_timestamp(), ?, ?, ?, ?, ?, ?, ? )}) or die $dbh->errstr; + $sth->execute($query->param("DC.Title"), $query->param("DC.Description"), $userid, + $query->param("DC.Creator"), $query->param("DC.Subject"), '', $query->param("DC.Source"), + $query->param("DC.Language"), $query->param("DC.Coverage"), '') or die $dbh->errstr; $sth->finish() or die $dbh->errstr; #get the id of the inserted db entry