loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.984, 2010/10/27 01:04:10
+version 1.985, 2010/10/29 20:41:43
  Line 8560  sub check_for_existing {
  sub check_for_upload {
      my ($path,$fname,$group,$element,$portfolio_root,$port_path,
          $disk_quota,$current_disk_usage,$uname,$udom) = @_;
-     my $filesize = (length($env{'form.'.$element})) / 1000; #express in k (1024?)
+     my $filesize = length($env{'form.'.$element});
+     if (!$filesize) {
+         my $msg = '<span class="LC_error">'.
+                   &mt('Unable to upload [_1]. (size = [_2] bytes)',
+                       '<span class="LC_filename">'.$fname.'</span>',
+                       $filesize).'<br />'.
+                   &mt('Either the file you uploaded was empty, or your web browser was unable to read its contents.').'<br />';
+                   '</span>';
+         return ('zero_bytes',$msg);
+     }
+     $filesize =  $filesize/1000; #express in k (1024?)
      my $getpropath = 1;
      my @dir_list = &Apache::lonnet::dirlist($portfolio_root.$path,$udom,$uname,
                                              $getpropath);