Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonfeedback.pm between versions 1.41 and 1.57

version 1.41, 2003/02/18 15:47:40	version 1.57, 2003/09/15 19:56:44
Line 52 use Apache::lonmsg();	Line 52 use Apache::lonmsg();
use Apache::loncommon();	use Apache::loncommon();
use Apache::lontexconvert();	use Apache::lontexconvert();

	sub list_discussion {
	my ($mode,$status,$symb)=@_;
	my $discussiononly=0;
	if ($mode eq 'board') { $discussiononly=1; }
	unless ($ENV{'request.course.id'}) { return ''; }
	my $crs='/'.$ENV{'request.course.id'};
	if ($ENV{'request.course.sec'}) {
	$crs.='_'.$ENV{'request.course.sec'};
	}
	$crs=~s/\_/\//g;
	unless ($symb) {
	$symb=&Apache::lonnet::symbread();
	}
	unless ($symb) { return ''; }
	my $seeid=&Apache::lonnet::allowed('rin',$crs);
	my $viewgrades=&Apache::lonnet::allowed('vgr',$crs);
	my $discussion='';
	my %contrib=&Apache::lonnet::restore($symb,$ENV{'request.course.id'},
	$ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
	$ENV{'course.'.$ENV{'request.course.id'}.'.num'});
	if ($contrib{'version'}) {
	unless ($discussiononly) {
	$discussion.=
	'<address><hr />';
	}
	my $idx;
	for ($idx=1;$idx<=$contrib{'version'};$idx++) {
	my $hidden=($contrib{'hidden'}=~/\.$idx\./);
	my $deleted=($contrib{'deleted'}=~/\.$idx\./);
	unless ((($hidden) && (!$seeid)) \|\| ($deleted)) {
	my $message=$contrib{$idx.':message'};
	$message=~s/\n/\<br \/\>/g;
	$message=&Apache::lontexconvert::msgtexconverted($message);
	if ($contrib{$idx.':attachmenturl'}) {
	my ($fname,$ft)
	=($contrib{$idx.':attachmenturl'}=~/\/(\w+)\.(\w+)$/);
	$message.='<p>Attachment: <a href="'.
	&Apache::lonnet::tokenwrapper(
	$contrib{$idx.':attachmenturl'}).
	'"><tt>'.$fname.'.'.$ft.'</tt></a>';
	}
	if ($message) {
	if ($hidden) {
	$message='<font color="#888888">'.$message.'</font>';
	}
	my $screenname=&Apache::loncommon::screenname(
	$contrib{$idx.':sendername'},
	$contrib{$idx.':senderdomain'});
	my $plainname=&Apache::loncommon::nickname(
	$contrib{$idx.':sendername'},
	$contrib{$idx.':senderdomain'});

	my $sender='Anonymous';
	if ((!$contrib{$idx.':anonymous'}) \|\| ($seeid)) {
	$sender=&Apache::loncommon::aboutmewrapper(
	$plainname,
	$contrib{$idx.':sendername'},
	$contrib{$idx.':senderdomain'}).' ('.
	$contrib{$idx.':sendername'}.' at '.
	$contrib{$idx.':senderdomain'}.')';
	if ($contrib{$idx.':anonymous'}) {
	$sender.=' [anonymous] '.
	$screenname;
	}
	if ($seeid) {
	if ($hidden) {
	$sender.=' <a href="/adm/feedback?unhide='.
	$symb.':::'.$idx.'">Make Visible</a>';
	} else {
	$sender.=' <a href="/adm/feedback?hide='.
	$symb.':::'.$idx.'">Hide</a>';
	}
	$sender.=' <a href="/adm/feedback?deldisc='.
	$symb.':::'.$idx.'">Delete</a>';
	}
	} else {
	if ($screenname) {
	$sender='<i>'.$screenname.'</i>';
	}
	}
	my $vgrlink;
	if ($viewgrades) {
	$vgrlink=&Apache::loncommon::submlink('Submissions',
	$contrib{$idx.':sendername'},$contrib{$idx.':senderdomain'},$symb);
	}
	$discussion.='<p><b>'.$sender.'</b> '.$vgrlink.' ('.
	localtime($contrib{$idx.':timestamp'}).
	'):<blockquote>'.$message.
	'</blockquote></p>';
	}
	}
	}
	unless ($discussiononly) {
	$discussion.='</address>';
	}
	}
	if ($discussiononly) {
	$discussion.=(<<ENDDISCUSS);
	<form action="/adm/feedback" method="post" name="mailform" enctype="multipart/form-data">
	<input type="submit" name="discuss" value="Post Discussion" />
	<input type="submit" name="anondiscuss" value="Post Anonymous Discussion" />
	<input type="hidden" name="symb" value="$symb" />
	<input type="hidden" name="sendit" value="true" />
	<br />
	<font size="1">Note: in anonymous discussion, your name is visible only to
	course faculty</font><br />
	<textarea name=comment cols=60 rows=10 wrap=hard></textarea>
	<p>
	Attachment (128 KB max size): <input type="file" name="attachment" />
	</p>
	</form>
	ENDDISCUSS
	$discussion.=&generate_preview_button();
	}
	return $discussion;
	}

sub mail_screen {	sub mail_screen {
my ($r,$feedurl,$options) = @_;	my ($r,$feedurl,$options) = @_;
my $bodytag=&Apache::loncommon::bodytag('Resource Feedback and Discussion',	my $bodytag=&Apache::loncommon::bodytag('Resource Feedback and Discussion',
'','onLoad="window.focus();"');	'','onLoad="window.focus();"');
	my $title=&Apache::lonnet::gettitle($feedurl);
	if (!$title) { $title = $feedurl; }
	my $latexHelp = Apache::loncommon::helpLatexCheatsheet();
$r->print(<<ENDDOCUMENT);	$r->print(<<ENDDOCUMENT);
<html>	<html>
<head>	<head>
Line 104 sub mail_screen {	Line 224 sub mail_screen {
</script>	</script>
</head>	</head>
$bodytag	$bodytag
<h2><tt>$feedurl</tt></h2>	<h2><tt>$title</tt></h2>
<form action="/adm/feedback" method=post name=mailform>	<form action="/adm/feedback" method="post" name="mailform"
	enctype="multipart/form-data">
<input type=hidden name=postdata value="$feedurl">	<input type=hidden name=postdata value="$feedurl">
Please check at least one of the following feedback types:	Please check at least one of the following feedback types:
$options<hr>	$options<hr>
My question/comment/feedback:<p>	My question/comment/feedback:<p>
	$latexHelp
<textarea name=comment cols=60 rows=10 wrap=hard>	<textarea name=comment cols=60 rows=10 wrap=hard>
</textarea><p>	</textarea><p>
<input type=hidden name=sendit value=1>	Attachment (128 KB max size): <input type="file" name="attachment" />
<input type=button value="Send Feedback" onClick='gosubmit();'></input>	</p>
	<p>
	<input type="hidden" name="sendit" value="1" />
	<input type=button value="Send Feedback" onClick='gosubmit();' />
	</p>
</form>	</form>
ENDDOCUMENT	ENDDOCUMENT
$r->print(&generate_preview_button().'</body></html>');	$r->print(&generate_preview_button().'</body></html>');
Line 144 sub redirect_back {	Line 270 sub redirect_back {
<meta HTTP-EQUIV="Refresh" CONTENT="2; url=$feedurl">	<meta HTTP-EQUIV="Refresh" CONTENT="2; url=$feedurl">
</head>	</head>
<html>	<html>
<body bgcolor="#FFFFFF">	<body bgcolor="#FFFFFF" onLoad='if (window.name!="loncapaclient") { this.document.reldt.submit(); self.close(); }'>
<img align=right src=/adm/lonIcons/lonlogos.gif>	<img align=right src=/adm/lonIcons/lonlogos.gif>
$typestyle	$typestyle
<b>Sent $sendsomething message(s), and $sendposts post(s).</b>	<b>Sent $sendsomething message(s), and $sendposts post(s).</b>
<font color=red>$status</font>	<font color=red>$status</font>
	<form name="reldt" action="$feedurl" target="loncapaclient">
	</form>
</body>	</body>
</html>	</html>
ENDREDIR	ENDREDIR
Line 168 ENDNOREDIR	Line 296 ENDNOREDIR
$r->print (<<ENDNOREDIRTWO);	$r->print (<<ENDNOREDIRTWO);
</head>	</head>
<html>	<html>
<body bgcolor="#FFFFFF">	<body bgcolor="#FFFFFF" onLoad='if (window.name!="loncapaclient") { self.close(); }'>
<img align=right src=/adm/lonIcons/lonlogos.gif>	<img align=right src=/adm/lonIcons/lonlogos.gif>
<b>Sorry, no feedback possible on this resource ...</b>	<b>Sorry, no feedback possible on this resource ...</b>
</body>	</body>
Line 178 ENDNOREDIRTWO	Line 306 ENDNOREDIRTWO

sub screen_header {	sub screen_header {
my ($feedurl) = @_;	my ($feedurl) = @_;
my $options='';	my $msgoptions='';
	my $discussoptions='';
if (($feedurl=~/^\/res\//) && ($feedurl!~/^\/res\/adm/)) {	if (($feedurl=~/^\/res\//) && ($feedurl!~/^\/res\/adm/)) {
$options=	$msgoptions=
'<p><input type=checkbox name=author> Feedback to resource author';	'<p><input type=checkbox name=author> Feedback to resource author';
}	}
if (&feedback_available(1)) {	if (&feedback_available(1)) {
$options.=	$msgoptions.=
'<br><input type=checkbox name=question> Question about resource content';	'<br><input type=checkbox name=question> Question about resource content';
}	}
if (&feedback_available(0,1)) {	if (&feedback_available(0,1)) {
$options.=	$msgoptions.=
'<br><input type=checkbox name=course> '.	'<br><input type=checkbox name=course> '.
'Question/Comment/Feedback about course content';	'Question/Comment/Feedback about course content';
}	}
if (&feedback_available(0,0,1)) {	if (&feedback_available(0,0,1)) {
$options.=	$msgoptions.=
'<br><input type=checkbox name=policy> '.	'<br><input type=checkbox name=policy> '.
'Question/Comment/Feedback about course policy';	'Question/Comment/Feedback about course policy';
}	}
Line 202 sub screen_header {	Line 331 sub screen_header {
if (&Apache::lonnet::allowed('pch',	if (&Apache::lonnet::allowed('pch',
$ENV{'request.course.id'}.	$ENV{'request.course.id'}.
($ENV{'request.course.sec'}?'/'.$ENV{'request.course.sec'}:''))) {	($ENV{'request.course.sec'}?'/'.$ENV{'request.course.sec'}:''))) {
$options.='<br><input type=checkbox name=discuss> '.	$discussoptions='<input type="checkbox" name="discuss" onClick="this.form.anondiscuss.checked=false;"> '.
'<b>Contribution to course discussion of resource</b>';	'Contribution to course discussion of resource';
$options.='<br><input type=checkbox name=anondiscuss> '.	$discussoptions.='<br><input type="checkbox" name="anondiscuss" onClick="this.form.discuss.checked=false;"> '.
'<b>Anonymous contribution to course discussion of resource</b>'.	'Anonymous contribution to course discussion of resource'.
' (name only visible to course faculty)';	' <i>(name only visible to course faculty)</i>';
}	}
}	}
return $options;	if ($msgoptions) { $msgoptions='<h2>Sending Messages</h2>'.$msgoptions; }
	if ($discussoptions) {
	$discussoptions='<h2>Discussion Contributions</h2>'.$discussoptions; }
	return $msgoptions.$discussoptions;
}	}

sub resource_output {	sub resource_output {
my ($feedurl) = @_;	my ($feedurl) = @_;
my $usersaw=&Apache::lonnet::ssi($feedurl);	my $usersaw=&Apache::lonnet::ssi_body($feedurl);
$usersaw=~s/\<body[^\>]*\>//gi;	$usersaw=~s/\<body[^\>]*\>//gi;
$usersaw=~s/\<\/body\>//gi;	$usersaw=~s/\<\/body\>//gi;
$usersaw=~s/\<html\>//gi;	$usersaw=~s/\<html\>//gi;
Line 236 sub clear_out_html {	Line 368 sub clear_out_html {
BR=>1, TT=>1, STRONG=>1, BLOCKQUOTE=>1, DIV=>1, IMG=>1);	BR=>1, TT=>1, STRONG=>1, BLOCKQUOTE=>1, DIV=>1, IMG=>1);

$message =~ s/\<(\/?\s(\w+)[^\>\<])/	$message =~ s/\<(\/?\s(\w+)[^\>\<])/
{($html{uc($2)}&(length($1)<1000))?"\<$1":"\<$1"}/ge;	{($html{uc($2)}&&(length($1)<1000))?"\<$1":"\<$1"}/ge;
$message =~ s/(\<?\s(\w+)[^\<\>])\>/	$message =~ s/(\<?\s(\w+)[^\<\>])\>/
{($html{uc($2)}&(length($1)<1000))?"$1\>":"$1\>"}/ge;	{($html{uc($2)}&&(length($1)<1000))?"$1\>":"$1\>"}/ge;
} else {	} else {
$message=~s/\<\/m\s\>//g;	$message=~s/\<\/m\s\>//g;
$message=~s/\</\&lt\;/g;	$message=~s/\</\&lt\;/g;
Line 335 sub feedback_available {	Line 467 sub feedback_available {
}	}

sub send_msg {	sub send_msg {
my ($feedurl,$email,$citations,%to)=@_;	my ($feedurl,$email,$citations,$attachmenturl,%to)=@_;
my $status='';	my $status='';
my $sendsomething=0;	my $sendsomething=0;
foreach (keys %to) {	foreach (keys %to) {
if ($_) {	if ($_) {
my $declutter=&Apache::lonnet::declutter($feedurl);	my $declutter=&Apache::lonnet::declutter($feedurl);
unless (&Apache::lonmsg::user_normal_msg(split(/\:/,$_),	unless (&Apache::lonmsg::user_normal_msg(split(/\:/,$_),
'Feedback ['.$declutter.']',$email,$citations,$feedurl)=~/ok/) {	'Feedback ['.$declutter.']',$email,$citations,$feedurl,
	$attachmenturl)=~/ok/) {
$status.='<br>Error sending message to '.$_.'<br>';	$status.='<br>Error sending message to '.$_.'<br>';
} else {	} else {
$sendsomething++;	$sendsomething++;
Line 365 sub send_msg {	Line 498 sub send_msg {
}	}

sub adddiscuss {	sub adddiscuss {
my ($symb,$email,$anon)=@_;	my ($symb,$email,$anon,$attachmenturl)=@_;
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'}:''))) {	($ENV{'request.course.sec'}?'/'.$ENV{'request.course.sec'}:''))) {
Line 377 sub adddiscuss {	Line 510 sub adddiscuss {
'plainname' => $ENV{'environment.firstname'}.' '.	'plainname' => $ENV{'environment.firstname'}.' '.
$ENV{'environment.middlename'}.' '.	$ENV{'environment.middlename'}.' '.
$ENV{'environment.lastname'}.' '.	$ENV{'environment.lastname'}.' '.
$ENV{'enrironment.generation'});	$ENV{'enrironment.generation'},
	'attachmenturl'=> $attachmenturl);
if ($anon) {	if ($anon) {
$contrib{'anonymous'}='true';	$contrib{'anonymous'}='true';
}	}
Line 448 sub handler {	Line 582 sub handler {
my $entry=$ENV{'form.hide'}?$ENV{'form.hide'}:$ENV{'form.unhide'};	my $entry=$ENV{'form.hide'}?$ENV{'form.hide'}:$ENV{'form.unhide'};

my ($symb,$idx)=split(/\:\:\:/,$entry);	my ($symb,$idx)=split(/\:\:\:/,$entry);
my ($map,$ind,$url)=split(/\_\_\_/,$symb);	my ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb);

my %contrib=&Apache::lonnet::restore($symb,$ENV{'request.course.id'},	my %contrib=&Apache::lonnet::restore($symb,$ENV{'request.course.id'},
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'},	$ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
Line 478 sub handler {	Line 612 sub handler {
my $entry=$ENV{'form.deldisc'};	my $entry=$ENV{'form.deldisc'};

my ($symb,$idx)=split(/\:\:\:/,$entry);	my ($symb,$idx)=split(/\:\:\:/,$entry);
my ($map,$ind,$url)=split(/\_\_\_/,$symb);	my ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb);

my %contrib=&Apache::lonnet::restore($symb,$ENV{'request.course.id'},	my %contrib=&Apache::lonnet::restore($symb,$ENV{'request.course.id'},
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'},	$ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
Line 511 sub handler {	Line 645 sub handler {
unless ($symb) {	unless ($symb) {
$symb=$ENV{'form.symb'};	$symb=$ENV{'form.symb'};
if ($symb) {	if ($symb) {
my ($map,$id,$url)=split(/\_\_\_/,$symb);	my ($map,$id,$url)=&Apache::lonnet::decode_symb($symb);
$feedurl=&Apache::lonnet::clutter($url);	$feedurl=&Apache::lonnet::clutter($url);
}	}
}	}
Line 552 sub handler {	Line 686 sub handler {
# Get output from resource	# Get output from resource
my $usersaw=&resource_output($feedurl);	my $usersaw=&resource_output($feedurl);

# Get resource answer	# Get resource answer (need to allow student to view grades for this to work)
	&Apache::lonnet::appenv(('allowed.vgr'=>'F'));
my $useranswer=&Apache::loncommon::get_student_answers(	my $useranswer=&Apache::loncommon::get_student_answers(
$symb,$ENV{'user.name'},$ENV{'user.domain'},	$symb,$ENV{'user.name'},$ENV{'user.domain'},
$ENV{'request.course.id'});	$ENV{'request.course.id'});
	&Apache::lonnet::delenv('allowed.vgr');
	# Get attachments, if any, and not too large
	my $attachmenturl='';
	if ($ENV{'form.attachment.filename'}) {
	unless (length($ENV{'form.attachment'})>131072) {
	$attachmenturl=&Apache::lonnet::userfileupload('attachment');
	}
	}
# Filter HTML out of message (could be nasty)	# Filter HTML out of message (could be nasty)
my $message=&clear_out_html($ENV{'form.comment'});	my $message=&clear_out_html($ENV{'form.comment'});

Line 568 sub handler {	Line 710 sub handler {
my ($typestyle,%to) = &decide_receiver($feedurl);	my ($typestyle,%to) = &decide_receiver($feedurl);

# Actually send mail	# Actually send mail
my ($status,$numsent)=&send_msg($feedurl,$email,$citations,%to);	my ($status,$numsent)=&send_msg($feedurl,$email,$citations,
	$attachmenturl,%to);

# Discussion? Store that.	# Discussion? Store that.

my $numpost=0;	my $numpost=0;
if ($ENV{'form.discuss'}) {	if ($ENV{'form.discuss'}) {
$typestyle.=&adddiscuss($symb,$message);	$typestyle.=&adddiscuss($symb,$message,0,$attachmenturl);
$numpost++;	$numpost++;
}	}

if ($ENV{'form.anondiscuss'}) {	if ($ENV{'form.anondiscuss'}) {
$typestyle.=&adddiscuss($symb,$message,1);	$typestyle.=&adddiscuss($symb,$message,1,$attachmenturl);
$numpost++;	$numpost++;
}	}

Line 594 sub handler {	Line 737 sub handler {
}	}
} else {	} else {
# Ambiguous Problem Resource	# Ambiguous Problem Resource
$r->internal_redirect('/adm/ambiguous');
	&Apache::lonnet::cleanenv();

	$r->internal_redirect('/adm/ambiguous');
}	}
}	}
return OK;	return OK;

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

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.41
changed lines
	Added in v.1.57