--- loncom/cgi/metadata_harvest.pl	2008/11/28 20:50:25	1.4
+++ loncom/cgi/metadata_harvest.pl	2008/12/25 01:56:03	1.5
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 # Inserts metadata from .meta files into the mysql database
-# $Id: metadata_harvest.pl,v 1.4 2008/11/28 20:50:25 raeburn Exp $
+# $Id: metadata_harvest.pl,v 1.5 2008/12/25 01:56:03 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -68,6 +68,7 @@ use lib '/home/httpd/lib/perl/';
 use Apache::lonlocal;
 use LONCAPA::Configuration;
 use LONCAPA::loncgi;
+use LONCAPA::lonauthcgi;
 
 # ---------------------------- Print MIME Content-type and other initialization
 print 'Content-type: text/plain'."\n\n";
@@ -75,16 +76,16 @@ print 'Content-type: text/plain'."\n\n";
 &main();
 
 sub main {
-    if (!&LONCAPA::loncgi::check_ipbased_access('metadata_harvest')) {
+    if (!&LONCAPA::lonauthcgi::check_ipbased_access('metadata_harvest')) {
         if (!&LONCAPA::loncgi::check_cookie_and_load_env()) {
             &Apache::lonlocal::get_language_handle();
             print(&LONCAPA::loncgi::missing_cookie_msg());
             return;
         }
 
-        if (!&LONCAPA::loncgi::can_view('metadata_harvest')) {
+        if (!&LONCAPA::lonauthcgi::can_view('metadata_harvest')) {
             &Apache::lonlocal::get_language_handle();
-            print(&LONCAPA::loncgi::unauthorized_msg('metadata_harvest'));
+            print(&LONCAPA::lonauthcgi::unauthorized_msg('metadata_harvest'));
             return;
         }
     }