add version numbers to all modules

[bse.git] / site / cgi-bin / modules / BSE / Generate / Seminar.pm

package BSE::Generate::Seminar;
use strict;
use base 'Generate::Product';
use BSE::TB::Seminars;
use BSE::Util::HTML;
use BSE::Util::Tags qw(tag_article);
use BSE::Util::Iterate;

our $VERSION = "1.000";

sub baseActs {
  my ($self, $articles, $acts, $seminar, $embedded) = @_;

  unless ($seminar->isa('BSE::TB::Seminar')) {
    $seminar = BSE::TB::Seminars->getByPkey($seminar->{id});
  }
  my $it = BSE::Util::Iterate->new;
  my $location;
  return
    (
     $self->SUPER::baseActs($articles, $acts, $seminar, $embedded),
     seminar => [ \&tag_article, $seminar, $self->{cfg} ],
     admin => [ tag_admin => $self, $seminar, 'seminar', $embedded ],
     $it->make_iterator([ \&iter_sessions, $seminar ], 'session', 'sessions'),
     $it->make_iterator
     ([ \&iter_locations, $seminar ], 'location', 'locations',
      undef, undef, undef, \$location),
     $it->make_iterator
     ([ \&iter_location_sessions, $seminar, \$location ], 'location_session',
      'location_sessions', undef, undef, 'nocache'),
    );
}

sub iter_sessions {
  my ($seminar) = @_;

  $seminar->future_session_info;
}

sub iter_locations {
  my ($seminar) = @_;

  $seminar->future_locations;
}

sub iter_location_sessions {
  my ($seminar, $rlocation) = @_;

  $$rlocation or return;

  $seminar->future_location_sessions($$rlocation);
}

sub get_real_article {
  my ($self, $article) = @_;

  return BSE::TB::Seminars->getByPkey($article->{id});
}

1;