our @ISA = qw( Exporter );
our @EXPORT = qw( do_newpkg );
-use Packages::I18N::Locale;
use Packages::Search qw( :all );
use Packages::CGI;
use Packages::DB;
sub do_newpkg {
my ($params, $opts, $page_content) = @_;
+ my $cat = $opts->{cat};
if ($params->{errors}{suite}) {
- fatal_error( _g( "suite not valid or not specified" ) );
+ fatal_error( $cat->g( "suite not valid or not specified" ) );
}
if (@{$opts->{suite}} > 1) {
- fatal_error( sprintf( _g( "more than one suite specified for newpkg (%s)" ), "@{$opts->{suite}}" ) );
+ fatal_error( $cat->g( "more than one suite specified for newpkg (%s)",
+ "@{$opts->{suite}}" ) );
}
my $sort_func = sub { $_[0][0] cmp $_[1][0] };
open NEWPKG, '<', "$TOPDIR/files/packages/newpkg_info_$suite"
or do {
warn "can't read newpkg_info_$suite: $!";
- fatal_error( sprintf( _g("no newpkg information found for suite %s"),
- $suite) );
+ fatal_error( $cat->g("no newpkg information found for suite %s",
+ $suite) );
return;
};
while (<NEWPKG>) {