Commit ce3b3139 authored by Leigh Stoller's avatar Leigh Stoller

Fix minor bug.

parent 48283b82
......@@ -64,7 +64,6 @@ my $instance;
my $pid;
my $guid;
my $version;
my $archive_tag;
# Protos
sub ParseArgs();
......@@ -139,10 +138,6 @@ if (! TBProjAccessCheck($this_user->uid(),
exit(1);
}
if ($instance->ArchiveTag(\$archive_tag) < 0) {
fatal(-1, "Could not get current archive tag for instance $exptidx!");
}
if (system("$checkquota " . $this_user->uid()) != 0) {
tberror("You are over your disk quota on $CONTROL; ".
"please login there and cleanup!");
......@@ -285,7 +280,13 @@ if (keys(%runlist)) {
}
}
else {
my $archive_tag;
# This would be silly; exporting an instance with no runs.
if ($instance->ArchiveTag(\$archive_tag) < 0) {
fatal(-1, "Could not get current archive tag for instance $exptidx!");
}
if (libArchive::TBCheckoutExperimentArchivebyExptIDX($exptidx,
$checkout,
$archive_tag) < 0) {
......
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