Methodology.pm

=head1 NAME

Tuba::Activity : Controller class for books

=cut

package Tuba::Activity;
use Mojo::Base qw/Tuba::Controller/;
use Tuba::DB::Objects qw/-nicknames/;

sub list {
    my $c = shift;
    $c->SUPER::list(@_);
}

sub show {
    my $c = shift;
    $c->stash('object', $c->_this_object);
    $c->SUPER::show(@_);
}

sub normalize_form_parameter {
    my $c = shift;
    my %args = @_;
    my ($column, $value) = @args{qw/column value/};
    my $obj;
    for ($column) {
        /^methodology_publication_id$/ and $obj = $c->str_to_obj($value);
        /^output_publication_id$/ and $obj = $c->str_to_obj($value);
    }
    if ($obj) {
        my $pub = $obj->get_publication(autocreate => 1);
        $pub->save(audit_user => $c->audit_user, audit_note => $c->audit_note) unless $pub->id;
        return $pub->id;
    }
    return $value;
}

sub _default_order {
    my $c = shift;
    return ( $c->SUPER::_default_order(), qw/methodology_publication_id methodology_contributor_id/ );

}

sub update_rel_form {
    my $c = shift;
    $c->stash(relationships => [qw/methodologies/]);
    return $c->SUPER::update_rel_form(@_);
}

sub _default_rel_controls  {
    my $c = shift;
    return ($c->SUPER::_default_controls(@_),
        methodologies => sub {
            my $c = shift;
            { template => 'publications', params => { method => 'methodologies' } }
        },
    );
}

sub update_rel {
    my $c = shift;
    my $activity = $c->_this_object;
    $c->stash(tab => 'update_rel_for');

    # TODO handle JSON

    if (my $new = $c->param('new_publication')) {
        my $obj = $c->str_to_obj($new);
        my $pub = $obj->get_publication(autocreate => 1);
        $pub->save(audit_user => $c->audit_user, audit_note => $c->audit_note) unless $pub->id;
        my $methodology = Methodology->new(
            activity_identifier => $activity->identifier,
            publication_id => $pub->id
        );
        $methodology->save(audit_user => $c->audit_user, audit_note => $c->audit_note)
            or return $c->update_error($methodology->error);
    }
    for my $id ($c->param('delete_publication')) {
        next unless $id;
        Methodology->delete_objects(
            where => [{activity_identifier => $activity->identifier, publication_id => $id}],
            audit_user => $c->audit_user, audit_note => $c->audit_note);
        $c->flash(message => 'Saved changes');
    }

    $c->respond_to(
        json => sub {
            shift->render(json => { status => 'ok' })
        },
        html => sub {
            return shift->redirect_without_error('update_rel_form');
        },
    );
}

1;