[LON-CAPA-cvs] cvs: loncom /homework lonhomework.pm

[albertel]

albertel		Tue Nov 13 18:26:14 2007 EDT

  Modified files:              
    /loncom/homework	lonhomework.pm 
  Log:
  - fix some calls to be absulte references
  
  
Index: loncom/homework/lonhomework.pm
diff -u loncom/homework/lonhomework.pm:1.283 loncom/homework/lonhomework.pm:1.284
--- loncom/homework/lonhomework.pm:1.283	Fri Nov  9 20:38:21 2007
+++ loncom/homework/lonhomework.pm	Tue Nov 13 18:26:08 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Homework handler
 #
-# $Id: lonhomework.pm,v 1.283 2007/11/10 01:38:21 albertel Exp $
+# $Id: lonhomework.pm,v 1.284 2007/11/13 23:26:08 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -684,9 +684,9 @@
     my $error=0;
     if ($env{'form.Undo'} eq &mt('undo')) {
 	my $error=0;
-	if (!copy($file,$filetmp)) { $error=1; }
-	if ((!$error) && (!copy($filebak,$file))) { $error=1; }
-	if ((!$error) && (!move($filetmp,$filebak))) { $error=1; }
+	if (!&File::Copy::copy($file,$filetmp)) { $error=1; }
+	if ((!$error) && (!&File::Copy::copy($filebak,$file))) { $error=1; }
+	if ((!$error) && (!&File::Copy::move($filetmp,$filebak))) { $error=1; }
 	if (!$error) {
 	    &Apache::lonxml::info("<p><b>".
 				  &mt("Undid changes, Switched [_1] and [_2]",