version 1.5, 2007/11/15 21:24:51
|
version 1.6, 2007/12/01 03:48:20
|
Line 159 sub propagate_id_change {
|
Line 159 sub propagate_id_change {
|
|
|
sub update_classlist { |
sub update_classlist { |
my ($cdom,$cnum,$udom,$uname,$user) = @_; |
my ($cdom,$cnum,$udom,$uname,$user) = @_; |
my ($uid,$fullname,$classlistentry); |
my ($uid,$classlistentry); |
my $fullname = |
my $fullname = |
&Apache::lonnet::format_name($user->{'firstname'},$user->{'middlename'}, |
&Apache::lonnet::format_name($user->{'firstname'},$user->{'middlename'}, |
$user->{'lastname'},$user->{'generation'}, |
$user->{'lastname'},$user->{'generation'}, |
Line 1325 sub print_userlist {
|
Line 1325 sub print_userlist {
|
my $cnum = $coursehash{'num'}; |
my $cnum = $coursehash{'num'}; |
my $cdesc = $coursehash{'description'}; |
my $cdesc = $coursehash{'description'}; |
my (@roles,@sections,%access,%users,%userdata, |
my (@roles,@sections,%access,%users,%userdata, |
%users,%statushash); |
%statushash); |
if ($env{'form.showrole'} eq 'Any') { |
if ($env{'form.showrole'} eq 'Any') { |
@roles = &course_roles($context); |
@roles = &course_roles($context); |
unshift(@roles,'cr'); |
unshift(@roles,'cr'); |
Line 1489 sub courses_selector {
|
Line 1489 sub courses_selector {
|
my %idnums = (); |
my %idnums = (); |
my %idlist_titles = (); |
my %idlist_titles = (); |
my $caller = 'global'; |
my $caller = 'global'; |
my $totcodes = 0; |
|
my $format_reply; |
my $format_reply; |
my $jscript = ''; |
my $jscript = ''; |
|
|