loncom/interface/lonerrorhandler.pm - diff

Return to lonerrorhandler.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.21, 2008/12/12 23:03:04	version 1.23, 2009/02/12 21:15:47
Line 105 ENDMESSAGE	Line 105 ENDMESSAGE
my $env='';	my $env='';
my $syllabus='';	my $syllabus='';

	foreach $envkey (keys(%env)) {
	if ($envkey =~ /^form\.(.+)\.filename$/) {
	my $item = $1;
	if (exists($env{'form.'.$item.'.mimetype'})) {
	if (exists($env{'form.'.$item})) {
	my $size = (length($env{'form.'.$item}))/(1024.0 * 1024.0);
	$env{'form.'.$item} = &mt('File (contents not shown) - size was [_1] MB.',sprintf("%.4f",$size));
	}
	}
	}
	}

foreach $envkey (sort(keys(%env))) {	foreach $envkey (sort(keys(%env))) {
$env.="$envkey: $env{$envkey}\n";	$env.="$envkey: $env{$envkey}\n";
}	}
Line 126 ENDMESSAGE	Line 138 ENDMESSAGE
.'<p>'.&mt('Please help us to find out what.').'</p>'	.'<p>'.&mt('Please help us to find out what.').'</p>'
.'<p>'.&mt('Please take a moment to fill out the form below.').' '	.'<p>'.&mt('Please take a moment to fill out the form below.').' '
.&mt('Your information, together with internal debugging information, '	.&mt('Your information, together with internal debugging information, '
.'will be emailed to the system and server administrators.')	.'will be e-mailed to the system and server administrators.')
.'</p>	.'</p>
<form action="/adm/errorhandler" method="post">	<form action="/adm/errorhandler" method="post">
<h3>'.&mt('Please describe what you did just before this screen came up').'</h3>	<h3>'.&mt('Please describe what you did just before this screen came up').'</h3>