version 1.236, 2009/10/23 11:01:49
|
version 1.241, 2011/10/22 22:16:07
|
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 638 sub prettyinput {
|
Line 638 sub prettyinput {
|
|
|
if ($values) { |
if ($values) { |
if ($only_one) { |
if ($only_one) { |
$output .= (&Apache::loncommon::select_form($cur_values_inst[0],'new_'.$type,%meta_options)); |
$output .= (&Apache::loncommon::select_form($cur_values_inst[0],'new_'.$type,\%meta_options)); |
} else { |
} else { |
$output .= (&Apache::loncommon::multiple_select_form('new_'.$type,\@cur_values_inst,undef,\%meta_options)); |
$output .= (&Apache::loncommon::multiple_select_form('new_'.$type,\@cur_values_inst,undef,\%meta_options)); |
} |
} |
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 822 sub handler {
|
Line 828 sub handler {
|
{'domain' => $resdomain,})); |
{'domain' => $resdomain,})); |
$r->print(&pageheader()); |
$r->print(&pageheader()); |
&present_editable_metadata($r,$uri,'groups'); |
&present_editable_metadata($r,$uri,'groups'); |
} elsif ($uri=~m|^/~|) { |
} elsif ($uri=~m|^/priv|) { |
# Construction space |
# Construction space |
&Apache::lonhtmlcommon::add_breadcrumb({ |
&Apache::lonhtmlcommon::add_breadcrumb({ |
'text' => 'Edit Metadata', |
'text' => 'Edit Metadata', |
Line 840 sub handler {
|
Line 846 sub handler {
|
'text' => 'Metadata', |
'text' => 'Metadata', |
'href' => '', |
'href' => '', |
}); |
}); |
$r->print(&Apache::loncommon::start_page('Metadata', |
$r->print( |
undef, |
&Apache::loncommon::start_page( |
{'domain' => $resdomain,})); |
'Metadata', |
$r->print(&pageheader()); |
undef, |
|
{'domain' => $resdomain, |
|
'only_body' => 1,}) |
|
.'<h1>'.&mt('Metadata').'</h1>' |
|
); |
&present_uneditable_metadata($r,$uri); |
&present_uneditable_metadata($r,$uri); |
} |
} |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
Line 929 sub present_uneditable_metadata {
|
Line 939 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=''; |