use warnings;
use Data::Dumper;
-use Locale::gettext;
use Deb::Versions;
use Packages::CGI;
use Packages::Page qw( :all );
($data->{package} && $data->{suite} && $data->{archive}) || return;
$self->{package} ||= $data->{package};
($self->{package} eq $data->{package}) || return;
- debug( "merge package $data->{package}/$data->{version} into $self (".($self->{version}||'').")", 2 );
+ debug( "merge package $data->{package}/$data->{version} into $self (".($self->{version}||'').")", 2 ) if DEBUG;
if (!$self->{version}
|| (version_cmp( $data->{version}, $self->{version} ) > 0)) {
- debug( "added package is newer, replacing old information" );
+ debug( "added package is newer, replacing old information" ) if DEBUG;
$self->{data} = $data;
$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) = @_;