TT#41402 normalize tzdata timezone names for perl DateTime

Change-Id: I7e90ce6b29f7cc4aa0520cd2539e78687f7001a2

lib/NGCP/Panel/Utils/API/Calllist.pm

@@ -3,7 +3,7 @@ use strict;
 use warnings;
 
 use HTTP::Status qw(:constants);
-
+use NGCP::Panel::Utils::DateTime qw();
 
 sub get_owner_data {
     my ($self, $c, $schema, $source, $optional_for_admin_reseller) = @_;
@@ -112,7 +112,7 @@ sub apply_owner_timezone {
         } else {
             # shouldnt go here.
         }
-        $result->set_time_zone($tz->name) if $tz;
+        $result->set_time_zone(NGCP::Panel::Utils::DateTime::normalize_db_tz_name($tz->name)) if $tz;
     }
     return $result;
 }

lib/NGCP/Panel/Utils/DateTime.pm

@@ -28,6 +28,18 @@ sub is_valid_timezone_name {
     }
 }
 
+sub normalize_db_tz_name {
+    my $tz = shift;
+    if (defined $tz) {
+        if (lc($tz) eq 'localtime') {
+            $tz = 'local';
+        } elsif (lc($tz) eq 'system') {
+            $tz = 'local';
+        } # else { ... additional cases
+    }
+    return $tz;
+}
+
 sub current_local {
     if ($is_fake_time) {
         return DateTime->from_epoch(epoch => Time::Warp::time,