version 1.8, 2002/04/08 19:12:25
|
version 1.9, 2002/04/23 21:05:45
|
Line 49 use Apache::lonnet;
|
Line 49 use Apache::lonnet;
|
|
|
sub phase_one { |
sub phase_one { |
my $r=shift; |
my $r=shift; |
|
|
my $defdom=$ENV{'user.domain'}; |
my $defdom=$ENV{'user.domain'}; |
|
my $domform = &Apache::loncommon::select_dom_form($defdom,'ccdomain'); |
$r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |
<html> |
<html> |
<script language="JavaScript" type="text/javascript"> |
<script language="JavaScript" type="text/javascript"> |
Line 88 function openbrowser(formname,elementnam
|
Line 88 function openbrowser(formname,elementnam
|
<input type="text" size="30" name="crsid"> |
<input type="text" size="30" name="crsid"> |
<h3>Course Coordinator</h3> |
<h3>Course Coordinator</h3> |
Username: <input type="text" size="15" name="ccuname" /><br> |
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="hidden" name="phase" value="two" /><p> |
<input type="submit" value="Open Course"> |
<input type="submit" value="Open Course"> |
</form> |
</form> |