From 5c8958484b50834b6464e454a732a4cc8d0e53cd Mon Sep 17 00:00:00 2001
From: josch <josch@7eef14d0-6ed0-489d-bf55-20463b2d70db>
Date: Sun, 21 Oct 2007 19:17:36 +0000
Subject: [PATCH] added additional dc elements

git-svn-id: http://yolanda.mister-muffin.de/svn@111 7eef14d0-6ed0-489d-bf55-20463b2d70db
---
 trunk/uploader.pl | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

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