--- loncom/interface/groupsort.pm	2016/11/22 15:55:40	1.68.6.8
+++ loncom/interface/groupsort.pm	2014/12/11 00:31:05	1.74
@@ -2,7 +2,7 @@
 # The LON-CAPA group sort handler
 # Allows for sorting prior to import into RAT.
 #
-# $Id: groupsort.pm,v 1.68.6.8 2016/11/22 15:55:40 raeburn Exp $
+# $Id: groupsort.pm,v 1.74 2014/12/11 00:31:05 raeburn Exp $
 # 
 # Copyright Michigan State University Board of Trustees
 #
@@ -32,7 +32,7 @@ package Apache::groupsort;
 
 use strict;
 
-use Apache::Constants qw(:common :http);
+use Apache::Constants qw(:common);
 use GDBM_File;
 use Apache::loncommon;
 use Apache::lonlocal;
@@ -203,79 +203,16 @@ sub handler {
     $r->send_http_header;
     return OK if $r->header_only;
 
-# permissions checking
-    my ($allowed,$canedit,$context,$cid);
-    if ($env{'form.readfile'} =~ m{^/uploaded/($match_domain)/($match_courseid)/}) {
-        my ($cdom,$cnum) = ($1,$2);
-        $cid = $cdom.'_'.$cnum;
-        $context = 'course';
-        if ((&Apache::lonnet::allowed('mdc',$cid)) ||
-            (&Apache::lonnet::allowed('cev',$cid))) {
-            $allowed = 1;
-        }
-    } elsif ($env{'form.readfile'} =~ m{^/res/}) {
-        $context = 'res';
-        if ((&Apache::lonnet::allowed('bre',$env{'form.readfile'})) ||
-            (&Apache::lonnet::allowed('bro',$env{'form.readfile'}))) {
-            $allowed = 1;
-        }
-    } elsif (($env{'form.readfile'} eq '') && ($env{'form.acts'} ne '')) {
-        $allowed = 1;
-    }
-    if ($allowed) {
-        if ($env{'form.mode'} eq 'rat') {
-            if (&Apache::lonnet::allowed('are',$env{'request.role.domain'})) {
-                $canedit = 1;
-            }
-        } elsif (($env{'form.mode'} eq 'simple') || ($env{'form.mode'} eq '')) {
-            if ($context eq 'course') {
-                if (&Apache::lonnet::allowed('mdc',$cid)) {
-                    $canedit = 1;
-                }
-            } elsif (($env{'request.course.id'}) &&
-                     (&Apache::lonnet::allowed('mdc',$env{'request.course.id'}))) {
-                $canedit = 1;
-            } elsif (&Apache::lonnet::allowed('are',$env{'request.role.domain'})) {
-                $canedit = 1;
-            }
-        }
-    }
-
-    unless ($allowed) {
-        if ($context eq 'course') {
-            if ($env{'request.course.id'} eq $cid) {
-                $env{'user.error.msg'}=
-                    "/adm/groupsort::0:1:Course environment gone, reinitialize the course";
-            } else {
-                $env{'user.error.msg'}=
-                    "/adm/groupsort:bre:0:0:Cannot view folder contents";
-            }
-        } else {
-            $env{'user.error.msg'}=
-                "/adm/groupsort:bre:0:0:Cannot view map contents";
-        }
-        return HTTP_NOT_ACCEPTABLE;
-    }
-
 # finish_import looks different for graphical or "simple" RAT
     my $finishimport='';
     my $begincondition='';
     my $endcondition='';
-    my $noedit;
-    unless ($canedit) {
-        if ($context eq 'course') {
-            $noedit = &js_escape(&mt('You do not have rights to edit the course.'));
-        } else {
-            $noedit = &js_escape(&mt('You do not have rights to edit map contents.'));
-        }
-    }
     if (($env{'form.readfile'}))  {
         $begincondition='if (eval("document.forms.groupsort.include"+num+".checked")) {';
 	$endcondition='}';
     }
     if ($env{'form.mode'} eq 'simple' || $env{'form.mode'} eq '') {
-        if ($canedit) {
-            $finishimport=(<<ENDSMP);
+        $finishimport=(<<ENDSMP);
 function finish_import() {
     opener.document.forms.simpleedit.importdetail.value='';
     for (var num=0; num<document.forms.groupsort.fnum.value; num++) {
@@ -290,16 +227,8 @@ function finish_import() {
     self.close();
 }
 ENDSMP
-        } else {
-            $finishimport=(<<ENDNO);
-function finish_import() {
-    alert('$noedit');
-}
-ENDNO
-        }
     } else {
-        if ($canedit) {
-            $finishimport=(<<ENDADV);
+        $finishimport=(<<ENDADV);
 function finish_import() {
     var linkflag=false;
     for (var num=0; num<document.forms.groupsort.fnum.value; num++) {
@@ -321,13 +250,6 @@ function finish_import() {
     self.close();
 }
 ENDADV
-        } else {
-            $finishimport=(<<ENDNONE);
-function finish_import() {
-    alert('$noedit');
-}
-ENDNONE
-        }
     }
 
 # output start of web page
@@ -381,10 +303,6 @@ END
     } else {
         $title = 'Sort Imported Resources';
     }
-    my $disabled;
-    unless ($canedit) {
-        $disabled = ' disabled="disabled"';
-    }
     if (($clen > 1) || ($env{'form.readfile'})) {
 	my %lt=&Apache::lonlocal::texthash(
 		'fin'=> 'Finalize order of resources',
@@ -421,7 +339,7 @@ END
         if ($env{'form.recover'}) {
 	    $r->print(<<END);
 <input type="button" name="alter" value="$buttontext"
- onclick="finish_import()"$disabled />&nbsp;
+ onclick="finish_import()" />&nbsp;
 <input type="button" name="alter" value="$lt{'ca'}" onclick="self.close()" />
 END
 	} else {
@@ -436,7 +354,7 @@ END
 <input type="button" name="altersearch" value="$lt{'cs'}"
  onclick="window.location='/adm/searchcat?inhibitmenu=yes&amp;catalogmode=import'" />&nbsp;
 <input type="button" name="alter" value="$lt{'fi'}"
- onclick="finish_import()"$disabled />&nbsp;
+ onclick="finish_import()" />&nbsp;
 <input type="button" name="alter" value="$lt{'ca'}" onclick="self.close()" />
 </div>
 <br />
@@ -486,7 +404,7 @@ END
 	    $r->print(&Apache::loncommon::start_data_table_row()
                      ."<td>");
             if (($env{'form.readfile'})) {
-		$r->print(&checkbox($ctr-1,$disabled));
+		$r->print(&checkbox($ctr-1));
 	    } else {
 		$r->print(&movers($clen,$ctr));
 	    }
@@ -497,7 +415,7 @@ END
 	    $r->print("</td>");
             unless (($env{'form.readfile'})) {
 		$r->print("<td>".
-			  &select_box($clen,$ctr,$disabled).
+			  &select_box($clen,$ctr).
 			  "</td>");
 	    }
 	    $r->print("<td>");
@@ -567,10 +485,10 @@ END
 
 # ------------------------------------------ Select box (returns scalar string)
 sub select_box {
-    my ($total,$sel,$disabled) = @_;
+    my ($total,$sel) = @_;
     my $string;
     $string = '<select name="alt'.$sel.'"';
-    $string .= " onchange='selectchange($sel)'.$disabled.'>";
+    $string .= " onchange='selectchange($sel)'>";
     $string .= "<option name='o0' value='0'>".&mt('discard')."</option>";
     for my $cur (1..$total) {
 	$string .= "<option name='o$cur' value='$cur'";
@@ -586,10 +504,10 @@ sub select_box {
 # ------------------------------------------------------------------- Checkbox
 
 sub checkbox {
-    my ($sel,$disabled) = @_;
+    my $sel=shift;
     return "<label><input type='checkbox' name='include$sel'".
        ($env{"form.include$sel"}?' checked="checked"':'').
-       $disabled.' />'.&mt('Include').'</label>';
+       ' />'.&mt('Include').'</label>';
 }
 
 1;