version 1.29, 2006/05/30 12:46:09
|
version 1.30, 2006/05/30 20:09:25
|
Line 320 $content{'sendername'}.':'.
|
Line 320 $content{'sendername'}.':'.
|
# Check to see if there were any messages. |
# Check to see if there were any messages. |
if ($result eq '') { |
if ($result eq '') { |
$result = "<h2>".&mt('You have no critical messages.')."</h2>". |
$result = "<h2>".&mt('You have no critical messages.')."</h2>". |
'<a href="/adm/roles">'.&mt('Select a course').'</a><br />'. |
'<a href="/adm/roles">'.&mt('Select a course or group').'</a><br />'. |
'<a href="/adm/email">'.&mt('Communicate').'</a>'; |
'<a href="/adm/email">'.&mt('Communicate').'</a>'; |
} else { |
} else { |
$r->print($header); |
$r->print($header); |
Line 453 sub disnew {
|
Line 453 sub disnew {
|
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
'nm' => 'New Messages', |
'nm' => 'New Messages', |
'su' => 'Subject', |
'su' => 'Subject', |
'co' => 'Course', |
'co' => 'Course/Group', |
'da' => 'Date', |
'da' => 'Date', |
'us' => 'Username', |
'us' => 'Username', |
'op' => 'Open', |
'op' => 'Open', |
Line 571 sub disfolder {
|
Line 571 sub disfolder {
|
function uncheckall() { |
function uncheckall() { |
for (i=0; i<document.forms.disall.elements.length; i++) { |
for (i=0; i<document.forms.disall.elements.length; i++) { |
if |
if |
(document.forms.disall.elements[i].name.indexOf('delmark_')==0) { |
(document.forms.disall.elements[i].name.indexof('delmark_')==0) { |
document.forms.disall.elements[i].checked=false; |
document.forms.disall.elements[i].checked=false; |
} |
} |
} |
} |
Line 622 ENDDISHEADER
|
Line 622 ENDDISHEADER
|
} |
} |
$r->print('</th><th>'); |
$r->print('</th><th>'); |
if ($env{'form.sortedby'} eq "revcourse") { |
if ($env{'form.sortedby'} eq "revcourse") { |
$r->print('<a href = "?sortedby=course'.$fsqs.'">'.&mt('Course').'</a>'); |
$r->print('<a href = "?sortedby=course'.$fsqs.'">'.&mt('Course/Group').'</a>'); |
} else { |
} else { |
$r->print('<a href = "?sortedby=revcourse'.$fsqs.'">'.&mt('Course').'</a>'); |
$r->print('<a href = "?sortedby=revcourse'.$fsqs.'">'.&mt('Course/Group').'</a>'); |
} |
} |
$r->print('</th><th>'); |
$r->print('</th><th>'); |
if ($env{'form.sortedby'} eq "revstatus") { |
if ($env{'form.sortedby'} eq "revstatus") { |
Line 976 $content{'sendername'}.':'.
|
Line 976 $content{'sendername'}.':'.
|
} |
} |
# Check to see if there were any messages. |
# Check to see if there were any messages. |
if ($result eq '') { |
if ($result eq '') { |
|
my $lctype = 'course'; |
|
if (defined($env{'course.'.$env{'request.course.id'}.'.type'})) { |
|
$lctype = lc($env{'course.'.$env{'request.course.id'}.'.type'}); |
|
} |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
$r->print("<p><b>".&mt("No notes, face-to-face discussion records, critical messages, or broadcast messages in this course.")."</b></p>"); |
$r->print("<p><b>".&mt('No notes, face-to-face discussion records, critical messages, or broadcast messages in this [_1].',$lctype)."</b></p>"); |
} else { |
} else { |
$r->print('\textbf{'.&mt("No notes, face-to-face discussion records, critical messages or broadcast messages in this course.").'}\\\\'); |
$r->print('\textbf{'.&mt('No notes, face-to-face discussion records, critical messages or broadcast messages in this [_1].',$lctype).'}\\\\'); |
} |
} |
} else { |
} else { |
$r->print($result); |
$r->print($result); |
Line 1008 sub facetoface {
|
Line 1012 sub facetoface {
|
$r->print('Not allowed'); |
$r->print('Not allowed'); |
return; |
return; |
} |
} |
|
my $crstype = 'Course'; |
|
my $leaders = 'faculty and staff'; |
|
if (defined($env{'course.'.$env{'request.course.id'}.'.type'})) { |
|
$crstype = $env{'course.'.$env{'request.course.id'}.'.type'}; |
|
$leaders = 'coordinators and leaders'; |
|
} |
&printheader($r, |
&printheader($r, |
'/adm/email?recordftf=query', |
'/adm/email?recordftf=query', |
"User Notes, Face-to-Face, Critical Messages, Broadcast Messages"); |
"User Notes, Face-to-Face, Critical Messages, Broadcast Messages"); |
Line 1025 sub facetoface {
|
Line 1035 sub facetoface {
|
('stdselect','recuname','recdomain'); |
('stdselect','recuname','recdomain'); |
my %lt=&Apache::lonlocal::texthash('user' => 'Username', |
my %lt=&Apache::lonlocal::texthash('user' => 'Username', |
'dom' => 'Domain', |
'dom' => 'Domain', |
'head' => 'User Notes, Records of Face-To-Face Discussions, Critical Messages, and Broadcast Messages in Course', |
'head' => "User Notes, Records of Face-To-Face Discussions, Critical Messages, and Broadcast Messages in $crstype", |
'subm' => 'Retrieve discussion and message records', |
'subm' => 'Retrieve discussion and message records', |
'newr' => 'New Record (record is visible to course faculty and staff)', |
'newr' => 'New Record (record is visible to '.lc($crstype).' '.$leaders.')', |
'post' => 'Post this Record'); |
'post' => 'Post this Record'); |
$r->print(<<"ENDTREC"); |
$r->print(<<"ENDTREC"); |
<h3>$lt{'head'}</h3> |
<h3>$lt{'head'}</h3> |
Line 1086 sub examblock {
|
Line 1096 sub examblock {
|
$r->print('Not allowed'); |
$r->print('Not allowed'); |
return; |
return; |
} |
} |
|
my $usertype = 'students'; |
|
if ($env{'course.'.$env{'request.course.id'}.'.type'} eq 'Group') { |
|
$usertype = 'members'; |
|
} |
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
'comb' => 'Communication Blocking', |
'comb' => 'Communication Blocking', |
'cbds' => 'Communication blocking during scheduled exams', |
'cbds' => 'Communication blocking during scheduled exams', |
'desc' => 'You can use communication blocking to prevent students enrolled in this course from displaying LON-CAPA messages sent by other students during an online exam. As blocking of communication could potentially interrupt legitimate communication between students 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 stored' |
); |
); |
Line 1377 sub build_block_table {
|
Line 1391 sub build_block_table {
|
my ($r,$startblock,$endblock,$setters) = @_; |
my ($r,$startblock,$endblock,$setters) = @_; |
my %lt = &Apache::lonlocal::texthash( |
my %lt = &Apache::lonlocal::texthash( |
'cacb' => 'Currently active communication blocks', |
'cacb' => 'Currently active communication blocks', |
'cour' => 'Course', |
'cour' => 'Course/Group', |
'dura' => 'Duration', |
'dura' => 'Duration', |
'blse' => 'Block set by' |
'blse' => 'Block set by' |
); |
); |
Line 1421 sub displaymessage {
|
Line 1435 sub displaymessage {
|
my $startblock = 0; |
my $startblock = 0; |
my $endblock = 0; |
my $endblock = 0; |
my $numblocked = 0; |
my $numblocked = 0; |
|
my $crstype = 'Course'; |
|
if (defined($env{'course.'.$env{'request.course.id'}.'.type'})) { |
|
$crstype = $env{'course.'.$env{'request.course.id'}.'.type'}; |
|
} |
|
|
# info to generate "next" and "previous" buttons and check if message is blocked |
# info to generate "next" and "previous" buttons and check if message is blocked |
&blockcheck(\%setters,\$startblock,\$endblock); |
&blockcheck(\%setters,\$startblock,\$endblock); |
my @messages=&sortedmessages(\%blocked,$startblock,$endblock,\$numblocked,$folder); |
my @messages=&sortedmessages(\%blocked,$startblock,$endblock,\$numblocked,$folder); |
Line 1502 sub displaymessage {
|
Line 1521 sub displaymessage {
|
$content{'sendername'}.' at '. |
$content{'sendername'}.' at '. |
$content{'senderdomain'}.') ':'<br /><b>'.&mt('To').':</b> '. |
$content{'senderdomain'}.') ':'<br /><b>'.&mt('To').':</b> '. |
$tolist). |
$tolist). |
($content{'courseid'}?'<br /><b>'.&mt('Course').':</b> '.$courseinfo{'description'}. |
($content{'courseid'}?'<br /><b>'.&mt($crstype).':</b> '.$courseinfo{'description'}. |
($content{'coursesec'}?' ('.&mt('Group/Section').': '.$content{'coursesec'}.')':''):''). |
($content{'coursesec'}?' ('.&mt('Section').': '.$content{'coursesec'}.')':''):''). |
'<br /><b>'.&mt('Time').':</b> '.$content{'time'}. |
'<br /><b>'.&mt('Time').':</b> '.$content{'time'}. |
($content{'baseurl'}?'<br /><b>'.&mt('Refers to').':</b> <a href="'.$content{'baseurl'}.'">'. |
($content{'baseurl'}?'<br /><b>'.&mt('Refers to').':</b> <a href="'.$content{'baseurl'}.'">'. |
$content{'baseurl'}.' ('.&Apache::lonnet::gettitle($content{'baseurl'}).')</a>':''). |
$content{'baseurl'}.' ('.&Apache::lonnet::gettitle($content{'baseurl'}).')</a>':''). |