--- loncom/interface/lonindexer.pm 2003/07/17 21:11:09 1.69
+++ loncom/interface/lonindexer.pm 2003/07/21 18:35:25 1.70
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Directory Indexer
#
-# $Id: lonindexer.pm,v 1.69 2003/07/17 21:11:09 www Exp $
+# $Id: lonindexer.pm,v 1.70 2003/07/21 18:35:25 ng Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -62,6 +62,7 @@ use strict;
use Apache::lonnet();
use Apache::loncommon();
use Apache::Constants qw(:common);
+use Apache::lonmeta;
use Apache::File;
use GDBM_File;
@@ -377,7 +378,7 @@ $r->print(&Apache::loncommon::bodytag('B
# ---------------------------------- get state of file attributes to be showing
if ($ENV{'form.attrs'} ne '') {
- for (my $i=0; $i<=8; $i++) {
+ for (my $i=0; $i<=9; $i++) {
delete $hash{'display_attrs_'.$i};
if ($ENV{'form.attr'.$i} == 1) {
$attrchk[$i] = 'checked';
@@ -385,7 +386,7 @@ $r->print(&Apache::loncommon::bodytag('B
}
}
} else {
- for (my $i=0; $i<=8; $i++) {
+ for (my $i=0; $i<=9; $i++) {
$attrchk[$i] = 'checked' if $hash{'display_attrs_'.$i} == 1;
}
}
@@ -399,11 +400,12 @@ $r->print(&Apache::loncommon::bodytag('B
Size
Last access
Last modified
-
All versions
+
Statistics
Author
Keywords
Language
Show Resource
+
All versions
@@ -439,6 +441,8 @@ END
if ($hash{'display_attrs_6'} == 1);
$r->print("
Resource
\n")
if ($hash{'display_attrs_7'} == 1);
+ $r->print("
Usage Statistics (Courses/Network Hits)
\n")
+ if ($hash{'display_attrs_8'} == 1);
$r->print('');
# ----------------- read in what directories have previously been set to "open"
@@ -535,7 +539,7 @@ sub scanDir {
my ($strip,$dom,undef,$testdir,undef)=split(/\&/,$line,5);
next if $strip =~ /.*\.meta$/;
my (@fileparts) = split(/\./,$strip);
- if ($hash{'display_attrs_8'} != 1) {
+ if ($hash{'display_attrs_9'} != 1) {
if (scalar(@fileparts) >= 3) {
my $fext = pop @fileparts;
my $ov = pop @fileparts;
@@ -659,7 +663,7 @@ sub display_line {
my $tabtag='';
my $i=0;
- while ($i<=7) {
+ while ($i<=8) {
$tabtag=join('',$tabtag,"
")
if $hash{'display_attrs_'.$i} == 1;
$i++;
@@ -669,8 +673,8 @@ sub display_line {
# display uplink arrow
if ($filecom[1] eq 'viewOneUp') {
- $r->print("