Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
ensembl-gh-mirror
ensembl
Commits
1944f890
Commit
1944f890
authored
Jun 09, 2011
by
Kieron Taylor
😠
Browse files
Pod section moved closer to method it refers to
parent
7d6992d3
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
15 additions
and
15 deletions
+15
-15
modules/Bio/EnsEMBL/DBSQL/KaryotypeBandAdaptor.pm
modules/Bio/EnsEMBL/DBSQL/KaryotypeBandAdaptor.pm
+15
-15
No files found.
modules/Bio/EnsEMBL/DBSQL/KaryotypeBandAdaptor.pm
View file @
1944f890
...
...
@@ -167,6 +167,21 @@ sub fetch_all_by_chr_name {
}
sub
fetch_all_by_chr_band
{
my
(
$self
,
$chr_name
,
$band
)
=
@_
;
throw
('
Chromosome name argument expected
')
if
(
!
$chr_name
);
throw
('
Band argument expected
')
if
(
!
$band
);
my
$slice
=
$self
->
db
->
get_SliceAdaptor
->
fetch_by_region
(
undef
,
$chr_name
);
my
$constraint
=
"
k.band like '
$band
%'
";
return
$self
->
fetch_all_by_Slice_constraint
(
$slice
,
$constraint
);
}
=head2 fetch_by_chr_band
Arg [1] : string $chr_name
...
...
@@ -186,21 +201,6 @@ sub fetch_all_by_chr_name {
=cut
sub
fetch_all_by_chr_band
{
my
(
$self
,
$chr_name
,
$band
)
=
@_
;
throw
('
Chromosome name argument expected
')
if
(
!
$chr_name
);
throw
('
Band argument expected
')
if
(
!
$band
);
my
$slice
=
$self
->
db
->
get_SliceAdaptor
->
fetch_by_region
(
undef
,
$chr_name
);
my
$constraint
=
"
k.band like '
$band
%'
";
return
$self
->
fetch_all_by_Slice_constraint
(
$slice
,
$constraint
);
}
sub
fetch_by_chr_band
{
my
$self
=
shift
;
deprecate
('
Use fetch_all_by_chr_band instead.
');
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment