diff options
Diffstat (limited to 'build_db.plx')
| -rwxr-xr-x | build_db.plx | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/build_db.plx b/build_db.plx index 7bb6072..1b01b58 100755 --- a/build_db.plx +++ b/build_db.plx @@ -205,7 +205,7 @@ if (!$options{append}){ # Need to create additional columns for ID and PATH $statement = "CREATE TABLE $table_name (ID INTEGER PRIMARY KEY AUTOINCREMENT NOT NULL, - PATH TEXT NOT NULL"; + PATH TEXT NOT NULL UNIQUE"; for my $i (sort(keys %columns)){ $statement = $statement . ", \"$i\" TEXT"; @@ -215,7 +215,6 @@ if (!$options{append}){ } # If appending, add columns where necessary -# FIXME add check to avoid duplicate rows with the same PATH else { for my $i (sort(keys %columns)){ $statement = "SELECT COUNT(*) AS CNTREC FROM pragma_table_info('$table_name') WHERE name='$i';"; @@ -231,7 +230,12 @@ else { $statement = "INSERT INTO $table_name(PATH) VALUES"; for my $file (@file_list){ - $statement = $statement . "(\"$file\"),"; + # Skip existing files + @db_output = flatten_array(db_cmd($dbh, "SELECT count(*) FROM $table_name WHERE PATH='$file';")); + + if(!$db_output[0]){ + $statement = $statement . "(\"$file\"),"; + } } $statement =~ s/[,]$/;/g; db_cmd($dbh, $statement); |