From 2aa0c12b6a193d16681a0179a067664390af7aee Mon Sep 17 00:00:00 2001
From: nsensfel <SpamShield0@noot-noot.org>
Date: Fri, 14 Sep 2018 18:57:42 +0200
Subject: ...

---
 src/View/Player.elm | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

(limited to 'src/View')

diff --git a/src/View/Player.elm b/src/View/Player.elm
index 2e45463..07dc292 100644
--- a/src/View/Player.elm
+++ b/src/View/Player.elm
@@ -19,13 +19,14 @@ get_item_html : (
       Struct.BattleSummary.Type ->
       (Html.Html Struct.Event.Type)
    )
-get_item_html url_prefix additional_class item =
+get_item_html query_url additional_class item =
    (Html.a
       [
          (Html.Attributes.class additional_class),
          (Html.Attributes.href
             (
-               url_prefix
+               query_url
+               ++ "/battle/?id="
                ++ (Struct.BattleSummary.get_id item)
             )
          )
@@ -56,7 +57,7 @@ get_item_html url_prefix additional_class item =
 get_html : Struct.Player.Type -> (Html.Html Struct.Event.Type)
 get_html player =
    let
-      url_prefix = (Struct.Player.get_url_prefix player)
+      query_url = (Struct.Player.get_query_url player)
    in
       (Html.div
          [
@@ -77,17 +78,17 @@ get_html player =
                ]
                (
                   (List.map
-                     (get_item_html url_prefix "campaign-link")
+                     (get_item_html query_url "campaign-link")
                      (Struct.Player.get_campaigns player)
                   )
                   ++
                   (List.map
-                     (get_item_html url_prefix "invasion-link")
+                     (get_item_html query_url "invasion-link")
                      (Struct.Player.get_invasions player)
                   )
                   ++
                   (List.map
-                     (get_item_html url_prefix "event-link")
+                     (get_item_html query_url "event-link")
                      (Struct.Player.get_events player)
                   )
                )
-- 
cgit v1.2.3-70-g09d2