version 1.83, 2003/12/22 19:30:25
|
version 1.86, 2004/01/05 15:02:43
|
Line 446 $groupimportbutton
|
Line 446 $groupimportbutton
|
END |
END |
# ---------------------------------------------------------------- Bread crumbs |
# ---------------------------------------------------------------- Bread crumbs |
$r->print(&Apache::lonhtmlcommon::crumbs($uri)); |
$r->print(&Apache::lonhtmlcommon::crumbs($uri)); |
|
# ------------------------------------------------------ Remember where we were |
|
&Apache::loncommon::storeresurl($uri); |
# ----------------- output starting row to the indexed file/directory hierarchy |
# ----------------- output starting row to the indexed file/directory hierarchy |
my $titleclr="#ddffff"; |
my $titleclr="#ddffff"; |
# $r->print(&initdebug()); |
# $r->print(&initdebug()); |
Line 793 sub display_line {
|
Line 795 sub display_line {
|
return OK if ($skip > 0); |
return OK if ($skip > 0); |
} |
} |
# Set the icon for the file |
# Set the icon for the file |
my $iconname = "unknown.gif"; |
my $iconname = &Apache::loncommon::icon($listname); |
my $embstyle = &Apache::loncommon::fileembstyle($curfext); |
|
# The unless conditional that follows is a bit of overkill |
|
$iconname = $curfext.".gif" unless |
|
(!defined($embstyle) || $embstyle eq 'unk' || $embstyle eq 'hdn'); |
|
# |
|
$r->print("<tr valign='$valign' bgcolor=$fileclr><td nowrap>"); |
$r->print("<tr valign='$valign' bgcolor=$fileclr><td nowrap>"); |
my $metafile = grep /^\Q$filecom[0]\E\.meta\&/, @list; |
my $metafile = grep /^\Q$filecom[0]\E\.meta\&/, @list; |
my $title; |
my $title; |
Line 854 sub display_line {
|
Line 851 sub display_line {
|
".gif border='0' />\n") if $rem > 0; |
".gif border='0' />\n") if $rem > 0; |
} |
} |
|
|
$r->print("<img src=$iconpath$iconname border='0' />\n"); |
$r->print("<img src='$iconname' border='0' />\n"); |
$r->print (" <a href=\"javascript:openWindow('".$filelink. |
$r->print (" <a href=\"javascript:openWindow('".$filelink. |
"', 'previewfile', '450', '500', 'no', 'yes','yes')\";". |
"', 'previewfile', '450', '500', 'no', 'yes','yes')\";". |
" TARGET=_self>$listname</a> "); |
" TARGET=_self>$listname</a> "); |
Line 930 sub display_line {
|
Line 927 sub display_line {
|
|
|
# -- display directory |
# -- display directory |
if ($fnptr == $dirptr) { |
if ($fnptr == $dirptr) { |
my @file_ext = split (/\./,$listname); |
|
my $curfext = $file_ext[scalar(@file_ext)-1]; |
|
my $curdir = $startdir.$filecom[0].'/'; |
my $curdir = $startdir.$filecom[0].'/'; |
my $anchor = $curdir; |
my $anchor = $curdir; |
$anchor =~ s/\///g; |
$anchor =~ s/\///g; |
Line 961 sub display_line {
|
Line 956 sub display_line {
|
$r->print ('<a href="javascript:gothere(\''.$curdir.'\')"><img src="'. |
$r->print ('<a href="javascript:gothere(\''.$curdir.'\')"><img src="'. |
$iconpath.'folder_'.$diropen.'.gif" border="0" /></a>'. |
$iconpath.'folder_'.$diropen.'.gif" border="0" /></a>'. |
"\n"); |
"\n"); |
$r->print ("$listname$tabtag</tr></form>\n"); |
$r->print ("$listname</td>\n"); |
|
# Attributes |
|
my $filelink = $startdir.$filecom[0].'/default'; |
|
|
|
if ($hash{'display_attrs_0'} == 1) { |
|
my $title = &Apache::lonnet::gettitle($filelink,'title'); |
|
$r->print('<td> '.($title eq '' ? ' ' : $title). |
|
' </td>'."\n"); |
|
} |
|
$r->print('<td align=right> ', |
|
$filecom[8]," </td>\n") |
|
if $hash{'display_attrs_1'} == 1; |
|
$r->print('<td> '. |
|
(localtime($filecom[9]))." </td>\n") |
|
if $hash{'display_attrs_2'} == 1; |
|
$r->print('<td> '. |
|
(localtime($filecom[10]))." </td>\n") |
|
if $hash{'display_attrs_3'} == 1; |
|
|
|
if ($hash{'display_attrs_4'} == 1) { |
|
my $author = &Apache::lonnet::metadata($filelink,'author'); |
|
$r->print('<td> '.($author eq '' ? ' ' : $author). |
|
" </td>\n"); |
|
} |
|
if ($hash{'display_attrs_5'} == 1) { |
|
my $keywords = &Apache::lonnet::metadata($filelink,'keywords'); |
|
# $keywords = ' ' if (!$keywords); |
|
$r->print('<td> '.($keywords eq '' ? ' ' : $keywords). |
|
" </td>\n"); |
|
} |
|
if ($hash{'display_attrs_6'} == 1) { |
|
my $lang = &Apache::lonnet::metadata($filelink,'language'); |
|
$lang = &Apache::loncommon::languagedescription($lang); |
|
$r->print('<td> '.($lang eq '' ? ' ' : $lang). |
|
" </td>\n"); |
|
} |
|
if ($hash{'display_attrs_7'} == 1) { |
|
$r->print('<td> </td>'); |
|
} |
|
if ($hash{'display_attrs_8'} == 1) { |
|
$r->print('<td> </td>'); |
|
} |
|
$r->print('</form></tr>'); |
} |
} |
|
|
} |
} |