version 1.233, 2009/05/27 13:29:47
|
version 1.244, 2011/11/14 00:20:34
|
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 742 sub prettyinput {
|
Line 742 sub prettyinput {
|
$relatedvalue); |
$relatedvalue); |
} |
} |
|
|
|
# Create pageheader |
|
sub pageheader { |
|
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') { |
|
$output .= &Apache::loncommon::head_subbox( |
|
&Apache::loncommon::CSTR_pageheader()); |
|
} |
|
return $output; |
|
} |
|
|
# Main Handler |
# Main Handler |
sub handler { |
sub handler { |
my $r=shift; |
my $r=shift; |
Line 755 sub handler {
|
Line 772 sub handler {
|
return OK if $r->header_only; |
return OK if $r->header_only; |
my ($resdomain,$resuser)= |
my ($resdomain,$resuser)= |
(&Apache::lonnet::declutter($uri)=~/^($match_domain)\/($match_username)\//); |
(&Apache::lonnet::declutter($uri)=~/^($match_domain)\/($match_username)\//); |
|
|
|
# Breadcrumbs |
|
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
|
|
|
if ($env{'request.state'} eq 'construct') { |
|
&Apache::lonhtmlcommon::add_breadcrumb({ |
|
'text' => 'Construction Space', |
|
'href' => &Apache::loncommon::authorspace($uri), |
|
}); |
|
} |
|
|
if ($uri=~m:/adm/bombs/(.*)$:) { |
if ($uri=~m:/adm/bombs/(.*)$:) { |
|
&Apache::lonhtmlcommon::add_breadcrumb({ |
|
'text' => 'Error Messages', |
|
'href' => '', |
|
}); |
$r->print(&Apache::loncommon::start_page('Error Messages')); |
$r->print(&Apache::loncommon::start_page('Error Messages')); |
|
$r->print(&pageheader()); |
# Looking for all bombs? |
# Looking for all bombs? |
&report_bombs($r,$uri); |
&report_bombs($r,$uri); |
} elsif ($uri=~m|^/editupload/[^/]+/[^/]+/portfolio/|) { |
} elsif ($uri=~m|^/editupload/[^/]+/[^/]+/portfolio/|) { |
|
&Apache::lonhtmlcommon::add_breadcrumb({ |
|
'text' => 'Edit Portfolio File Metadata', |
|
'href' => '', |
|
}); |
($resdomain,$resuser)= |
($resdomain,$resuser)= |
(&Apache::lonnet::declutter($uri)=~m|^($match_domain)/($match_name)/portfolio|); |
(&Apache::lonnet::declutter($uri)=~m|^($match_domain)/($match_name)/portfolio|); |
$r->print(&Apache::loncommon::start_page('Edit Portfolio File Metadata', |
$r->print(&Apache::loncommon::start_page('Edit Portfolio File Metadata', |
undef, |
undef, |
{'domain' => $resdomain,})); |
{'domain' => $resdomain,})); |
|
$r->print(&pageheader()); |
if ($env{'form.store'}) { |
if ($env{'form.store'}) { |
&present_editable_metadata($r,$uri,'portfolio'); |
&present_editable_metadata($r,$uri,'portfolio'); |
} else { |
} else { |
Line 781 sub handler {
|
Line 819 sub handler {
|
} |
} |
} |
} |
} elsif ($uri=~m|^/editupload/[^/]+/[^/]+/groups/|) { |
} elsif ($uri=~m|^/editupload/[^/]+/[^/]+/groups/|) { |
|
&Apache::lonhtmlcommon::add_breadcrumb({ |
|
'text' => 'Edit Group Portfolio File Metadata', |
|
'href' => '', |
|
}); |
$r->print(&Apache::loncommon::start_page('Edit Group Portfolio File Metadata', |
$r->print(&Apache::loncommon::start_page('Edit Group Portfolio File Metadata', |
undef, |
undef, |
{'domain' => $resdomain,})); |
{'domain' => $resdomain,})); |
|
$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({ |
|
'text' => 'Edit Metadata', |
|
'href' => '', |
|
}); |
$r->print(&Apache::loncommon::start_page('Edit Metadata', |
$r->print(&Apache::loncommon::start_page('Edit Metadata', |
"\n".'<script type="text/javascript">'."\n". |
"\n".'<script type="text/javascript">'."\n". |
&Apache::loncommon::browser_and_searcher_javascript(). |
&Apache::loncommon::browser_and_searcher_javascript(). |
"\n".'</script>', |
"\n".'</script>', |
{'domain' => $resdomain,})); |
{'domain' => $resdomain,})); |
|
$r->print(&pageheader()); |
&present_editable_metadata($r,$uri); |
&present_editable_metadata($r,$uri); |
} else { |
} else { |
$r->print(&Apache::loncommon::start_page('Metadata', |
&Apache::lonhtmlcommon::add_breadcrumb({ |
undef, |
'text' => 'Metadata', |
{'domain' => $resdomain,})); |
'href' => '', |
|
}); |
|
$r->print( |
|
&Apache::loncommon::start_page( |
|
'Metadata', |
|
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 817 sub report_bombs {
|
Line 874 sub report_bombs {
|
$uri = &Apache::lonnet::declutter($uri); |
$uri = &Apache::lonnet::declutter($uri); |
$r->print('<h1>'.&Apache::lonnet::clutter($uri).'</h1>'); |
$r->print('<h1>'.&Apache::lonnet::clutter($uri).'</h1>'); |
my ($domain,$author)=($uri=~/^($match_domain)\/($match_username)\//); |
my ($domain,$author)=($uri=~/^($match_domain)\/($match_username)\//); |
if (&Apache::loncacc::constructaccess('/~'.$author.'/',$domain)) { |
if (&Apache::loncacc::constructaccess('/priv/'.$domain.'/'.$author.'/')) { |
if ($env{'form.clearbombs'}) { |
if ($env{'form.clearbombs'}) { |
&Apache::lonmsg::clear_author_res_msg($uri); |
&Apache::lonmsg::clear_author_res_msg($uri); |
} |
} |
Line 882 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=''; |
Line 997 sub print_dynamic_metadata {
|
Line 1053 sub print_dynamic_metadata {
|
} |
} |
# |
# |
# Assessment statistics |
# Assessment statistics |
if ($uri=~/\.(problem|exam|quiz|assess|survey|form)$/) { |
if ($uri=~/$LONCAPA::assess_re/) { |
if (exists($dynmeta{'stdno'}) || |
if (exists($dynmeta{'stdno'}) || |
exists($dynmeta{'avetries'}) || |
exists($dynmeta{'avetries'}) || |
exists($dynmeta{'difficulty'}) || |
exists($dynmeta{'difficulty'}) || |