ConnectToDatabase();
-# print "Content-type: text/plain\n\n"; # Handy for debugging.
-# $::FORM{'debug'} = 1;
+#print "Content-type: text/plain\n\n"; # Handy for debugging.
+#$::FORM{'debug'} = 1;
if (grep(/^cmd-/, keys(%::FORM))) {
}
},
+ "^(dependson|blocked)," => sub {
+ push(@supptables, "dependencies");
+ $ff = "dependencies.$f";
+ $ref = $funcsbykey{",$t"};
+ &$ref;
+ push(@wherepart, "$term");
+ },
+
",equals" => sub {
$term = "$ff = $q";