--- loncom/interface/lonindexer.pm 2004/03/26 19:35:59 1.94
+++ loncom/interface/lonindexer.pm 2004/03/28 21:01:06 1.95
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Directory Indexer
#
-# $Id: lonindexer.pm,v 1.94 2004/03/26 19:35:59 www Exp $
+# $Id: lonindexer.pm,v 1.95 2004/03/28 21:01:06 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -573,6 +573,7 @@ sub scanDir {
next if($strip =~ /.*\.meta$/ | $obs eq '1');
my (@fileparts) = split(/\./,$strip);
if ($hash{'display_attrs_9'} != 1) {
+# if not all versions to be shown
if (scalar(@fileparts) >= 3) {
my $fext = pop @fileparts;
my $ov = pop @fileparts;
@@ -591,7 +592,7 @@ sub scanDir {
$curdir = $startdir;
}
my $diropen = 'closed';
- if (($dirptr&$testdir) or ($dom =~ /^(domain|user)$/)) {
+ if (($dirptr&$testdir) or ($dom =~ /^(domain|user)$/) || ($compuri=~/\.(sequence|page)$/)) {
while (my ($key,$val)= each %dupdirs) {
if ($key eq $compuri and $val eq "open") {
$diropen = "opened";
@@ -813,8 +814,7 @@ sub display_line {
$r->print("".
"\n");
$r->print("
");
- }
- elsif ($ENV{'form.catalogmode'} eq 'groupimport') {
+ } elsif ($ENV{'form.catalogmode'} eq 'groupimport') {
$title=$listname;
#$title = &Apache::lonnet::metadata($filelink,'title')
#if ($metafile == 1);
@@ -836,7 +836,15 @@ sub display_line {
$hash{"pre_${fnum}_title"}=$titleesc;
$fnum++;
}
-
+# Form to open or close sequences
+ if ($filelink=~/\.(page|sequence)$/) {
+ my $curdir = $startdir.$filecom[0].'/';
+ my $anchor = $curdir;
+ $anchor =~ s/\///g;
+ &begin_form($r,$curdir);
+ $indent--;
+ }
+# General indentation
if ($indent > 0 and $indent < 11) {
$r->print("\n");
@@ -852,8 +860,23 @@ sub display_line {
$r->print("\n") if $rem > 0;
}
-
+# Sequence open/close icon
+ if ($filelink=~/\.(page|sequence)$/) {
+ my $curdir = $startdir.$filecom[0].'/';
+ my $anchor = $curdir;
+ $anchor =~ s/\///g;
+ $r->print ('');
+ $r->print ('print (' name="'.$msg.'" height="22" type="image" border="0">'.
+ "\n");
+ }
+# Filetype icons
$r->print("\n");
+# Close form to open/close sequence
+ if ($filelink=~/\.(page|sequence)$/) {
+ $r->print('');
+ }
$r->print (" $listname ");
|