loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.13, 2004/07/09 16:40:31	version 1.14, 2004/07/09 17:12:38
Line 167 sub handler {	Line 167 sub handler {
my $isFile;	my $isFile;
my $isDir;	my $isDir;
my $isEmpty;	my $isEmpty;
# send header
# FIXME need to start using
&Apache::loncommon::no_cache($r);	&Apache::loncommon::no_cache($r);
&Apache::loncommon::content_type($r, 'text/html');	&Apache::loncommon::content_type($r,'text/html');
&Apache::loncommon::bodytag('Portfolio Managment', 'bgcolor="dogfood"');
$r->send_http_header;	$r->send_http_header;
	# Give the LON-CAPA page header
	$r->print('<html><head><title>'.
	&mt('Portfolio Manager').
	"</title></head>\n".
	&Apache::loncommon::bodytag('Portfolio Manager'));
	$r->rflush();
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['selectfile','currentpath', 'currentfile']);	['selectfile','currentpath', 'currentfile']);
# currentPath and currentFile need to be set for the rest of things to happen	# currentPath and currentFile need to be set for the rest of things to happen
Line 250 sub handler {	Line 253 sub handler {
$r->print('</td>><td>');	$r->print('</td>><td>');
$r->print(displayActions($currentPath, $currentFile, $isDir, $isEmpty));	$r->print(displayActions($currentPath, $currentFile, $isDir, $isEmpty));
$r->print('</td>></tr></table>');	$r->print('</td>></tr></table>');
$r->print('</blockquote></body>');	$r->print('</blockquote>');
	$r->print("</body>\n</html>\n");
	$r->rflush();
return OK;	return OK;
}	}