[LON-CAPA-cvs] cvs: loncom(version_2_9_X) /interface loncreateuser.pm

[raeburn]

raeburn		Sat May 23 12:37:51 2009 EDT

  Modified files:              (Branch: version_2_9_X)
    /loncom/interface	loncreateuser.pm 
  Log:
  - Self-enroll request approval link needed. 
  
  
Index: loncom/interface/loncreateuser.pm
diff -u loncom/interface/loncreateuser.pm:1.295.2.1 loncom/interface/loncreateuser.pm:1.295.2.2
--- loncom/interface/loncreateuser.pm:1.295.2.1	Thu May 21 05:45:59 2009
+++ loncom/interface/loncreateuser.pm	Sat May 23 12:37:51 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Create a user
 #
-# $Id: loncreateuser.pm,v 1.295.2.1 2009/05/21 05:45:59 raeburn Exp $
+# $Id: loncreateuser.pm,v 1.295.2.2 2009/05/23 12:37:51 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3726,6 +3726,14 @@
                  permission => $permission->{'cusr'},
                });
         }
+        if ($env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_approval'}) {
+            push(@courselinks,
+                    {   text => 'Enrollment Requests',
+                        help => 'Course_Approve_Selfenroll',
+                        action => 'selfenrollqueue',
+                        permission => $permission->{'cusr'},
+                    });
+        }
         push(@courselinks,
                { text => 'Manage Course Groups',
                  help => 'Course_Manage_Group',