Subversion Repositories DevTools

# Function        : GetNameVersion

#

# Description     : Return a package name and version for display purposes

#

# Inputs          : $tag        - An iteration tag provided by GetPackageList()

#

# Returns         : A list of

#                       Package name

#                       Package version

#                       Package type : build or link

#

sub GetNameVersion

{

    my ($tag) = @_;

    my $rec = $DescPkgCache{$tag};

    return join( ' ', $rec->{NAME}, $rec->{VERSION_FULL} );

}

#-------------------------------------------------------------------------------

#-------------------------------------------------------------------------------

# Function        : Dump 

#

# Description     : Internal diagnostic tool

#                   Dumps internal data structures    

#

# Inputs          : None 

#

# Returns         : Nothing 

#

sub Dump

{

    ::DebugDumpData("PackageEntry",\%DescPkgCache);

}