aboutsummaryrefslogtreecommitdiffstats
path: root/lib/AdminPanel/Rpmdragora
diff options
context:
space:
mode:
authorAngelo Naselli <anaselli@linux.it>2014-11-11 23:42:14 +0100
committerAngelo Naselli <anaselli@linux.it>2014-11-11 23:42:14 +0100
commit8fe4213c30a5c1c315a2b06c0f38e96adf26d719 (patch)
treed35aeb1ba9f71d61b15006c2fba8c0910e93918c /lib/AdminPanel/Rpmdragora
parentfe5988f3676394091ab0b25f93c32d4a74a08139 (diff)
downloadcolin-keep-8fe4213c30a5c1c315a2b06c0f38e96adf26d719.tar
colin-keep-8fe4213c30a5c1c315a2b06c0f38e96adf26d719.tar.gz
colin-keep-8fe4213c30a5c1c315a2b06c0f38e96adf26d719.tar.bz2
colin-keep-8fe4213c30a5c1c315a2b06c0f38e96adf26d719.tar.xz
colin-keep-8fe4213c30a5c1c315a2b06c0f38e96adf26d719.zip
More "common" clean up fixing if_
Diffstat (limited to 'lib/AdminPanel/Rpmdragora')
-rw-r--r--lib/AdminPanel/Rpmdragora/formatting.pm2
-rw-r--r--lib/AdminPanel/Rpmdragora/pkg.pm14
2 files changed, 8 insertions, 8 deletions
diff --git a/lib/AdminPanel/Rpmdragora/formatting.pm b/lib/AdminPanel/Rpmdragora/formatting.pm
index f730595..751cf77 100644
--- a/lib/AdminPanel/Rpmdragora/formatting.pm
+++ b/lib/AdminPanel/Rpmdragora/formatting.pm
@@ -63,7 +63,7 @@ sub escape_text_for_TextView_markup_format {
);
eval { $str =~ s!([&<>])!$rules{$1}!g }; #^(&(amp|lt|gt);)!!) {
if (my $err = $@) {
- internal_error("$err\n$str");
+ MDK::Common::Various::internal_error("$err\n$str");
}
$str;
}
diff --git a/lib/AdminPanel/Rpmdragora/pkg.pm b/lib/AdminPanel/Rpmdragora/pkg.pm
index 7db2a3a..4c52ceb 100644
--- a/lib/AdminPanel/Rpmdragora/pkg.pm
+++ b/lib/AdminPanel/Rpmdragora/pkg.pm
@@ -629,7 +629,7 @@ sub display_READMEs_if_needed {
sub perform_parallel_install {
my ($urpm, $group, $w, $statusbar_msg_id) = @_;
- my @pkgs = map { if_($_->flag_requested, urpm_name($_)) } @{$urpm->{depslist}};
+ my @pkgs = map { MDK::Common::Func::if_($_->flag_requested, urpm_name($_)) } @{$urpm->{depslist}};
my @error_msgs;
my $res = !run_program::run('urpmi', '2>', \@error_msgs, '-v', '--X', '--parallel', $group, @pkgs);
@@ -715,7 +715,7 @@ sub perform_installation { #- (partially) duplicated from /usr/sbin/urpmi :-(
my @pkgs = map { scalar($_->fullname) } sort(grep { $_->flag_selected } @to_install);
@{$urpm->{ask_remove}} = sort(urpm::select::removed_packages($urpm->{state}));
- my @to_remove = map { if_($pkgs->{$_}{selected} && !$pkgs->{$_}{pkg}->flag_upgrade, $pkgs->{$_}{urpm_name}) } keys %$pkgs;
+ my @to_remove = map { MDK::Common::Func::if_($pkgs->{$_}{selected} && !$pkgs->{$_}{pkg}->flag_upgrade, $pkgs->{$_}{urpm_name}) } keys %$pkgs;
my $r = format_list(map { scalar(urpm::select::translate_why_removed_one($urpm, $urpm->{state}, $_)) } @to_remove);
@@ -732,7 +732,7 @@ sub perform_installation { #- (partially) duplicated from /usr/sbin/urpmi :-(
(!$to_install ? ($loc->P("Remove one package?", "Remove %d packages?", $remove_count, $remove_count), $r) :
(($remove_count == 1 ?
$loc->N("The following package has to be removed for others to be upgraded:")
- : $loc->N("The following packages have to be removed for others to be upgraded:")), $r), if_($to_install, $to_install))
+ : $loc->N("The following packages have to be removed for others to be upgraded:")), $r), MDK::Common::Func::if_($to_install, $to_install))
: $to_install),
format_size($size),
format_filesize($filesize),
@@ -850,7 +850,7 @@ sub perform_installation { #- (partially) duplicated from /usr/sbin/urpmi :-(
local $::main_window = $gurpm->{real_window};
$msg =~ s/:$/\n\n/m; # FIXME: to be fixed in urpmi after 2008.0
interactive_msg(
- $loc->N("Warning"), "$msg\n\n$msg2", yesno => 1, if_(10 < ($msg =~ tr/\n/\n/), scroll => 1),
+ $loc->N("Warning"), "$msg\n\n$msg2", yesno => 1, MDK::Common::Func::if_(10 < ($msg =~ tr/\n/\n/), scroll => 1),
);
},
post_download => sub {
@@ -866,7 +866,7 @@ sub perform_installation { #- (partially) duplicated from /usr/sbin/urpmi :-(
my ($nok, $errors) = @_;
interactive_msg(
$loc->N("Problem during installation"),
- if_($nok, $loc->N("%d installation transactions failed", $nok) . "\n\n") .
+ MDK::Common::Func::if_($nok, $loc->N("%d installation transactions failed", $nok) . "\n\n") .
$loc->N("There was a problem during the installation:\n\n%s",
join("\n\n", @$errors, @error_msgs)),
scroll => 1,
@@ -953,7 +953,7 @@ you may now inspect some in order to take actions:"),
sub perform_removal {
my ($urpm, $pkgs) = @_;
- my @toremove = map { if_($pkgs->{$_}{selected}, $pkgs->{$_}{urpm_name}) } keys %$pkgs;
+ my @toremove = map { MDK::Common::Func::if_($pkgs->{$_}{selected}, $pkgs->{$_}{urpm_name}) } keys %$pkgs;
return if !@toremove;
my $gurpm = AdminPanel::Rpmdragora::gurpm->new(1 ? $loc->N("Please wait") : $loc->N("Please wait, removing packages..."), $loc->N("Initializing..."), transient => $::main_window);
my $_gurpm_clean_guard = MDK::Common::Func::before_leaving { undef $gurpm };
@@ -990,7 +990,7 @@ sub perform_removal {
interactive_msg(
$loc->N("Problem during removal"),
$loc->N("There was a problem during the removal of packages:\n\n%s", join("\n", @results)),
- if_(@results > 1, scroll => 1),
+ MDK::Common::Func::if_(@results > 1, scroll => 1),
);
return 1;
} else {