remove old dead commented i18n code that kept being copied around

2 files changed, 0 insertions, 43 deletions

diff --git a/perl-install/standalone/drakfloppy b/perl-install/standalone/drakfloppy
index 84ed955c0..a19e7889e 100755
--- a/perl-install/standalone/drakfloppy
+++ b/perl-install/standalone/drakfloppy
@@ -36,29 +36,6 @@ use ugtk qw(:helpers);
 init Gtk;
 Gtk->set_locale;
 
-#-------------------------------------------------------------
-# i18n routines
-# IMPORTANT: next two routines have to be redefined here to
-#         get correct namespace (drakconf instead of libDrakX)
-#         (This version is now UTF8 compliant - Sg 2001-08-18)
-#-------------------------------------------------------------
-
-#sub _ {
-#    my $s = shift @_; my $t = translate($s);
-#    sprintf $t, @_;
-#}
-
-#sub translate {
-#    my ($s) = @_;
-#    $s ? c::dgettext('libDrakX', $s) : '';
-#}
-
-if ($::isEmbedded) {
-  print "EMBED\n";
-  print "XID : $::XID\n";
-  print "CCPID :  $::CCPID\n";
-}
-
 $in = 'interactive'->vnew('su', 'default');
 local $_ = join '', @ARGV;
 
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake
index a8c37c240..740994a63 100755
--- a/perl-install/standalone/logdrake
+++ b/perl-install/standalone/logdrake
@@ -35,26 +35,6 @@ use my_gtk qw(:helpers :wrappers);
 use ugtk qw(:helpers);
 
 use Data::Dumper;
-#-------------------------------------------------------------
-# i18n routines
-# IMPORTANT: next two routines have to be redefined here to
-#         get correct namespace (drakconf instead of libDrakX)
-#         (This version is now UTF8 compliant - Sg 2001-08-18)
-#-------------------------------------------------------------
-
-#{
-#    no warnings;
-#    sub _ {
-#	my $s = shift @_; my $t = translate($s);
-#	sprintf $t, @_;
-#    }
-
-#    no warnings;
-#    sub translate {
-#	my ($s) = @_;
-#$s ? c::dgettext('libDrakX', $s) : '';
-#    }
-#}
 
 $::isInstall and die "Not supported during install.\n";