X-Git-Url: https://git.sesse.net/?p=ccbs;a=blobdiff_plain;f=intl%2FSesse%3A%3AGettextizeTemplates.pm;h=44d433a62537a62850bd56ab7221b0e1b9180eea;hp=ec734e0f35000bce4acc4d88370dbbc6fe5df690;hb=e6c20eb05df8956ccec9cea84e2b8d4a4144ad3c;hpb=2d360215745cb4f4d22697da233b14eaff8ed176

diff --git a/intl/Sesse::GettextizeTemplates.pm b/intl/Sesse::GettextizeTemplates.pm
index ec734e0..44d433a 100644
--- a/intl/Sesse::GettextizeTemplates.pm
+++ b/intl/Sesse::GettextizeTemplates.pm
@@ -2,15 +2,24 @@
 package Sesse::GettextizeTemplates;
 use strict;
 use warnings;
-use Locale::gettext qw(gettext);
+use Locale::gettext;
 use Template::Directive;
 
 our @ISA = qw(Template::Directive);
 
+# blah!
+sub mygettext {
+	my $text = shift;
+
+	return "" if ($text eq "");
+	return Locale::gettext::gettext($text);
+}
+
 sub textblock {
 	my ($self, $text) = @_;
 
-	$text =~ s/(<(h[1-6]|p|td|th|title|input|span|li|_)[^>]*>)(.*?)(<\/\2>)/$1.gettext($3).$4/seg;
+	$text =~ s/(<(h[1-6]|p|td|th|title|input|span|li|option|_)[^>]*>)(.*?)(<\/\2>)/$1.mygettext($3).$4/seg;
+	$text =~ s/<\/?_>//g;
 
 	return $self->SUPER::textblock($text);
 }