#------------------------------------------------------------------------------ # Function: Make UPPER case on strings without destroy # HTML special characters # Parameters: None # Input: String # Output: None # Return: Upper Case String # # Function replaces uc in line 8094(former 8060) & 8187(former 8153) #------------------------------------------------------------------------------ sub uc_fix { my ($string) = @_; my $change = 0; if($string =~ /&/) { my $special_char=0; for(my $character=0 ; $character