--- loncom/interface/lonindexer.pm 2008/02/15 11:06:22 1.180
+++ loncom/interface/lonindexer.pm 2008/12/13 15:33:04 1.181.2.1
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Directory Indexer
#
-# $Id: lonindexer.pm,v 1.180 2008/02/15 11:06:22 bisitz Exp $
+# $Id: lonindexer.pm,v 1.181.2.1 2008/12/13 15:33:04 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -542,7 +542,7 @@ END
$r->print("
".&mt('Name')." | \n");
$r->print("".&mt('Title')." | \n")
if ($hash{'display_attrs_0'} == 1);
- $r->print("".&mt("Size")." (".&mt("bytes").") ".
+ $r->print(" | ".&mt("Size")." (".&mt("bytes").") ".
" | \n") if ($hash{'display_attrs_1'} == 1);
$r->print("".&mt("Last accessed")." | \n")
if ($hash{'display_attrs_2'} == 1);
@@ -657,7 +657,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 not all versions to be shown
if (scalar(@fileparts) >= 3) {
my $fext = pop @fileparts;
my $ov = pop @fileparts;
@@ -944,7 +944,8 @@ sub display_line {
}
# Set the icon for the file
my $iconname = &Apache::loncommon::icon($listname);
- $r->print("");
+ $r->print(' |
'.
+ '');
if ($env{'form.catalogmode'} eq 'interactive') {
my $quotable_filelink = &Apache::loncommon::escape_single($filelink);
@@ -952,7 +953,7 @@ sub display_line {
$quotable_filelink,"')\">");
$r->print(" ".
"\n");
- $r->print(" | ");
+ $r->print(' | ');
} elsif ($env{'form.catalogmode'} eq 'import') {
$r->print(" | ");
+ $r->print(' | ');
$hash{"pre_${fnum}_link"}=$filelink;
$hash{"pre_${fnum}_title"}=$title;
if (!$hash{"pre_${fnum}_title"}) {
@@ -1019,19 +1020,19 @@ sub display_line {
if ($filelink=~/\.(page|sequence)$/) {
$r->print('');
}
- $r->print(" | \n");
+ $r->print("\n");
if ($hash{'display_attrs_0'} == 1) {
$r->print(' '.($title eq '' ? ' ' : $title).
' | '."\n");
}
- $r->print(' ',
+ $r->print(' | ',
$filecom[8]," | \n")
if $hash{'display_attrs_1'} == 1;
$r->print(' '.
- (localtime($filecom[9]))." | \n")
+ (&Apache::lonlocal::locallocaltime($filecom[9]))." \n")
if $hash{'display_attrs_2'} == 1;
$r->print(' '.
- (localtime($filecom[10]))." | \n")
+ (&Apache::lonlocal::locallocaltime($filecom[10]))." \n")
if $hash{'display_attrs_3'} == 1;
if ($hash{'display_attrs_4'} == 1) {
@@ -1080,7 +1081,7 @@ sub display_line {
$r->print(''."Yes "." | \n");
+ " target=\"_self\">".&mt('Source Code')." "."\n");
} else { #A cuddled else. :P
$r->print(" | \n");
}
@@ -1149,14 +1150,14 @@ sub display_line {
$r->print(' '.($title eq '' ? ' ' : $title).
' | '."\n");
}
- $r->print(' ',
+ $r->print(' | ',
$filecom[8]," | \n")
if $hash{'display_attrs_1'} == 1;
$r->print(' '.
- (localtime($filecom[9]))." | \n")
+ (&Apache::lonlocal::locallocaltime($filecom[9]))." \n")
if $hash{'display_attrs_2'} == 1;
$r->print(' '.
- (localtime($filecom[10]))." | \n")
+ (&Apache::lonlocal::locallocaltime($filecom[10]))." \n")
if $hash{'display_attrs_3'} == 1;
if ($hash{'display_attrs_4'} == 1) {