site/cgi-bin/modules/BSE/Generate/Article.pm
site/cgi-bin/modules/BSE/Generate/Catalog.pm
site/cgi-bin/modules/BSE/Generate/Product.pm
-site/cgi-bin/modules/Generate/Subscription.pm
+site/cgi-bin/modules/BSE/Generate/Subscription.pm
site/cgi-bin/modules/OtherParent.pm
site/cgi-bin/modules/OtherParents.pm
site/cgi-bin/modules/Product.pm
--- /dev/null
+package BSE::Generate::Subscription;
+use strict;
+use vars qw(@ISA);
+use BSE::Generate::Article;
+@ISA = qw(BSE::Generate::Article);
+use BSE::Util::HTML;
+
+our $VERSION = "1.001";
+
+sub set_user {
+ my ($self, $user) = @_;
+
+ $self->{user} = $user;
+}
+
+sub set_sub {
+ my ($self, $sub) = @_;
+
+ #use Data::Dumper;
+ #print STDERR "set sub ",Dumper($sub);
+ $self->{sub} = $sub;
+}
+
+sub tag_ifUser {
+ my ($user, $args) = @_;
+
+ $user or return '';
+ $args or return 1;
+
+ my $value = $user->{$args};
+ defined $value or return '';
+
+ return escape_html($value);
+}
+
+sub baseActs {
+ my ($self, $articles, $acts, $article, $embedded) = @_;
+ return
+ (
+ $self->SUPER::baseActs($articles, $acts, $article, $embedded),
+ ifUser => [ \&tag_ifUser, $self->{user} ],
+ user =>
+ sub {
+ $self->{user} or return '';
+ escape_html($self->{user}{$_[0]});
+ },
+ sub => sub { escape_html($self->{sub}{$_[0]}) },
+ );
+}
+
+sub abs_urls {
+ 1;
+}
+
+sub abs_image_urls {
+ 1;
+}
+
+sub formatter_class {
+ require BSE::Formatter::Subscription;
+ return 'BSE::Formatter::Subscription'
+}
+
+sub image_url {
+ my ($self, $im) = @_;
+
+ $self->{cfg}->entryVar('site', 'url') . $self->SUPER::image_url($im);
+}
+
+1;
+
my $template = $opts->{html_template};
$template = $sub->{html_template} unless defined $template;
$article->{template} = $template;
- $article->{generator} = 'Generate::Subscription';
+ $article->{generator} = 'BSE::Generate::Subscription';
$article->{id} = -5;
$article->{threshold} = $parent->{threshold};
my ($sub, $cfg, $user, $opts, $article) = @_;
my $template = $opts->{text_template} || $sub->{text_template};
- $article->{generator} = 'Generate::Subscription';
+ $article->{generator} = 'BSE::Generate::Subscription';
$article->{id} = -5;
my %acts;
%acts =
my %article;
$sub->_build_article(\%article, $opts);
- require Generate::Subscription;
+ require BSE::Generate::Subscription;
require BSE::DummyArticle;
bless \%article, "BSE::DummyArticle";
- my $gen = Generate::Subscription->new(cfg=>$cfg, top => \%article);
+ my $gen = BSE::Generate::Subscription->new(cfg=>$cfg, top => \%article);
$gen->set_user($user);
$gen->set_sub($sub);
my $gen;
if ($article->{template}) {
#print STDERR "Making generator\n";
- require Generate::Subscription;
- $gen = Generate::Subscription->new(cfg=>$cfg, top=>$article);
+ require BSE::Generate::Subscription;
+ $gen = BSE::Generate::Subscription->new(cfg=>$cfg, top=>$article);
$gen->set_sub($sub);
}
my $from = $cfg->entryIfVar('subscriptions', 'from');
+++ /dev/null
-package Generate::Subscription;
-use strict;
-use vars qw(@ISA);
-use BSE::Generate::Article;
-@ISA = qw(BSE::Generate::Article);
-use BSE::Util::HTML;
-
-our $VERSION = "1.001";
-
-sub set_user {
- my ($self, $user) = @_;
-
- $self->{user} = $user;
-}
-
-sub set_sub {
- my ($self, $sub) = @_;
-
- #use Data::Dumper;
- #print STDERR "set sub ",Dumper($sub);
- $self->{sub} = $sub;
-}
-
-sub tag_ifUser {
- my ($user, $args) = @_;
-
- $user or return '';
- $args or return 1;
-
- my $value = $user->{$args};
- defined $value or return '';
-
- return escape_html($value);
-}
-
-sub baseActs {
- my ($self, $articles, $acts, $article, $embedded) = @_;
- return
- (
- $self->SUPER::baseActs($articles, $acts, $article, $embedded),
- ifUser => [ \&tag_ifUser, $self->{user} ],
- user =>
- sub {
- $self->{user} or return '';
- escape_html($self->{user}{$_[0]});
- },
- sub => sub { escape_html($self->{sub}{$_[0]}) },
- );
-}
-
-sub abs_urls {
- 1;
-}
-
-sub abs_image_urls {
- 1;
-}
-
-sub formatter_class {
- require BSE::Formatter::Subscription;
- return 'BSE::Formatter::Subscription'
-}
-
-sub image_url {
- my ($self, $im) = @_;
-
- $self->{cfg}->entryVar('site', 'url') . $self->SUPER::image_url($im);
-}
-
-1;
-