\n")
if ($hash{'display_attrs_8'} == 1);
+ $r->print("
".&mt("Source Available")."
\n")
+ if ($hash{'display_attrs_10'} == 1);
+ $r->print("
".&mt("Linked/Related Resources")."
\n")
+ if ($hash{'display_attrs_11'} == 1);
$r->print('');
# ----------------- read in what directories have previously been set to "open"
@@ -665,10 +675,19 @@ sub get_list {
# is really a directory
@list = &Apache::lonnet::dirlist($uri);
$hash{'dirlist_files_'.$luri} = join("\n",@list);
+ &dynmetaread($uri);
}
return @list=&match_ext($r,@list);
}
+sub dynmetaread {
+ my $uri=shift;
+ if (($hash{'display_attrs_8'}==1) || ($hash{'display_attrs_11'}==1)) {
+ %dynhash=
+ (%dynhash,&Apache::lonmeta::get_dynamic_metadata_from_sql($uri));
+ }
+}
+
sub initdebug {
return <
@@ -749,12 +768,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
@@ -786,7 +804,7 @@ sub display_line {
if($filecom[15] ne '1') { return OK if (!&Apache::lonnet::allowed('bre',$pathprefix.$filecom[0])); }
# make absolute links appear on different background
- if ($absolute) { $fileclr='#aaaa88'; }
+ if ($absolute) { $fileclr='#ccdd99'; }
# display domain
if ($filecom[1] eq 'domain') {
@@ -960,6 +978,8 @@ sub display_line {
$r->print('
');
+ }
$r->print('');
}
}
+sub dynmetaprint {
+ my ($r,$filelink,$item)=@_;
+ if ($dynhash{$filelink}->{$item}) {
+ $r->print($fieldnames{$item}.': '.
+ &Apache::lonmeta::prettyprint($item,
+ $dynhash{$filelink}->{$item},
+ (($ENV{'form.catalogmode'} ne 'groupimport')?'preview':''),
+ '',
+ (($ENV{'form.catalogmode'} eq 'groupimport')?'document.forms.fileattr':''),1));
+ }
+}
+
# ------------------- prints the beginning of a form for directory or file link
sub begin_form {
my ($r,$uri) = @_;