Use new url creating mechanisms

diff --git a/lib/Packages/DoNewPkg.pm b/lib/Packages/DoNewPkg.pm
index 73cd981a0a36261d244a0eaec419c6055e5e227e..059d5a33fa5e859d3dad1c6bc07d884547ac3ff6 100644 (file)
--- a/lib/Packages/DoNewPkg.pm
+++ b/lib/Packages/DoNewPkg.pm
@@ -101,9 +101,9 @@ sub do_newpkg {
            }
        }
 
-       $$page_content .= '<p class="psmallcenter"><a href="$ROOT/$suite/allpackages" title="'.
+       $$page_content .= '<p class="psmallcenter"><a href="'.make_url('allpackages','').'" title="'.
            _g( "List of all packages" ) ."\">".
-           _g( "All packages" ) ."</a><br>(<a href=\"$ROOT/$suite/allpackages?format=txt.gz\">".
+           _g( "All packages" ) ."</a><br>(<a href=\"".make_url('allpackages','',{format=>'txt.gz'})."\">".
            _g( "compact compressed textlist" )."</a>)<br>".
            ($slist ? sprintf(_g( "New packages in %s" ), $slist ):'').
            "</p>\n";