BioMart::Configuration
AttributeGroup
Toolbar
Summary
BioMart::Configuration::AttributeGroup
Package variables
No package variables defined.
Inherit
Synopsis
Holds a List of BioMart::AttributeCollection objects.
Description
Object to further define the Attributes available to the User Interface by
a Dataset. Holds a list of one or more BioMart::AttributeCollection objects.
Methods
Methods description
Usage : usage Description: Description Returntype : Exceptions : none Caller : caller |
Usage : Arg [1] - (optional) string $description Description: get/set for description Returntype : string Exceptions : none Caller : general |
Usage : Arg [1] - (optional) string $display_name Description: get/set for display name Returntype : string Exceptions : none Caller : general |
Usage : usage Description: Description Returntype : Exceptions : none Caller : caller |
Usage : my $ac = $ag->getAttributeCollectionByName($name); Description: Returns a BioMart::AttributeCollection object from this BioMart::AttributeGroup object, named by the given name. If no object exists in this tree named by the given name, this method returns undef. Returntype : BioMart::AttributeCollection or undef if none found with given name. Exceptions : none Caller : caller |
Usage : Arg [1] - (optional) string $max_select Description: get/set for max select Returntype : string Exceptions : none Caller : general |
Usage : my $name = $att->name(); $att->name($newname); Description: sets/gets the name of the AttributeGroup Returntype : string name Exceptions : none Caller : caller |
Methods code
sub _new
{ my ($self, @param) = @_;
$self->SUPER::_new(@param);
$self->addParams(TITLES, @param);
$self->attr('Cols', []); } |
sub addCollection
{ my ($self, $col) = @_;
my $cols = $self->get('Cols');
push @{$cols}, $col; } |
sub description
{ my ($self, $value) = @_;
if ($value){
$self->setParam(DESCRIPTION, $value);
}
return $self->getParam(DESCRIPTION); } |
sub displayName
{ my ($self, $value) = @_;
if ($value){
$self->setParam(DISPLAYNAME, $value);
}
return $self->getParam(DISPLAYNAME); } |
sub getAllCollections
{ my $self = shift;
return $self->get('Cols');
}
1; } |
sub getAttributeCollectionByName
{ my ($self, $name) = @_;
my $retCollection;
my $attCs = $self->get('Cols');
foreach my $attC (@{$attCs}) {
if ($attC->name() eq $name) {
$retCollection = $attC;
last;
}
}
return $retCollection; } |
sub maxSelect
{ my ($self, $value) = @_;
if ($value){
$self->setParam(MAXSELECT, $value);
}
return $self->getParam(MAXSELECT); } |
sub name
{ my ($self, $newName) = @_;
if ($newName) {
$self->setParam(NAMEKEY, $newName);
}
return $self->getParam(NAMEKEY); } |
General documentation
AUTHOR - Arek Kasprzyk, Syed Haider, Richard Holland, Darin London, Damian Smedley | Top |