my $csr = $this->sqlSelectMany('title', "node", "type_nodetype=1");
        while ($_ = $csr->fetchrow_hashref) {
                my $found = 0;
                my $name = $$_{title};
                $name =~ s/\W//g;
                my $inc_name = "Everything/Node/$name.pm";
                my $modname = "Everything::Node::$name";
                foreach my $lib (@INC) {
                        if (-e "$lib/$inc_name") {
                                $found = 1;
                                last;