[LON-CAPA-cvs] cvs: loncom /publisher lonrights.pm

albertel lon-capa-cvs@mail.lon-capa.org
Fri, 18 Feb 2005 23:15:55 -0000


albertel		Fri Feb 18 18:15:55 2005 EDT

  Modified files:              
    /loncom/publisher	lonrights.pm 
  Log:
  - BUG#3941, move up didn;t work for going from 2 to 1
  
  
Index: loncom/publisher/lonrights.pm
diff -u loncom/publisher/lonrights.pm:1.15 loncom/publisher/lonrights.pm:1.16
--- loncom/publisher/lonrights.pm:1.15	Thu May 20 09:42:35 2004
+++ loncom/publisher/lonrights.pm	Fri Feb 18 18:15:54 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to show and edit custom distribution rights
 #
-# $Id: lonrights.pm,v 1.15 2004/05/20 13:42:35 www Exp $
+# $Id: lonrights.pm,v 1.16 2005/02/18 23:15:54 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -116,7 +116,7 @@
 	      if ($_=~/^form\.action\_(\d+)$/) {
                   my $number=$1;
 		  if ($ENV{$_} eq 'delete') { $newrules[$number]=''; }
-                  if (($ENV{$_} eq 'moveup') && ($number>2)) {
+                  if (($ENV{$_} eq 'moveup') && ($number>1)) {
 		      my $buffer=$newrules[$number];
                       $newrules[$number]=$newrules[$number-1];
                       $newrules[$number-1]=$buffer;