# Copyright 2002-2010 Interchange Development Group and others
# 
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.  See the LICENSE file for details.

UserTag forum-userlink PosNumber 0
UserTag forum-userlink addAttr
UserTag forum-userlink Version   1.7
UserTag forum-userlink Routine   <<EOR
sub {
my ($row) = @_;
return $row->{name} || $Variable->{FORUM_ANON_NAME} || 'Anonymous Coward'
if $row->{anon} or ! $row->{username};
my $realname = tag_data('userdb', 'handle', $row->{username})
     || tag_data('userdb', 'fname', $row->{username});
return $realname || $row->{username};
}
EOR

UserTag forum Order     top
UserTag forum addAttr 
UserTag forum hasEndTag 
UserTag forum NoReparse 1
UserTag forum Version   1.7
UserTag forum Routine   <<EOR
my @uls;
my $lastlevel;

sub {
my ($id, $opt, $tpl) = @_;

if(! $id) {
  $id = '0';
}

my $forum_header;
my $forum_footer;
my $forum_link;
my $forum_scrub;

$tpl ||= '';
$tpl =~ s{\[forum[-_]header\](.*)\[/forum[-_]header\]}{}is
  and $forum_header = $1;
$tpl =~ s{\[forum[-_]footer\](.*)\[/forum[-_]footer\]}{}is
  and $forum_footer = $1;
$tpl =~ s{\[forum[-_]link\](.*)\[/forum[-_]link\]}{}is
  and $forum_link = $1;
$tpl =~ s{\[forum[-_]scrub\](.*)\[/forum[-_]scrub\]}{}is
  and $forum_scrub = $1;

$forum_header ||= $opt->{header_template} || <<EOF;
<table>
<tr>
<td class=contentbar1>
  <b>{SUBJECT}</b>
  by <b>{USERINFO}</b>
  on {DATE}
</td>
</tr>
<tr>
<td>
  {COMMENT}
</td>
</tr>
{ADDITIONAL?}
<tr>
<td>
  {ADDITIONAL}
</td>
</tr>
{/ADDITIONAL?}
<tr>
  <td>
   &#91; 
    {TOP_URL?}<A HREF="{TOP_URL}">Top</A> |{/TOP_URL?}
    {PARENT_URL?}<A HREF="{PARENT_URL}">Parent</A> |{/PARENT_URL?}
    <A HREF="{REPLY_URL}">Reply</A>
   &#93; 
  </td>
</tr>
</table>
<hr>
EOF

 $forum_link ||= $opt->{link_template} || <<EOF;
<A HREF="{DISPLAY_URL}">{SUBJECT}</a> by {USERINFO} on {DATE}
EOF

 $opt->{threshold_message} ||= errmsg("Message below your threshold");
 $forum_scrub ||= $opt->{scrub_template} || <<EOF;
<A HREF="{DISPLAY_URL}">$opt->{threshold_message}</a>
EOF

$tpl ||= $opt->{template} || <<EOF;
<table cellspacing=0 cellpadding=2>
<tr>
<td class=contentbar1>
  <A HREF="{DISPLAY_URL}"><b>{SUBJECT}</b></A>
  by <b>{USERINFO}</b>
  on {DATE}
</td>
<td class=contentbar1 align=right>
  <small>&#91; <A HREF="{REPLY_URL}"><b>Reply</b></A> &#93;</font></small>
</td>
</tr>
<tr>
<td colspan=2>
{COMMENT}
<!--
  prior to UL: {MSG1}
  prior to /UL: {MSG2}
  prior to END: {MSG3}
-->
</td>
</tr>
</table>
EOF

$forum_footer ||= <<EOF;
<!-- end of forum -->
EOF

my $lastlevel = 0;
my @uls;

my $Tag = new Vend::Tags;
my $row = shift;

$opt->{reply_page} ||= 'forum/reply';
$opt->{submit_page} ||= 'forum/submit';
$opt->{display_page} ||= $Global::Variable->{MV_PAGE};
$opt->{date_format} ||= '%B %e, %Y @%H:%M';
my $menu_row = sub {
shift;
my $row = shift;
  $row->{reply_url} = $Tag->area({
                  href => $opt->{reply_page},
                  arg => $row->{code},
                });
  if($row->{code} ne $row->{artid}) {
    $row->{top_url} = $Tag->area( {
                  href => $opt->{display_page},
                  arg => $row->{artid},
                });
  }
  if($row->{parent}) {
    $row->{parent_url} = $Tag->area( {
                  href => $opt->{display_page},
                  arg => $row->{parent},
                });
  }
  $row->{display_url} = $Tag->area({
                href => $opt->{display_page},
                arg => $row->{code},
                });
  $row->{userinfo} = $Tag->forum_userlink($row);
  $row->{date} = $Tag->convert_date({
                  fmt => $opt->{date_format},
                  body => $row->{created},
                });
  my $lev = $row->{mv_level};
  my $children = $row->{mv_children};
  my $last = $row->{mv_last};
  my $pre = '';
  my $post = '';
  my $num_uls = scalar(@uls);
  $row->{msg1} = "lastlevel=$lastlevel lev=$lev children=$children uls=$num_uls";
  if(! $lev) {
    $pre .= join "", splice (@uls);
  }
  elsif ($lastlevel < $lev) {
    $lastlevel = $lev;
  }
  elsif ($lastlevel > $lev) {
    $lastlevel = $lev;
    $pre .= join "", splice (@uls,$lev);
  }
  if($children) {
    push @uls, '</ul>';
  }
  $num_uls = scalar(@uls);
  $row->{msg2} = "lastlevel=$lastlevel lev=$lev children=$children uls=$num_uls";
  if($children) {
    $post .= '<ul>';
  }
  elsif($last) {
    $post .= join "", splice (@uls, $lev);
  }
  $num_uls = scalar(@uls);
  $row->{msg3} = "lastlevel=$lastlevel lev=$lev children=$children uls=$num_uls";
  $row->{forum_prepend} = $pre;
  $row->{forum_append} = $post;
  return $row;
};

my $fdb = database_exists_ref('forum')
  or die "No forum DB!";

my $record = $fdb->row_hash($id);
return undef unless $record;

$menu_row->(undef, $record);
my @out;

$opt->{full} = 1 if ! defined $opt->{full};

push @out, $Tag->uc_attr_list($record, $forum_header);

my %o = (
  table      => 'forum',
  start      => $id,
  master    => 'parent',
  subordinate  => 'code',
  full      => $opt->{full},
  sort      => $opt->{sort} || 'code',
  spacer    => "&nbsp;",
  autodetect  => 1,
  iterator    => $menu_row,
  spacing    => 4,
);

$Tag->tree(\%o);

my $rows = $o{object}{mv_results};
$opt->{scrub_score} ||= 0;
$opt->{show_score} ||= 1;
if(! defined $opt->{show_level}) {
  if($record->{code} == $record->{artid}) {
    $opt->{show_level} = 0;
  }
  else {
    $opt->{show_level} = 2;
  }
}

for(\$tpl, \$forum_link, \$forum_scrub) {
  $$_ = "{FORUM_PREPEND}$$_" unless $$_ =~ /\{FORUM_PREPEND\}/;
  $$_ .= '{FORUM_APPEND}' unless $$_ =~ /\{FORUM_APPEND\}/;
}

for my $record (@$rows) {

  my $this_tpl;
  if($record->{score} <= $opt->{scrub_score}) {
    $this_tpl = $forum_scrub;
  }
  elsif($record->{score} >= $opt->{show_score}) {
    $this_tpl = $tpl;
  }
  elsif($record->{mv_level} <= $opt->{show_level}) {
    $this_tpl = $tpl;
  }
  else {
    $this_tpl = $forum_link;
  }
  push @out, $Tag->uc_attr_list($record, $this_tpl);
}
push @out, join "", @uls;
push @out, $Tag->uc_attr_list($opt, $forum_footer);
return join "\n", @out;
}
EOR