implemented referer

git-svn-id: http://yolanda.mister-muffin.de/svn@127 7eef14d0-6ed0-489d-bf55-20463b2d70db

trunk/video.pl

@@ -139,6 +139,18 @@ if($query->param('title') or $query->param('id'))
 				'user'	=> $username
 			};
 		}
+		
+		#get referers
+		$sth = $dbh->prepare(qq{select count, referer from referer where videoid=?});
+		$sth->execute($id);
+		while (my ($count, $referer) = $sth->fetchrow_array())
+		{
+			$referer or $referer = 'no referer (refreshed, manually entered url or bookmark)';
+			push @{ $page->{'referers'}->{'referer'} }, {
+				'count'		=> $count,
+				'referer'	=> $referer
+			};
+		}		
 	}
 	else
 	{

trunk/xsl/xhtml.xsl

@@ -487,6 +487,19 @@
 		</tr>
 	</table>
 	
+	<table class="videometadata">
+		<xsl:for-each select="/page/referers/referer">
+			<tr>
+				<td class="leftcell">
+					<xsl:value-of select="@count" />
+				</td>
+				<td class="rightcell">
+					<xsl:value-of select="@referer" />
+				</td>
+			</tr>
+		</xsl:for-each>
+	</table>
+	
 	<table class="videometadata">
 		<xsl:for-each select="/page/comments/comment">
 			<tr>