Changeset 175

Timestamp:

Jan 19, 2018, 6:06:03 PM (7 years ago)

Author:

g7moreau

Message:

• Error in data_set list

File:

• trunk/project-meta/project-meta (modified) (2 diffs)

trunk/project-meta/project-meta

@@ -117 +117 @@
 sub cmd_make_link {
    my $meta = YAML::Syck::LoadFile("PROJECT-META.yml");
-   my $acronym = $meta->{'project'}{'acronym'};
-   my $current_dir = Cwd::getcwd();
-   my $dap_folder = $meta->{'public-dap'}{'dap-folder'};
-
-   push @{$dap_folder}, 'AUTHORS.txt', 'COPYRIGHT.txt', 'LICENCE.txt';
+   my $current_dir = Cwd::getcwd();
+   my $acronym     = $meta->{'project'}{'acronym'};
+   my $dap_folder  = $meta->{'public-dap'}{'dap-folder'};
+   my $data_set    = $meta->{'public-dap'}{'data-set'};
+
+   push @{$data_set}, 'AUTHORS.txt', 'COPYRIGHT.txt', 'LICENCE.txt';
    {
       # Remove doublon
       my %seen = ();
-      @{$dap_folder} = grep { ! $seen{$_}++ } @{$dap_folder};
+      @{$data_set} = grep { ! $seen{$_}++ } @{$data_set};
       }
 
    # Create a list of the folder
    my %folders;
-   for my $dataset (@{$meta->{'public-dap'}{'data-set'}}) {
+   for my $dataset (@{$data_set}) {
       addfolder2list(\%folders, $dataset);
       }
@@ -141 +142 @@
       }
 
-   for my $dataset (@{$meta->{'public-dap'}{'data-set'}}) {
+   for my $dataset (@{$data_set}) {
       if ($dataset =~ m{/}) {
          # Folder case