package MusicBrainz::Server::Controller::ISWC;
use Moose;

use MusicBrainz::Server::Constants qw( $EDIT_WORK_REMOVE_ISWC );
use MusicBrainz::Server::Validation qw( format_iswc is_valid_iswc );
use List::UtilsBy qw( sort_by );

BEGIN { extends 'MusicBrainz::Server::Controller'; }

with 'MusicBrainz::Server::Controller::Role::Load' => {
    model => 'ISWC',
};

sub base : Chained('/') PathPart('iswc') CaptureArgs(0) { }

sub _load : Chained('/') PathPart('iswc') CaptureArgs(1)
{
    my ($self, $c, $iswc) = @_;
    $iswc = format_iswc($iswc);
    return unless (is_valid_iswc($iswc));

    my @iswcs = $c->model('ISWC')->find_by_iswc($iswc)
        or return;

    $c->stash(
        iswcs => \@iswcs,
        iswc => $iswc,
    );
}

sub show : Chained('load') PathPart('')
{
    my ($self, $c) = @_;

    my $iswcs = $c->stash->{iswcs};
    my @works = sort_by { $_->name } $c->model('Work')->load(@$iswcs);
    $c->model('WorkType')->load(@works);
    $c->model('Work')->load_writers(@works);
    $c->model('Work')->load_recording_artists(@works);
    $c->model('Language')->load_for_works(@works);
    $c->stash(
        works => \@works,
        template => 'iswc/index.tt',
    );
}

1;

=head1 COPYRIGHT

Copyright (C) 2012 MetaBrainz Foundation

This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

=cut