--- loncom/interface/lonindexer.pm 2007/08/02 00:10:59 1.175
+++ loncom/interface/lonindexer.pm 2007/08/17 18:14:37 1.176
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Directory Indexer
#
-# $Id: lonindexer.pm,v 1.175 2007/08/02 00:10:59 banghart Exp $
+# $Id: lonindexer.pm,v 1.176 2007/08/17 18:14:37 banghart Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -106,7 +106,7 @@ sub handler {
my $fileclr='#ffffe6';
my $line;
- my (@attrchk,@openpath,%typechk);
+ my (@attrchk,@openpath,$typeselect);
my $uri=$r->uri;
# -------------------------------------- see if called from an interactive mode
@@ -411,16 +411,11 @@ ENDHEADER
{'domain' => $headerdom,}));
# ---------------------------------- get state of file types to be showing
if ($env{'form.only'}) {
- if ($env{'form.only'} eq 'problem' ) {
- $typechk{'problem'} = 'selected';
- } elsif ($env{'form.only'} eq 'gif,jpg,jpeg' ) {
- $typechk{'graphic'} = 'selected';
- }
+ $typeselect = $env{'form.only'};
} else {
- $typechk{'all'} = 'selected';
+ $typeselect = '';
}
-
# ---------------------------------- get state of file attributes to be showing
if ($env{'form.attrs'}) {
for (my $i=0; $i<=11; $i++) {
@@ -482,11 +477,11 @@ ENDHEADER
-
+