=head1 NAME
EPrints::Plugin::Screen::REF_Support::Circ::View
=cut
package EPrints::Plugin::Screen::REF_Support::Circ::View;
use EPrints::Plugin::Screen::Workflow::View;
use EPrints::Plugin::Screen::REF_Support::Circ;
@ISA = qw(
EPrints::Plugin::Screen::Workflow::View
EPrints::Plugin::Screen::REF_Support::Circ
);
use strict;
sub new
{
my( $class, %params ) = @_;
my $self = $class->SUPER::new(%params);
$self->{icon} = "action_view.png";
$self->{appears} = [
{
place => "ref_support_circ_item_actions",
position => 50,
},
];
$self->{actions} = [qw/ /];
return $self;
}
sub can_be_viewed
{
my( $self ) = @_;
return $self->EPrints::Plugin::Screen::REF_Support::Circ::can_be_viewed;
}
sub render_common_action_buttons
{
my( $self ) = @_;
my $datasetid = $self->{processor}->{dataset}->id;
return $self->render_action_list_bar( ["${datasetid}_view_actions", "dataobj_view_actions"], {
dataset => 'user',
dataobj => $self->{processor}->{dataobj}->get_value( "userid" ),
} );
}
1;
=head1 COPYRIGHT
=for COPYRIGHT BEGIN
Copyright 2000-2011 University of Southampton.
=for COPYRIGHT END
=for LICENSE BEGIN
This file is part of EPrints L.
EPrints is free software: you can redistribute it and/or modify it
under the terms of the GNU Lesser General Public License as published
by the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
EPrints 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 Lesser General Public
License for more details.
You should have received a copy of the GNU Lesser General Public
License along with EPrints. If not, see L.
=for LICENSE END