edu_phone_number_p number_to_checkWhat it does:
This makes sure that the number passed in has only numbers, -, (, and ). It returns 1 if the number is valid, 0 otherwise.Defined in: /web/philip/tcl/education.tcl
Source code:
return [regexp {[0-9\-\(\)]} $number_to_check]