aboutsummaryrefslogtreecommitdiffstats
path: root/lib/ManaTools/Shared.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/ManaTools/Shared.pm')
-rw-r--r--lib/ManaTools/Shared.pm43
1 files changed, 43 insertions, 0 deletions
diff --git a/lib/ManaTools/Shared.pm b/lib/ManaTools/Shared.pm
index 8916a1f6..f6e8f52f 100644
--- a/lib/ManaTools/Shared.pm
+++ b/lib/ManaTools/Shared.pm
@@ -474,5 +474,48 @@ sub help_requested() {
return 0;
}
+
+#=============================================================
+
+=head2 i18NTranslators
+
+=head3 OUTPUT
+
+ translators: translators list from po file, it is taken
+ from translation of msgid
+ "_: Translator(s) name(s) & email(s)\n"
+
+=head3 DESCRIPTION
+
+ a string containing the new formatted list
+
+=cut
+
+#=============================================================
+sub i18NTranslators {
+ my ($translators) = @_;
+
+ $translators =~ s/\</\&lt\;/g;
+ $translators =~ s/\>/\&gt\;/g;
+ my $translators_markup = "";
+ my @translators_list = split("\n", $translators);
+
+ foreach (@translators_list) {
+ $translators_markup .= "<li>" . $_ . "</li>";
+ }
+
+# for (my $i = 0; ; $i++) {
+# if ($i > 0) {
+# $translators_markup .= "</li><li>";
+# }
+# $translators_markup .= $translators_list[$i];
+# if ($i == $#translators_list) {
+# last;
+# }
+# }
+
+ return $translators_markup;
+}
+
1; # End of ManaTools::Shared