[Bio] / SubsystemEditor / WebPage / ShowSubsystem.pm Repository:
ViewVC logotype

Diff of /SubsystemEditor/WebPage/ShowSubsystem.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.29, Mon Oct 12 09:50:26 2009 UTC revision 1.30, Fri Oct 23 12:32:31 2009 UTC
# Line 313  Line 313 
313      my $annotatorsBox = "<SELECT NAME='ANNOBOX' ID='ANNOBOX'>";      my $annotatorsBox = "<SELECT NAME='ANNOBOX' ID='ANNOBOX'>";
314      my $alreadyAnnotatorsBox = "<SELECT NAME='ALANNOBOX' ID='ALANNOBOX'>";      my $alreadyAnnotatorsBox = "<SELECT NAME='ALANNOBOX' ID='ALANNOBOX'>";
315      foreach my $a ( @$user_groups_have_right ) {      foreach my $a ( @$user_groups_have_right ) {
316        $alreadyAnnotatorsBox .= "<OPTION VALUE='".$a->[0]."|group ".$a->[1]."'>group ".$a->[1].' ( '.$a->login." )</OPTION>";        $alreadyAnnotatorsBox .= "<OPTION VALUE='".$a->[0]."|group ".$a->[1]."'>group ".$a->[1]."</OPTION>";
317      }      }
318      foreach my $a ( @$user_groups_not_have_right ) {      foreach my $a ( @$user_groups_not_have_right ) {
319        $annotatorsBox .= "<OPTION VALUE='".$a->[0]."|group ".$a->[1]."'>group ".$a->[1].' ( '.$a->login." )</OPTION>";        $annotatorsBox .= "<OPTION VALUE='".$a->[0]."|group ".$a->[1]."'>group ".$a->[1]."</OPTION>";
320      }      }
321      foreach my $a ( @$annoMems ) {      foreach my $a ( @$annoMems ) {
322        unless ( $a->has_right( undef, 'edit', 'subsystem', $name ) ) {        unless ( $a->has_right( undef, 'edit', 'subsystem', $name ) ) {

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3