oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added Changes to allow start/end times to be set for version tags

Browse source
This commit is contained in:
Frank Dillon 2008-05-31 01:12:38 +00:00
parent b54007ad46
commit 9d7adffefc
1 changed files with 36 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

39
lib/WebGUI/VersionTag.pm
View file

@ -162,6 +162,14 @@ The ID of the group that's allowed to use this tag. Defaults to the turn admin o
The epoch date the tag was committed.
=head4 startTime
The time that this version tag should be committed
=head4 endTime
The time that this version tag should no longer be available.
=head3 creationDate
The epoch date the tag was created.
@ -478,14 +486,39 @@ The ID of the group that's allowed to use this tag. Defaults to the turn admin o
Some text about this version tag, what it's for, why it was committed, why it was denied, why it was approved, etc.
=head4 startTime
The time that a version tag should start displaying on the website
=head4 endTime
The time that a version tag shoudl stop displaying on the website.
=cut
sub set {
my $self = shift;
my $properties = shift;
$self->{_data}{name} = $properties->{name} || $self->{_data}{name} || $self->session->user->username." / ".$self->session->datetime->epochToHuman()." (Autotag)";
$self->{_data}{workflowId} = $properties->{workflowId} || $self->{_data}{workflowId} || $self->session->setting->get("defaultVersionTagWorkflow");
$self->{_data}{groupToUse} = $properties->{groupToUse} || $self->{_data}{groupToUse} || "12";
my $now = $self->session->datetime->time();
my $startTime = WebGUI::DateTime->new($self->session,$now)->toDatabase;
my $endTime = WebGUI::DateTime->new($self->session,'2036-01-01 00:00:00')->toDatabase;
$self->{_data}{'name' } = $properties->{name} || $self->{_data}{name} || $self->session->user->username." / ".$self->session->datetime->epochToHuman()." (Autotag)";
$self->{_data}{'workflowId'} = $properties->{workflowId} || $self->{_data}{workflowId} || $self->session->setting->get("defaultVersionTagWorkflow");
$self->{_data}{'groupToUse'} = $properties->{groupToUse} || $self->{_data}{groupToUse} || "12";
#This is necessary for upgrade prior to 7.5.11 in order to ensure that this field exists.
#The if() blocks should be removd once the next branch point is reached.
my $assetVersionTagDesc = $self->session->db->buildHashRef('describe assetVersionTag');
if(grep { $_ =~ /^startTime/ } keys %{$assetVersionTagDesc}) {
#If startTime is there, so is endTime. No need for the additional check.
$self->{_data}{'startTime' } = $properties->{startTime} || $self->{_data}{startTime} || $startTime;
$self->{_data}{'endTime' } = $properties->{endTime} || $self->{_data}{endTime} || $endTime;
}
else {
$self->session->errorHandler->warn("Didn't find startTime");
}
if (exists $properties->{comments}) {
$self->{_data}{comments}=$self->session->datetime->epochToHuman.' - '.$self->session->user->username
."\n"