[LON-CAPA-cvs] cvs: loncom /interface courseprefs.pm

[raeburn]

raeburn		Fri May 13 19:03:37 2016 EDT

  Modified files:              
    /loncom/interface	courseprefs.pm 
  Log:
  - Reverse part of changes in rev. 1.74
    - Keys in %Apache::lonnet::needsrelease only include two : separators
      if constraint is for a course.
  
  
Index: loncom/interface/courseprefs.pm
diff -u loncom/interface/courseprefs.pm:1.77 loncom/interface/courseprefs.pm:1.78
--- loncom/interface/courseprefs.pm:1.77	Wed Mar 23 02:19:09 2016
+++ loncom/interface/courseprefs.pm	Fri May 13 19:03:36 2016
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set configuration settings for a course
 #
-# $Id: courseprefs.pm,v 1.77 2016/03/23 02:19:09 raeburn Exp $
+# $Id: courseprefs.pm,v 1.78 2016/05/13 19:03:36 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2734,7 +2734,7 @@
     if (keys(%comm_blocks) > 0) {
         foreach my $block (keys(%comm_blocks)) {
             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') {
                     push(@{$fromblocks{'timer'}{$rev}},&unescape($comm_blocks{$block}{'event'}).
                          ' '.&mt('set by [_1]',
@@ -2749,14 +2749,14 @@
                 if (ref($comm_blocks{$block}{'blocks'}) eq 'HASH') {
                     if (ref($comm_blocks{$block}{'blocks'}{'docs'}) eq 'HASH') {
                         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'}).
                                  ' '.
                                  &mt('set by [_1]',
                                      &Apache::loncommon::plainname(split(/:/,$comm_blocks{$block}{'setter'}))));
                         }
                     } 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'}).
                              ' '.
                              &mt('set by [_1]',