Commit ab537952 authored by Leigh B. Stoller's avatar Leigh B. Stoller

Minor bug fix; tarballs -> tarfiles

parent 0309b646
......@@ -812,14 +812,14 @@ sub GetTicket($;$)
if (exists($ref->{'tarfiles'})) {
my $tarfiles = $ref->{'tarfiles'};
if (! TBcheck_dbslot($tarfiles, "virt_nodes", "tarballs",
if (! TBcheck_dbslot($tarfiles, "virt_nodes", "tarfiles",
TBDB_CHECKDBSLOT_WARN|TBDB_CHECKDBSLOT_ERROR)) {
$response =
GeniResponse->Create(GENIRESPONSE_BADARGS, undef,
"Invalid tarfiles");
goto bad;
}
$nodeblob->{'tarballs'} = $tarfiles;
$nodeblob->{'tarfiles'} = $tarfiles;
}
my $virtnode = $virtexperiment->NewTableRow("virt_nodes", $nodeblob);
......
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