summaryrefslogtreecommitdiffstats
path: root/tools/csv
diff options
context:
space:
mode:
Diffstat (limited to 'tools/csv')
-rwxr-xr-xtools/csv15
1 files changed, 15 insertions, 0 deletions
diff --git a/tools/csv b/tools/csv
index f11e444..6c27a93 100755
--- a/tools/csv
+++ b/tools/csv
@@ -28,7 +28,10 @@ my $title;
my $what;
my $date;
my $location;
+my $genre;
my $license;
+my $organization;
+my $contact;
my @takk;
my @url;
@@ -58,8 +61,14 @@ while (<CSV>) {
$date=$index;
} elsif ($_ eq "Location") {
$location=$index;
+ } elsif ($_ eq "Genre") {
+ $genre=$index;
} elsif ($_ eq "License") {
$license=$index;
+ } elsif ($_ eq "Organization") {
+ $organization=$index;
+ } elsif ($_ eq "Contact") {
+ $contact=$index;
} elsif ($_ eq "Takk") {
push(@takk, $index);
} elsif ($_ eq "URL") {
@@ -86,8 +95,14 @@ while (<CSV>) {
print "$columns[$date]";
} elsif ($info eq "location") {
print "$columns[$location]";
+ } elsif ($info eq "genre") {
+ print "$columns[$genre]";
} elsif ($info eq "license") {
print "$columns[$license]";
+ } elsif ($info eq "organization") {
+ print "$columns[$organization]";
+ } elsif ($info eq "contact") {
+ print "$columns[$contact]";
} elsif ($info eq "takk") {
foreach (@takk) {
my $takk = $columns[$_];