#!/usr/bin/perl -w


use strict;
use lib '../';
use vars '%I';
use imcSlash;

*I = getimcSlashConf ();
getimcSlash ();

header ("Puntuaciones", "puntuaciones");

if ($I{F}{type} eq 'story') {
	if ($I{F}{sid}) {
		my ($title) = sqlSelect ('title', 'stories', "sid='$I{F}{sid}'");
		my ($rating) = sqlSelect ('rating', 'story_ratings', "sid='$I{F}{sid}'");
		
		titlebar ('100%', "Puntuaciones para la historia <A HREF=\"/article.pl?sid=$I{F}{sid}&mode=thread\">\"$title\"</A> (Puntuación: $rating)");

		my $ratings = sqlSelectMany ('uid,rating,comment', 'individual_story_ratings', "sid='$I{F}{sid}'");
		if ($ratings) {
			print <<EOT;
<BR><TABLE WIDTH="100%" BORDER="0" CELLSPACING="5" CELLPADDING="0">
  <TR>
EOT

	if ($I{U}{aseclev} > 99) {
	print "<TH>Moderador</TH>";
	}
			print <<EOT;	
    <TH>Puntuación&nbsp;&nbsp;</TH>
    <TH>Comentario</TH>
  </TR>
EOT
			while (my ($uid, $rating, $comment) = $ratings->fetchrow) {
				my ($nickname) = sqlSelect ('nickname', 'users', "uid=$uid");
				my ($realname) = sqlSelect ('realname', 'users_info', "uid=$uid");
#				$realname = 'Anónimo' unless $realname;
				$realname = "$nickname ($uid)";
			print "<TR>";

	if ($I{U}{aseclev} > 99) { 
	print "<TD VALIGN=\"TOP\"><A HREF=\"/ratings.pl?type=story&uid=$uid\">$realname</A></TD>";
}

	print <<EOT;
    <TD VALIGN="TOP" width="35%" align="center">$rating</TD>
    <TD VALIGN="TOP" width="45%">$comment</TD>
  </TR>

EOT
			}
			print "</TABLE>";
		} else {
			print "No hay puntuaciones.";
		}
	} elsif ($I{F}{uid} && $I{U}{aseclev} > 99) {
		my ($nickname) = sqlSelect ('nickname', 'users', "uid=$I{F}{uid}");
		my ($realname) = sqlSelect ('realname', 'users_info', "uid=$I{F}{uid}");
#		$realname = 'Anónimo' unless $realname;
		$realname .= " (\#$I{F}{uid}: $nickname)";
		titlebar ('100%', "Puntuaciones de $nickname");

		my $ratings = sqlSelectMany ('sid,rating,comment', 'individual_story_ratings', "uid=$I{F}{uid}");
		if ($ratings) {
			print <<EOT;
<BR><TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
  <TR>
    <TH>Titulo de la historia</TH>
    <TH>Puntuación</TH>
    <TH>Comentario</TH>
  </TR>
EOT
			while (my ($sid, $rating, $comment) = $ratings->fetchrow) {
				my ($title) = sqlSelect ('title', 'stories', "sid='$sid'");
			print <<EOT;
  <TR>
    <TD VALIGN="TOP"><A HREF="/ratings.pl?type=story&sid=$sid">$title</A></TD>
    <TD VALIGN="TOP">$rating</TD>
    <TD VALIGN="TOP">$comment</TD>
  </TR>
EOT
			}
			print "</TABLE>";
		} else {
			print "No hay puntuaciones.";
		}
	}
} elsif ($I{F}{type} eq 'comment') {
	if ($I{F}{cid}) {
		my ($subject) = sqlSelect ('subject', 'comments', "sid='$I{F}{sid}' and cid='$I{F}{cid}'");
		my ($rating) = sqlSelect ('rating', 'comment_ratings', "sid='$I{F}{sid}' and cid='$I{F}{cid}'");
		titlebar ('100%', "Puntuaciones del comentario: \"$subject\" (Promedio: $rating)");

		my $ratings = sqlSelectMany ('uid,rating,comment', 'individual_comment_ratings', "sid='$I{F}{sid}' and cid=$I{F}{cid}");
		if ($ratings) {
			print <<EOT;
<BR><TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
  <TR>
    <TH>&nbsp;Puntuación&nbsp;&nbsp;&nbsp;&nbsp;</TH>
    <TH>Comentario</TH>
  </TR>
EOT
			while (my ($uid, $rating, $comment) = $ratings->fetchrow) {
				my ($nickname) = sqlSelect ('nickname', 'users', "uid=$uid");
#				my ($realname) = sqlSelect ('realname', 'users_info', "uid=$uid");
#				$realname = 'Anónimo' unless $realname;
#				$realname .= " (\#$uid: $nickname)";
			print <<EOT;
  <TR>
    <TD VALIGN="TOP"><center>$rating</center></TD>
    <TD VALIGN="TOP">$comment</TD>
  </TR>
EOT
			}
			print "</TABLE>";
		} else {
			print "No hay puntuaciones.";
		}
	} elsif ($I{F}{uid}) {
		my ($nickname) = sqlSelect ('nickname', 'users', "uid=$I{F}{uid}");
#		my ($realname) = sqlSelect ('realname', 'users_info', "uid=$I{F}{uid}");
#		$realname = 'Anonimo' unless $realname;
#		$realname .= " (\#$I{F}{uid}: $nickname)";
		titlebar ('100%', "Puntuaciones de $nickname");

		my $ratings = sqlSelectMany ('sid,cid,rating,comment', 'individual_comment_ratings', "uid=$I{F}{uid}");
		if ($ratings) {
			print <<EOT;
<BR><TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
  <TR>
    <TH>Título de la Historia</TH>
    <TH>Comentario</TH>
    <TH>Puntuación</TH>
    <TH>Comentario</TH>
  </TR>
EOT
			while (my ($sid, $cid, $rating, $comment) = $ratings->fetchrow) {
				my ($title) = sqlSelect ('title', 'stories', "sid='$sid'");
				my ($subject) = sqlSelect ('subject', 'comments', "sid='$sid' and cid='$cid'");
			print <<EOT;
  <TR>
    <TD VALIGN="TOP"><A HREF="/ratings.pl?type=story&sid=$sid">$title</A></TD>
    <TD VALIGN="TOP"><A HREF="/ratings.pl?type=comment&sid=$sid&cid=$cid">$subject</A></TD>
    <TD VALIGN="TOP">$rating</TD>
    <TD VALIGN="TOP">$comment</TD>
  </TR>
EOT
			}
			print "</TABLE>";
		} else {
			print "No hay puntuaciones.";
		}
	}
}

footer ();