LiveJournal Moods
head<=
<=head
body<=
. You can always enter your own, but these are the ones that can have pictures associated with them and can be searched on, etc. You're encouraged to use these if possible. p?>modify journal page and select your preferred icon set. p?>";
};
# Get a list of all possible moods
my $moods = LJ::get_moods();
my @mlist = ();
my %lists = {};
foreach (sort { $moods->{$a}->{'name'} cmp $moods->{$b}->{'name'} } keys %$moods) {
my $m = $moods->{$_};
push @mlist, $m;
}
# FIXME: cache this. it's small.
$sth = $dbr->prepare("SELECT moodthemeid, name, is_public FROM moodthemes WHERE is_public='Y'");
$sth->execute;
my @themes = ();
push @themes, $_ while $_ = $sth->fetchrow_hashref;
@themes = sort { lc($a->{name}) cmp lc($b->{name}) } @themes;
my @user_themes;
# Determine the action depending on the GET arguments, or lack thereof
if (defined $GET{'moodtheme'}) {
$ret .= BML::ml('Backlink', {
'link'=>'/moodlist.bml',
'text'=>'Mood Themes',
}). "
";
$add_header->();
my $remote = LJ::get_remote();
# Check if the user is logged in and didn't specify an owner. If so append their private mood themes
my $sth;
if ($remote && ! $GET{'ownerid'}) {
# FIXME: cache this. it's small.
$sth = $dbr->prepare("SELECT moodthemeid, name, is_public FROM moodthemes WHERE ownerid=?");
$sth->execute($remote->{userid});
@user_themes = ();
push @user_themes, $_ while $_ = $sth->fetchrow_hashref;
} elsif ($GET{'ownerid'}) {
# FIXME: cache this. it's small.
$sth = $dbr->prepare("SELECT moodthemeid, name, is_public FROM moodthemes WHERE ownerid=? AND moodthemeid=?");
$sth->execute($GET{'ownerid'}, $GET{'moodtheme'});
@user_themes = ();
push @user_themes, $_ while $_ = $sth->fetchrow_hashref;
}
# Sort the user themes
@user_themes = sort { lc($a->{name}) cmp lc($b->{name}) } @user_themes;
# See if the user can even view this theme
my $theme = (grep { $_->{moodthemeid} == $GET{moodtheme} } (@themes, @user_themes))[0];
if (! $theme) {
# It isn't theirs, or they aren't logged in, and it isn't public and it actually exists
return LJ::bad_input("You only have permission to view public mood themes or user themes with an ownerid parameter.");
} elsif ( defined $GET{mode} && $GET{mode} == 'tree') {
if ($GET{'ownerid'}) {
$ret .= "";
$ret .= LJ::ehtml(@user_themes[0]->{name}) . ' - ';
$ret .= LJ::ljuser(LJ::get_username($GET{'ownerid'}));
$ret .= "
";
} else {
my @opts = ((map {$_->{moodthemeid}, $_->{name}} @themes),
(@user_themes ? (0, "---") : ()),
(map {$_->{moodthemeid}, $_->{name}} @user_themes));
$ret .= "";
}
$ret .= "\n";
foreach (sort { $moods->{$a}->{'name'} cmp $moods->{$b}->{'name'} } keys %$moods) {
my $m = $moods->{$_};
push @{$lists{$m->{'parent'}}}, $m;
}
do_mood_tree(0);
} else {
do_theme_detail($GET{'moodtheme'});
}
} else {
$add_header->();
do_mood_list();
}
return $ret;
sub do_mood_list
{
# Setup the paging bar
my $perpage = 15;
my $start;
my $self_link;
my %items = BML::paging(\@themes, $GET{'page'} || 1, $perpage);
my $navbar = LJ::paging_bar($items{'page'}, $items{'pages'}, { 'self_link' => $self_link });
if ($items{'page'} == 1) {
$start = 0;
} else {
$start = ($items{'page'} - 1) * $perpage;
}
my @show_themes = splice (@themes, $start, $perpage);
# See if the user changed the shown moods
my @show_moods;
if($GET{'theme1'} && $GET{'theme2'} &&$ GET{'theme3'} && $GET{'theme4'}) {
@show_moods = ($GET{'theme1'}, $GET{'theme2'}, $GET{'theme3'}, $GET{'theme4'});
} else {
@show_moods = ('happy', 'sad', 'angry', 'tired');
}
$ret .= "
";
}
sub do_theme_detail
{
my ($themeid) = @_;
$ret .= "
| ";
if ($GET{'ownerid'}) {
$ret .= " ";
$ret .= LJ::ehtml(@user_themes[0]->{name}) . ' - ';
$ret .= LJ::ljuser(LJ::get_username($GET{'ownerid'}));
$ret .= " |
";
} else {
my @opts = ((map {$_->{moodthemeid}, $_->{name}} @themes),
(@user_themes ? (0, "---") : ()),
(map {$_->{moodthemeid}, $_->{name}} @user_themes));
$ret .= "";
}
# Output all the moods
while (@mlist) {
$ret .= "";
# Show five moods in a row
for (my $i = 0; $i < 5; $i++) {
my $m = shift @mlist;
my $mood = $m->{name};
my %pic;
if (LJ::get_mood_picture($themeid, $m->{id}, \%pic)) {
$ret .= "" .
"![$m->{name}](\"$pic{'pic'}\") " .
"
$mood
| ";
} else {
$ret .= "" .
"$mood" .
"
| ";
}
}
$ret .= "
";
}
$ret .= "
";
}
sub do_mood_tree
{
my $num = shift;
return unless $lists{$num};
$ret .= "\n";
foreach my $mood (@{$lists{$num}}) {
$ret .= "- {'name'}\" target='dict'>$mood->{'name'} (#$mood->{'id'})
\n";
my %pic;
if (LJ::get_mood_picture($GET{moodtheme}, $mood->{'id'}, \%pic)) {
unless ($GET{'hidederived'} && $pic{'moodid'} != $mood->{'id'}) {
$ret .= "\n";
}
if ($GET{'details'} && ($pic{'moodid'} != $mood->{'id'})) {
$ret .= " (from parent)";
}
} else {
if ($GET{'details'}) {
$ret .= "(no pic for theme \#$GET{moodtheme})";
}
}
do_mood_tree($mood->{'id'});
}
$ret .= "
\n";
}
}
_code?>
<=body
page?>
form: htdocs/moodlist.bml
link: htdocs/modify.bml
_c?>