mod_base: fix an issue in page scomp where a wrong URL could be gener…

…ated (0.x) (#3296)

modules/mod_base/scomps/scomp_base_pager.erl

@@ -1,9 +1,8 @@
 %% @author Marc Worrell <marc@worrell.nl>
-%% @copyright 2009-2015 Marc Worrell
-%% Date: 2009-04-18
+%% @copyright 2009-2023 Marc Worrell
 %% @doc Show the pager for the search result
 
-%% Copyright 2009-2015 Marc Worrell
+%% Copyright 2009-2023 Marc Worrell
 %%
 %% Licensed under the Apache License, Version 2.0 (the "License");
 %% you may not use this file except in compliance with the License.
@@ -242,23 +241,23 @@ pages(Page, Pages) ->
     {Start1, Slider3, End}.
 
 urls(Start, Slider, End, IsEstimated, Dispatch, DispatchArgs, Context) ->
-    Start1 = [ {N, z_dispatcher:url_for(Dispatch, [{page,N}|DispatchArgs], Context)} || N <- Start ],
+    Start1 = [ {N, url_for(Dispatch, [{page,N}|DispatchArgs], Context)} || N <- Start ],
     BeforeSlider =
         case Slider of
             [] ->
                 [];
             [N1Slider|_] ->
-                [ {undefined, z_dispatcher:url_for(Dispatch, [{page,N}|DispatchArgs], Context)} || N <- [N1Slider-1] ]
+                [ {undefined, url_for(Dispatch, [{page,N}|DispatchArgs], Context)} || N <- [N1Slider-1] ]
         end,
-    Slider1 = [ {N, z_dispatcher:url_for(Dispatch, [{page,N}|DispatchArgs], Context)} || N <- Slider ],
+    Slider1 = [ {N, url_for(Dispatch, [{page,N}|DispatchArgs], Context)} || N <- Slider ],
     AfterSlider =
         case Slider of
             [] ->
                 [];
             [_|_] ->
-                [ {undefined, z_dispatcher:url_for(Dispatch, [{page,N}|DispatchArgs], Context)} || N <- [lists:last(Slider)+1] ]
+                [ {undefined, url_for(Dispatch, [{page,N}|DispatchArgs], Context)} || N <- [lists:last(Slider)+1] ]
         end,
-    End1 = [ {N, z_dispatcher:url_for(Dispatch, [{page,N}|DispatchArgs], Context)} || N <- End ],
+    End1 = [ {N, url_for(Dispatch, [{page,N}|DispatchArgs], Context)} || N <- End ],
 
     case {Start1, Slider1, End1} of
         {[], S, []} -> S;