--- loncom/interface/lonindexer.pm 2002/06/13 15:05:16 1.43
+++ loncom/interface/lonindexer.pm 2002/07/02 21:08:24 1.46
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Directory Indexer
#
-# $Id: lonindexer.pm,v 1.43 2002/06/13 15:05:16 matthew Exp $
+# $Id: lonindexer.pm,v 1.46 2002/07/02 21:08:24 ng Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -43,6 +43,7 @@
# 12/11,12/13 Scott Harrison
# YEAR=2002
# 1/17 Scott Harrison
+# 6/29/2002 H. K. Ng
#
###
@@ -379,37 +380,37 @@ ENDHEADER
# ---------------------------------------------------------------- output title
$r->print(
-'
The LearningOnline Network with CAPA '.
+'The LearningOnline Network with CAPA '.
'Network Directory Browser
'."\n");
# ---------------------------------- get state of file attributes to be showing
- if ($ENV{'form.attrs'} ne "") {
- for (my $i=0; $i<=6; $i++) {
+ if ($ENV{'form.attrs'} ne '') {
+ for (my $i=0; $i<=7; $i++) {
delete $hash{'display_attrs_'.$i};
if ($ENV{'form.attr'.$i} == 1) {
- $attrchk[$i] = "checked";
+ $attrchk[$i] = 'checked';
$hash{'display_attrs_'.$i} = 1;
}
}
} else {
- for (my $i=0; $i<=6; $i++) {
- $attrchk[$i] = "checked" if $hash{'display_attrs_'.$i} == 1;
+ for (my $i=0; $i<=7; $i++) {
+ $attrchk[$i] = 'checked' if $hash{'display_attrs_'.$i} == 1;
}
}
# ------------------------------- output state of file attributes to be showing
$r->print(<Display file attributes