version 1.679.2.6, 2008/09/29 22:58:41
|
version 1.683, 2008/09/11 14:47:21
|
Line 2987 sub preferred_languages {
|
Line 2987 sub preferred_languages {
|
} |
} |
} |
} |
} |
} |
return &get_genlanguages(@languages); |
|
} |
|
|
|
sub get_genlanguages { |
|
my (@languages) = @_; |
|
# turn "en-ca" into "en-ca,en" |
# turn "en-ca" into "en-ca,en" |
my @genlanguages; |
my @genlanguages; |
foreach my $lang (@languages) { |
foreach my $lang (@languages) { |
unless ($lang=~/\w/) { next; } |
unless ($lang=~/\w/) { next; } |
push(@genlanguages,$lang); |
push(@genlanguages,$lang); |
if ($lang=~/(\-|\_)/) { |
if ($lang=~/(\-|\_)/) { |
push(@genlanguages,(split(/(\-|\_)/,$lang))[0]); |
push(@genlanguages,(split(/(\-|\_)/,$lang))[0]); |
} |
} |
} |
} |
#uniqueify the languages list |
#uniqueify the languages list |
my %count; |
my %count; |
Line 3353 sub pprmlink {
|
Line 3348 sub pprmlink {
|
|
|
|
|
sub timehash { |
sub timehash { |
my ($thistime) = @_; |
my @ltime=localtime(shift); |
my $timezone = &Apache::lonlocal::gettimezone(); |
return ( 'seconds' => $ltime[0], |
my $dt = DateTime->from_epoch(epoch => $thistime) |
'minutes' => $ltime[1], |
->set_time_zone($timezone); |
'hours' => $ltime[2], |
my $wday = $dt->day_of_week(); |
'day' => $ltime[3], |
if ($wday == 7) { $wday = 0; } |
'month' => $ltime[4]+1, |
return ( 'second' => $dt->second(), |
'year' => $ltime[5]+1900, |
'minute' => $dt->minute(), |
'weekday' => $ltime[6], |
'hour' => $dt->hour(), |
'dayyear' => $ltime[7]+1, |
'day' => $dt->day_of_month(), |
'dlsav' => $ltime[8] ); |
'month' => $dt->month(), |
|
'year' => $dt->year(), |
|
'weekday' => $wday, |
|
'dayyear' => $dt->day_of_year(), |
|
'dlsav' => $dt->is_dst() ); |
|
} |
} |
|
|
sub utc_string { |
sub utc_string { |
Line 3377 sub utc_string {
|
Line 3367 sub utc_string {
|
|
|
sub maketime { |
sub maketime { |
my %th=@_; |
my %th=@_; |
my ($epoch_time,$timezone,$dt); |
|
$timezone = &Apache::lonlocal::gettimezone(); |
|
eval { |
|
$dt = DateTime->new( year => $th{'year'}, |
|
month => $th{'month'}, |
|
day => $th{'day'}, |
|
hour => $th{'hour'}, |
|
minute => $th{'minute'}, |
|
second => $th{'second'}, |
|
time_zone => $timezone, |
|
); |
|
}; |
|
if (!$@) { |
|
$epoch_time = $dt->epoch; |
|
if ($epoch_time) { |
|
return $epoch_time; |
|
} |
|
} |
|
return POSIX::mktime( |
return POSIX::mktime( |
($th{'seconds'},$th{'minutes'},$th{'hours'}, |
($th{'seconds'},$th{'minutes'},$th{'hours'}, |
$th{'day'},$th{'month'}-1,$th{'year'}-1900,0,0,-1)); |
$th{'day'},$th{'month'}-1,$th{'year'}-1900,0,0,-1)); |
Line 4575 table.LC_docs_path td.LC_docs_path_compo
|
Line 4547 table.LC_docs_path td.LC_docs_path_compo
|
td.LC_table_cell_checkbox { |
td.LC_table_cell_checkbox { |
text-align: center; |
text-align: center; |
} |
} |
|
|
table#LC_mainmenu td.LC_mainmenu_column { |
table#LC_mainmenu td.LC_mainmenu_column { |
vertical-align: top; |
vertical-align: top; |
} |
} |
Line 4589 table#LC_mainmenu td.LC_mainmenu_column
|
Line 4560 table#LC_mainmenu td.LC_mainmenu_column
|
.LC_menubuttons_link { |
.LC_menubuttons_link { |
text-decoration: none; |
text-decoration: none; |
} |
} |
|
#2008--9-5: new menu style sheet.Changed category |
.LC_menubuttons_category { |
.LC_menubuttons_category { |
color: $font; |
color: $font; |
background: $pgbg; |
background: $pgbg; |
Line 5446 img.stift{
|
Line 5417 img.stift{
|
border-width:0; |
border-width:0; |
vertical-align:middle; |
vertical-align:middle; |
} |
} |
|
|
|
table#LC_mainmenu{ |
|
margin-top:10px; |
|
width:80%; |
|
|
|
} |
|
|
|
table#LC_mainmenu td.LC_mainmenu_col_fieldset{ |
|
vertical-align: top; |
|
width: 45%; |
|
} |
|
.LC_mainmenu_fieldset_category { |
|
color: $font; |
|
background: $pgbg; |
|
font-family: $sans; |
|
font-size: small; |
|
font-weight: bold; |
|
} |
|
fieldset#LC_mainmenu_fieldset { |
|
margin:0px 10px 10px 0px; |
|
|
|
} |
END |
END |
} |
} |
|
|
Line 8330 sub build_recipient_list {
|
Line 8323 sub build_recipient_list {
|
} elsif ($origmail ne '') { |
} elsif ($origmail ne '') { |
push(@recipients,$origmail); |
push(@recipients,$origmail); |
} |
} |
if (defined($defmail)) { |
if ($defmail ne '') { |
if ($defmail ne '') { |
push(@recipients,$defmail); |
push(@recipients,$defmail); |
|
} |
|
} |
} |
if ($otheremails) { |
if ($otheremails) { |
my @others; |
my @others; |
Line 9353 sub init_user_environment {
|
Line 9344 sub init_user_environment {
|
} |
} |
# Give them a new cookie |
# Give them a new cookie |
my $id = ($args->{'robot'} ? 'robot'.$args->{'robot'} |
my $id = ($args->{'robot'} ? 'robot'.$args->{'robot'} |
: $now.$$.int(rand(10000))); |
: $now); |
$cookie="$username\_$id\_$domain\_$authhost"; |
$cookie="$username\_$id\_$domain\_$authhost"; |
|
|
# Initialize roles |
# Initialize roles |