version 1.236, 2009/10/23 11:01:49
|
version 1.238, 2009/12/01 18:34:02
|
Line 425 sub select_course {
|
Line 425 sub select_course {
|
# Pretty printing of metadata field |
# Pretty printing of metadata field |
|
|
sub prettyprint { |
sub prettyprint { |
my ($type,$value,$target,$prefix,$form,$noformat)=@_; |
my ($type,$value,$target,$prefix,$form)=@_; |
# $target,$prefix,$form are optional and for filecrumbs only |
# $target,$prefix,$form are optional and for filecrumbs only |
if (! defined($value)) { |
if (! defined($value)) { |
return ' '; |
return ' '; |
Line 500 sub prettyprint {
|
Line 500 sub prettyprint {
|
} |
} |
} |
} |
$_ = '<li>'.$title.' '. |
$_ = '<li>'.$title.' '. |
&Apache::lonhtmlcommon::crumbs($url,$target,$prefix,$form,'0',$noformat). |
&Apache::lonhtmlcommon::crumbs($url,$target,$prefix,$form). |
'</li>' |
'</li>' |
} split(/\s*\,\s*/,$value)).'</ul>'; |
} split(/\s*\,\s*/,$value)).'</ul>'; |
} |
} |
# Evaluations |
# Evaluations |
Line 744 sub prettyinput {
|
Line 744 sub prettyinput {
|
|
|
# Create pageheader |
# Create pageheader |
sub pageheader { |
sub pageheader { |
my $output = &Apache::lonhtmlcommon::breadcrumbs(); |
my $output = ''; |
|
# No CSTR? Include breadcrumbs |
|
if ($env{'request.state'} ne 'construct') { |
|
# loncommon::bodytag already includes breadcrumbs for CSTR |
|
# by calling lonmenu::innerregister |
|
$output = &Apache::lonhtmlcommon::breadcrumbs(); |
|
} |
|
# CSTR? Include CSTR header |
if ($env{'request.state'} eq 'construct') { |
if ($env{'request.state'} eq 'construct') { |
$output .= &Apache::loncommon::head_subbox( |
$output .= &Apache::loncommon::head_subbox( |
&Apache::loncommon::CSTR_pageheader()); |
&Apache::loncommon::CSTR_pageheader()); |
Line 929 sub present_uneditable_metadata {
|
Line 935 sub present_uneditable_metadata {
|
$versiondisplay='Version: '.$currentversion; |
$versiondisplay='Version: '.$currentversion; |
} |
} |
} |
} |
# crumbify displayed URL uri target prefix form size |
# crumbify displayed URL uri target prefix form |
$disuri=&Apache::lonhtmlcommon::crumbs($disuri,undef, undef, undef,'+1'); |
$disuri=&Apache::lonhtmlcommon::crumbs($disuri,undef, undef, undef); |
$disuri =~ s:<br />::g; |
|
# obsolete |
# obsolete |
my $obsolete=$content{'obsolete'}; |
my $obsolete=$content{'obsolete'}; |
my $obsoletewarning=''; |
my $obsoletewarning=''; |