sub my_sort_article {
  my ($c,$d,$type) = @_;
  $c = lc($c);
  $d = lc($d);

  my $t = my_sort_index($c, $d);
  return $t if $t;

  # Written with the help of kent/n in #perl on freenode.
      
  for ($c, $d) {
    s/<.+?>//g; # Strip out any html tags.
    s/\s*\b(A|a|An|an|The|the)(_|\s)//xi; # Strip off leading articles (in English).
    decode_entities($_);
  }
  if ( $c =~/^((\d|,|\.)+)(.*)$/ && $d =~ /^((\d|,|\.)+)(.*)$/) {
    my ($num1, $text1) = split_out_leading_number($c);
    my ($num2, $text2) = split_out_leading_number($d);

    # First compare the numbers, then compare the remaining parts of the string.
    $num1 <=> $num2 || $text1 cmp $text2
  }
  else {
    $c cmp $d;
  }
}