X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=lib%2FPackages%2FSrcPage.pm;h=3d513d77cedbf5b861e4693be7e2b00c9e0dae11;hb=0490df1e4f11514d016bdbc418321e8d800682e5;hp=b1d83d4cc761dec729765348adebec41c6371ae5;hpb=e0340162e87a8f62367d0b41243836eb256444e7;p=deb%2Fpackages.git diff --git a/lib/Packages/SrcPage.pm b/lib/Packages/SrcPage.pm index b1d83d4..3d513d7 100644 --- a/lib/Packages/SrcPage.pm +++ b/lib/Packages/SrcPage.pm @@ -4,6 +4,7 @@ use strict; use warnings; use Data::Dumper; +use Locale::gettext; use Deb::Versions; use Packages::CGI; use Packages::Page qw( :all ); @@ -22,8 +23,6 @@ sub merge_data { return $self->merge_package( \%data ); } -sub gettext { return $_[0]; } - our @DEP_FIELDS = qw( build-depends build-depends-indep build-conflicts build-conflicts-indep); sub merge_package { @@ -94,20 +93,6 @@ sub get_arch_field { 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) = @_;