version 1.26, 2001/12/20 20:47:53
|
version 1.27, 2002/02/01 16:37:58
|
Line 33
|
Line 33
|
# (Page Handler |
# (Page Handler |
# |
# |
# (TeX Content Handler |
# (TeX Content Handler |
# |
# YEAR=2000 |
# 05/29/00,05/30 Gerd Kortemeyer) |
# 05/29/00,05/30 Gerd Kortemeyer) |
# 08/30,08/31,09/06,09/14,09/15,09/16,09/19,09/20,09/21,09/23, |
# 08/30,08/31,09/06,09/14,09/15,09/16,09/19,09/20,09/21,09/23, |
# 10/02,10/10,10/14,10/16,10/18,10/19,10/31,11/6,11/14,11/16 Gerd Kortemeyer) |
# 10/02,10/10,10/14,10/16,10/18,10/19,10/31,11/6,11/14,11/16 Gerd Kortemeyer) |
# |
# YEAR=2001 |
# 3/1/1,6/1,17/1,29/1,30/1,31/1 Gerd Kortemeyer) |
# 3/1/1,6/1,17/1,29/1,30/1,31/1 Gerd Kortemeyer) |
# 7/10/01 Behrouz Minaei |
# 7/10/01 Behrouz Minaei |
# 9/8 Gerd Kortemeyer |
# 9/8 Gerd Kortemeyer |
# 10/18/01, 10/19/01 Behrouz Minaei |
# 10/1, 10/19, 11/17, 11/22, 11/24, 11/28 12/18 Behrouz Minaei |
# 11/17/01, 11/22/01, 11/24/01, 11/28/01 Behrouz Minaei |
# YEAR=2002 |
# 12/18/01 Behrouz Minaei |
# 2/1 Behrouz Minaei |
# |
# |
### |
### |
|
|
Line 321 sub handler {
|
Line 321 sub handler {
|
my $reply=&Apache::lonnet::reply('get:'.$sdom.':'.$sname. |
my $reply=&Apache::lonnet::reply('get:'.$sdom.':'.$sname. |
':environment:lastname&generation&firstname&middlename', |
':environment:lastname&generation&firstname&middlename', |
&Apache::lonnet::homeserver($sname,$sdom)); |
&Apache::lonnet::homeserver($sname,$sdom)); |
|
|
|
$ssec=(int($ssec)) ? int($ssec) : $ssec; |
|
|
$rowlabels[$thisindex]= |
$rowlabels[$thisindex]= |
sprintf('%3s',$ssec).' '.$reply{$sname}.' '; |
sprintf('%3s ',$ssec).' '.$reply{$sname}.' '; |
my $i=0; |
my $i=0; |
map { |
map { |
$i++; |
$i++; |