Changeset 175


Ignore:
Timestamp:
Jan 19, 2018, 6:06:03 PM (3 years ago)
Author:
g7moreau
Message:
  • Error in data_set list
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/project-meta/project-meta

    r174 r175  
    117117sub cmd_make_link {
    118118   my $meta = YAML::Syck::LoadFile("PROJECT-META.yml");
    119    my $acronym = $meta->{'project'}{'acronym'};
    120    my $current_dir = Cwd::getcwd();
    121    my $dap_folder = $meta->{'public-dap'}{'dap-folder'};
    122 
    123    push @{$dap_folder}, 'AUTHORS.txt', 'COPYRIGHT.txt', 'LICENCE.txt';
     119   my $current_dir = Cwd::getcwd();
     120   my $acronym     = $meta->{'project'}{'acronym'};
     121   my $dap_folder  = $meta->{'public-dap'}{'dap-folder'};
     122   my $data_set    = $meta->{'public-dap'}{'data-set'};
     123
     124   push @{$data_set}, 'AUTHORS.txt', 'COPYRIGHT.txt', 'LICENCE.txt';
    124125   {
    125126      # Remove doublon
    126127      my %seen = ();
    127       @{$dap_folder} = grep { ! $seen{$_}++ } @{$dap_folder};
     128      @{$data_set} = grep { ! $seen{$_}++ } @{$data_set};
    128129      }
    129130
    130131   # Create a list of the folder
    131132   my %folders;
    132    for my $dataset (@{$meta->{'public-dap'}{'data-set'}}) {
     133   for my $dataset (@{$data_set}) {
    133134      addfolder2list(\%folders, $dataset);
    134135      }
     
    141142      }
    142143
    143    for my $dataset (@{$meta->{'public-dap'}{'data-set'}}) {
     144   for my $dataset (@{$data_set}) {
    144145      if ($dataset =~ m{/}) {
    145146         # Folder case
Note: See TracChangeset for help on using the changeset viewer.