print $query->popup_menu(-name=>'userid',
                            -values=>\@users);

##</code><code>##

# open the text database
    unless(open(PFD,$db))
    {
        &printError("Could not open user database");
        exit(1);
    }
    
# first check if user exist
    $path='';
    while (<PFD>)
    {
        chomp;
        ($u,$p,$path)=split('\|',$_);###$u loop?? how?
        if ($userid eq $u)
        {
            $rc=1;
            last;

        }
    }
    close(PFD);