loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.11, 2001/03/24 17:25:54	version 1.12, 2001/04/12 19:43:49
Line 16	Line 16
#	#
# 2/14 Gerd Kortemeyer)	# 2/14 Gerd Kortemeyer)
#	#
# 2/14,2/17,2/19,2/20,2/21,2/22,2/23,3/2,3/17,3/24 Gerd Kortemeyer	# 2/14,2/17,2/19,2/20,2/21,2/22,2/23,3/2,3/17,3/24,04/12 Gerd Kortemeyer
#	#
package Apache::loncreateuser;	package Apache::loncreateuser;

Line 254 ENDNUSER	Line 254 ENDNUSER
</tr>	</tr>
ENDDROW	ENDDROW
}	}
} ('dc','cc','li','dg','au');	} ('dc','li','dg','au');
} sort keys %incdomains;	} sort keys %incdomains;
$r->print('</table>');	$r->print('</table>');
#	#
Line 265 ENDDROW	Line 265 ENDDROW
'<th>Group/Section</th><th>Start</th><th>End</th></tr>');	'<th>Group/Section</th><th>Start</th><th>End</th></tr>');
map {	map {
my $thiscourse=$_;	my $thiscourse=$_;
	$thiscourse=~s/\_/\//g;
my %coursedata=&Apache::lonnet::coursedescription($thiscourse);	my %coursedata=&Apache::lonnet::coursedescription($thiscourse);
my $area=$coursedata{'description'};	my $area=$coursedata{'description'};
my $bgcol=$thiscourse;	my $bgcol=$thiscourse;
Line 289 ENDDROW	Line 290 ENDDROW
ENDROW	ENDROW

}	}
} ('st','ta','ep','ad','in');	} ('st','ta','ep','ad','in','cc');
} sort keys %inccourses;	} sort keys %inccourses;
$r->print('</table>');	$r->print('</table>');
$r->print('<input type=submit value="Modify User">');	$r->print('<input type=submit value="Modify User">');