version 1.119, 2003/09/17 16:50:58
|
version 1.121, 2003/09/19 15:06:42
|
Line 1661 sub preferred_languages {
|
Line 1661 sub preferred_languages {
|
push (@genlanguages,(split(/(\-|\_)/,$_))[0]); |
push (@genlanguages,(split(/(\-|\_)/,$_))[0]); |
} |
} |
} |
} |
&Apache::lonnet::logthis('Lang: '.join(',',@genlanguages)); |
|
return @genlanguages; |
return @genlanguages; |
} |
} |
|
|
|
sub current_language { |
|
return (&preferred_languages)[0]; |
|
} |
|
|
############################################################### |
############################################################### |
## Student Answer Attempts ## |
## Student Answer Attempts ## |
############################################################### |
############################################################### |