TT#14051 More debug for the failing tests. To abandon later.

Change-Id: I12d62fae0aaeaa718318bdbedb140d4ec5bdbab3
9 years ago · bec02b0f80
parent 785712c8f8
commit bec02b0f80
1 changed files with 9 additions and 0 deletions
--- a/lib/NGCP/Panel/Utils/Events.pm
+++ b/lib/NGCP/Panel/Utils/Events.pm
@ -593,6 +593,15 @@ sub _save_primary_alias {
    }
    if ($alias_username) {
        $tags_rs //= $schema->resultset('events_tag');
+        if(!$types_prefix){
+            use Carp qw /longmess/;
+            use Data::Dumper;
+            use DateTime;
+            open(my $fh, ">>/tmp/tt14091.txt") or die ("can't open");
+            print $fh "\n".DateTime->now->strftime("%Y-%m-%d %H:%M:%S").";type=${types_prefix}primary_alias_username${types_suffix};\n";
+            print $fh longmess();
+            close $fh;
+        }
        $event->create_related("tag_data", {
            tag_id => $tags_rs->find({ type => $types_prefix.'primary_alias_username'.$types_suffix })->id,
            val => $alias_username,