0.15_27 commit

[bse.git] / site / cgi-bin / modules / Util.pm

diff --git a/site/cgi-bin/modules/Util.pm b/site/cgi-bin/modules/Util.pm
index 4c4435150c71371da76450f81a883cfb2313451d..c8923cd434f6b7701dfaef58e8450caf442e848d 100644 (file)
--- a/site/cgi-bin/modules/Util.pm
+++ b/site/cgi-bin/modules/Util.pm
@@ -48,11 +48,7 @@ sub generate_low {
     }
   }
   else {
-    $outname = $article->{link};
-    $outname =~ s!/\w*$!!;
-    $outname =~ s{^\w+://[\w.-]+(?::\d+)?}{};
-    $outname = $CONTENTBASE . $outname;
-    $outname =~ s!//+!/!;
+    $outname = $article->link_to_filename($cfg);
   }
 
   my $genname = $article->{generator};