--- loncom/interface/lonfeedback.pm 2001/07/26 23:26:56 1.13
+++ loncom/interface/lonfeedback.pm 2001/08/10 18:39:58 1.15
@@ -15,7 +15,7 @@
# 2/13 Guy Albertelli
# 7/25 Gerd Kortemeyer
# 7/26 Guy Albertelli
-# 7/26 Gerd Kortemeyer
+# 7/26,8/10 Gerd Kortemeyer
package Apache::lonfeedback;
@@ -60,6 +60,11 @@ sub mail_screen {
rec=1;
}
}
+ if (typeof(document.mailform.elements.anondiscuss)!="undefined") {
+ if (document.mailform.elements.anondiscuss.checked) {
+ rec=1;
+ }
+ }
if (rec) {
document.mailform.submit();
@@ -170,6 +175,11 @@ sub screen_header {
$options.='
'.
'Contribution to course discussion of resource';
}
+ if ($ENV{'request.course.id'}) {
+ $options.='
'.
+ 'Anonymous contribution to course discussion of resource'.
+ ' (name only visible to course faculty)';
+ }
return $options;
}
@@ -262,13 +272,16 @@ sub send_msg {
}
sub adddiscuss {
- my ($symb,$email)=@_;
+ my ($symb,$email,$anon)=@_;
my $status='';
my %contrib=('message' => $email,
'sendername' => $ENV{'user.name'},
'senderdomain' => $ENV{'user.domain'});
+ if ($anon) {
+ $contrib{'anonymous'}='true';
+ }
if (($symb) && ($email)) {
- $status='Adding to class discussion: '.
+ $status='Adding to class discussion'.($anon?' (anonymous)':'').': '.
&Apache::lonnet::store(\%contrib,$symb,$ENV{'request.course.id'},
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}).
@@ -284,7 +297,53 @@ sub handler {
$r->send_http_header;
return OK;
}
-
+
+# --------------------------- Get query string for limited number of parameters
+
+ map {
+ my ($name, $value) = split(/=/,$_);
+ $value =~ tr/+/ /;
+ $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
+ if (($name eq 'hide') || ($name eq 'unhide')) {
+ unless ($ENV{'form.'.$name}) {
+ $ENV{'form.'.$name}=$value;
+ }
+ }
+ } (split(/&/,$ENV{'QUERY_STRING'}));
+
+ if (($ENV{'form.hide'}) || ($ENV{'form.unhide'})) {
+# ----------------------------------------------------------------- Hide/unhide
+ $r->content_type('text/html');
+ $r->send_http_header;
+
+ my $entry=$ENV{'form.hide'}?$ENV{'form.hide'}:$ENV{'form.unhide'};
+
+ my ($symb,$idx)=split(/\:\:\:/,$entry);
+ my ($map,$ind,$url)=split(/\_\_\_/,$symb);
+
+ my %contrib=&Apache::lonnet::restore($symb,$ENV{'request.course.id'},
+ $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
+ $ENV{'course.'.$ENV{'request.course.id'}.'.num'});
+
+
+ my $currenthidden=$contrib{'hidden'};
+
+ if ($ENV{'form.hide'}) {
+ $currenthidden.='.'.$idx.'.';
+ } else {
+ $currenthidden=~s/\.$idx\.//g;
+ }
+ my %newhash=('hidden' => $currenthidden);
+
+ &Apache::lonnet::store(\%newhash,$symb,$ENV{'request.course.id'},
+ $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
+ $ENV{'course.'.$ENV{'request.course.id'}.'.num'});
+
+ &redirect_back($r,'/res/'.$url,'Changed discussion status
','0'); + + + } else { +# ------------------------------------------------------------- Normal feedback my $feedurl=$ENV{'form.postdata'}; $feedurl=~s/^http\:\/\///; $feedurl=~s/^$ENV{'SERVER_NAME'}//; @@ -345,6 +404,11 @@ sub handler { $typestyle.=&adddiscuss($symb,$message); } + if ($ENV{'form.anondiscuss'}) { + $typestyle.=&adddiscuss($symb,$message,1); + } + + # Receipt screen and redirect back to where came from &redirect_back($r,$feedurl,$typestyle,$numsent,$status); @@ -357,6 +421,7 @@ sub handler { # Ambiguous Problem Resource $r->internal_redirect('/adm/ambiguous'); } +} return OK; } @@ -365,3 +430,4 @@ __END__ +