version 1.721, 2008/12/17 12:48:20
|
version 1.731, 2009/01/08 19:46:43
|
Line 2717 sub flush_email_cache {
|
Line 2717 sub flush_email_cache {
|
&Apache::lonnet::devalidate_cache_new('emailscache',$id); |
&Apache::lonnet::devalidate_cache_new('emailscache',$id); |
} |
} |
|
|
|
# -------------------------------------------------------------------- getlangs |
|
|
|
=pod |
|
|
|
=item * &getlangs($uname,$udom) |
|
|
|
Gets a user's language preference and returns it as a hash with key: |
|
language. |
|
|
|
=cut |
|
|
|
|
|
sub getlangs { |
|
my ($uname,$udom) = @_; |
|
if (!$udom) { $udom =$env{'user.domain'}; } |
|
if (!$uname) { $uname=$env{'user.name'}; } |
|
my $id=$uname.':'.$udom; |
|
my ($langs,$cached)=&Apache::lonnet::is_cached_new('userlangs',$id); |
|
if ($cached) { |
|
return %{$langs}; |
|
} else { |
|
my %loadlangs=&Apache::lonnet::get('environment',['languages'], |
|
$udom,$uname); |
|
&Apache::lonnet::do_cache_new('userlangs',$id,\%loadlangs); |
|
return %loadlangs; |
|
} |
|
} |
|
|
|
sub flush_langs_cache { |
|
my ($uname,$udom)=@_; |
|
if (!$udom) { $udom =$env{'user.domain'}; } |
|
if (!$uname) { $uname=$env{'user.name'}; } |
|
return if ($udom eq 'public' && $uname eq 'public'); |
|
my $id=$uname.':'.$udom; |
|
&Apache::lonnet::devalidate_cache_new('userlangs',$id); |
|
} |
|
|
# ------------------------------------------------------------------ Screenname |
# ------------------------------------------------------------------ Screenname |
|
|
=pod |
=pod |
Line 3168 sub relative_to_absolute {
|
Line 3205 sub relative_to_absolute {
|
} |
} |
$thisdir=~s-/[^/]*$--; |
$thisdir=~s-/[^/]*$--; |
foreach my $link (@rlinks) { |
foreach my $link (@rlinks) { |
unless (($link=~/^http:\/\//i) || |
unless (($link=~/^https?\:\/\//i) || |
($link=~/^\//) || |
($link=~/^\//) || |
($link=~/^javascript:/i) || |
($link=~/^javascript:/i) || |
($link=~/^mailto:/i) || |
($link=~/^mailto:/i) || |
Line 5499 h2,h3,h4,h5,h6
|
Line 5536 h2,h3,h4,h5,h6
|
.LC_noBorder { |
.LC_noBorder { |
border:0px; |
border:0px; |
} |
} |
/* |
|
.LC_bgLightGrey { background:URL(images/TabMenuBG.png) repeat-x left top; } |
|
.LC_bgLightGreyYellow {background-color:#EFECE0;} |
|
*/ |
|
|
|
|
.LC_bgLightGrey{ |
|
background:URL(/adm/lonIcons/lightGreyBG.png) repeat-x left top; |
|
} |
|
.LC_bgLightGreyYellow { |
|
background-color:#EFECE0; |
|
} |
|
|
/* Main Header with discription of Person, Course, etc. */ |
/* Main Header with discription of Person, Course, etc. */ |
.LC_HeadRight { |
.LC_HeadRight { |
Line 5569 ol#LC_TabMainMenuContent li {
|
Line 5608 ol#LC_TabMainMenuContent li {
|
line-height: 140%; |
line-height: 140%; |
font-weight: bold; |
font-weight: bold; |
white-space:nowrap; |
white-space:nowrap; |
background: RGB(211, 206, 205) URL(home/httpd/html/adm/lonIcons/lightGreyBG.png) repeat-x left top; |
background: url(/adm/lonIcons/lightGreyBG.png) repeat-x left top; |
} |
} |
|
|
ol#LC_TabMainMenuContent li a{ |
ol#LC_TabMainMenuContent li a{ |
Line 5590 ul.LC_TabContent li{
|
Line 5629 ul.LC_TabContent li{
|
border-right:solid 1px $lg_border_color; |
border-right:solid 1px $lg_border_color; |
padding:5px 10px 5px 10px; |
padding:5px 10px 5px 10px; |
margin-right:2px; |
margin-right:2px; |
background:RGB(211,206,205) url(home/httpd/html/adm/lonIcons/lightGreyBG.png) repeat-x left top; |
background: url(/adm/lonIcons/lightGreyBG.png) repeat-x left top; |
} |
} |
ul.LC_TabContent li a, ul.LC_TabContent li{ |
ul.LC_TabContent li a, ul.LC_TabContent li{ |
color:rgb(47,47,47); |
color:rgb(47,47,47); |
Line 5613 ol#LC_MenuBreadcrumbs, ol#LC_PathBreadcr
|
Line 5652 ol#LC_MenuBreadcrumbs, ol#LC_PathBreadcr
|
margin: 0px 0px 30px 0px; |
margin: 0px 0px 30px 0px; |
padding-left: 10px; |
padding-left: 10px; |
list-style-position: inside; |
list-style-position: inside; |
background: RGB(211, 206, 205) URL(home/httpd/html/adm/lonIcons/lightGreyBG.png) repeat-x left top; |
background: url(/adm/lonIcons/lightGreyBG.png) repeat-x left top; |
} |
} |
|
|
ol#LC_MenuBreadcrumbs li, ol#LC_PathBreadcrumbs li { |
ol#LC_MenuBreadcrumbs li, ol#LC_PathBreadcrumbs li { |
background: url(home/httpd/html/adm/lonIcons/pfeil_white.png) no-repeat left center; |
background: url(/adm/lonIcons/arrow_white.png) no-repeat left center; |
display: inline; |
display: inline; |
padding: 0px 0px 0px 10px; |
padding: 0px 0px 0px 10px; |
vertical-align: bottom; |
vertical-align: bottom; |
Line 7941 sub upfile_select_html {
|
Line 7980 sub upfile_select_html {
|
# xml => &mt('HTML/XML'), |
# xml => &mt('HTML/XML'), |
); |
); |
my $Str = '<input type="file" name="upfile" size="50" />'. |
my $Str = '<input type="file" name="upfile" size="50" />'. |
'<br />Type: <select name="upfiletype">'; |
'<br />'.&mt('Type').': <select name="upfiletype">'; |
foreach my $type (sort(keys(%Types))) { |
foreach my $type (sort(keys(%Types))) { |
$Str .= '<option value="'.$type.'" >'.$Types{$type}."</option>\n"; |
$Str .= '<option value="'.$type.'" >'.$Types{$type}."</option>\n"; |
} |
} |
Line 8029 sub csv_print_select_table {
|
Line 8068 sub csv_print_select_table {
|
&end_data_table_header_row()."\n"); |
&end_data_table_header_row()."\n"); |
foreach my $array_ref (@$d) { |
foreach my $array_ref (@$d) { |
my ($value,$display,$defaultcol)=@{ $array_ref }; |
my ($value,$display,$defaultcol)=@{ $array_ref }; |
$r->print(&start_data_table_row().'<tr><td>'.$display.'</td>'); |
$r->print(&start_data_table_row().'<td>'.$display.'</td>'); |
|
|
$r->print('<td><select name=f'.$i. |
$r->print('<td><select name=f'.$i. |
' onchange="javascript:flip(this.form,'.$i.');">'); |
' onchange="javascript:flip(this.form,'.$i.');">'); |
Line 9365 sub construct_course {
|
Line 9404 sub construct_course {
|
'policy.email', |
'policy.email', |
'comment.email', |
'comment.email', |
'pch.users.denied', |
'pch.users.denied', |
'plc.users.denied'], |
'plc.users.denied', |
|
'hidefromcat', |
|
'categories'], |
$$crsudom,$$crsunum); |
$$crsudom,$$crsunum); |
} |
} |
|
|
Line 9823 sub init_user_environment {
|
Line 9864 sub init_user_environment {
|
} |
} |
} |
} |
|
|
|
foreach my $tool ('aboutme','blog','portfolio') { |
|
$userenv{'availabletools.'.$tool} = |
|
&Apache::lonnet::usertools_access($username,$domain,$tool,'reload'); |
|
} |
|
|
$env{'user.environment'} = "$lonids/$cookie.id"; |
$env{'user.environment'} = "$lonids/$cookie.id"; |
|
|
if (tie(my %disk_env,'GDBM_File',"$lonids/$cookie.id", |
if (tie(my %disk_env,'GDBM_File',"$lonids/$cookie.id", |
Line 9861 sub _add_to_env {
|
Line 9907 sub _add_to_env {
|
# --- Get the symbolic name of a problem and the url |
# --- Get the symbolic name of a problem and the url |
sub get_symb { |
sub get_symb { |
my ($request,$silent) = @_; |
my ($request,$silent) = @_; |
(my $url=$env{'form.url'}) =~ s-^http://($ENV{'SERVER_NAME'}|$ENV{'HTTP_HOST'})--; |
(my $url=$env{'form.url'}) =~ s-^https?\://($ENV{'SERVER_NAME'}|$ENV{'HTTP_HOST'})--; |
my $symb=($env{'form.symb'} ne '' ? $env{'form.symb'} : (&Apache::lonnet::symbread($url))); |
my $symb=($env{'form.symb'} ne '' ? $env{'form.symb'} : (&Apache::lonnet::symbread($url))); |
if ($symb eq '') { |
if ($symb eq '') { |
if (!$silent) { |
if (!$silent) { |
Line 9888 sub get_annotation {
|
Line 9934 sub get_annotation {
|
} |
} |
|
|
sub clean_symb { |
sub clean_symb { |
my ($symb) = @_; |
my ($symb,$delete_enc) = @_; |
|
|
&Apache::lonenc::check_decrypt(\$symb); |
&Apache::lonenc::check_decrypt(\$symb); |
my $enc = $env{'request.enc'}; |
my $enc = $env{'request.enc'}; |
delete($env{'request.enc'}); |
if ($delete_enc) { |
|
delete($env{'request.enc'}); |
|
} |
|
|
return ($symb,$enc); |
return ($symb,$enc); |
} |
} |