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

Diff for /loncom/interface/courseprefs.pm between versions 1.77 and 1.79

version 1.77, 2016/03/23 02:19:09 version 1.79, 2016/05/13 22:57:45
Line 2567  sub display_loncaparev_constraints { Line 2567  sub display_loncaparev_constraints {
                     }                      }
                 }                  }
             }              }
             foreach my $item (keys(%Apache::lonrelrequtils::checkparmsmatch)) {              foreach my $item (keys(%Apache::lonrelrequtils::checkparmvalsmatch)) {
                 if (ref($Apache::lonrelrequtils::checkparmsmatch{$item}) eq 'ARRAY') {                  if (ref($Apache::lonrelrequtils::checkparmvalsmatch{$item}) eq 'ARRAY') {
                     my $value = $resourcedata->{$key};                      my $value = $resourcedata->{$key};
                     foreach my $valuematch (@{$Apache::lonrelrequtils::checkparmsmatch{$item}}) {                      foreach my $valuematch (@{$Apache::lonrelrequtils::checkparmvalsmatch{$item}}) {
                         if ($value =~ /$valuematch/) {                          if ($value =~ /$valuematch/) {
                             my $stdtype = &Apache::lonparmset::standard_parameter_types($item);                              my $stdtype = &Apache::lonparmset::standard_parameter_types($item);
                             $found{$item}{'valname'} = &get_param_description($stdtype,$value,1);                              $found{$item}{'valname'} = &get_param_description($stdtype,$value,1);
Line 2734  sub display_loncaparev_constraints { Line 2734  sub display_loncaparev_constraints {
     if (keys(%comm_blocks) > 0) {      if (keys(%comm_blocks) > 0) {
         foreach my $block (keys(%comm_blocks)) {          foreach my $block (keys(%comm_blocks)) {
             if ($block =~ /^firstaccess____(.+)$/) {              if ($block =~ /^firstaccess____(.+)$/) {
                 my $rev = $Apache::lonnet::needsrelease{'course:commblock:timer:'};                  my $rev = $Apache::lonnet::needsrelease{'course:commblock:timer'};
                 if (ref($comm_blocks{$block}) eq 'HASH') {                  if (ref($comm_blocks{$block}) eq 'HASH') {
                     push(@{$fromblocks{'timer'}{$rev}},&unescape($comm_blocks{$block}{'event'}).                      push(@{$fromblocks{'timer'}{$rev}},&unescape($comm_blocks{$block}{'event'}).
                          ' '.&mt('set by [_1]',                           ' '.&mt('set by [_1]',
Line 2749  sub display_loncaparev_constraints { Line 2749  sub display_loncaparev_constraints {
                 if (ref($comm_blocks{$block}{'blocks'}) eq 'HASH') {                  if (ref($comm_blocks{$block}{'blocks'}) eq 'HASH') {
                     if (ref($comm_blocks{$block}{'blocks'}{'docs'}) eq 'HASH') {                      if (ref($comm_blocks{$block}{'blocks'}{'docs'}) eq 'HASH') {
                         if (keys(%{$comm_blocks{$block}{'blocks'}{'docs'}}) > 0) {                          if (keys(%{$comm_blocks{$block}{'blocks'}{'docs'}}) > 0) {
                             my $rev = $Apache::lonnet::needsrelease{'course:commblock:docs:'};                              my $rev = $Apache::lonnet::needsrelease{'course:commblock:docs'};
                             push(@{$fromblocks{'docs'}{$rev}},&unescape($comm_blocks{$block}{'event'}).                              push(@{$fromblocks{'docs'}{$rev}},&unescape($comm_blocks{$block}{'event'}).
                                  ' '.                                   ' '.
                                  &mt('set by [_1]',                                   &mt('set by [_1]',
                                      &Apache::loncommon::plainname(split(/:/,$comm_blocks{$block}{'setter'}))));                                       &Apache::loncommon::plainname(split(/:/,$comm_blocks{$block}{'setter'}))));
                         }                          }
                     } elsif ($comm_blocks{$block}{'blocks'}{'printout'} eq 'on') {                      } elsif ($comm_blocks{$block}{'blocks'}{'printout'} eq 'on') {
                         my $rev = $Apache::lonnet::needsrelease{'course:commblock:printout:'};                          my $rev = $Apache::lonnet::needsrelease{'course:commblock:printout'};
                         push(@{$fromblocks{'printout'}{$rev}},&unescape($comm_blocks{$block}{'event'}).                          push(@{$fromblocks{'printout'}{$rev}},&unescape($comm_blocks{$block}{'event'}).
                              ' '.                               ' '.
                              &mt('set by [_1]',                               &mt('set by [_1]',
Removed from v.1.77  
changed lines
  Added in v.1.79

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