Skip to content
Snippets Groups Projects
Commit ad16bd8a authored by Elia Stupka's avatar Elia Stupka
Browse files

Removed stored from the object layer as well

parent 21d739c8
No related branches found
No related tags found
No related merge requests found
......@@ -61,7 +61,7 @@ sub new {
bless $self,$class;
my ($internal_id,$id,$embl_id,$version,$embl_version,$htg_phase,$created,$modified, $stored)=@args;
my ($internal_id,$id,$embl_id,$version,$embl_version,$htg_phase,$created,$modified)=@args;
$self->throw("Don't have a id [$id] for new clone") unless $id;
$self->throw("Don't have a adaptor [$adaptor] for new clone $id") unless $adaptor;
......@@ -80,8 +80,6 @@ sub new {
$self->warn("Don't have a htg phase [$htg_phase] for new clone $id") unless $htg_phase;
#$self->throw("Don't have a created [$created] for new clone") unless $created;
#$self->throw("Don't have a modified [$modified] for new clone") unless $modified;
#$self->throw("Don't have a stored [$stored] for new clone") unless $stored;
$self->adaptor($adaptor);
$self->dbID($internal_id);
......@@ -92,7 +90,6 @@ sub new {
$self->htg_phase($htg_phase);
$self->created($created);
$self->modified($modified);
$self->_stored($stored);
return $self;
}
......@@ -430,29 +427,6 @@ sub version{
}
=head2 _stored
Title : _stored
Usage : $obj->_stored($newval)
Function: Internal method should not really be needed
stores the time of storage of the deleted object
Returns : value of stored
Args : newvalue (optional)
=cut
sub _stored {
my $obj = shift;
if( @_ ) {
my $value = shift;
$obj->{'_stored'} = $value;
}
return $obj->{'_stored'};
}
=head2 embl_version
Title : embl_version
......
......@@ -64,7 +64,7 @@ sub _generic_sql_fetch {
, htg_phase
, UNIX_TIMESTAMP(created)
, UNIX_TIMESTAMP(modified)
, UNIX_TIMESTAMP(stored) FROM clone }
FROM clone }
. $where_clause .
q{ ORDER BY embl_version DESC };
......@@ -379,7 +379,6 @@ sub create_tables {
htg_phase int(10) DEFAULT '-1' NOT NULL,
created datetime NOT NULL,
modified datetime NOT NULL,
stored datetime NOT NULL,
PRIMARY KEY (internal_id),
UNIQUE embl (embl_id,embl_version),
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment