Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv11885/lib/SandWeb
Modified Files:
File.pm
Log Message:
put in some regexps in an attempt to workaround IE/Windows behaviour
when uploading files ( it gives us the whole path starting from the
drive letter, we just want the filename )
Index: File.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/File.pm,v
retrieving revision 1.41
retrieving revision 1.42
diff -U2 -r1.41 -r1.42
--- File.pm 10 Feb 2002 20:53:07 -0000 1.41
+++ File.pm 10 Feb 2002 21:12:53 -0000 1.42
@@ -129,4 +129,16 @@
my $log = $self->{'log_obj'};
+# begin workaround for IE/Windows upload behaviour
+ $filename =~ /\\/;
+
+ while ( $' =~ /\\/ ) {
+ $' =~ /\\/;
+ }
+
+ if ( $filename =~ /\\/ ) {
+ $filename = $';
+ }
+# end workaround for IE/Windows upload behaviour
+
my $filehandle = $args{'filehandle'};
|
