\n")
if ($hash{'display_attrs_8'} == 1);
+ $r->print("
".&mt("Source Available")."
\n")
+ if ($hash{'display_attrs_10'} == 1);
$r->print('
');
# ----------------- read in what directories have previously been set to "open"
@@ -749,12 +754,11 @@ sub display_line {
my $tabtag='';
my $i=0;
- while ($i<=8) {
+ while ($i<=11) {
$tabtag=join('',$tabtag,"
")
if $hash{'display_attrs_'.$i} == 1;
$i++;
}
-
my $valign = ($hash{'display_attrs_7'} == 1 ? 'top' : 'bottom');
# display uplink arrow
@@ -960,6 +964,8 @@ sub display_line {
$r->print('
'.($keywords eq '' ? ' ' : $keywords).
"
\n");
}
+#'
+
if ($hash{'display_attrs_6'} == 1) {
my $lang = &Apache::lonnet::metadata($filelink,'language');
$lang = &Apache::loncommon::languagedescription($lang);
@@ -1002,7 +1008,17 @@ sub display_line {
$r->print('
'.($stat eq '' ? ' ' : $stat).
'
'."\n");
}
-
+ if ($hash{'display_attrs_10'} == 1) {
+ my $source = &Apache::lonnet::metadata($filelink,'sourceavail');
+ if($source eq 'open') {
+ my $sourcelink = &Apache::lonsource::make_link($filelink);
+ $r->print('