*** upload	Thu Mar 18 08:23:17 2004
--- upload.new	Thu Apr  8 16:26:36 2004
***************
*** 406,412 ****
  	}
  
  	# cut path from filepath name (Windows "\" and Unix "/" format)
! 	my @pathz = ( split( /\\/, $filePath ) );
  	my $filetemp = $pathz[$#pathz];
  	my @pathza = ( split( '/', $filetemp ) );
  	$fileName = $pathza[$#pathza];
--- 406,412 ----
  	}
  
  	# cut path from filepath name (Windows "\" and Unix "/" format)
! 	my @pathz = ( split( /\\/, $fileName ) );
  	my $filetemp = $pathz[$#pathz];
  	my @pathza = ( split( '/', $filetemp ) );
  	$fileName = $pathza[$#pathza];