site/templates/tellafriend/email_html.tmpl
site/templates/test/children.tmpl
site/templates/test/testrep.tmpl
+site/templates/test/title.tmpl
site/templates/textemail/basic.tmpl
site/templates/user/admin_book_seminar.tmpl
site/templates/user/admin_edit_seminar.tmpl
=cut
-our $VERSION = "1.026";
+our $VERSION = "1.027";
my $excerptSize = 300;
sub vembed {
- my ($self, $article, $template) = @_;
+ my ($self, $article, $template, $maxdepth) = @_;
- return $self->embed($article, "BSE::TB::Articles", $template);
+ $maxdepth = $self->{maxdepth}
+ if !$maxdepth || $maxdepth > $self->{maxdepth};
+
+ return $self->_embed_low($article, "BSE::TB::Articles", $template, $maxdepth);
}
sub iter_kids_of {
--- /dev/null
+<:= article.title :>
\ No newline at end of file
#!perl -w
use strict;
use BSE::Test ();
-use Test::More tests=>83;
+use Test::More tests=>86;
use File::Spec;
use FindBin;
BEGIN {
Test catalog
EXPECTED
+template_test "vembed", $prods[0], <<TEMPLATE, <<EXPECTED;
+<:= generator.vembed(article.parent, "test/title.tmpl") |raw:>
+TEMPLATE
+Test catalog
+EXPECTED
+
BSE::Admin::StepParents->del($parent, $stepkid);
BSE::Admin::StepParents->del($parent, $stepprod);
for my $kid (reverse @prods, $stepprod) {