[PerlWikiBot] SF.net SVN: perlwikibot:[58] trunk/no-interwiki/prepare_noiw_list.pl

[<am...@us...>]

Revision: 58
          http://perlwikibot.svn.sourceforge.net/perlwikibot/?rev=58&view=rev
Author:   amire80
Date:     2008-08-03 13:30:21 +0000 (Sun, 03 Aug 2008)

Log Message:
-----------
Added mw_bold(); renamed create_multi_links_pages() to print_multi_links_by_foreign()

Modified Paths:
--------------
    trunk/no-interwiki/prepare_noiw_list.pl

Modified: trunk/no-interwiki/prepare_noiw_list.pl
===================================================================
--- trunk/no-interwiki/prepare_noiw_list.pl	2008-07-31 15:45:53 UTC (rev 57)
+++ trunk/no-interwiki/prepare_noiw_list.pl	2008-08-03 13:30:21 UTC (rev 58)
@@ -339,7 +339,7 @@
 INFO(q{});
 say 'looking for multi links';
 my $begin_multi_links_time = time;
-create_multi_links_pages();
+print_multi_links_by_foreign();
 my $total_multi_links_time = time - $begin_multi_links_time;
 say "total multi links time: $total_multi_links_time";
 
@@ -1018,6 +1018,11 @@
     return "$level_marker $text $level_marker\n";
 }
 
+sub mw_bold {
+    my ($text) = @_;
+    return "'''$text'''";
+}
+
 # Custom Unicode character property for finding characters.
 # The custom is to give those subroutines CamelCase names.
 sub IsLeftToRight {    ## no critic NamingConventions::ProhibitMixedCaseSubs
@@ -1143,7 +1148,7 @@
     return $string;
 }
 
-sub create_multi_links_pages {
+sub print_multi_links_by_foreign {
     LANG_CODE:
     foreach my $lang_code (sort keys %found_links) {
         my $lang_fn          = "$lang_code.multi_links.txt";


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.