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

matthew lon-capa-cvs@mail.lon-capa.org
Tue, 23 Apr 2002 21:05:46 -0000


matthew		Tue Apr 23 17:05:46 2002 EDT

  Modified files:              
    /loncom/interface	loncreatecourse.pm loncreateuser.pm 
  Log:
  Added call to &Apache::loncommon::select_dom_form.
  
  
Index: loncom/interface/loncreatecourse.pm
diff -u loncom/interface/loncreatecourse.pm:1.8 loncom/interface/loncreatecourse.pm:1.9
--- loncom/interface/loncreatecourse.pm:1.8	Mon Apr  8 15:12:25 2002
+++ loncom/interface/loncreatecourse.pm	Tue Apr 23 17:05:45 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Create a course
 #
-# $Id: loncreatecourse.pm,v 1.8 2002/04/08 19:12:25 matthew Exp $
+# $Id: loncreatecourse.pm,v 1.9 2002/04/23 21:05:45 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -49,8 +49,8 @@
 
 sub phase_one {
     my $r=shift;
-
     my $defdom=$ENV{'user.domain'};
+    my $domform = &Apache::loncommon::select_dom_form($defdom,'ccdomain');
     $r->print(<<ENDDOCUMENT);
 <html>
 <script language="JavaScript" type="text/javascript">
@@ -88,7 +88,7 @@
 <input type="text" size="30" name="crsid">
 <h3>Course Coordinator</h3>
 Username: <input type="text" size="15" name="ccuname" /><br>
-Domain:   <input type="text" size="15" name="ccdomain" value="$defdom" />
+Domain:   $domform
 <input type="hidden" name="phase" value="two" /><p>
 <input type="submit" value="Open Course">
 </form>
Index: loncom/interface/loncreateuser.pm
diff -u loncom/interface/loncreateuser.pm:1.32 loncom/interface/loncreateuser.pm:1.33
--- loncom/interface/loncreateuser.pm:1.32	Mon Apr 22 14:04:19 2002
+++ loncom/interface/loncreateuser.pm	Tue Apr 23 17:05:45 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Create a user
 #
-# $Id: loncreateuser.pm,v 1.32 2002/04/22 18:04:19 matthew Exp $
+# $Id: loncreateuser.pm,v 1.33 2002/04/23 21:05:45 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -47,7 +47,7 @@
 # 11/12,11/13,11/15 Scott Harrison
 # 02/11/02 Matthew Hall
 #
-# $Id: loncreateuser.pm,v 1.32 2002/04/22 18:04:19 matthew Exp $
+# $Id: loncreateuser.pm,v 1.33 2002/04/23 21:05:45 matthew Exp $
 ###
 
 package Apache::loncreateuser;
@@ -85,7 +85,9 @@
 sub phase_one {
     my $r=shift;
     my $defdom=$ENV{'user.domain'};
-    $r->print(<<ENDDOCUMENT);
+    my @domains = &Apache::loncommon::get_domains();
+    my $domform = &Apache::loncommon::select_dom_form($defdom,'ccdomain');
+    $r->print(<<"ENDDOCUMENT");
 <html>
 <head>
 <title>The LearningOnline Network with CAPA</title>
@@ -94,8 +96,10 @@
 <h1>Create User, Change User Privileges</h1>
 <form action=/adm/createuser method=post>
 <input type=hidden name=phase value=two>
+<p>
 Username: <input type=text size=15 name=ccuname><br>
-Domain: <input type=text size=15 name=ccdomain value=$defdom><p>
+Domain: $domform 
+</p>
 <input type=submit value="Continue">
 </form>
 </body>