version 1.233, 2009/05/27 13:29:47
|
version 1.234, 2009/05/27 14:36:11
|
Line 742 sub prettyinput {
|
Line 742 sub prettyinput {
|
$relatedvalue); |
$relatedvalue); |
} |
} |
|
|
|
# Create pageheader |
|
sub pageheader { |
|
return &Apache::lonhtmlcommon::breadcrumbs() |
|
.&Apache::loncommon::head_subbox( |
|
&Apache::loncommon::CSTR_pageheader()); |
|
} |
|
|
# Main Handler |
# Main Handler |
sub handler { |
sub handler { |
my $r=shift; |
my $r=shift; |
Line 755 sub handler {
|
Line 762 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(); |
|
&Apache::lonhtmlcommon::add_breadcrumb({ |
|
'text' => 'Construction Space', |
|
'href' => '', # FIXME Add link to /priv/[user] |
|
}); |
|
|
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 806 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|^/~|) { |
# 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 { |
|
&Apache::lonhtmlcommon::add_breadcrumb({ |
|
'text' => 'Metadata', |
|
'href' => '', |
|
}); |
$r->print(&Apache::loncommon::start_page('Metadata', |
$r->print(&Apache::loncommon::start_page('Metadata', |
undef, |
undef, |
{'domain' => $resdomain,})); |
{'domain' => $resdomain,})); |
|
$r->print(&pageheader()); |
&present_uneditable_metadata($r,$uri); |
&present_uneditable_metadata($r,$uri); |
} |
} |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |