diff --git a/trunk/download.pl b/trunk/download.pl index 4592f5d..37186a7 100644 --- a/trunk/download.pl +++ b/trunk/download.pl @@ -2,7 +2,10 @@ require "include.pl"; require "functions.pl"; +#initialize session data +CGI::Session->name($session_name); $query = new CGI; +$session = new CGI::Session; #do we have an id? if($query->param('id')) diff --git a/trunk/search.pl b/trunk/search.pl index ae583bc..275da7e 100644 --- a/trunk/search.pl +++ b/trunk/search.pl @@ -105,9 +105,10 @@ elsif($query->param('sort')) { 'cc:Work' => { - 'rdf:about' => "./video.pl?title=$title&id=$id", + 'rdf:about' => "$domain/download/$id", 'dc:title' => [$title], 'dc:date' => [$timestamp], + 'dc:identifier' => ["$domain/video/$title/$id"], 'dc:publisher' => [$username] }, 'cc:License' => diff --git a/trunk/video.pl b/trunk/video.pl index da577ba..463797f 100644 --- a/trunk/video.pl +++ b/trunk/video.pl @@ -216,9 +216,7 @@ if($query->url_param('title') or $query->url_param('id')) print XMLout($page, KeyAttr => {}, XMLDecl => $XMLDecl, RootName => 'page', AttrIndent => 1); } else -{ foreach $key (sort keys(%ENV)) { - print "$key = $ENV{$key}

"; - } +{ %page = (); #if a username is associated with session id, username is nonempty diff --git a/trunk/xsl/xhtml.xsl b/trunk/xsl/xhtml.xsl index b807acc..bdcacdd 100755 --- a/trunk/xsl/xhtml.xsl +++ b/trunk/xsl/xhtml.xsl @@ -293,7 +293,7 @@ - + @@ -324,16 +324,24 @@ + + + + + + - + + + + +