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

Diff for /loncom/interface/loncommon.pm between versions 1.925.2.23 and 1.925.2.26

version 1.925.2.23, 2010/12/05 19:35:38 version 1.925.2.26, 2010/12/07 04:33:49
Line 11021  sub needs_gci_custom { Line 11021  sub needs_gci_custom {
         my %allnums = &get_faculty_cnums();          my %allnums = &get_faculty_cnums();
         my $cnums = $allnums{$udom};          my $cnums = $allnums{$udom};
         return unless (ref($cnums) eq 'HASH');          return unless (ref($cnums) eq 'HASH');
         if ($env{'user.role.st./\Q$udom\E/'.$cnums->{'review'}}) {          if ($env{"user.role.st./$udom/$cnums->{'review'}"}) {
             my ($start,$end) =              my ($start,$end) =
                 split('.',$env{'user.role.st./\Q$udom\E/'.$cnums->{'review'}});                  split('.',$env{"user.role.st./$udom/$cnums->{'review'}"});
             if (((!$start) || ($start && $start <= $now)) &&              if (((!$start) || ($start && $start <= $now)) &&
                 ((!$end) || ($end > $now))) {                  ((!$end) || ($end > $now))) {
                 $custommenu = 1;                  $custommenu = 1;
                 if ($env{'user.role.cc./\Q$udom\E/'.$cnums->{'review'}}) {                  if ($env{"user.role.cc./$udom/$cnums->{'review'}"}) {
                     my ($ccstart,$ccend) =                      my ($ccstart,$ccend) =
                         split('.',$env{'user.role.cc./\Q$udom\E/'.$cnums->{'review'}});                          split('.',$env{"user.role.cc./$udom/$cnums->{'review'}"});
                     if (((!$start) || ($start && $start <= $now)) &&                      if (((!$start) || ($start && $start <= $now)) &&
                             ((!$end) || ($end > $now))) {                              ((!$end) || ($end > $now))) {
                         $custommenu = '';                          $custommenu = '';
Line 11076  sub get_faculty_cnums { Line 11076  sub get_faculty_cnums {
                     tutorial => '5422913620b814c90gcil1',                      tutorial => '5422913620b814c90gcil1',
                 },                  },
          slci => {           slci => {
                     review => '',                      review => '4V80581c93ffc4c38gcil1',
                  }                   }
     );      );
     return %cnums;      return %cnums;
Removed from v.1.925.2.23  
changed lines
  Added in v.1.925.2.26

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