--- loncom/cgi/metadata_keywords.pl	2008/11/28 20:50:25	1.7
+++ loncom/cgi/metadata_keywords.pl	2009/01/06 08:58:30	1.9
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 # Gets keywords from metadata database.
-# $Id: metadata_keywords.pl,v 1.7 2008/11/28 20:50:25 raeburn Exp $
+# $Id: metadata_keywords.pl,v 1.9 2009/01/06 08:58:30 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -69,6 +69,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";
@@ -76,16 +77,16 @@ print 'Content-type: text/plain'."\n\n";
 &main();
 
 sub main {
-    if (!&LONCAPA::loncgi::check_ipbased_access('metadatakeywords')) {
+    if (!&LONCAPA::lonauthcgi::check_ipbased_access('metadatakeywords')) {
         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_keywords')) {
+        if (!&LONCAPA::lonauthcgi::can_view('metadata_keywords')) {
             &Apache::lonlocal::get_language_handle();
-            print(&LONCAPA::loncgi::unauthorized_msg('metadata_keywords'));
+            print(&LONCAPA::lonauthcgi::unauthorized_msg('metadata_keywords'));
             return;
         }
     }
@@ -101,7 +102,7 @@ sub main {
     undef($perlvarref);
 
     unless ($perlvar{'lonRole'} eq 'library') {
-         print(&Apache::lonlocal::mt('This can only be run on a library server!)."\n");
+         print(&Apache::lonlocal::mt('This can only be run on a library server!')."\n");
          return;
     }