Changeset 2086

Show
Ignore:
Timestamp:
04/25/08 01:00:26 (15 months ago)
Author:
bchoate
Message:

Preserve dashes through dirification. BugId:79377

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • branches/release-36/lib/MT/Util.pm

    r1912 r2086  
    653653    $s = remove_html($s);         ## remove HTML tags. 
    654654    $s =~ s!&[^;\s]+;!!gs;        ## remove HTML entities. 
    655     $s =~ s![^\w\s]!!gs;          ## remove non-word/space chars. 
     655    $s =~ s![^\w\s-]!!gs;          ## remove non-word/space chars. 
    656656    $s =~ s!\s+!$sep!gs;          ## change space chars to underscores. 
    657657    $s;     
    … …  
    670670    $s = remove_html($s);         ## remove HTML tags. 
    671671    $s =~ s!&[^;\s]+;!!gs;        ## remove HTML entities. 
    672     $s =~ s![^\w\s]!!gs;          ## remove non-word/space chars. 
     672    $s =~ s![^\w\s-]!!gs;          ## remove non-word/space chars. 
    673673    $s =~ s!\s+!$sep!gs;          ## change space chars to underscores. 
    674674    $s;