loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.350, 2006/04/22 17:17:49	version 1.351, 2006/04/22 20:58:32
Line 76 my %language;	Line 76 my %language;
my %supported_language;	my %supported_language;
my %cprtag;	my %cprtag;
my %scprtag;	my %scprtag;
my %fe; my %fd;	my %fe; my %fd; my %fm;
my %category_extensions;	my %category_extensions;

# ---------------------------------------------- Designs	# ---------------------------------------------- Designs
Line 133 BEGIN {	Line 133 BEGIN {
close($fh);	close($fh);
}	}
}	}
# ------------------------------------------------------------------ source copyrights	# ----------------------------------------------------------- source copyrights
{	{
my $sourcecopyrightfile = $Apache::lonnet::perlvar{'lonIncludes'}.	my $sourcecopyrightfile = $Apache::lonnet::perlvar{'lonIncludes'}.
'/source_copyright.tab';	'/source_copyright.tab';
Line 196 BEGIN {	Line 196 BEGIN {
while (<$fh>) {	while (<$fh>) {
next if (/^\#/);	next if (/^\#/);
chomp;	chomp;
my ($ending,$emb,$descr)=split(/\s+/,$_,3);	my ($ending,$emb,$mime,$descr)=split(/\s+/,$_,4);
if ($descr ne '') {	if ($descr ne '') {
$fe{$ending}=lc($emb);	$fe{$ending}=lc($emb);
$fd{$ending}=$descr;	$fd{$ending}=$descr;
	if ($mime ne 'unk') { $fm{$ending}=$mime; }
}	}
}	}
close($fh);	close($fh);
Line 2198 sub fileembstyle {	Line 2199 sub fileembstyle {
return $fe{lc(shift(@_))};	return $fe{lc(shift(@_))};
}	}

	sub filemimetype {
	return $fm{lc(shift(@_))};
	}


sub filecategoryselect {	sub filecategoryselect {
my ($name,$value)=@_;	my ($name,$value)=@_;