use warnings;
use Data::Dumper;
-use Locale::gettext;
use Deb::Versions;
use Packages::CGI;
use Packages::Page qw( :all );
$self->{data} = $data;
- my @uploaders;
- if ($data->{maintainer} ||= '') {
- push @uploaders, [ split_name_mail( $data->{maintainer} ) ];
- }
- if ($data->{uploaders}) {
- my @up_tmp = split( /\s*,\s*/,
- $data->{uploaders} );
- foreach my $up (@up_tmp) {
- if ($up ne $data->{maintainer}) { # weed out duplicates
- push @uploaders, [ split_name_mail( $up ) ];
- }
- }
- }
- $self->{uploaders} = \@uploaders;
+ my ($uploaders, $orig_uploaders) = $self->handle_maintainer_fields($data);
+ $self->{uploaders} = $uploaders;
+ $self->{orig_uploaders} = $orig_uploaders if @$orig_uploaders;
if ($data->{files}) {
my @files = split /\01/so, $data->{files};
$self->{version} = $data->{version};
}
+
+ return 1;
}
#FIXME: should be mergable with the Packages::Page version
return $self->{data}{$field};
}
+sub get_versions {
+ my ($self) = @_;
+
+ return [ $self->{version} ];
+}
+
+sub get_version_string {
+ my ($self) = @_;
+
+ my $versions = $self->get_versions;
+
+ return ($self->{version}, $versions);
+}
+
sub get_dep_field {
my ($self, $dep_field) = @_;