loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.180, 2001/12/04 15:19:11	version 1.182, 2001/12/05 14:48:28
Line 60	Line 60
# 10/2 Gerd Kortemeyer	# 10/2 Gerd Kortemeyer
# 10/5,10/10,11/13,11/15 Scott Harrison	# 10/5,10/10,11/13,11/15 Scott Harrison
# 11/17,11/20,11/22,11/29 Gerd Kortemeyer	# 11/17,11/20,11/22,11/29 Gerd Kortemeyer
	# 12/5 Matthew Hall
#	#
# $Id$	# $Id$
#	#
Line 1712 sub plaintext {	Line 1713 sub plaintext {
# ------------------------------------------------------------------ Plain Text	# ------------------------------------------------------------------ Plain Text

sub fileembstyle {	sub fileembstyle {
my $ending=shift;	my $ending=lc(shift);
return $fe{$ending};	return $fe{$ending};
}	}

# ------------------------------------------------------------ Description Text	# ------------------------------------------------------------ Description Text

sub filedescription {	sub filedescription {
my $ending=shift;	my $ending=lc(shift);
return $fd{$ending};	return $fd{$ending};
}	}

Line 2691 BEGIN {	Line 2692 BEGIN {
my $config=Apache::File->new("$perlvar{'lonTabDir'}/filetypes.tab");	my $config=Apache::File->new("$perlvar{'lonTabDir'}/filetypes.tab");

while (my $configline=<$config>) {	while (my $configline=<$config>) {
	next if (/^\#/);
chomp($configline);	chomp($configline);
my ($ending,$emb,@descr)=split(/\s+/,$configline);	my ($ending,$emb,@descr)=split(/\s+/,$configline);
if ($descr[0] ne '') {	if ($descr[0] ne '') {
$fe{$ending}=$emb;	$fe{$ending}=lc($emb);
$fd{$ending}=join(' ',@descr);	$fd{$ending}=join(' ',@descr);
}	}
}	}