Repository List / Contenido / koi8 / core / comps / contenido / components / filter.msn @ r3

<%ARGS>

	$str => undef

</%ARGS>
<%INIT>

	use vars qw($keeper $request);

	# �������������...
	if ($request->{local_codepage} ne 'KOI8')
	{
		my $str_ = Convert::Cyrillic::cstocs($request->{local_codepage}, 'KOI8', $str);
		$str = $str_;
	}


	# �������� ��� ��������...
	my %ws = (	chr(0x97)=>'&#151;',chr(0xAE)=>'&#174;',chr(0xA9)=>'&#169;',chr(0xAD)=>'&shy;',
			chr(0x88)=>'&euro;',chr(0x93)=>'&#147;',chr(0x94)=>'&#148;',
			chr(0xAB)=>'&#171;',chr(0xBB)=>'&#187;',chr(0x85)=>'&#133;',chr(0xA7)=>'&#167;',
			chr(0xB0)=>'&#176;',chr(0x96)=>'&#150;',chr(0x99)=>'&#153;',chr(0xB1)=>'&#177;',
			chr(0x85)=>'&#133;',chr(0x91)=>'&#145;',chr(0x92)=>'&#146;',chr(0x84)=>'&#132;',
			chr(0x95)=>'&#149;',chr(0xB9)=>'&#8470;');
	foreach my $s (keys(%ws))
	{
		$str =~ s/$s/$ws{$s}/g;
	}
	$str =~ s/\r//g;
#	$str =~ tr/\202\204\213\221\222\223\224\225\226\227\233\246\253\271\273/\,\"\<\'\'\"\"\-\-\-\>\|\"\N\"/;
	return $str;

</%INIT>