File Coverage

blib/lib/Labyrinth/Plugin/Articles/Lyrics.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::Lyrics;

use warnings;
use strict;

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

=head1 NAME

Labyrinth::Plugin::Articles::Lyrics - Lyrics plugin for the Labyrinth framework

=head1 DESCRIPTION

Contains all the lyrics handling functionality, as part of the Music Suite of
modules for the Labyrinth web framework.

=head1 DESCRIPTION

Contains all the lyrics handling functionality for Labyrinth.

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

The Lyrics module only contains the basic handling of lyrics. With a future
distribution, the lyrics and/or poems can be grouped into collections, which
can then be attributed as a release, such as an album or book.

=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 lyrics, MP3s, lyrics and discographies.

=cut

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

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

use Labyrinth::Audit;
use Labyrinth::DBUtils;
use Labyrinth::MLUtils;
use Labyrinth::Variables;

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

my $ALLSQL      = 'AllArticles';
my $SECTIONID   = 7;

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

sub List {
    $cgiparams{sectionid}          = $SECTIONID;
    $settings{data}{article_limit} = $settings{lyrics_limit};
    $settings{data}{article_stop}  = $settings{lyrics_stop};
    $settings{data}{order}         = 'title';
    shift->SUPER::List;
}

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

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

sub LyricSelect {
    my ($opt,$blank) = @_;
    my @list = $dbi->GetQuery('hash',$ALLSQL,{where => "WHERE sectionid=$SECTIONID"});
    unshift @list, {articleid=>0,title=>'Select Lyric'} if(defined $blank && $blank == 1);
    DropDownRows($opt,'lyricid','articleid','title',@list);
}

1;

__END__