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

Diff for /loncom/interface/loncommon.pm between versions 1.865 and 1.866

version 1.865, 2009/07/25 23:16:04 version 1.866, 2009/07/26 20:39:46
Line 3766  sub blockcheck { Line 3766  sub blockcheck {
                  ($env{'request.role'} !~ m{^st\./\Q$cdom\E/\Q$cnum\E}));                   ($env{'request.role'} !~ m{^st\./\Q$cdom\E/\Q$cnum\E}));
         next if ($no_userblock);          next if ($no_userblock);
   
         # Retrieve blocking times and identity of blocker for course          # Retrieve blocking times and identity of locker for course
         # of specified user, unless user has 'evb' privilege.          # of specified user, unless user has 'evb' privilege.
                   
         my ($start,$end)=&get_blocks($setters,$activity,$cdom,$cnum);          my ($start,$end)=&get_blocks($setters,$activity,$cdom,$cnum);
Line 3916  sub blocking_status_print { Line 3916  sub blocking_status_print {
             my $category;              my $category;
             if ($activity eq 'boards') {              if ($activity eq 'boards') {
                 $category = 'Discussion posts in this course';                  $category = 'Discussion posts in this course';
               } elsif ($activity eq 'chat') {
                   $category = 'Chat';
               } elsif ($activity eq 'msgdisplay') {
                   $category = 'This message';
             } elsif ($activity eq 'blogs') {              } elsif ($activity eq 'blogs') {
                 $category = 'Blogs';                  $category = 'Blogs'; 
             } elsif ($activity eq 'port') {              } elsif ($activity eq 'port') {
                 if (defined($uname) && defined($udom)) {                  if (defined($uname) && defined($udom)) {
                     if ($uname eq $env{'user.name'} &&                      if ($uname eq $env{'user.name'} &&
Line 3947  sub blocking_status_print { Line 3951  sub blocking_status_print {
                 }                  }
             } elsif ($activity eq 'groups') {              } elsif ($activity eq 'groups') {
                 $category = 'Groups in this course';                  $category = 'Groups in this course';
               } else {
                   $category = 'Communication';
             }              }
             my $showstart = &Apache::lonlocal::locallocaltime($startblock);              my $showstart = &Apache::lonlocal::locallocaltime($startblock);
             my $showend = &Apache::lonlocal::locallocaltime($endblock);              my $showend = &Apache::lonlocal::locallocaltime($endblock);
Removed from v.1.865  
changed lines
  Added in v.1.866

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