[BACK]Return to longroup.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/longroup.pm between versions 1.9 and 1.10

version 1.9, 2006/07/08 00:52:45 version 1.10, 2006/07/17 15:07:26
Line 439  sub get_tool_privs { Line 439  sub get_tool_privs {
         discussion => {          discussion => {
             cgb => 'Create boards',              cgb => 'Create boards',
             pgd => 'Post',              pgd => 'Post',
             pag => 'Anon. posts',              egp => 'Edit own posts',
             rgi => 'Get identities',              dgp => 'Hide/Delete any post',
             vgb => 'View boards',              vgb => 'View boards',
         },          },
         chat       => {          chat       => {
Line 454  sub get_tool_privs { Line 454  sub get_tool_privs {
             agf => 'Control Access',              agf => 'Control Access',
         },          },
         roster     => {          roster     => {
             vgm => 'View',              vgm => 'Basic Display',
               vmd => 'Detailed Display',
         },          },
         homepage   => {          homepage   => {
             vgh => 'View page',              vgh => 'View page',
Line 519  sub group_memberlist { Line 520  sub group_memberlist {
                         $current{$user}{'status'} = 'active';                          $current{$user}{'status'} = 'active';
                         $member_nums{'active'} ++;                          $member_nums{'active'} ++;
                     }                      }
                     if (@userprivs > 0) {                      if ((@userprivs > 0) && (ref($fixedprivs) eq 'HASH')) {
                         foreach my $tool (sort(keys(%{$fixedprivs}))) {                          foreach my $tool (sort(keys(%{$fixedprivs}))) {
                             foreach my $priv (keys(%{$$fixedprivs{$tool}})) {                              foreach my $priv (keys(%{$$fixedprivs{$tool}})) {
                                 if (grep/^$priv$/,@userprivs) {                                  if (grep/^$priv$/,@userprivs) {
Line 530  sub group_memberlist { Line 531  sub group_memberlist {
                         }                          }
                         $hastools = 1;                          $hastools = 1;
                     }                      }
                     if (@{$available} > 0) {                      if ((ref($available) eq 'ARRAY') && (@{$available} > 0)) {
                         if (@{$current{$user}{currtools}} > 0) {                          if (@{$current{$user}{currtools}} > 0) {
                             if ("@{$available}" ne "@{$current{$user}{currtools}}") {                              if ("@{$available}" ne "@{$current{$user}{currtools}}") {
                                 foreach my $tool (@{$available}) {                                  foreach my $tool (@{$available}) {
Line 565  sub group_memberlist { Line 566  sub group_memberlist {
             }              }
         }          }
     }      }
     return (\%current,$hastools,$addtools,\%member_nums);      return (\%current,\%member_nums,$hastools,$addtools);
 }  }
   
 ###############################################  ###############################################
Line 621  sub get_bbfolder_url { Line 622  sub get_bbfolder_url {
 ###############################################  ###############################################
   
 sub get_group_bbinfo {  sub get_group_bbinfo {
     my ($cdom,$cnum,$group) = @_;      my ($cdom,$cnum,$group,$boardurl) = @_;
     my $navmap = Apache::lonnavmaps::navmap->new();      my $navmap = Apache::lonnavmaps::navmap->new();
     my @groupboards;      my @groupboards;
     my %boardshash;      my %boardshash;
Line 632  sub get_group_bbinfo { Line 633  sub get_group_bbinfo {
             my @boards = $navmap->retrieveResources($bbfolderres,undef,0,0);              my @boards = $navmap->retrieveResources($bbfolderres,undef,0,0);
             foreach my $res (@boards) {              foreach my $res (@boards) {
                 my $url = $res->src();                  my $url = $res->src();
                 if ($url =~ m|^/adm/\Q$cdom\E/\Q$cnum\E/\d+/bulletinboard|) {                  if ($url =~ m|^(/adm/\Q$cdom\E/\Q$cnum\E/\d+/bulletinboard)|) {
                     push(@groupboards,$res->symb());                      if ($boardurl) {
                     $boardshash{$res->symb()} = {                          if ($boardurl =~ /^\Q$1\E/) {
                                                   title => $res->title(),                              push(@groupboards,$res->symb());
                                                   url   => $res->src(),                              $boardshash{$res->symb()} = {
                                                 };                                                          title => $res->title(),
                                                           url   => $res->src(),
                                                           };
                               last;
                           }
                       } else {
                           push(@groupboards,$res->symb());
                           $boardshash{$res->symb()} = {
                                                         title => $res->title(),
                                                         url   => $res->src(),
                                                       };
                       }
                 }                  }
             }              }
         }          }
Removed from v.1.9  
changed lines
  Added in v.1.10

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>