version 1.71, 2004/04/14 21:22:44
|
version 1.72, 2004/04/15 18:06:29
|
Line 253 sub prettyprint {
|
Line 253 sub prettyprint {
|
($type eq 'sequsage_list')) { |
($type eq 'sequsage_list')) { |
return join('<br />',map { |
return join('<br />',map { |
my $url = &Apache::lonnet::clutter($_); |
my $url = &Apache::lonnet::clutter($_); |
$_ = '<b>'.&Apache::lonnet::gettitle($url).'</b> '. |
my $title = &Apache::lonnet::gettitle($url); |
|
if ($title eq '') { |
|
$title = 'Untitled'; |
|
if ($url =~ /\.sequence$/) { |
|
$title .= ' Sequence'; |
|
} elsif ($url =~ /\.page$/) { |
|
$title .= ' Page'; |
|
} elsif ($url =~ /\.problem$/) { |
|
$title .= ' Problem'; |
|
} elsif ($url =~ /\.html$/) { |
|
$title .= ' HTML document'; |
|
} elsif ($url =~ m:/syllabus$:) { |
|
$title .= ' Syllabus'; |
|
} |
|
} |
|
$_ = '<b>'.$title.'</b> '. |
'<a href="'.$url.'" target="preview">'. |
'<a href="'.$url.'" target="preview">'. |
'<font size="-1">'.$url.'</font>'. |
'<font size="-1">'.$url.'</font>'. |
'</a>' |
'</a>' |
Line 273 sub prettyprint {
|
Line 288 sub prettyprint {
|
} |
} |
# List of courses |
# List of courses |
if ($type=~/\_list/) { |
if ($type=~/\_list/) { |
return join('<br />',map { |
my @Courses = split(/\s*\,\s*/,$value); |
my %courseinfo=&Apache::lonnet::coursedescription($_); |
my $Str; |
'<a href="/public/'. |
foreach my $course (@Courses) { |
$courseinfo{'domain'}.'/'.$courseinfo{'num'}.'/syllabus" target="preview">'. |
my %courseinfo = &Apache::lonnet::coursedescription($course); |
$courseinfo{'description'}.'</a>'; |
if (! exists($courseinfo{'num'}) || $courseinfo{'num'} eq '') { |
} split(/\s*\,\s*/,$value)); |
next; |
|
} |
|
if ($Str ne '') { $Str .= '<br />'; } |
|
$Str .= '<a href="/public/'.$courseinfo{'domain'}.'/'. |
|
$courseinfo{'num'}.'/syllabus" target="preview">'. |
|
$courseinfo{'description'}.'</a>'; |
|
} |
|
return $Str; |
} |
} |
# No pretty print found |
# No pretty print found |
return $value; |
return $value; |
Line 496 sub present_uneditable_metadata {
|
Line 518 sub present_uneditable_metadata {
|
} else { |
} else { |
$versiondisplay='Version: '.$currentversion; |
$versiondisplay='Version: '.$currentversion; |
} |
} |
# crumbify displayed URL |
# crumbify displayed URL uri target prefix form size |
$disuri=&Apache::lonhtmlcommon::crumbs($disuri); |
$disuri=&Apache::lonhtmlcommon::crumbs($disuri,undef, undef, undef,'+1'); |
|
$disuri =~ s:<br />::g; |
# obsolete |
# obsolete |
my $obsolete=$content{'obsolete'}; |
my $obsolete=$content{'obsolete'}; |
my $obsoletewarning=''; |
my $obsoletewarning=''; |
Line 509 sub present_uneditable_metadata {
|
Line 532 sub present_uneditable_metadata {
|
# |
# |
my %lt=&fieldnames(); |
my %lt=&fieldnames(); |
my $table=''; |
my $table=''; |
|
my $title = $content{'title'}; |
|
if (! defined($title)) { |
|
$title = 'Untitled Resource'; |
|
} |
foreach ('title', |
foreach ('title', |
'author', |
'author', |
'subject', |
'subject', |
Line 534 sub present_uneditable_metadata {
|
Line 561 sub present_uneditable_metadata {
|
} |
} |
# |
# |
$r->print(<<ENDHEAD); |
$r->print(<<ENDHEAD); |
<h2>$content{'title'}</h2> |
<h2>$title</h2> |
<h3><tt>$disuri</tt></h3> |
<p> |
|
$disuri<br /> |
$obsoletewarning |
$obsoletewarning |
$versiondisplay<br /> |
$versiondisplay |
|
</p> |
<table cellspacing=2 border=0> |
<table cellspacing=2 border=0> |
$table |
$table |
</table> |
</table> |
Line 589 sub print_dynamic_metadata {
|
Line 618 sub print_dynamic_metadata {
|
exists($dynmeta{'avetries'}) || |
exists($dynmeta{'avetries'}) || |
exists($dynmeta{'difficulty'}))) { |
exists($dynmeta{'difficulty'}))) { |
# This is an assessment, print assessment data |
# This is an assessment, print assessment data |
$r->print( |
$r->print('<h4>'.&mt('Assessment Statistical Data').'</h4>'. |
'<h4>'.&mt('Assessment Statistical Data').'</h4>'. |
|
'<table cellspacing=2 border=0>'); |
'<table cellspacing=2 border=0>'); |
foreach ('stdno','avetries','difficulty') { |
foreach ('stdno','avetries','difficulty') { |
$r->print('<tr><td bgcolor="#AAAAAA">'.$lt{$_}.'</td>'. |
$r->print('<tr><td bgcolor="#AAAAAA">'.$lt{$_}.'</td>'. |
'<td bgcolor="#CCCCCC">'. |
'<td bgcolor="#CCCCCC">'. |
&prettyprint($_,$dynmeta{$_})."</td></tr>\n"); |
&prettyprint($_,sprintf('%5.2f',$dynmeta{$_})).'</td>'. |
|
"</tr>\n"); |
} |
} |
$r->print('</table>'); |
$r->print('</table>'); |
} else { |
} else { |