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.22, 2009/01/04 19:49:19
  Line 105  ENDMESSAGE
  	my $env='';
  	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))) {
  	    $env.="$envkey: $env{$envkey}\n";
  	}