loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.119, 2003/09/17 16:50:58	version 1.124, 2003/10/04 22:34:02
Line 80 my $readit;	Line 80 my $readit;

# ----------------------------------------------- Filetypes/Languages/Copyright	# ----------------------------------------------- Filetypes/Languages/Copyright
my %language;	my %language;
	my %supported_language;
my %cprtag;	my %cprtag;
my %fe; my %fd;	my %fe; my %fd;
my %category_extensions;	my %category_extensions;
Line 146 BEGIN {	Line 147 BEGIN {
while (<$fh>) {	while (<$fh>) {
next if /^\#/;	next if /^\#/;
chomp;	chomp;
my ($key,$two,$country,$three,$enc,$val)=(split(/\t/,$_));	my ($key,$two,$country,$three,$enc,$val,$sup)=(split(/\t/,$_));
$language{$key}=$val.' - '.$enc;	$language{$key}=$val.' - '.$enc;
	if ($sup) {
	$supported_language{$key}=$sup;
	}
}	}
}	}
}	}
Line 1661 sub preferred_languages {	Line 1665 sub preferred_languages {
push (@genlanguages,(split(/(\-\|\_)/,$_))[0]);	push (@genlanguages,(split(/(\-\|\_)/,$_))[0]);
}	}
}	}
&Apache::lonnet::logthis('Lang: '.join(',',@genlanguages));
return @genlanguages;	return @genlanguages;
}	}

Line 2322 sub no_cache {	Line 2325 sub no_cache {
#$r->header_out("Expires" => $date);	#$r->header_out("Expires" => $date);
}	}

	sub content_type {
	my ($r,$type,$charset) = @_;
	unless ($charset) {
	$charset=&Apache::lonlocal::current_encoding;
	}
	$r->content_type($type.($charset?'; charset='.$charset:''));
	}

=pod	=pod

=item * add_to_env($name,$value)	=item * add_to_env($name,$value)