[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>