summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lib/MDV/Distribconf.pm16
1 files changed, 15 insertions, 1 deletions
diff --git a/lib/MDV/Distribconf.pm b/lib/MDV/Distribconf.pm
index 6eb5fb5..52fe2d3 100644
--- a/lib/MDV/Distribconf.pm
+++ b/lib/MDV/Distribconf.pm
@@ -2,7 +2,7 @@ package MDV::Distribconf;
# $Id$
-our $VERSION = '3.02';
+our $VERSION = '3.03';
=head1 NAME
@@ -473,6 +473,14 @@ sub getpath {
}
}
+=head2 $distrib->getmediapath($media, $var)
+
+This function does the same than getpath except it return the path proper
+to the media for files having doble location (index for example).
+
+=cut
+
+
sub getmediapath {
my ($distrib, $media, $var) = @_;
my %files = (
@@ -500,6 +508,12 @@ sub getfullpath {
my $path = $distrib->getpath(@_) or return;
return $distrib->getpath(undef, 'root') . '/' . $path;
}
+=head2 $distrib->getfullmediapath($media, $var)
+
+This function does the same than getpath except it return the path proper
+to the media for files having doble location (index for example).
+
+=cut
sub getfullmediapath {
my $distrib = shift;