version 1.179, 2006/09/28 23:37:57
|
version 1.180, 2006/09/29 18:11:49
|
Line 95 sub get_dynamic_metadata_from_sql {
|
Line 95 sub get_dynamic_metadata_from_sql {
|
while (my $result = <$fh>) { |
while (my $result = <$fh>) { |
chomp($result); |
chomp($result); |
next if (! $result); |
next if (! $result); |
my %hash=&LONCAPA::lonmetadata::metadata_col_to_hash(map { &unescape($_) } split(/\,/,$result)); |
my %hash=&LONCAPA::lonmetadata::metadata_col_to_hash('metadata', |
|
map { &unescape($_) } split(/\,/,$result)); |
foreach my $key (keys(%hash)) { |
foreach my $key (keys(%hash)) { |
$ReturnHash{$hash{'url'}}->{$key}=$hash{$key}; |
$ReturnHash{$hash{'url'}}->{$key}=$hash{$key}; |
} |
} |
Line 505 sub prettyprint {
|
Line 506 sub prettyprint {
|
if ($type=~/\_list/) { |
if ($type=~/\_list/) { |
my @Courses = split(/\s*\,\s*/,$value); |
my @Courses = split(/\s*\,\s*/,$value); |
my $Str='<font size="-1"><ul>'; |
my $Str='<font size="-1"><ul>'; |
|
my %descriptions; |
foreach my $course (@Courses) { |
foreach my $course (@Courses) { |
my %courseinfo = |
my %courseinfo = |
&Apache::lonnet::coursedescription($course, |
&Apache::lonnet::coursedescription($course, |
Line 512 sub prettyprint {
|
Line 514 sub prettyprint {
|
if (! exists($courseinfo{'num'}) || $courseinfo{'num'} eq '') { |
if (! exists($courseinfo{'num'}) || $courseinfo{'num'} eq '') { |
next; |
next; |
} |
} |
$Str .= '<li><a href="/public/'.$courseinfo{'domain'}.'/'. |
$descriptions{join('\0',@courseinfo{'domain','description'})} .= |
|
'<li><a href="/public/'.$courseinfo{'domain'}.'/'. |
$courseinfo{'num'}.'/syllabus" target="preview">'. |
$courseinfo{'num'}.'/syllabus" target="preview">'. |
$courseinfo{'description'}.'</a></li>'; |
$courseinfo{'description'}.' ('.$courseinfo{'domain'}. |
|
')</a></li>'; |
} |
} |
|
foreach my $course (sort {lc($a) cmp lc($b)} (keys(%descriptions))) { |
|
$Str .= $descriptions{$course}; |
|
} |
|
|
return $Str.'</ul></font>'; |
return $Str.'</ul></font>'; |
} |
} |
# No pretty print found |
# No pretty print found |