package cddata; ##cddata.pm
use autocd::users;

sub addUser($ $){

      my $username = shift;
      my $rolename = shift;

      my $roleid=autocd::roles->search(rolename => $rolename);

      if (!$roleid || !$username){
         return "";
      }
      return autocd::users->insert({ roleid => $roleid, username=$username});
}





Users Table Def:
_______________

+----------+--------------+------+-----+---------+----------------+
| Field    | Type         | Null | Key | Default | Extra          |
+----------+--------------+------+-----+---------+----------------+
| userid   | int(10)      | NO   | PRI | NULL    | auto_increment |
| roleid   | int(10)      | NO   |     |         |                |
| username | varchar(200) | NO   |     |         |                |
+----------+--------------+------+-----+---------+----------------+




package autocd::users; ##users.pm

use base 'autocd::autocd';

autocd::users->table('Users');
autocd::users->columns(Primary => qw/userid/);
autocd::users->columns(Essential => qw/roleid username/);