[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.22 and 1.925.2.25

version 1.925.2.22, 2010/12/05 17:40:24 version 1.925.2.25, 2010/12/06 18:00:41
Line 4581  sub bodytag { Line 4581  sub bodytag {
         my %cicourses;          my %cicourses;
         my $udom = $env{'user.domain'};          my $udom = $env{'user.domain'};
         my %allnums = &get_faculty_cnums();          my %allnums = &get_faculty_cnums();
         if ($udom ne '' && ref($allnums{$udom} eq 'HASH') {          if (($udom ne '') && (ref($allnums{$udom}) eq 'HASH')) {
              foreach my $key (%{$allnums{$udom}}) {               foreach my $key (%{$allnums{$udom}}) {
                  $cicourses{$udom.'_'.$key} = $allnums{$udom}->{$key};                   $cicourses{$udom.'_'.$key} = $allnums{$udom}->{$key};
              }               }
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'}}) {          return unless (scalar(keys(%{$cnums})) > 1);
           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 11046  sub ci_tabs { Line 11047  sub ci_tabs {
     my %tabs = (      my %tabs = (
                  gci  => ['review','submit','managetest','tutorial'],                   gci  => ['review','submit','managetest','tutorial'],
                  slci => ['review'],                   slci => ['review'],
                  );
     return $tabs{$domain};      return $tabs{$domain};
 }  }
   
Line 11072  sub get_faculty_cnums { Line 11074  sub get_faculty_cnums {
          gci => {            gci => { 
                     review => '9615072b469884921gcil1',                      review => '9615072b469884921gcil1',
                     submit => '1H96711d710194bfegcil1',                      submit => '1H96711d710194bfegcil1',
                     tutorial' => '5422913620b814c90gcil1',                      tutorial => '5422913620b814c90gcil1',
                 },                  },
          slci => {           slci => {
                     review => '',                      review => '4V80581c93ffc4c38gcil1',
                  }                   }
     );      );
     return %cnums;      return %cnums;
Removed from v.1.925.2.22  
changed lines
  Added in v.1.925.2.25

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