version 1.44, 2004/06/08 01:32:02
|
version 1.48, 2004/07/26 21:57:27
|
Line 888 sub handler {
|
Line 888 sub handler {
|
push (@Options,{ action => 'none', |
push (@Options,{ action => 'none', |
linktext => |
linktext => |
q{Edit the 'About Me' Personal Information Screen}, |
q{Edit the 'About Me' Personal Information Screen}, |
|
help => 'Prefs_About_Me', |
href => $aboutmeaction}); |
href => $aboutmeaction}); |
push (@Options,({ action => 'changecolors', |
push (@Options,({ action => 'changecolors', |
linktext => 'Change Color Scheme', |
linktext => 'Change Color Scheme', |
Line 908 sub handler {
|
Line 909 sub handler {
|
push (@Options,({ action => 'changelanguages', |
push (@Options,({ action => 'changelanguages', |
linktext => 'Change Language Preferences', |
linktext => 'Change Language Preferences', |
href => '/adm/preferences', |
href => '/adm/preferences', |
|
help => 'Prefs_Language', |
breadcrumb=> |
breadcrumb=> |
{ href => '/adm/preferences?action=changelanguages', |
{ href => '/adm/preferences?action=changelanguages', |
text => 'Change Language'}, |
text => 'Change Language'}, |
Line 938 sub handler {
|
Line 940 sub handler {
|
push (@Options,({ action => 'changediscussions', |
push (@Options,({ action => 'changediscussions', |
linktext => 'Change Discussion Display Preferences', |
linktext => 'Change Discussion Display Preferences', |
href => '/adm/preferences', |
href => '/adm/preferences', |
|
help => 'Change_Discussion_Display', |
breadcrumb => |
breadcrumb => |
{ href => '/adm/preferences?action=changediscussions', |
{ href => '/adm/preferences?action=changediscussions', |
text => 'Change Discussion Preferences'}, |
text => 'Change Discussion Preferences'}, |
Line 964 sub handler {
|
Line 967 sub handler {
|
</head> |
</head> |
ENDHEADER |
ENDHEADER |
my $call = undef; |
my $call = undef; |
|
my $help = undef; |
my $printmenu = 'yes'; |
my $printmenu = 'yes'; |
foreach my $option (@Options) { |
foreach my $option (@Options) { |
if ($option->{'action'} eq $ENV{'form.action'}) { |
if ($option->{'action'} eq $ENV{'form.action'}) { |
Line 973 ENDHEADER
|
Line 977 ENDHEADER
|
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
($option->{'breadcrumb'}); |
($option->{'breadcrumb'}); |
} |
} |
|
$help=$option->{'help'}; |
} |
} |
} |
} |
$r->print(&Apache::loncommon::bodytag('Change Preferences')); |
$r->print(&Apache::loncommon::bodytag('Change Preferences')); |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
(undef,'Change Preferences')); |
(undef,'Change Preferences',$help)); |
if (defined($call)) { |
if (defined($call)) { |
$call->($r); |
$call->($r); |
} |
} |
Line 1001 ENDHEADER
|
Line 1006 ENDHEADER
|
$optiontext .= |
$optiontext .= |
'<a href="'.$option->{'href'}. |
'<a href="'.$option->{'href'}. |
'?action='.$option->{'action'}.'">'. |
'?action='.$option->{'action'}.'">'. |
$option->{'linktext'}.'</a>'; |
&mt($option->{'linktext'}).'</a>'; |
} |
} |
if (exists($option->{'text'})) { |
if (exists($option->{'text'})) { |
$optiontext .= ' '.$option->{'text'}; |
$optiontext .= ' '.&mt($option->{'text'}); |
} |
} |
if ($optiontext ne '') { |
if ($optiontext ne '') { |
$optiontext = '<font size="+1">'.$optiontext.'</font>'; |
$optiontext = '<font size="+1">'.$optiontext.'</font>'; |