version 1.82, 2003/12/22 18:58:26
|
version 1.83, 2003/12/22 19:30:25
|
Line 25
|
Line 25
|
# |
# |
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
# YEAR=1999 |
|
# 5/21/99, 5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14 Gerd Kortemeyer) |
|
# 11/23 Gerd Kortemeyer |
|
# YEAR=2000 |
|
# 07/20-08/04 H.K. Ng |
|
# YEAR=2001 |
|
# 05/9-05/19/2001 H. K. Ng |
|
# 05/21/2001 H. K. Ng |
|
# 05/23/2001 H. K. Ng |
|
# 6/26,7/8 H. K. Ng |
|
# 8/14 H. K. Ng |
|
# 11/30 Matthew Hall |
|
# YEAR=2002 |
|
# 6/29/2002 H. K. Ng |
|
# |
|
### |
### |
|
|
############################################################################### |
############################################################################### |
Line 61 package Apache::lonindexer;
|
Line 46 package Apache::lonindexer;
|
use strict; |
use strict; |
use Apache::lonnet(); |
use Apache::lonnet(); |
use Apache::loncommon(); |
use Apache::loncommon(); |
|
use Apache::lonhtmlcommon(); |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use Apache::lonmeta; |
use Apache::lonmeta; |
use Apache::File; |
use Apache::File; |
Line 83 my @Only = ();
|
Line 69 my @Only = ();
|
my @Omit = (); |
my @Omit = (); |
|
|
|
|
# ------------------------------------------------------- Puts directory header |
|
|
|
sub crumbs { |
|
my $uri=shift; |
|
my $output='<br /><tt><b><font size="+2">/'; |
|
my $path='/'; |
|
foreach (split('/',$uri)) { |
|
unless ($_) { next; } |
|
$path.=$_.'/'; |
|
$output.='<a href="'.$path.'">'.$_.'</a>/'; |
|
} |
|
return $output.'</font></b></tt><br />'; |
|
} |
|
|
|
# ----------------------------- Handling routine called via Apache and mod_perl |
# ----------------------------- Handling routine called via Apache and mod_perl |
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
Line 473 $groupimportbutton
|
Line 445 $groupimportbutton
|
</form> |
</form> |
END |
END |
# ---------------------------------------------------------------- Bread crumbs |
# ---------------------------------------------------------------- Bread crumbs |
$r->print(&crumbs($uri)); |
$r->print(&Apache::lonhtmlcommon::crumbs($uri)); |
# ----------------- output starting row to the indexed file/directory hierarchy |
# ----------------- output starting row to the indexed file/directory hierarchy |
my $titleclr="#ddffff"; |
my $titleclr="#ddffff"; |
# $r->print(&initdebug()); |
# $r->print(&initdebug()); |