loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.168, 2006/08/10 22:19:06	version 1.168.2.1, 2006/08/28 00:13:22
Line 724 sub handler {	Line 724 sub handler {
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;
return OK if $r->header_only;	return OK if $r->header_only;
#
my ($resdomain,$resuser)=	my ($resdomain,$resuser)=
(&Apache::lonnet::declutter($uri)=~/^(\w+)\/(\w+)\//);	(&Apache::lonnet::declutter($uri)=~/^(\w+)\/(\w+)\//);
if ($uri=~m:/adm/bombs/(.*)$:) {	if ($uri=~m:/adm/bombs/(.*)$:) {
Line 742 sub handler {	Line 741 sub handler {
} else {	} else {
&pre_select_course($r,$uri);	&pre_select_course($r,$uri);
}	}
	} elsif ($uri=~m\|^/editupload/[^/]+/[^/]+/groups/\|) {
	$r->print(&Apache::loncommon::start_page('Edit Group Portfolio File Catalog Information',
	undef,
	{'domain' => $resdomain,}));
	&present_editable_metadata($r,$uri,'portfolio');
} elsif ($uri=~m\|^/~\|) {	} elsif ($uri=~m\|^/~\|) {
# Construction space	# Construction space
$r->print(&Apache::loncommon::start_page('Edit Catalog nformation',	$r->print(&Apache::loncommon::start_page('Edit Catalog nformation',