loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.98, 2004/05/03 19:10:39	version 1.100, 2004/05/10 22:39:51
Line 172 sub unpackagemsg {	Line 172 sub unpackagemsg {
}	}
}	}
if ($content{'attachmenturl'}) {	if ($content{'attachmenturl'}) {
my ($fname,$ft)=($content{'attachmenturl'}=~/\/(\w+)\.(\w+)$/);	my ($fname)=($content{'attachmenturl'}=~m\|/([^/]+)$\|);
if ($notoken) {	if ($notoken) {
$content{'message'}.='<p>'.&mt('Attachment').': <tt>'.$fname.'.'.$ft.'</tt>';	$content{'message'}.='<p>'.&mt('Attachment').': <tt>'.$fname.'</tt>';
} else {	} else {
$content{'message'}.='<p>'.&mt('Attachment').': <a href="'.	&Apache::lonnet::allowuploaded('/adm/msg',
&Apache::lonnet::tokenwrapper($content{'attachmenturl'}).	$content{'attachmenturl'});
'"><tt>'.$fname.'.'.$ft.'</tt></a>';	$content{'message'}.='<p>'.&mt('Attachment').
	': <a href="'.$content{'attachmenturl'}.'"><tt>'.
	$fname.'</tt></a>';
}	}
}	}
return %content;	return %content;