[LON-CAPA-cvs] cvs: loncom /automation Autocreate.pl

[raeburn]

raeburn		Sun Jan 31 18:06:10 2010 EDT

  Modified files:              
    /loncom/automation	Autocreate.pl 
  Log:
  - &escape() was moved from lonnet.pm to LONCAPA.pm some time ago.
  
  
Index: loncom/automation/Autocreate.pl
diff -u loncom/automation/Autocreate.pl:1.10 loncom/automation/Autocreate.pl:1.11
--- loncom/automation/Autocreate.pl:1.10	Tue Mar 18 20:51:12 2008
+++ loncom/automation/Autocreate.pl	Sun Jan 31 18:06:10 2010
@@ -2,7 +2,7 @@
 #
 # Automated Course Creation script
 #
-# $Id: Autocreate.pl,v 1.10 2008/03/18 20:51:12 raeburn Exp $
+# $Id: Autocreate.pl,v 1.11 2010/01/31 18:06:10 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -39,6 +39,7 @@
     use Apache::lonlocal;
     use LONCAPA::batchcreatecourse;
     use LONCAPA::Configuration;
+    use LONCAPA();
 
     my $perlvarref = &LONCAPA::Configuration::read_conf('loncapa.conf');
     my $logfile = $$perlvarref{'lonDaemons'}.'/logs/autocreate.log';
@@ -133,7 +134,7 @@
 
     foreach my $key (sort keys %courseids) {
         print $fh "created course: $key - $courseids{$key}\n";
-        my $newcourse = &Apache::lonnet::escape($key.':'.$courseids{$key});
+        my $newcourse = &LONCAPA::escape($key.':'.$courseids{$key});
         $output .= $newcourse.':'; 
     }
     $output =~ s/:$//;