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; |