# HG changeset patch
# User bsw
# Date 1340817274 -7200
# Node ID ca3f7b001014eecfb7332f0151b43c9850f5bdcc
# Parent  3a6962b9121cfc94c17377f57ab537d3d0700cde
Made new anchor feature working

diff -r 3a6962b9121c -r ca3f7b001014 framework/env/encode/url.lua
--- a/framework/env/encode/url.lua	Wed Jun 27 18:57:53 2012 +0200
+++ b/framework/env/encode/url.lua	Wed Jun 27 19:14:34 2012 +0200
@@ -25,6 +25,7 @@
   local action    = args.action
   local id        = args.id
   local params    = args.params or {}
+  local anchor    = args.anchor
   local result    = {}
   local id_as_param = false
   local function add(...)
@@ -97,7 +98,7 @@
   if anchor ~= nil then
     string_result = string.match(string_result, "^[^#]*")
     if anchor then
-      string_result = string_result .. anchor
+      string_result = string_result .. "#" .. encode.url_part(anchor)
     end
   end
   return string_result
diff -r 3a6962b9121c -r ca3f7b001014 framework/env/ui/paginate.lua
--- a/framework/env/ui/paginate.lua	Wed Jun 27 18:57:53 2012 +0200
+++ b/framework/env/ui/paginate.lua	Wed Jun 27 19:14:34 2012 +0200
@@ -62,7 +62,7 @@
           view   = request.get_view(),
           id     = id,
           params = params,
-          anchor = anchor,
+          anchor = args.anchor,
           text   = tostring(page),
           partial = partial
         }