loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.95, 2006/03/15 19:41:26	version 1.96, 2006/03/19 21:54:41
Line 680 sub handler {	Line 680 sub handler {
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;
# Give the LON-CAPA page header	# Give the LON-CAPA page header
my $html=&Apache::lonxml::xmlbegin();
$r->print($html.&Apache::loncommon::head($title)."\n");
if ($env{"form.mode"} eq 'selectfile'){	if ($env{"form.mode"} eq 'selectfile'){
$r->print(&Apache::loncommon::bodytag($title,undef,undef,1));	$r->print(&Apache::loncommon::start_page($title,undef,
	{'only_body' => 1});
} else {	} else {
$r->print(&Apache::loncommon::bodytag($title));	$r->print(&Apache::loncommon::start_page($title);
}	}
$r->rflush();	$r->rflush();
if (($env{'form.storeupl'}) & (!$env{'form.uploaddoc.filename'})){	if (($env{'form.storeupl'}) & (!$env{'form.uploaddoc.filename'})){