Changeset 27044 for trunk/tools/delete_convolved_diff.pl
- Timestamp:
- Feb 23, 2010, 4:23:05 PM (16 years ago)
- File:
-
- 1 edited
-
trunk/tools/delete_convolved_diff.pl (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/tools/delete_convolved_diff.pl
r27043 r27044 42 42 my @files; # Files to clean up 43 43 { 44 my $sql = "SELECT path_base FROM diffSkyfile JOIN diffRun USING(diff_id) JOIN magicRun USING(diff_id) WHERE diffRun.state IN ('full', 'drop') AND magicRun.state IN ('full', 'drop', 'censored') LIMIT 5";44 my $sql = "SELECT path_base FROM diffSkyfile JOIN diffRun USING(diff_id) JOIN magicRun USING(diff_id) WHERE diffRun.state IN ('full', 'drop') AND magicRun.state IN ('full', 'drop', 'censored')"; 45 45 my $results = $db->selectall_arrayref( $sql ) or die "Unable to execute SQL: $DBI::errstr"; 46 46 foreach my $result ( @$results ) {
Note:
See TracChangeset
for help on using the changeset viewer.
