--- loncom/interface/lonindexer.pm 2001/05/31 21:38:58 1.8 +++ loncom/interface/lonindexer.pm 2001/06/02 16:57:35 1.9 @@ -9,6 +9,8 @@ # 05/21/2001 H. K. Ng # 05/23/2001 H. K. Ng # 05/31/2001 Scott Harrison +# 06/01/2001 Scott Harrison +# 06/02/2001 Scott Harrison package Apache::lonindexer; @@ -23,7 +25,7 @@ my %dirs; my %language; my $hidden; my $extrafield; -my $fnum=0; +my $fnum; sub BEGIN { my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.'/language.tab'); map { @@ -37,7 +39,7 @@ sub handler { $r->content_type('text/html'); $r->send_http_header; return OK if $r->header_only; - + $fnum=0; my $iconpath= $r->dir_config('lonIconsURL'); my $domain = $r->dir_config('lonDefDomain'); my $role = $r->dir_config('lonRole'); @@ -108,14 +110,38 @@ function save_group() { } } function select_group() { + var linkflag=false; for (var num=0; num