From 874b3eb01ebdbc78a8d1e652dd355a941c0283d5 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 27 Jan 2010 17:25:46 +0000 Subject: (iso8601_date_to_locale) share it --- mdkapplet-extended-maintenance-helper | 12 ------------ 1 file changed, 12 deletions(-) (limited to 'mdkapplet-extended-maintenance-helper') diff --git a/mdkapplet-extended-maintenance-helper b/mdkapplet-extended-maintenance-helper index 736ab935..4181381c 100755 --- a/mdkapplet-extended-maintenance-helper +++ b/mdkapplet-extended-maintenance-helper @@ -25,7 +25,6 @@ use lib qw(/usr/lib/libDrakX /usr/lib/libDrakX/drakfirsttime); use standalone; # for explanations use common; use run_program; -use DateTime; BEGIN { unshift @::textdomains, 'mdkonline' } @@ -73,17 +72,6 @@ sub get_extended_maintenance_data() { @$current_apimdv_distro{qw(extended-maintenance extended-maintenance-end desktop-update-end basic-update-end)}; } -sub iso8601_date_to_locale { - my ($date) = @_; - return $date if $date !~ /(\d\d\d\d)-?(\d\d)-?(\d\d)/; - my $dt = DateTime->new(year => $1, month => $2, day => $3); - my $date1 = $dt->strftime("%x"); - # will fail on some locales (eg: br_FR, ...): - eval { $dt->set_locale($ENV{LC_TIME}) }; - my $date2 = $dt->strftime("%x"); - $date2 || $date1; -} - sub get_extmaint_authentication() { my $w = ugtk2->new(N("Adding an additional package medium"), width => $width + 20); my ($password_w, $email_w, $password); -- cgit v1.2.1