added missing rights for abundanceprofile

MG-RAST · Dec 18, 2012 · bba89ac · bba89ac
1 parent 133a88b
commit bba89ac
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/src/MGRAST/lib/resources2/abundanceprofile.pm b/src/MGRAST/lib/resources2/abundanceprofile.pm
@@ -17,7 +17,9 @@ sub new {
     my $self = $class->SUPER::new(@args);
 
     # Add name / attributes
+    my %rights = $self->user ? map { $_, 1 } @{$self->user->has_right_to(undef, 'view', 'metagenome')} : ();
     $self->{name} = "abundanceprofile";
+    $self->{rights} = \%rights;
     $self->{attributes} = { "id"                  => [ 'string', 'unique object identifier' ],
     	                    "format"              => [ 'string', 'format specification name' ],
     	                    "format_url"          => [ 'string', 'url to the format specification' ],

diff --git a/src/MGRAST/lib/resources2/matrix.pm b/src/MGRAST/lib/resources2/matrix.pm
@@ -346,7 +346,7 @@ sub prepare_data {
         push @$bcols, { id => 'mgm'.$cid, metadata => $cmd };
     }
 
-    my $obj = { "id"                   => join(";", map { $_->{id} } @$bcols).'_'.$glvl.'_'.$source.'_'.$rtype,
+    my $obj = { "id"                   => join(";", sort map { $_->{id} } @$bcols).'_'.$glvl.'_'.$source.'_'.$rtype,
   		        "format"               => "Biological Observation Matrix 1.0",
   		        "format_url"           => "http://biom-format.org",
   		        "type"                 => $ttype." table",