Fix cross-suite links, copy&waste mistake

[deb/packages.git] / lib / Packages / DoNewPkg.pm

diff --git a/lib/Packages/DoNewPkg.pm b/lib/Packages/DoNewPkg.pm
index 015d0559b49577d2348c8dc4cce3d71d6e7747f4..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\">".
+           _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";