version 1.80, 2004/06/16 18:33:46
|
version 1.81, 2004/06/17 15:05:59
|
Line 61 use Apache::lonmsg;
|
Line 61 use Apache::lonmsg;
|
############################################################ |
############################################################ |
sub get_dynamic_metadata_from_sql { |
sub get_dynamic_metadata_from_sql { |
my ($url) = shift(); |
my ($url) = shift(); |
# &Apache::lonnet::logthis('url = '.$url); |
|
my ($authordom,$author)=($url=~m:^/res/(\w+)/(\w+)/:); |
my ($authordom,$author)=($url=~m:^/res/(\w+)/(\w+)/:); |
if (! defined($authordom)) { |
if (! defined($authordom)) { |
$authordom = shift(); |
$authordom = shift(); |
Line 113 sub get_dynamic_metadata_from_sql {
|
Line 112 sub get_dynamic_metadata_from_sql {
|
my $url = $Data[0]; |
my $url = $Data[0]; |
for (my $i=0;$i<=$#Fields;$i++) { |
for (my $i=0;$i<=$#Fields;$i++) { |
$ReturnHash{$url}->{$Fields[$i]}=$Data[$i]; |
$ReturnHash{$url}->{$Fields[$i]}=$Data[$i]; |
# &Apache::lonnet::logthis(' '.$Fields[$i].' => '.$Data[$i]); |
|
} |
} |
} |
} |
$finished = 1; |
$finished = 1; |
Line 832 sub print_dynamic_metadata {
|
Line 830 sub print_dynamic_metadata {
|
# All other stuff |
# All other stuff |
$r->print('<h3>'. |
$r->print('<h3>'. |
&mt('Additional Metadata (non-standard, parameters, exports)'). |
&mt('Additional Metadata (non-standard, parameters, exports)'). |
'</h3>'); |
'</h3><table border="0" cellspacing="1">'); |
foreach (sort(keys(%content))) { |
foreach (sort(keys(%content))) { |
my $name=$_; |
my $name=$_; |
if ($name!~/\.display$/) { |
if ($name!~/\.display$/) { |
Line 850 sub print_dynamic_metadata {
|
Line 848 sub print_dynamic_metadata {
|
$name.'.'.$_).'; '; |
$name.'.'.$_).'; '; |
} |
} |
} |
} |
$r->print('<b>'.$display.':</b> '.$content{$name}); |
$r->print('<tr><td bgcolor="#bbccbb"><font size="-1" color="#556655">'.$display.'</font></td><td bgcolor="#ccddcc"><font size="-1" color="#556655">'.$content{$name}); |
if ($otherinfo) { |
if ($otherinfo) { |
$r->print(' ('.$otherinfo.')'); |
$r->print(' ('.$otherinfo.')'); |
} |
} |
$r->print("<br />\n"); |
$r->print("</font></td></tr>\n"); |
} |
} |
} |
} |
|
$r->print("</table>"); |
return; |
return; |
} |
} |
|
|