loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonfeedback.pm between versions 1.20 and 1.31

version 1.20, 2001/12/27 18:37:32	version 1.31, 2002/09/11 13:36:50
Line 39	Line 39
# 2/13 Guy Albertelli	# 2/13 Guy Albertelli
# 7/25 Gerd Kortemeyer	# 7/25 Gerd Kortemeyer
# 7/26 Guy Albertelli	# 7/26 Guy Albertelli
# 7/26,8/10,10/1,11/5,11/6,12/27 Gerd Kortemeyer	# 7/26,8/10,10/1,11/5,11/6,12/27,12/29 Gerd Kortemeyer
	# YEAR=2002
	# 1/1,1/16 Gerd Kortemeyer
	#

package Apache::lonfeedback;	package Apache::lonfeedback;

Line 51 use Apache::loncommon();	Line 53 use Apache::loncommon();

sub mail_screen {	sub mail_screen {
my ($r,$feedurl,$options) = @_;	my ($r,$feedurl,$options) = @_;
	my $bodytag=&Apache::loncommon::bodytag('Resource Feedback and Discussion',
	'','onLoad="window.focus();"');
$r->print(<<ENDDOCUMENT);	$r->print(<<ENDDOCUMENT);
<html>	<html>
<head>	<head>
Line 98 sub mail_screen {	Line 102 sub mail_screen {
}	}
</script>	</script>
</head>	</head>
<body bgcolor="#FFFFFF" onLoad="window.focus();">	$bodytag
<img align=right src=/adm/lonIcons/lonlogos.gif>
<h1>Feedback</h1>
<h2><tt>$feedurl</tt></h2>	<h2><tt>$feedurl</tt></h2>
<form action="/adm/feedback" method=post name=mailform>	<form action="/adm/feedback" method=post name=mailform>
<input type=hidden name=postdata value="$feedurl">	<input type=hidden name=postdata value="$feedurl">
Line 197 sub screen_header {	Line 199 sub screen_header {
}	}

if ($ENV{'request.course.id'}) {	if ($ENV{'request.course.id'}) {
if (&Apache::lonnet::allowed('pch',$ENV{'request.course.id'})) {	if (&Apache::lonnet::allowed('pch',
	$ENV{'request.course.id'}.
	($ENV{'request.course.sec'}?'/'.$ENV{'request.course.sec'}:''))) {
$options.='<br><input type=checkbox name=discuss> '.	$options.='<br><input type=checkbox name=discuss> '.
'<b>Contribution to course discussion of resource</b>';	'<b>Contribution to course discussion of resource</b>';
$options.='<br><input type=checkbox name=anondiscuss> '.	$options.='<br><input type=checkbox name=anondiscuss> '.
Line 256 sub decide_receiver {	Line 260 sub decide_receiver {
}	}
if ($ENV{'form.question'}) {	if ($ENV{'form.question'}) {
$typestyle.='Submitting as Question<br>';	$typestyle.='Submitting as Question<br>';
map {	foreach (split(/\,/,
	$ENV{'course.'.$ENV{'request.course.id'}.'.question.email'})
	) {
$to{$_}=1;	$to{$_}=1;
} split(/\,/,	}
$ENV{'course.'.$ENV{'request.course.id'}.'.question.email'});
}	}
if ($ENV{'form.course'}) {	if ($ENV{'form.course'}) {
$typestyle.='Submitting as Comment<br>';	$typestyle.='Submitting as Comment<br>';
map {	foreach (split(/\,/,
	$ENV{'course.'.$ENV{'request.course.id'}.'.comment.email'})
	) {
$to{$_}=1;	$to{$_}=1;
} split(/\,/,	}
$ENV{'course.'.$ENV{'request.course.id'}.'.comment.email'});
}	}
if ($ENV{'form.policy'}) {	if ($ENV{'form.policy'}) {
$typestyle.='Submitting as Policy Feedback<br>';	$typestyle.='Submitting as Policy Feedback<br>';
map {	foreach (split(/\,/,
	$ENV{'course.'.$ENV{'request.course.id'}.'.policy.email'})
	) {
$to{$_}=1;	$to{$_}=1;
} split(/\,/,	}
$ENV{'course.'.$ENV{'request.course.id'}.'.policy.email'});
}	}
return ($typestyle,%to);	return ($typestyle,%to);
}	}
Line 282 sub send_msg {	Line 289 sub send_msg {
my ($feedurl,$email,$citations,%to)=@_;	my ($feedurl,$email,$citations,%to)=@_;
my $status='';	my $status='';
my $sendsomething=0;	my $sendsomething=0;
map {	foreach (keys %to) {
if ($_) {	if ($_) {
	my $declutter=&Apache::lonnet::declutter($feedurl);
unless (&Apache::lonmsg::user_normal_msg(split(/\:/,$_),	unless (&Apache::lonmsg::user_normal_msg(split(/\:/,$_),
'Feedback '.$feedurl,$email,$citations) eq 'ok') {	'Feedback ['.$declutter.']',$email,$citations) eq 'ok') {
$status.='<br>Error sending message to '.$_.'<br>';	$status.='<br>Error sending message to '.$_.'<br>';
} else {	} else {
$sendsomething++;	$sendsomething++;
}	}
}	}
} keys %to;	}

my %record=&Apache::lonnet::restore('_feedback');	my %record=&Apache::lonnet::restore('_feedback');
my ($temp)=keys %record;	my ($temp)=keys %record;
Line 310 sub send_msg {	Line 318 sub send_msg {
sub adddiscuss {	sub adddiscuss {
my ($symb,$email,$anon)=@_;	my ($symb,$email,$anon)=@_;
my $status='';	my $status='';
if (&Apache::lonnet::allowed('pch',$ENV{'request.course.id'})) {	if (&Apache::lonnet::allowed('pch',$ENV{'request.course.id'}.
	($ENV{'request.course.sec'}?'/'.$ENV{'request.course.sec'}:''))) {

my %contrib=('message' => $email,	my %contrib=('message' => $email,
'sendername' => $ENV{'user.name'},	'sendername' => $ENV{'user.name'},
'senderdomain' => $ENV{'user.domain'});	'senderdomain' => $ENV{'user.domain'},
	'screenname' => $ENV{'environment.screenname'},
	'plainname' => $ENV{'environment.firstname'}.' '.
	$ENV{'environment.middlename'}.' '.
	$ENV{'environment.lastname'}.' '.
	$ENV{'enrironment.generation'});
if ($anon) {	if ($anon) {
$contrib{'anonymous'}='true';	$contrib{'anonymous'}='true';
}	}
Line 323 sub adddiscuss {	Line 337 sub adddiscuss {
&Apache::lonnet::store(\%contrib,$symb,$ENV{'request.course.id'},	&Apache::lonnet::store(\%contrib,$symb,$ENV{'request.course.id'},
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'},	$ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
$ENV{'course.'.$ENV{'request.course.id'}.'.num'});	$ENV{'course.'.$ENV{'request.course.id'}.'.num'});
	my %storenewentry=($symb => time);
	$status.='<br>Updating discussion time: '.
	&Apache::lonnet::put('discussiontimes',\%storenewentry,
	$ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
	$ENV{'course.'.$ENV{'request.course.id'}.'.num'});
}	}
my %record=&Apache::lonnet::restore('_discussion');	my %record=&Apache::lonnet::restore('_discussion');
my ($temp)=keys %record;	my ($temp)=keys %record;
Line 330 sub adddiscuss {	Line 349 sub adddiscuss {
my %newrecord=();	my %newrecord=();
$newrecord{'resource'}=$symb;	$newrecord{'resource'}=$symb;
$newrecord{'subnumber'}=$record{'subnumber'}+1;	$newrecord{'subnumber'}=$record{'subnumber'}+1;
$status.=' '.&Apache::lonnet::cstore(\%newrecord,'_discussion');	$status.='<br>Registering: '.
	&Apache::lonnet::cstore(\%newrecord,'_discussion');
}	}
} else {	} else {
$status.='Failed.';	$status.='Failed.';
Line 348 sub handler {	Line 368 sub handler {

# --------------------------- Get query string for limited number of parameters	# --------------------------- Get query string for limited number of parameters

map {	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
my ($name, $value) = split(/=/,$_);	['hide','unhide','postdata']);
$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'})) {	if (($ENV{'form.hide'}) \|\| ($ENV{'form.unhide'})) {
# ----------------------------------------------------------------- Hide/unhide	# ----------------------------------------------------------------- Hide/unhide
Line 387 sub handler {	Line 399 sub handler {
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'},	$ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
$ENV{'course.'.$ENV{'request.course.id'}.'.num'});	$ENV{'course.'.$ENV{'request.course.id'}.'.num'});

&redirect_back($r,'/res/'.$url,'Changed discussion status<p>','0');	&redirect_back($r,&Apache::lonnet::clutter($url),
	'Changed discussion status<p>','0');

} else {	} else {
# ------------------------------------------------------------- Normal feedback	# ------------------------------------------------------------- Normal feedback
my $feedurl=$ENV{'form.postdata'};	my $feedurl=$ENV{'form.postdata'};
Line 398 sub handler {	Line 409 sub handler {
$feedurl=~s/^$ENV{'HTTP_HOST'}//;	$feedurl=~s/^$ENV{'HTTP_HOST'}//;

my $symb=&Apache::lonnet::symbread($feedurl);	my $symb=&Apache::lonnet::symbread($feedurl);
	unless ($symb) {
	$symb=$ENV{'form.symb'};
	if ($symb) {
	my ($map,$id,$url)=split(/\_\_\_/,$symb);
	$feedurl=&Apache::lonnet::clutter($url);
	}
	}
my $goahead=1;	my $goahead=1;
if ($feedurl=~/\.(problem\|exam\|quiz\|assess\|survey\|form)$/) {	if ($feedurl=~/\.(problem\|exam\|quiz\|assess\|survey\|form)$/) {
unless ($symb) { $goahead=0; }	unless ($symb) { $goahead=0; }
Line 414 sub handler {	Line 432 sub handler {
)	)
\|\|	\|\|
($ENV{'request.course.id'} && ($feedurl!~m:^/adm:))	($ENV{'request.course.id'} && ($feedurl!~m:^/adm:))
	\|\|
	($ENV{'request.course.id'} && ($symb=~/^bulletin\_\_\_/))
) {	) {
# --------------------------------------------------- Print login screen header	# --------------------------------------------------- Print login screen header
unless ($ENV{'form.sendit'}) {	unless ($ENV{'form.sendit'}) {
Line 475 sub handler {	Line 495 sub handler {

1;	1;
__END__	__END__

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.20
changed lines
	Added in v.1.31