edu_phone_number_p

one of the documented procedures in this installation of the ACS
Usage:
edu_phone_number_p   number_to_check
What 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]
philg@mit.edu