loncom/interface/lonsupportreq.pm - diff

Return to lonsupportreq.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.50, 2008/10/01 17:47:06	version 1.52, 2009/01/27 15:59:30
Line 495 sub print_request_receipt {	Line 495 sub print_request_receipt {
}	}
my %lt = &Apache::lonlocal::texthash (	my %lt = &Apache::lonlocal::texthash (
username => 'Name',	username => 'Name',
email => 'Email',	email => 'E-mail',
cc => 'Cc',	cc => 'Cc',
user => 'Username/domain',	user => 'Username/domain',
phone => 'Phone',	phone => 'Phone',
Line 684 END	Line 684 END

if ($attachmentpath =~ m-/([^/]+)$-) {	if ($attachmentpath =~ m-/([^/]+)$-) {
$fname = $1;	$fname = $1;
$displaymsg .= '<br />'.&mt('An uploaded screenshot file \'[_1]\' ([_2] bytes) was included in the request sent by [_3].',$fname,$attachmentsize,$env{'user.name'}.': '.$env{'user.domain'});	$displaymsg .= '<br />'
	.&mt('An uploaded screenshot file [_1] ([_2] bytes) was included in the request sent by [_3].'
	,'<span class="LC_filename">'.$fname.'<span>'
	,$attachmentsize
	,$env{'user.name'}.':'.$env{'user.domain'}
	);
$supportmsg .= "\n";	$supportmsg .= "\n";
foreach my $var (@cookievars) {	foreach my $var (@cookievars) {
$supportmsg .= "$var: $cookies{$var}\n";	$supportmsg .= "$var: $cookies{$var}\n";