[WWcvs] webwork-modperl: Added a hack to get around Netscape 7.1 bug with

[dpvc v. a. <we...@ma...>]

Log Message:
-----------
Added a hack to get around Netscape 7.1 bug with onChange event
handler not being called when an upload file has been selected.

Modified Files:
--------------
    webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor:
        FileManager.pm

Revision Data
-------------
Index: FileManager.pm
===================================================================
RCS file: /webwork/cvs/system/webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/FileManager.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -Llib/WeBWorK/ContentGenerator/Instructor/FileManager.pm -Llib/WeBWorK/ContentGenerator/Instructor/FileManager.pm -u -r1.11 -r1.12
--- lib/WeBWorK/ContentGenerator/Instructor/FileManager.pm
+++ lib/WeBWorK/ContentGenerator/Instructor/FileManager.pm
@@ -122,7 +122,8 @@
 		-method=>"POST",
 		-action=>$fileManagerURL,
 		-id=>"FileManager",
-		-name=>"FileManager"
+		-name=>"FileManager",
+                -style=>"margin:0",
 	);
 	print $self->hidden_authen_fields;
 
@@ -229,6 +230,11 @@
 		}
 		function checkFile() {
 			var file = window.document.getElementById('file');
+			if (navigator.vendor && navigator.vendorSub && navigator.vendor == "Netscape") {
+			  if (navigator.vendorSub.match(/(\\d+)\.(\\d+)/)) {
+			    if (RegExp.\$1 < 7 || (RegExp.\$1 == 7 && RegExp.\$2 < 2)) return;
+			  }
+			}
 			var state = (file.value == "");
 			disableButton('Upload',state);
 		}
@@ -308,6 +314,25 @@
 		),
 	);
 
+	print CGI::end_table();
+	print CGI::hidden({name=>'pwd',value=>$self->{pwd}});
+	print CGI::hidden({name=>'formAction'});
+	print CGI::end_multipart_form();
+
+	my $fileManagerPage = $self->r->urlpath->newFromModule($self->r->urlpath->module, courseID => $self->{courseName});
+	my $fileManagerURL  = $self->systemLink($fileManagerPage, authen => 0);
+
+	print CGI::start_multipart_form(
+		-method=>"POST",
+		-action=>$fileManagerURL,
+		-id=>"FileManager",
+		-name=>"FileManager",
+		-style=>"margin:0",
+	);
+	print $self->hidden_authen_fields;
+
+	print CGI::start_table({border=>0,cellpadding=>0,cellspacing=>3, style=>"margin:0 0 0 3em"});
+
 	#
 	# Upload button and checkboxes
 	#