--- loncom/interface/groupsort.pm 2011/07/04 09:24:58 1.68
+++ loncom/interface/groupsort.pm 2017/05/30 15:18:48 1.68.6.9
@@ -2,7 +2,7 @@
# The LON-CAPA group sort handler
# Allows for sorting prior to import into RAT.
#
-# $Id: groupsort.pm,v 1.68 2011/07/04 09:24:58 foxr Exp $
+# $Id: groupsort.pm,v 1.68.6.9 2017/05/30 15:18:48 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -32,12 +32,12 @@ package Apache::groupsort;
use strict;
-use Apache::Constants qw(:common);
+use Apache::Constants qw(:common :http);
use GDBM_File;
use Apache::loncommon;
use Apache::lonlocal;
use Apache::lonnet;
-use LONCAPA;
+use LONCAPA qw(:DEFAULT :match);
my $iconpath; # variable to be accessible to multiple subroutines
my %hash; # variable to tie to user specific database
@@ -59,7 +59,7 @@ sub update_actions_hash {
$ac++;
}
# sorting through the actions and changing the global database hash
- foreach my $key (sort {$achash{$a}<=>$achash{$b}} (keys %ahash)) {
+ foreach my $key (sort {$achash{$a}<=>$achash{$b}} (keys(%ahash))) {
if ($ahash{$key} eq '1') {
$hash->{'store_'.$hash->{'pre_'.$key.'_link'}}=
$hash->{'pre_'.$key.'_title'};
@@ -152,12 +152,23 @@ sub readfromfile {
&Apache::lonnet::filelocation('',$env{'form.readfile'}));
} else {
my $parser = HTML::TokeParser->new(\$cont);
- my $token;
+ my ($token,$donechk,$allmaps);
+ $allmaps = {};
while ($token = $parser->get_token) {
if ($token->[0] eq 'S') {
if ($token->[1] eq 'resource') {
if ($env{'form.recover'}) {
if ($token->[2]->{'type'} ne 'zombie') { next; }
+ if ($token->[2]->{'src'} =~ /\.(page|sequence)$/) {
+ if (($env{'request.course.id'}) &&
+ ($env{'form.readfile'} =~ m{/default(|_\d+)\.(page|sequence)$})) {
+ unless ($donechk) {
+ $allmaps = &Apache::loncommon::allmaps_incourse();
+ $donechk = 1;
+ }
+ }
+ if ($allmaps->{$token->[2]->{'src'}}) { next; }
+ }
} else {
if ($token->[2]->{'type'} eq 'zombie') { next; }
}
@@ -181,7 +192,6 @@ sub readfromfile {
}
}
-
# ---------------------------------------------------------------- Main Handler
sub handler {
my $r = shift;
@@ -193,16 +203,79 @@ sub handler {
$r->send_http_header;
return OK if $r->header_only;
+# permissions checking
+ my ($allowed,$canedit,$context,$cid);
+ if ($env{'form.readfile'} eq '') {
+ $allowed = 1;
+ } elsif ($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;
+ }
+ }
+ 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 '') {
- $finishimport=(<<ENDSMP);
+ if ($canedit) {
+ $finishimport=(<<ENDSMP);
function finish_import() {
opener.document.forms.simpleedit.importdetail.value='';
for (var num=0; num<document.forms.groupsort.fnum.value; num++) {
@@ -217,8 +290,16 @@ function finish_import() {
self.close();
}
ENDSMP
+ } else {
+ $finishimport=(<<ENDNO);
+function finish_import() {
+ alert('$noedit');
+}
+ENDNO
+ }
} else {
- $finishimport=(<<ENDADV);
+ if ($canedit) {
+ $finishimport=(<<ENDADV);
function finish_import() {
var linkflag=false;
for (var num=0; num<document.forms.groupsort.fnum.value; num++) {
@@ -240,6 +321,13 @@ function finish_import() {
self.close();
}
ENDADV
+ } else {
+ $finishimport=(<<ENDNONE);
+function finish_import() {
+ alert('$noedit');
+}
+ENDNONE
+ }
}
# output start of web page
@@ -293,6 +381,10 @@ 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',
@@ -329,8 +421,8 @@ END
if ($env{'form.recover'}) {
$r->print(<<END);
<input type="button" name="alter" value="$buttontext"
- onClick="finish_import()" />
-<input type="button" name="alter" value="$lt{'ca'}" onClick="self.close()" />
+ onclick="finish_import()"$disabled />
+<input type="button" name="alter" value="$lt{'ca'}" onclick="self.close()" />
END
} else {
# --- Continue Buttons
@@ -340,12 +432,12 @@ END
<h2>$lt{'fin'}</h2>
<div>
<input type="button" name="alter" value="$lt{'ci'}"
- onClick="window.location='$resurl?inhibitmenu=yes&catalogmode=import'" />
+ onclick="window.location='$resurl?inhibitmenu=yes&catalogmode=import'" />
<input type="button" name="altersearch" value="$lt{'cs'}"
- onClick="window.location='/adm/searchcat?inhibitmenu=yes&catalogmode=import'" />
+ onclick="window.location='/adm/searchcat?inhibitmenu=yes&catalogmode=import'" />
<input type="button" name="alter" value="$lt{'fi'}"
- onClick="finish_import()" />
-<input type="button" name="alter" value="$lt{'ca'}" onClick="self.close()" />
+ onclick="finish_import()"$disabled />
+<input type="button" name="alter" value="$lt{'ca'}" onclick="self.close()" />
</div>
<br />
END
@@ -394,7 +486,7 @@ END
$r->print(&Apache::loncommon::start_data_table_row()
."<td>");
if (($env{'form.readfile'})) {
- $r->print(&checkbox($ctr-1));
+ $r->print(&checkbox($ctr-1,$disabled));
} else {
$r->print(&movers($clen,$ctr));
}
@@ -405,13 +497,20 @@ END
$r->print("</td>");
unless (($env{'form.readfile'})) {
$r->print("<td>".
- &select_box($clen,$ctr).
+ &select_box($clen,$ctr,$disabled).
"</td>");
}
$r->print("<td>");
$r->print("<img src='$iconname' />");
$r->print("</td><td>");
- $r->print($resource->{'title'}.$resource->{'notes'}."</td><td>\n");
+ if (($env{'form.recover'}) &&
+ ($resource->{'url'} =~ m{/uploaded/$match_domain/$match_courseid/supplemental/})) {
+ my $title = &Apache::loncommon::parse_supplemental_title($resource->{'title'});
+ $r->print($title);
+ } else {
+ $r->print($resource->{'title'});
+ }
+ $r->print($resource->{'notes'}."</td><td>\n");
$r->print($resource->{'url'}."</td>"
.&Apache::loncommon::end_data_table_row()
."\n");
@@ -468,10 +567,10 @@ END
# ------------------------------------------ Select box (returns scalar string)
sub select_box {
- my ($total,$sel) = @_;
+ my ($total,$sel,$disabled) = @_;
my $string;
$string = '<select name="alt'.$sel.'"';
- $string .= " onChange='selectchange($sel)'>";
+ $string .= " onchange='selectchange($sel)'.$disabled.'>";
$string .= "<option name='o0' value='0'>".&mt('discard')."</option>";
for my $cur (1..$total) {
$string .= "<option name='o$cur' value='$cur'";
@@ -487,10 +586,10 @@ sub select_box {
# ------------------------------------------------------------------- Checkbox
sub checkbox {
- my $sel=shift;
+ my ($sel,$disabled) = @_;
return "<label><input type='checkbox' name='include$sel'".
($env{"form.include$sel"}?' checked="checked"':'').
- ' />'.&mt('Include').'</label>';
+ $disabled.' />'.&mt('Include').'</label>';
}
1;