|
version 1.71, 2007/05/01 18:40:57
|
version 1.72, 2007/05/02 01:33:49
|
|
Line 1273 will be forwarded to the recipient(s) yo
|
Line 1273 will be forwarded to the recipient(s) yo
|
| if ($content{'baseurl'}) { |
if ($content{'baseurl'}) { |
| $disbase='<input type="hidden" name="baseurl" value="'.&escape($content{'baseurl'}).'" />'; |
$disbase='<input type="hidden" name="baseurl" value="'.&escape($content{'baseurl'}).'" />'; |
| if ($env{'user.adv'}) { |
if ($env{'user.adv'}) { |
| $disbase.='<label><input type="checkbox" name="storebasecomment" />'.&mt('Store message for re-use'). |
$disbase.='<label><input type="checkbox" name="storebasecomment" />'.&mt('Save message for re-use'). |
| '</label> <a href="/adm/email?showcommentbaseurl='. |
'</label> <a href="/adm/email?showcommentbaseurl='. |
| &escape($content{'baseurl'}).'" target="comments">'. |
&escape($content{'baseurl'}).'" target="comments">'. |
| &mt('Show re-usable messages').'</a><br />'; |
&mt('Show re-usable messages').'</a><br />'; |
|
Line 1680 sub examblock {
|
Line 1680 sub examblock {
|
| 'cbds' => 'Communication blocking during scheduled exams', |
'cbds' => 'Communication blocking during scheduled exams', |
| 'desc' => "You can use communication blocking to prevent $usertype enrolled in this course from displaying LON-CAPA messages sent by other $usertype during an online exam. As blocking of communication could potentially interrupt legitimate communication between $usertype who are also both enrolled in a different LON-CAPA course, please be careful that you select the correct start and end times for your scheduled exam when setting or modifying these parameters.", |
'desc' => "You can use communication blocking to prevent $usertype enrolled in this course from displaying LON-CAPA messages sent by other $usertype during an online exam. As blocking of communication could potentially interrupt legitimate communication between $usertype who are also both enrolled in a different LON-CAPA course, please be careful that you select the correct start and end times for your scheduled exam when setting or modifying these parameters.", |
| 'mecb' => 'Modify existing communication blocking periods', |
'mecb' => 'Modify existing communication blocking periods', |
| 'ncbc' => 'No communication blocks currently stored', |
'ncbc' => 'No communication blocks currently saved', |
| 'stor' => 'Store', |
'stor' => 'Save', |
| ); |
); |
| |
|
| my %ltext = &Apache::lonlocal::texthash( |
my %ltext = &Apache::lonlocal::texthash( |
|
Line 2208 sub storedcommentlisting {
|
Line 2208 sub storedcommentlisting {
|
| my ($r)=@_; |
my ($r)=@_; |
| my %msgs=&Apache::lonnet::dump('nohist_stored_comments',undef,undef, |
my %msgs=&Apache::lonnet::dump('nohist_stored_comments',undef,undef, |
| '^'.&escape(&escape($env{'form.showcommentbaseurl'}))); |
'^'.&escape(&escape($env{'form.showcommentbaseurl'}))); |
| $r->print(&Apache::loncommon::start_page('Stored Comment Listing',undef, |
$r->print(&Apache::loncommon::start_page('Saved Comment Listing',undef, |
| {'onlybody' => 1})); |
{'onlybody' => 1})); |
| if ((keys %msgs)[0]=~/^error\:/) { |
if ((keys %msgs)[0]=~/^error\:/) { |
| $r->print(&mt('No stored comments yet.')); |
$r->print(&mt('No saved comments yet.')); |
| } else { |
} else { |
| my $found=0; |
my $found=0; |
| foreach my $key (sort(keys(%msgs))) { |
foreach my $key (sort(keys(%msgs))) { |
|
Line 2219 sub storedcommentlisting {
|
Line 2219 sub storedcommentlisting {
|
| $found=1; |
$found=1; |
| } |
} |
| unless ($found) { |
unless ($found) { |
| $r->print(&mt('No stored comments yet for this resource.')); |
$r->print(&mt('No saved comments yet for this resource.')); |
| } |
} |
| } |
} |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonmsgdisplay.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface