[WWcvs] webwork-modperl: Fixed a bug with the file editor that did not process

[dpvc v. a. <act...@de...>]

Log Message:
-----------
Fixed a bug with the file editor that did not process the file name
correctly in the top-level directory.

Fixed a bug in uploading a file where the name was given a sequence
number even when one was not needed.

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.6
retrieving revision 1.7
diff -Llib/WeBWorK/ContentGenerator/Instructor/FileManager.pm -Llib/WeBWorK/ContentGenerator/Instructor/FileManager.pm -u -r1.6 -r1.7
--- lib/WeBWorK/ContentGenerator/Instructor/FileManager.pm
+++ lib/WeBWorK/ContentGenerator/Instructor/FileManager.pm
@@ -373,7 +373,8 @@
 	my $pwd = $self->{pwd};
 	if ($filename) {
 		$pwd = substr($filename,length($self->{courseRoot})+1);
-		$pwd =~ s!/([^/]*)$!!; $filename = $1;
+		$pwd =~ s!(/|^)([^/]*)$!!; $filename = $2;
+                $pwd = '.' if $pwd eq '';
 	} else {
 		$filename = $self->getFile("save"); return unless $filename;
 	}
@@ -776,6 +777,7 @@
 #
 sub uniqueName {
 	my $dir = shift; my $name = shift;
+	return $name unless (-e "$dir/$name");
 	my $type = ""; my $n = -1;
 	$type = $1 if ($name =~ s/(\.[^.]*)$//);
 	$n = $1 if ($name =~ s/(\d+)$//);