fix_string routine

#######################################################

# fix_string($string) massages string input

# converts double spaces to single space

# single quotes to doubled-up quotes, ampersands to 'and'

#######################################################

sub fix_string {

local($input) = @_;

$input =~ s/\s{2,}/ /g;

$input =~ s/'/''/g;

$input =~ s/&/ and /g;

return $input;

}