loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.48, 2002/08/08 13:07:17	version 1.51, 2002/08/20 13:01:53
Line 90 my @Omit = ();	Line 90 my @Omit = ();
sub handler {	sub handler {
my $r = shift;	my $r = shift;
$r->content_type('text/html');	$r->content_type('text/html');
	&Apache::loncommon::no_cache($r);
$r->send_http_header;	$r->send_http_header;
return OK if $r->header_only;	return OK if $r->header_only;
$fnum=0;	$fnum=0;
Line 130 sub handler {	Line 131 sub handler {
my $diropendb =	my $diropendb =
"/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_indexer.db";	"/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_indexer.db";

if (tie(%hash,'GDBM_File',$diropendb,&GDBM_WRCREAT,0640)) {	if (tie(%hash,'GDBM_File',$diropendb,&GDBM_WRCREAT(),0640)) {
if ($ENV{'form.launch'} eq '1') {	if ($ENV{'form.launch'} eq '1') {
&start_fresh_session();	&start_fresh_session();
}	}
Line 688 sub display_line {	Line 689 sub display_line {
$r->print ('<a href="javascript:gothere(\''.$filecom[0].	$r->print ('<a href="javascript:gothere(\''.$filecom[0].
'/\')"><img src="'.$iconpath.'server.gif"');	'/\')"><img src="'.$iconpath.'server.gif"');
$r->print (' border="0" /></a>'."\n");	$r->print (' border="0" /></a>'."\n");
$r->print("Domain - $listname $tabtag</tr></form>\n");	$r->print("Domain - $listname (".
	$Apache::lonnet::domaindescription{$listname}.") $tabtag</tr></form>\n");
return OK;	return OK;

# display user directory	# display user directory