# $Id: hr_section.pl,v 1.2 2003/03/04 18:42:20 akosut Exp $
# by Alexei Kosut <akosut@cs.stanford.edu>
#
# Use hr_section="n" to limit output of a template tag to the nth
# section, as delimited by <hr> (or <hr/>).
#
# For example, if an entry excerpt is "red<hr>white<hr>blue", then
# <$MTEntryExcerpt hr_section="1"$> outputs "white"

use MT;
use MT::Template::Context;

use strict;
use warnings;

MT::Template::Context->add_global_filter(hr_section => sub {
    my ($s, $i) = @_;

    my @sections = split(/\s*<hr\s*\/?>\s*/, $s);
    return $sections[$i] || "";
});