loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.66, 2003/07/25 01:18:04	version 1.67, 2003/09/17 17:30:10
Line 310 END	Line 310 END
<table border=2>	<table border=2>
<tr><th>Revoke</th><th>Delete</th><th>Role</th><th>Extent</th><th>Start</th><th>End</th>	<tr><th>Revoke</th><th>Delete</th><th>Role</th><th>Extent</th><th>Start</th><th>End</th>
END	END
foreach my $area (sort keys(%rolesdump)) {	foreach my $area (sort { my $a1=join('_',(split('_',$a))[1,0]);
	my $b1=join('_',(split('_',$b))[1,0]);
	return $a1 cmp $b1;
	} keys(%rolesdump)) {
next if ($area =~ /^rolesdef/);	next if ($area =~ /^rolesdef/);
my $role = $rolesdump{$area};	my $role = $rolesdump{$area};
my $thisrole=$area;	my $thisrole=$area;