loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.170, 2006/08/16 18:06:47	version 1.171, 2006/08/21 18:04:20
Line 719 sub prettyinput {	Line 719 sub prettyinput {
# Main Handler	# Main Handler
sub handler {	sub handler {
my $r=shift;	my $r=shift;
#
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['currentpath']);	['currentpath']);
my $uri=$r->uri;	my $uri=$r->uri;
Line 728 sub handler {	Line 727 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 746 sub handler {	Line 744 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',