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

Diff for /loncom/interface/longroup.pm between versions 1.6 and 1.7

version 1.6, 2006/06/28 23:38:10 version 1.7, 2006/06/30 18:27:19
Line 452  sub sum_quotas { Line 452  sub sum_quotas {
   
 ###############################################  ###############################################
   
   sub get_bbfolder_url {
       my ($cdom,$cnum,$group) = @_;
       my %curr_groups = &coursegroups($cdom,$cnum,$group);
       my $grpbbmap;
       if (%curr_groups) {
           my %group_info =  &get_group_settings($curr_groups{$group});
           my $creation = $group_info{'creation'};
           my $bbfolder = $creation + 1;
           my $crspath = '/uploaded/'.$cdom.'/'.$cnum.'/';
           $grpbbmap = $crspath.'default_'.$bbfolder.'.sequence';
       }
       return $grpbbmap;
   }
   
   ###############################################
   
   sub get_group_bbinfo {
       my ($cdom,$cnum,$group) = @_;
       my $navmap = Apache::lonnavmaps::navmap->new();
       my @groupboards;
       my %boardshash;
       my $grpbbmap = &get_bbfolder_url($cdom,$cnum,$group);
       if ($grpbbmap) {
           my $bbfolderres = $navmap->getResourceByUrl($grpbbmap);
           if ($bbfolderres) {
               my @boards = $navmap->retrieveResources($bbfolderres,undef,0,0);
               foreach my $res (@boards) {
                   my $url = $res->src();
                   if ($url =~ m|^/adm/\Q$cdom\E/\Q$cnum\E/\d+/bulletinboard|) {
                       push(@groupboards,$res->symb());
                       $boardshash{$res->symb()} = {
                                                     title => $res->title(),
                                                     url   => $res->src(),
                                                   };
                   }
               }
           }
       }
       undef($navmap);
       return (\@groupboards,\%boardshash);
   }
   
   ###############################################
   
 1;  1;
   
Removed from v.1.6  
changed lines
  Added in v.1.7

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