package EPrints::Plugin::Screen::EPMC::TestNewField; @ISA = ( 'EPrints::Plugin::Screen::EPMC' ); use strict; sub new { my( $class, %params ) = @_; my $self = $class->SUPER::new( %params ); $self->{actions} = [qw( enable disable )]; $self->{disable} = 0; # always enabled, even in lib/plugins $self->{package_name} = "test_new_field"; return $self; } sub action_enable { my( $self, $skip_reload ) = @_; $self->SUPER::action_enable( $skip_reload ); my $db = $self->{repository}->database; EPrints::XML::add_to_xml( $self->_workflow_file, $self->_xml, $self->{package_name} ); $self->reload_config if !$skip_reload; } sub action_disable { my( $self, $skip_reload ) = @_; $self->SUPER::action_disable( $skip_reload ); my $db = $self->{repository}->database; EPrints::XML::remove_package_from_xml( $self->_workflow_file, $self->{package_name} ); $self->reload_config if !$skip_reload; } sub _workflow_file { my ($self) = @_; return $self->{repository}->config( "config_path" )."/workflows/eprint/default.xml"; } sub _xml { my ($self) = @_; return < END } 1;