| 177 |
|
my $queryDataset = $dataset; |
| 178 |
|
$queryDataset =~ s/\*/%/g; |
| 179 |
|
$queryDataset =~ s/(.*)/%$1%/g; |
| 180 |
< |
my $query = "select dataset,user,creationTime,location,nFiles,status,crossSectionInPicobarn from ntuple where dataset like '$queryDataset' order by creationTime"; |
| 180 |
> |
my $query = "select dataset,user,creationTime,location,nFiles,status,crossSectionInPicobarn,higherOrderCrossSectionInPicobarn from ntuple where dataset like '$queryDataset' order by creationTime"; |
| 181 |
|
$db->selectdb ("ntuple"); |
| 182 |
|
$results = $db->query ($query); |
| 183 |
|
if ($results->numrows () == 1) |
| 184 |
|
{ |
| 185 |
|
my @row = $results->fetchrow (); |
| 186 |
< |
return ($row[3], $row[4], $row[5], $row[6]); |
| 186 |
> |
return ($row[3], $row[4], $row[5], $row[7]) if $row[7]; |
| 187 |
> |
return ($row[3], $row[4], $row[5], $row[6]) if !$row[7]; |
| 188 |
|
} |
| 189 |
|
if ($results->numrows () == 0) |
| 190 |
|
{ |
| 197 |
|
for (my $i = 1; $i <= $results->numrows (); $i++) |
| 198 |
|
{ |
| 199 |
|
my @row = $results->fetchrow (); |
| 200 |
< |
$map{"$i"} = [$row[3], $row[4], $row[5], $row[6]]; |
| 200 |
> |
$map{"$i"} = [$row[3], $row[4], $row[5], $row[7]] if $row[7]; |
| 201 |
> |
$map{"$i"} = [$row[3], $row[4], $row[5], $row[6]] if !$row[7]; |
| 202 |
|
printf "(%2d) $row[0]\n", $i; |
| 203 |
|
print " created by $row[1] on $row[2]\n"; |
| 204 |
|
} |
