version 1.162, 2006/08/04 19:42:55
|
version 1.163, 2006/08/04 22:14:38
|
Line 841 sub present_uneditable_metadata {
|
Line 841 sub present_uneditable_metadata {
|
if (! defined($title)) { |
if (! defined($title)) { |
$title = 'Untitled Resource'; |
$title = 'Untitled Resource'; |
} |
} |
foreach ('title', |
my @fields; |
'author', |
if ($uploaded) { |
'subject', |
@fields = ('title','author','subject','keywords','notes','abstract', |
'keywords', |
'lowestgradelevel','highestgradelevel','standards','mime', |
'notes', |
'owner'); |
'abstract', |
} else { |
'lowestgradelevel', |
@fields = ('title', |
'highestgradelevel', |
'author', |
'standards', |
'subject', |
'mime', |
'keywords', |
'language', |
'notes', |
'creationdate', |
'abstract', |
'lastrevisiondate', |
'lowestgradelevel', |
'owner', |
'highestgradelevel', |
'copyright', |
'standards', |
'customdistributionfile', |
'mime', |
'sourceavail', |
'language', |
'sourcerights', |
'creationdate', |
'obsolete', |
'lastrevisiondate', |
'obsoletereplacement') { |
'owner', |
$table.='<tr><td bgcolor="#AAAAAA">'.$lt{$_}. |
'copyright', |
|
'customdistributionfile', |
|
'sourceavail', |
|
'sourcerights', |
|
'obsolete', |
|
'obsoletereplacement'); |
|
} |
|
foreach my $field (@fields) { |
|
$table.='<tr><td bgcolor="#AAAAAA">'.$lt{$field}. |
'</td><td bgcolor="#CCCCCC">'. |
'</td><td bgcolor="#CCCCCC">'. |
&prettyprint($_,$content{$_}).'</td></tr>'; |
&prettyprint($field,$content{$field}).'</td></tr>'; |
delete $content{$_}; |
delete($content{$field}); |
} |
} |
# |
# |
$r->print(<<ENDHEAD); |
$r->print(<<ENDHEAD); |
Line 1163 ENDEDIT
|
Line 1171 ENDEDIT
|
my $output; |
my $output; |
my @fields; |
my @fields; |
if ($file_type eq 'portfolio') { |
if ($file_type eq 'portfolio') { |
@fields = ('author','title','subject','keywords','abstract','notes','lowestgradelevel', |
@fields = ('author','title','subject','keywords','abstract', |
|
'notes','lowestgradelevel', |
'highestgradelevel','standards'); |
'highestgradelevel','standards'); |
} else { |
} else { |
@fields = ('author','title','subject','keywords','abstract','notes', |
@fields = ('author','title','subject','keywords','abstract','notes', |
Line 1182 ENDEDIT
|
Line 1191 ENDEDIT
|
} |
} |
if (! $Apache::lonpublisher::metadatafields{'copyright'}) { |
if (! $Apache::lonpublisher::metadatafields{'copyright'}) { |
$Apache::lonpublisher::metadatafields{'copyright'}= |
$Apache::lonpublisher::metadatafields{'copyright'}= |
'default'; |
'default'; |
} |
} |
if ($file_type eq 'portfolio') { |
if ($file_type eq 'portfolio') { |
|
if (! $Apache::lonpublisher::metadatafields{'mime'}) { |
|
($Apache::lonpublisher::metadatafields{'mime'}) = |
|
( $target=~/\.(\w+)$/ ); |
|
} |
|
if (! $Apache::lonpublisher::metadatafields{'owner'}) { |
|
$Apache::lonpublisher::metadatafields{'owner'} = |
|
$env{'user.name'}.':'.$env{'user.domain'}; |
|
} |
|
|
if ($Apache::lonpublisher::metadatafields{'courserestricted'} ne 'none') { |
if ($Apache::lonpublisher::metadatafields{'courserestricted'} ne 'none') { |
$r->print(&mt('Associated with course [_1]','<strong>'.$env{$Apache::lonpublisher::metadatafields{'courserestricted'}.".description"}. |
$r->print(&mt('Associated with course [_1]','<strong>'.$env{$Apache::lonpublisher::metadatafields{'courserestricted'}.".description"}. |
'</strong>').'<br />'); |
'</strong>').'<br />'); |