loncom/interface/loncreatecourse.pm - diff

Return to loncreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

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>