/[webpac]/trunk2/all2all.pl
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 /trunk2/all2all.pl

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

revision 546 by dpavlin, Tue Oct 26 18:59:38 2004 UTC revision 549 by dpavlin, Tue Oct 26 20:53:03 2004 UTC
# Line 63  sub unac_2 { Line 63  sub unac_2 {
63                  $string =~ tr//dD/;                  $string =~ tr//dD/;
64                  $string = $pr . $string;                  $string = $pr . $string;
65          }          }
66            $string =~ s/&(\w)(acute|cedil|circ|grave|ring|slash|tilde|uml);/$1/gi;
67            $string =~ s/ð/d/g;
68            $string =~ s/&E[tT][hH];/D/g;
69            $string =~ s/&(\w\w)lig;/$1/gi;
70          return lc($string);          return lc($string);
71  }  }
72    

Legend:
Removed from v.546  
changed lines
  Added in v.549

  ViewVC Help
Powered by ViewVC 1.1.26