--- loncom/interface/lonindexer.pm 2002/06/20 21:22:20 1.44
+++ loncom/interface/lonindexer.pm 2002/06/29 19:55:19 1.45
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Directory Indexer
#
-# $Id: lonindexer.pm,v 1.44 2002/06/20 21:22:20 ng Exp $
+# $Id: lonindexer.pm,v 1.45 2002/06/29 19:55:19 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
#
###
@@ -382,34 +383,34 @@ ENDHEADER
'
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