loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.99, 2004/05/07 12:03:53	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 {
&Apache::lonnet::allowuploaded('/adm/msg',	&Apache::lonnet::allowuploaded('/adm/msg',
$content{'attachmenturl'});	$content{'attachmenturl'});
$content{'message'}.='<p>'.&mt('Attachment').	$content{'message'}.='<p>'.&mt('Attachment').
': <a href="'.$content{'attachmenturl'}.'"><tt>'.	': <a href="'.$content{'attachmenturl'}.'"><tt>'.
$fname.'.'.$ft.'</tt></a>';	$fname.'</tt></a>';
}	}
}	}
return %content;	return %content;