[LON-CAPA-cvs] cvs: loncom(version_1_1_X) /interface londropadd.pm

[albertel]

albertel		Tue Jan 20 19:23:30 2004 EDT

  Modified files:              (Branch: version_1_1_X)
    /loncom/interface	londropadd.pm 
  Log:
  - adding code to hide Automated Enrollmanet manger link if not enabled on the machine
  
  
Index: loncom/interface/londropadd.pm
diff -u loncom/interface/londropadd.pm:1.91 loncom/interface/londropadd.pm:1.91.2.1
--- loncom/interface/londropadd.pm:1.91	Fri Dec  5 16:27:59 2003
+++ loncom/interface/londropadd.pm	Tue Jan 20 19:23:30 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to drop and add students in courses 
 #
-# $Id: londropadd.pm,v 1.91 2003/12/05 21:27:59 raeburn Exp $
+# $Id: londropadd.pm,v 1.91.2.1 2004/01/21 00:23:30 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -43,6 +43,7 @@
 use Apache::Constants qw(:common :http REDIRECT);
 use Spreadsheet::WriteExcel;
 use Apache::lonlocal;
+use localenroll();
 
 ###############################################################
 ###############################################################
@@ -171,10 +172,14 @@
     <a href="/adm/dropadd?action=drop">$Text{'drop'}</a>
 </font>
 </p><p>
+END
+    if (&localenroll::run() ) {
+	$r->print(<<END);
 <font size="+1">
     <a href="/adm/populate">$Text{'populate'}</a>
 </font>
 END
+    }
 }
 
 ###############################################################