Distinguish accounts by currency

diff --git a/src/InfoCon/account/all.wml b/src/InfoCon/account/all.wml
index 3ec6308..c8a6e84 100644 (file)
--- a/src/InfoCon/account/all.wml
+++ b/src/InfoCon/account/all.wml
@@ -21,7 +21,7 @@ Die folgenden Konten stehen zur Verf
   $accounts = account_names ($dbh, "", "dm");
 
   foreach ($accounts as $kto => $name) {
-    printf ("<li><a href=\"query.php?blzkto=%s\">%s</a> (Stand: %6.2f DM)",
+    printf ("<li><a href=\"query.php?blzkto=%s&cur=dm\">%s</a> (Stand: %6.2f DM)",
       urlencode($kto), $name, stand ($dbh, $kto, "dm"));
   }
 ?>