| 21 |
|
|
| 22 |
|
if ($opt{"dataset"}) |
| 23 |
|
{ |
| 24 |
< |
my $query = "select workingDirectory,location,dataset,user,creationTime from ntuple where dataset like '$dataset' order by creationTime"; |
| 24 |
> |
my $queryDataset = $dataset; |
| 25 |
> |
$queryDataset =~ s/\*/%/g; |
| 26 |
> |
$queryDataset =~ s/(.*)/%$1%/g; |
| 27 |
> |
my $query = "select workingDirectory,location,dataset,user,creationTime from ntuple where dataset like '$queryDataset' order by creationTime"; |
| 28 |
|
$db->selectdb ("ntuple"); |
| 29 |
|
my $results = $db->query ($query); |
| 30 |
|
if ($results->numrows () == 1) |
