loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.94, 2006/03/03 23:27:25	version 1.95, 2006/03/15 19:41:26
Line 681 sub handler {	Line 681 sub handler {
$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();	my $html=&Apache::lonxml::xmlbegin();
$r->print($html.'<head><title>'.$title."</title></head>\n");	$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::bodytag($title,undef,undef,1));
} else {	} else {
Line 749 sub handler {	Line 749 sub handler {
my $is_empty=(@dir_list == 2);	my $is_empty=(@dir_list == 2);
&display_common($r,$url,$current_path,$is_empty,\@dir_list,$group);	&display_common($r,$url,$current_path,$is_empty,\@dir_list,$group);
&display_directory($r,$url,$current_path,$is_empty,\@dir_list,$group);	&display_directory($r,$url,$current_path,$is_empty,\@dir_list,$group);
$r->print("</body>\n</html>\n");	$r->print(&Apache::loncommon::end_page());
}	}
return OK;	return OK;
}	}