- add: Move revisions from one version tag to another

- add: Delete multiple revisions from a version tag at the same time
 - add: Approval activities now have a better parent class and more 
        flexibility (multiple groups to approve, do on approve)
 - fix: weirdness in upgrade file
This commit is contained in:
Doug Bell 2008-05-20 03:10:50 +00:00
parent ca9278190e
commit ab0b1b2200
10 changed files with 640 additions and 198 deletions

View file

@ -125,9 +125,12 @@ sub commit {
#-------------------------------------------------------------------
=head2 get ( name )
=head2 get ( [ name ] )
Returns the value for a given property. An incomplete list of properties is below:
Returns the value for a given property. If C<name> is not specified, returns
all the properties.
An incomplete list of properties is below:
=head3 name
@ -170,9 +173,15 @@ Some text about this version tag, what it's for, why it was committed, why it wa
=cut
sub get {
my $self = shift;
my $name = shift;
return $self->{_data}{$name};
my $self = shift;
my $name = shift;
if ( $name ) {
return $self->{_data}{$name};
}
else {
return \%{ $self->{_data} },
}
}
#-------------------------------------------------------------------