loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.81, 2004/05/05 23:04:57	version 1.82, 2004/05/07 12:03:53
Line 159 sub list_discussion {	Line 159 sub list_discussion {
$subject=&Apache::lontexconvert::msgtexconverted($subject);	$subject=&Apache::lontexconvert::msgtexconverted($subject);
}	}
if ($contrib{$idx.':attachmenturl'}) {	if ($contrib{$idx.':attachmenturl'}) {
my ($fname,$ft)	my ($fname)
=($contrib{$idx.':attachmenturl'}=~/\/(\w+)\.(\w+)$/);	=($contrib{$idx.':attachmenturl'}=~m\|/([^/]+)$\|);
$message.='<p>'.&mt('Attachment').': <a href="'.	&Apache::lonnet::allowuploaded('/adm/feedback',
&Apache::lonnet::tokenwrapper(	$contrib{$idx.':attachmenturl'});
$contrib{$idx.':attachmenturl'}).	$message.='<p>'.&mt('Attachment').
'"><tt>'.$fname.'.'.$ft.'</tt></a></p>';	': <a href="'.$contrib{$idx.':attachmenturl'}.'"><tt>'.
	$fname.'</tt></a></p>';
}	}
if ($message) {	if ($message) {
if ($hidden) {	if ($hidden) {
Line 976 sub handler {	Line 977 sub handler {
my $attachmenturl='';	my $attachmenturl='';
if ($ENV{'form.attachment.filename'}) {	if ($ENV{'form.attachment.filename'}) {
unless (length($ENV{'form.attachment'})>131072) {	unless (length($ENV{'form.attachment'})>131072) {
$attachmenturl=&Apache::lonnet::userfileupload('attachment');	$attachmenturl=&Apache::lonnet::userfileupload('attachment',undef,'feedback');
}	}
}	}
# Filter HTML out of message (could be nasty)	# Filter HTML out of message (could be nasty)