summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakperm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/drakperm')
-rwxr-xr-xperl-install/standalone/drakperm4
1 files changed, 0 insertions, 4 deletions
diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm
index 7e56d8a6d..c1746baa0 100755
--- a/perl-install/standalone/drakperm
+++ b/perl-install/standalone/drakperm
@@ -24,7 +24,6 @@ my %perm = ( 'level 1' => $perm_path.'perm.1',
'level 5' => $perm_path.'perm.5',
'editable' => $local_path.'perm.local',
);
-my $rows_cnt = 0;
my $editable = 0;
my $modified = 0;
my $prec_txt = $default_perm_level;
@@ -52,7 +51,6 @@ $combo_perm->set_popdown_strings(sort(keys %perm));
sub add_callback {
row_setting_dialog($treeModel->append_set(undef, [ 0 => 'new', 1 => '-', 2 => '-', 3 => '-' ]));
- $rows_cnt++;
$modified++;
}
@@ -72,7 +70,6 @@ sub edit_callback {
sub del_callback {
my ($tree, $iter) = $permList->get_selection->get_selected();
$tree->remove($iter);
- $rows_cnt--;
$modified++;
}
@@ -174,7 +171,6 @@ sub display_perm {
close F;
$up_down_box->set_sensitive($editable);
- $rows_cnt = $i;
$prec_txt = $perm_level;
undef(%CURENT);
}