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

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

Revision: 49
          http://perlwikibot.svn.sourceforge.net/perlwikibot/?rev=49&view=rev
Author:   amire80
Date:     2008-07-30 17:31:19 +0000 (Wed, 30 Jul 2008)

Log Message:
-----------
Preparing a list of pages which have valid links and a template, so it can be deleted.

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-30 16:18:57 UTC (rev 48)
+++ trunk/no-interwiki/prepare_noiw_list.pl	2008-07-30 17:31:19 UTC (rev 49)
@@ -383,6 +383,7 @@
                 INFO('has template no_iw. trying to remove ...');
                 remove_tmpl_no_iw($page_text_ref);
                 $statistics{'has both valid interwiki and template'}++;
+                special_cases_file('outdated_template', {}, $page);
             }
         }
         else {    # does not have iw
@@ -741,6 +742,9 @@
 sub special_cases_file {
     my ($special_case_name, $special_cases_ref, $page) = @_;
     my $special_case_langs = join q{, }, sort keys %{$special_cases_ref};
+    if ($special_case_langs) {
+        $special_case_langs = " ($special_case_langs)";
+    }
     my $special_case_fn = make_type_fn($special_case_name, 1);
     if (not -e $special_case_fn) {
         append_to_file($special_case_fn, $special_case_name);
@@ -749,7 +753,7 @@
     my $link       = make_link($page_title);
     my $line =
           $link
-        . " ($special_case_langs)"
+        . $special_case_langs
         . $FIELD_SEP
         . get_sort_title($page_title);
 


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