sub get_schoolname( $ )
{
    my $id = $_[0];
    my $schoolname;
    #get groupname from current database  
    open(SCHOOLDATA,"school_data.pdt") or die "Can't open school data file: $!";
    while ( <SCHOOLDATA> )
    {
        chomp($_);
        @split_record = split( /\|/ , $_ );
        print $split_record[0];
        if( $split_record[0] eq $id )
        {    
            $schoolname = $split_record[1];
        }
    }
    close( SCHOOLDATA );
    return( $schoolname );
};