#!/usr/bin/perl

use strict;

use OpenDict::WebUtils;
use DBI;

my $DA = new OpenDict::WebUtils(query => '/search',
                                jsprofile => 1,
                                check_login => 1);

my @favs;
my $username = $DA->{session}->param("username");

my $dbh = DBI->connect("dbi:SQLite:dbname=$DA->{root}/TMP/users.db", "", "");
$dbh->{sqlite_unicode} = 1;
my $sth = $dbh->prepare("SELECT word, n FROM fav WHERE username = ? ORDER BY word");
$sth->execute($username);
my @row;
my $count;
while (@row = $sth->fetchrow_array) {
    push @favs, { word => $row[0], n => $row[1] };
    $count++;
}


my $var = { count => $count, favs => \@favs };
$DA->TT->process("favs", $var);

$DA->TT->process('footer');