Commit 49f9aed2 authored by Robert Ricci's avatar Robert Ricci

Fix for the parser, from Leigh

parent c2043d30
......@@ -365,11 +365,14 @@ sub GenDefsFile($)
print TCL "# Node Classes\n";
$query_result =
DBQueryFatal("select class,isremotenode,isvirtnode from node_types");
while (my ($class,$isrem,$isvirt) = $query_result->fetchrow_array()) {
DBQueryFatal("select class,isremotenode,isvirtnode,issubnode ".
"from node_types");
while (my ($class,$isrem,$isvirt,$issubnode) =
$query_result->fetchrow_array()) {
print TCL "set hwtypes($class) 1\n";
print TCL "set isremote($class) $isrem\n";
print TCL "set isvirt($class) $isvirt\n";
print TCL "set issubnode($class) $issubnode\n";
}
print TCL "\n";
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment