/[webpac]/branches/hidra/my_unac_string.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /branches/hidra/my_unac_string.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 632 by dpavlin, Tue Sep 21 16:53:44 2004 UTC revision 633 by dpavlin, Sun Jan 16 18:57:15 2005 UTC
# Line 9  sub my_unac_string { Line 9  sub my_unac_string {
9          my $string = shift || return;          my $string = shift || return;
10          $string = unac_string($charset,$string);          $string = unac_string($charset,$string);
11          $string =~ tr/ðÐ/dD/;          $string =~ tr/ðÐ/dD/;
12            $string =~ s#&(\w)(acute|cedil|circ|grave|ring|slash|tilde|uml);#$1#gi;
13          return $string;          return $string;
14  }  }
15    

Legend:
Removed from v.632  
changed lines
  Added in v.633

  ViewVC Help
Powered by ViewVC 1.1.26