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

[raeburn]

raeburn		Wed Jun  9 13:08:28 2004 EDT

  Modified files:              
    /loncom/interface	londropadd.pm 
  Log:
  Check if auto-enrollment is enabled on the course's homeserver. If yes, display link to Automated Enrollment Manager.
  
  
Index: loncom/interface/londropadd.pm
diff -u loncom/interface/londropadd.pm:1.112 loncom/interface/londropadd.pm:1.113
--- loncom/interface/londropadd.pm:1.112	Wed May 19 13:53:43 2004
+++ loncom/interface/londropadd.pm	Wed Jun  9 13:08:27 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to drop and add students in courses 
 #
-# $Id: londropadd.pm,v 1.112 2004/05/19 17:53:43 matthew Exp $
+# $Id: londropadd.pm,v 1.113 2004/06/09 17:08:27 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -173,10 +173,15 @@
     <a href="/adm/dropadd?action=drop">$Text{'drop'}</a>
     </font>$help{'Course_Drop_Student'}
 </p><p>
+END
+    my ($cdom,$cnum) = split/_/,$ENV{'request.course.id'};
+    if (&Apache::lonnet::auto_run($cnum,$cdom) ) {
+        $r->print(<<END);
 <font size="+1">
     <a href="/adm/populate">$Text{'populate'}</a>
 </font>
 END
+    }
 }
 
 ###############################################################