version 1.139, 2009/02/18 07:06:15
|
version 1.143, 2009/02/19 16:12:21
|
Line 1667 END
|
Line 1667 END
|
END |
END |
$r->print(&Apache::loncommon::end_data_table_row(). |
$r->print(&Apache::loncommon::end_data_table_row(). |
&Apache::loncommon::end_data_table()); |
&Apache::loncommon::end_data_table()); |
$r->print(<<"END"); |
|
<br /> |
$r->print('<br /><br /><input type="submit" name="sub" value="'.&mt('Save').'" /><br /><br />'.&mt('Note').': '.$lt{'thde'}.'</form>'); |
<br /> |
|
<input type="submit" name="sub" value="Save" /> |
|
<br /> |
|
<br /> |
|
Note: $lt{'thde'} |
|
</form> |
|
END |
|
} |
} |
|
|
sub verify_and_change_discussion { |
sub verify_and_change_discussion { |
Line 1738 sub coursedisplaychanger {
|
Line 1731 sub coursedisplaychanger {
|
} |
} |
my %pagenames = &Apache::lonlocal::texthash( |
my %pagenames = &Apache::lonlocal::texthash( |
firstres => 'First resource', |
firstres => 'First resource', |
whatsnew => "What's New page", |
whatsnew => "What's New Page", |
); |
); |
my $whatsnew_off=&mt('Display the [_1]first resource[_2] in the course.','<b>','</b>'); |
my $whatsnew_off=&mt('Display the [_1]first resource[_2] in the course.','<b>','</b>'); |
my $whatsnew_on=&mt("Display the [_1]What's New page[_2] - a summary of items in the course which require attention.",'<b>','</b>'); |
my $whatsnew_on=&mt("Display the [_1]What's New Page[_2] - a summary of items in the course which require attention.",'<b>','</b>'); |
|
|
$r->print('<br /><b>' |
$r->print('<br /><b>' |
.&mt('Set the default page to be displayed when you select a course role') |
.&mt('Set the default page to be displayed when you select a course role') |
.'</b> ' |
.'</b> ' |
.&mt('(Currently: [_1])',$pagenames{$currvalue}) |
.&mt('(Currently: [_1])',$pagenames{$currvalue}) |
.'<br />' |
.'<br />' |
.&mt("The global user preference you set for your courses can be overridden in an individual course by setting a course specific setting via the [_1]What's New page[_2] in the course.",'<i>','</i>') |
.&mt("The global user preference you set for your courses can be overridden in an individual course by setting a course specific setting via the [_1]What's New Page[_2] in the course.",'<i>','</i>') |
.'<br /><br />' |
.'<br /><br />' |
); |
); |
$r->print(<<ENDLSCREEN); |
$r->print(<<ENDLSCREEN); |
Line 1758 sub coursedisplaychanger {
|
Line 1751 sub coursedisplaychanger {
|
<label><input type="radio" name="newdisp" value="firstres" $firstselect /> $whatsnew_off</label><br /> |
<label><input type="radio" name="newdisp" value="firstres" $firstselect /> $whatsnew_off</label><br /> |
<label><input type="radio" name="newdisp" value="whatsnew" $whatsnewselect /> $whatsnew_on</label><input type="hidden" name="refpage" value="$env{'form.refpage'}" /> |
<label><input type="radio" name="newdisp" value="whatsnew" $whatsnewselect /> $whatsnew_on</label><input type="hidden" name="refpage" value="$env{'form.refpage'}" /> |
ENDLSCREEN |
ENDLSCREEN |
$r->print('<br /><br /><input type="submit" value="'.&mt('Change').'" /> |
$r->print('<br /><br /><input type="submit" value="'.&mt('Save').'" /> |
</form>'); |
</form>'); |
} |
} |
|
|
Line 1771 sub verify_and_change_coursepage {
|
Line 1764 sub verify_and_change_coursepage {
|
'ywbt' => 'you will be taken to the start of the course.', |
'ywbt' => 'you will be taken to the start of the course.', |
'apwb' => 'a page will be displayed that lists items in the course that may require action from you.', |
'apwb' => 'a page will be displayed that lists items in the course that may require action from you.', |
'gtts' => 'Go to the start of the course', |
'gtts' => 'Go to the start of the course', |
'dasp' => "Display the What's New page listing course action items", |
'dasp' => "Display the What's New Page listing course action items", |
); |
); |
my $newdisp = $env{'form.newdisp'}; |
my $newdisp = $env{'form.newdisp'}; |
$message = '<b>'.$lt{'defs'}.'</b>: '.$lt{'when'}.', '; |
$message = '<b>'.$lt{'defs'}.'</b>: '.$lt{'when'}.', '; |
Line 1821 if (&Apache::lonnet::usertools_access($u
|
Line 1814 if (&Apache::lonnet::usertools_access($u
|
my @menu= |
my @menu= |
({ categorytitle=>'Personal Data', |
({ categorytitle=>'Personal Data', |
items =>[ |
items =>[ |
{ linktext => 'Personal Homepage', |
{ linktext => 'Personal Information Page', |
url => $aboutmeurl, |
url => $aboutmeurl, |
permission => $permissions{'aboutme'}, |
permission => $permissions{'aboutme'}, |
#help => 'Prefs_About_Me', |
#help => 'Prefs_About_Me', |
Line 2158 sub handler2 {
|
Line 2151 sub handler2 {
|
'/adm/'.$env{'user.domain'}.'/'.$env{'user.name'}.'/aboutme'; |
'/adm/'.$env{'user.domain'}.'/'.$env{'user.name'}.'/aboutme'; |
push (@Options,{ action => 'none', |
push (@Options,{ action => 'none', |
linktext => |
linktext => |
q{Edit the Personal Homepage}, |
q{Edit the Personal Information Page}, |
help => 'Prefs_About_Me', |
help => 'Prefs_About_Me', |
href => $aboutmeaction}); |
href => $aboutmeaction}); |
push (@Options,({ action => 'changecolors', |
push (@Options,({ action => 'changecolors', |