FSN#24267 Links in XML op kunnen nemen

svn path=/Website/trunk/; revision=15586

APPL/API/shorturl.asp

@@ -7,6 +7,7 @@
     Description:    Redirect naar een bookmark url
     Parameters:     u      Bookmark die in de bookmark tabel moet zitten.
                            Dit moet de eerste parameter zijn als er nog meer komen
+                    k      Een integer keywaarde die plat achter de bookmark_query wordt geplakt
                     --     Optionele parameter(s): die worden allemaal blind
                            doorgegeven naar het volgende scherm
     Context:        Vanuit root
@@ -23,6 +24,7 @@
 <!-- #include file="../Shared/common.inc"-->
 <%
     var u = getQParam("u");
+    var keyparam = getQParamInt("k", -1);
     // For flexiblity reasons: Literal or runtime parameter(s), just pass through...
     var rest = String(Request.ServerVariables("QUERY_STRING")); // Request.ServerVariables("QUERY_STRING") is url-encoded,
                                                                 // dat is hier safer dan Request.QueryString
@@ -52,7 +54,16 @@
 
     if (oRs("fac_bookmark_query").Value)
     {
-        url += "?" + oRs("fac_bookmark_query").Value + (rest?"&"+rest:"");
+        if (keyparam > -1)
+        {
+            rest = rest.substring(("k="+keyparam).length+1);
+            url += "?" + oRs("fac_bookmark_query").Value + keyparam + (rest?"&"+rest:"");
+        }
+        else
+        {
+            url += "?" + oRs("fac_bookmark_query").Value + (rest?"&"+rest:"");
+        }
+
     }
     else
     {