File Coverage

blib/lib/Labyrinth/Plugin/Articles/Profiles.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

package Labyrinth::Plugin::Articles::Profiles;

use warnings;
use strict;

use vars qw($VERSION);
$VERSION = '1.02';

=head1 NAME

Labyrinth::Plugin::Articles::Profiles - Profiles plugin for Labyrinth framework

=head1 DESCRIPTION

Contains all the profile handling functionality for Labyrinth.

This module forms part 1 of the Music Suite of modules for the Labyrinth
framework.

The Profiles module only contains the basic handling of profiles currently. The
intention is to expand the stored data to include years active, in order to
create a Rock Family Tree style output, and example of which is included within
the distribution.

=head1 THE MUSIC SUITE

The Music Suite are a collection of modules, which can be used separately or
collectively, to help implement music related websites. These include modules
for managing band member profiles, MP3s, lyrics and discographies.

=cut

# -------------------------------------
# Library Modules

use base qw(Labyrinth::Plugin::Articles);

use Labyrinth::Audit;
use Labyrinth::Variables;

# -------------------------------------
# Variables

use vars qw($ALLSQL $SECTIONID);

$ALLSQL     = 'AllArticles';
$SECTIONID  = 5;

# -------------------------------------
# Public Methods

sub List {
    $cgiparams{sectionid} = $SECTIONID;
    shift->SUPER::List;
    $tvars{profiles} = $tvars{mainarts};
}

sub Item {
    shift->SUPER::Item;
    $tvars{who} = $tvars{articles}->{$tvars{primary}};
}

# -------------------------------------
# Admin Methods

sub Admin {
    $cgiparams{sectionid} = $SECTIONID;
    shift->SUPER::Admin;
}

sub Edit {
    shift->SUPER::Edit;
    $tvars{who} = $tvars{articles}->{$tvars{primary}};
}

1;

__END__