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.181, 2001/12/04 17:00:38
Line 1712 sub plaintext {	Line 1712 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 2694 BEGIN {	Line 2694 BEGIN {
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);
}	}
}	}