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

Diff for /loncom/interface/courseprefs.pm between versions 1.73 and 1.74

version 1.73, 2015/09/13 19:55:34 version 1.74, 2015/09/13 21:48:05
Line 2568  sub display_loncaparev_constraints { Line 2568  sub display_loncaparev_constraints {
                     foreach my $valuematch (@{$Apache::lonrelrequtils::checkparmsmatch{$item}}) {                      foreach my $valuematch (@{$Apache::lonrelrequtils::checkparmsmatch{$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);
                             $found{$item}{'rev'} =                               $found{$item}{'rev'} = 
                                 $Apache::lonnet::needsrelease{'parameter:'.$item.'::'.$valuematch};                                  $Apache::lonnet::needsrelease{'parameter:'.$item.'::'.$valuematch};
                             last;                              last;
Line 2703  sub display_loncaparev_constraints { Line 2703  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 2718  sub display_loncaparev_constraints { Line 2718  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]',
Line 2769  sub display_loncaparev_constraints { Line 2769  sub display_loncaparev_constraints {
   
     if (defined($navmap)) {      if (defined($navmap)) {
         my %anonsubms=&Apache::lonnet::dump('nohist_anonsurveys',$cdom,$cnum);          my %anonsubms=&Apache::lonnet::dump('nohist_anonsurveys',$cdom,$cnum);
         my $rev_anonsurv=$Apache::lonnet::needsrelease{'parameter:type:anonsurvey'};          my $rev_anonsurv=$Apache::lonnet::needsrelease{'parameter:type:anonsurvey:'};
         my %randtrysubms=&Apache::lonnet::dump('nohist_randomizetry',$cdom,$cnum);          my %randtrysubms=&Apache::lonnet::dump('nohist_randomizetry',$cdom,$cnum);
         my $rev_randtry=$Apache::lonnet::needsrelease{'parameter:type:randomizetry'};          my $rev_randtry=$Apache::lonnet::needsrelease{'parameter:type:randomizetry:'};
         my $stdtype=&Apache::lonparmset::standard_parameter_types('type');          my $stdtype=&Apache::lonparmset::standard_parameter_types('type');
         my $stdname=&Apache::lonparmset::standard_parameter_names('type');          my $stdname=&Apache::lonparmset::standard_parameter_names('type');
         my $valanon=&get_param_description($stdtype,'anonsurvey');          my $valanon=&get_param_description($stdtype,'anonsurvey');
Line 3083  sub releases_by_map { Line 3083  sub releases_by_map {
 sub get_param_description {  sub get_param_description {
     my ($stdtype,$value,$regexp) = @_;      my ($stdtype,$value,$regexp) = @_;
     my ($name,$parammatches,$paramstrings,@possibles);      my ($name,$parammatches,$paramstrings,@possibles);
     $paramstrings = &Apache::lonparmset::standard_string_options($stdtype);      if ($stdtype =~ /^string/) {
           $paramstrings = &Apache::lonparmset::standard_string_options($stdtype);
       } elsif ($stdtype eq 'date_interval') {
           $paramstrings = &Apache::lonparmset::standard_interval_options($stdtype);
       }
     if ($regexp) {      if ($regexp) {
         $parammatches = &Apache::lonparmset::standard_string_matches($stdtype);          if ($stdtype =~ /^string/) {
               $parammatches = &Apache::lonparmset::standard_string_matches($stdtype);
           } elsif ($stdtype eq 'date_interval') {
               $parammatches = &Apache::lonparmset::standard_interval_matches($stdtype);
           }
         if (ref($parammatches) eq 'ARRAY') {          if (ref($parammatches) eq 'ARRAY') {
             @possibles = @{$parammatches};              @possibles = @{$parammatches};
         } else {          } else {
Removed from v.1.73  
changed lines
  Added in v.1.74

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