package EPrints::Plugin::Screen::REF_Support::REF4::Edit;

use EPrints::Plugin::Screen::Workflow::Edit;

@ISA = qw(
	EPrints::Plugin::Screen::Workflow::Edit
);

use strict;

sub new
{
	my( $class, %params ) = @_;

	my $self = $class->SUPER::new(%params);

	delete $self->{appears};

	$self->{staff} = 0;

	return $self;
}

sub properties_from
{
        my( $self ) = @_;

        my $session = $self->{session};
	$self->{processor}->{return_to} = $session->param( 'return_to' );
	$self->SUPER::properties_from;
}


sub hidden_bits
{
        my( $self ) = @_;

        return(
                $self->SUPER::hidden_bits,
                return_to => $self->{processor}->{return_to}
        );
}

sub view_screen
{
	my( $self ) = @_;
	
	return $self->{processor}->{return_to} if( defined $self->{processor}->{return_to} );
	return $self->SUPER::view_screen;
}

sub action_save
{
        my( $self ) = @_;

        $self->workflow->update_from_form( $self->{processor} );
        $self->uncache_workflow;

        my $return_to = $self->repository->param('return_to');
        if ($return_to)
        {
                $self->{processor}->{screenid} = $return_to;
        }
        else
        {
                $self->{processor}->{screenid} = $self->view_screen;
        }
}

1;