(get_release_media,get_active_release_media) enable to list enabled */release media

--- /usr/lib/perl5/vendor_perl/5.12.3/Rpmdrake/open_db.pm.tv8	2011-09-15 13:21:31.996304467 +0000
+++ /usr/lib/perl5/vendor_perl/5.12.3/Rpmdrake/open_db.pm	2011-09-15 13:24:12.932431234 +0000
@@ -136,6 +140,16 @@
     map { $_->{name} } grep { $_->{ignore} } get_backport_media($urpm);
 }
 
+sub get_release_media {
+    my ($urpm) = @_;
+    grep { $_->{name} =~ /release/i } grep_regular_media($urpm);
+}
+
+sub get_active_release_media {
+    my ($urpm) = @_;
+    map { $_->{name} } grep { !$_->{ignore} } get_backport_media($urpm);
+}
+
 sub get_update_medias {
     my ($urpm) = @_;
     if (is_it_a_devel_distro()) {