version 1.150, 2006/01/04 05:43:19
|
version 1.151, 2006/03/02 20:16:10
|
Line 71 sub get_dynamic_metadata_from_sql {
|
Line 71 sub get_dynamic_metadata_from_sql {
|
if (! defined($authordom) || ! defined($author)) { |
if (! defined($authordom) || ! defined($author)) { |
return (); |
return (); |
} |
} |
my @Fields = ('url','count','course', |
my @Fields = ('url','count','course','course_list', |
'goto','goto_list', |
'goto','goto_list', |
'comefrom','comefrom_list', |
'comefrom','comefrom_list', |
'sequsage','sequsage_list', |
'sequsage','sequsage_list', |
Line 447 sub prettyprint {
|
Line 447 sub prettyprint {
|
($type eq 'comefrom_list') || |
($type eq 'comefrom_list') || |
($type eq 'sequsage_list') || |
($type eq 'sequsage_list') || |
($type eq 'dependencies')) { |
($type eq 'dependencies')) { |
return '<ul><font size="-1">'.join("\n",map { |
return '<font size="-1"><ul>'.join("\n",map { |
my $url = &Apache::lonnet::clutter($_); |
my $url = &Apache::lonnet::clutter($_); |
my $title = &Apache::lonnet::gettitle($url); |
my $title = &Apache::lonnet::gettitle($url); |
if ($title eq '') { |
if ($title eq '') { |
Line 484 sub prettyprint {
|
Line 484 sub prettyprint {
|
# List of courses |
# List of courses |
if ($type=~/\_list/) { |
if ($type=~/\_list/) { |
my @Courses = split(/\s*\,\s*/,$value); |
my @Courses = split(/\s*\,\s*/,$value); |
my $Str; |
my $Str='<font size="-1"><ul>'; |
foreach my $course (@Courses) { |
foreach my $course (@Courses) { |
my %courseinfo = &Apache::lonnet::coursedescription($course); |
my %courseinfo = &Apache::lonnet::coursedescription($course); |
if (! exists($courseinfo{'num'}) || $courseinfo{'num'} eq '') { |
if (! exists($courseinfo{'num'}) || $courseinfo{'num'} eq '') { |
next; |
next; |
} |
} |
if ($Str ne '') { $Str .= '<br />'; } |
$Str .= '<li><a href="/public/'.$courseinfo{'domain'}.'/'. |
$Str .= '<a href="/public/'.$courseinfo{'domain'}.'/'. |
|
$courseinfo{'num'}.'/syllabus" target="preview">'. |
$courseinfo{'num'}.'/syllabus" target="preview">'. |
$courseinfo{'description'}.'</a>'; |
$courseinfo{'description'}.'</a></li>'; |
} |
} |
return $Str; |
return $Str.'</ul></font>'; |
} |
} |
# No pretty print found |
# No pretty print found |
return $value; |
return $value; |