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

Diff for /loncom/interface/loncoursegroups.pm between versions 1.127.2.1 and 1.127.2.2

version 1.127.2.1, 2017/03/19 17:59:15 version 1.127.2.2, 2019/08/05 19:16:50
Line 335  END Line 335  END
                         $link = '<a href="'.&HTML::Entities::encode($actionlinks{$action}.$group,'<>&"').                          $link = '<a href="'.&HTML::Entities::encode($actionlinks{$action}.$group,'<>&"').
                                 '">'.$lt{$action}.'</a>';                                  '">'.$lt{$action}.'</a>';
                     } else {                      } else {
                         $link =                           $link =
                             &Apache::longroup::get_group_link($cdom,$cnum,$group,$navmap);                               &Apache::longroup::get_group_link($cdom,$cnum,$group,$navmap,
                                                                 $view_permission);
                         if ($link) {                          if ($link) {
                             $link = '<a href="'.$link;                              $link = '<a href="'.$link;
                             $link .= (($link=~/\?/)?'&amp;':'?').'ref=grouplist';                              $link .= (($link=~/\?/)?'&amp;':'?').'ref=grouplist';
Line 400  END Line 401  END
     } else {      } else {
         my @coursegroups = split(/:/,$env{'request.course.groups'});          my @coursegroups = split(/:/,$env{'request.course.groups'});
         if (@coursegroups > 0) {          if (@coursegroups > 0) {
               my $numlinks = 0;
             $r->print('<br /><br />');              $r->print('<br /><br />');
             my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum);              my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum);
             if (%curr_groups) {              if (%curr_groups) {
Line 416  END Line 418  END
                                         $curr_groups{$group});                                          $curr_groups{$group});
                     my $description = &unescape(                      my $description = &unescape(
                                         $group_info{description});                                          $group_info{description});
                     my $link =                       my ($link,$hidden) = 
                         &Apache::longroup::get_group_link($cdom,$cnum,$group,$navmap).                          &Apache::longroup::get_group_link($cdom,$cnum,$group,$navmap,
                         '&amp;ref=grouplist';                                                            $view_permission);
                     $r->print('<span style="font-size: larger"><a href="'.$link.'">'.$group,'</a></span><br /><small>'.$description.'</small><br /><br />');                      if ($link) {
                           $link .= '&amp;ref=grouplist';
                           $r->print('<span style="font-size: larger"><a href="'.$link.'">'.
                                     $description.'</a></span><br /><br />');
                           $numlinks ++;
                       } elsif ($hidden) {
                           my $numtools = 0;
                           my $refarg = '&amp;ref=grouplist';
                           my $output =
                               &Apache::longroup::display_group_links($r,$env{'form.grade_target'},$group,'view',
                                                                      $refarg,\$numtools,$hidden,%group_info);
                           if ($numtools) {
                               $r->print('<span style="font-size: larger">'.$description.'</a></span>'.
                                         '<br />'.$output.'<br /><br />');
                               $numlinks ++;
                           }
                       }
                 }                  }
             }              }
               if (!$numlinks) {
                   $r->print(
                       '<p class="LC_info">'
                      .&mt('You do not currently have access to any '.$gpterm.'s'
                      .' in this '.lc($crstype).'.')
                      .'</p>'
                   );
               }
         } else {          } else {
             $r->print(              $r->print(
                 '<p class="LC_info">'                  '<p class="LC_info">'
Removed from v.1.127.2.1  
changed lines
  Added in v.1.127.2.2

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