Changeset 1688

Timestamp:

01/28/16 16:47:36 (8 years ago)

Author:

nanardon

Message:

Avoid HTTP 500 error

File:

• trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Root.pm (modified) (1 diff)

trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Root.pm

@@ -73 +73 @@
     my ( $self, $c ) = @_;
 
-    my $ouser = $c->model('Accounts')->db->get_object(
-        'user',
-        $c->user->{username},
-    );
+    if ($c->user->{username}) {
+        my $ouser = $c->model('Accounts')->db->get_object(
+            'user',
+            $c->user->{username},
+        );
 
-    my @cd = split('-', DateTime->from_epoch(
-        epoch => str2time(
-            $ouser->get_attributes('create'),
-        )
-    )->ymd('-'));
-    my @now = split('-', DateTime->now()->ymd('-'));
-
-    my ($Dy,$Dm,$Dd) = Date::Calc::N_Delta_YMD(@cd, @now);
-    $c->stash->{accountExists} = join(', ',
-        ($Dy ? $c->loc('[_1] years', $Dy)  : ()),
-        ($Dm ? $c->loc('[_1] months', $Dm) : ()),
-        ($Dd ? $c->loc('[_1] days', $Dd)   : ()),
-    );
-
-    if (my $expire = $ouser->get_attributes('expire')) {
-        my @ed = split('-', DateTime->from_epoch(
+        my @cd = split('-', DateTime->from_epoch(
             epoch => str2time(
-                $expire
+                $ouser->get_attributes('create'),
             )
         )->ymd('-'));
+        my @now = split('-', DateTime->now()->ymd('-'));
 
-        my ($Dy,$Dm,$Dd) = Date::Calc::N_Delta_YMD(@now, @ed);
-        $c->stash->{accountExpire} = join(', ',
+        my ($Dy,$Dm,$Dd) = Date::Calc::N_Delta_YMD(@cd, @now);
+        $c->stash->{accountExists} = join(', ',
             ($Dy ? $c->loc('[_1] years', $Dy)  : ()),
             ($Dm ? $c->loc('[_1] months', $Dm) : ()),
             ($Dd ? $c->loc('[_1] days', $Dd)   : ()),
         );
+
+        if (my $expire = $ouser->get_attributes('expire')) {
+            my @ed = split('-', DateTime->from_epoch(
+                epoch => str2time(
+                    $expire
+                )
+            )->ymd('-'));
+
+            my ($Dy,$Dm,$Dd) = Date::Calc::N_Delta_YMD(@now, @ed);
+            $c->stash->{accountExpire} = join(', ',
+                ($Dy ? $c->loc('[_1] years', $Dy)  : ()),
+                ($Dm ? $c->loc('[_1] months', $Dm) : ()),
+                ($Dd ? $c->loc('[_1] days', $Dd)   : ()),
+            );
+        }
     }
-
-
 }