Changeset 71 for trunk/Modules/UMainModule.pas

Timestamp:

Feb 11, 2012, 10:43:06 AM (13 years ago)

Author:

chronos

Message:

• Upraveno: Periodické načítání obrázků kamery se nyní provádí na pozadí kvůli zamezení problikávání.

File:

• trunk/Modules/UMainModule.pas (modified) (1 diff)

trunk/Modules/UMainModule.pas

@@ -215 +215 @@
       '<li><a href="http://wiki.zdechov.net/">Wiki</a></li>' +
       '</ul><ul class="MenuItem2">'; //<li>&nbsp;</li>';
-    if UserOnline.User = AnonymousUserId then begin
-      Text := Text + '</ul>' +
-        '<ul class="MenuItem2">' +
-        '<li>' + MakeLink('Přihlášení', NavigationLink('/uzivatel/prihlaseni/')) + '</li>' +
-        '<li>' + MakeLink('Registrace', NavigationLink('/uzivatel/registrace/')) + '</li>' +
-        '<li></li>';
-      // $Output .= '<li>'.$this->System->HTML->MakeLink($this->System->Translate('UserRegistration'), $this->System->MakeLink('UserList', 'Register')).'</li>';
-    end else begin
-      Text := Text + '</ul>' +
-        '<ul class="MenuItem2">' +
-        '<li>' + User.FullName + '</li>' +
-        '<li>' + MakeLink('Odhlášení', NavigationLink('/uzivatel/odhlaseni/')) + '</li>' +
-        '<li>' + MakeLink('Profil', NavigationLink('/uzivatel/profil/')) + '</li>';
-    end;
+    if Assigned(Application.Pages.FindByName('uzivatel')) then begin
+      if UserOnline.User = AnonymousUserId then begin
+        Text := Text + '</ul>' +
+          '<ul class="MenuItem2">' +
+          '<li>' + MakeLink('Přihlášení', NavigationLink('/uzivatel/prihlaseni/')) + '</li>' +
+          '<li>' + MakeLink('Registrace', NavigationLink('/uzivatel/registrace/')) + '</li>' +
+          '<li></li>';
+        // $Output .= '<li>'.$this->System->HTML->MakeLink($this->System->Translate('UserRegistration'), $this->System->MakeLink('UserList', 'Register')).'</li>';
+      end else begin
+        Text := Text + '</ul>' +
+          '<ul class="MenuItem2">' +
+          '<li>' + User.FullName + '</li>' +
+          '<li>' + MakeLink('Odhlášení', NavigationLink('/uzivatel/odhlaseni/')) + '</li>' +
+          '<li>' + MakeLink('Profil', NavigationLink('/uzivatel/profil/')) + '</li>';
+      end;
+    end else Text := Text + '</ul><ul class="MenuItem2">&nbsp;';
     Text := Text + '</ul></div>';
   end;