version 1.121, 2009/04/04 21:47:41
|
version 1.124.4.1, 2009/08/13 16:58:36
|
Line 173 sub folderlist {
|
Line 173 sub folderlist {
|
|
|
$formhash{'select_form_order'} = ['','critical',@userorder,'sent','trash']; |
$formhash{'select_form_order'} = ['','critical',@userorder,'sent','trash']; |
my $output = qq|<script type="text/javascript"> |
my $output = qq|<script type="text/javascript"> |
|
// <![CDATA[ |
function folder_choice(targetform,caller) { |
function folder_choice(targetform,caller) { |
var permfolders_keys = new Array('$permlistkeys'); |
var permfolders_keys = new Array('$permlistkeys'); |
var permfolders_vals = new Array('$permlistvals'); |
var permfolders_vals = new Array('$permlistvals'); |
Line 214 function folder_choice(targetform,caller
|
Line 215 function folder_choice(targetform,caller
|
} |
} |
} |
} |
} |
} |
|
// ]]> |
</script>|; |
</script>|; |
my %show = ('select_form_order' => [10,20,50,100,200], |
my %show = ('select_form_order' => [10,20,50,100,200], |
map {$_=>$_} (10,20,50,100,200)); |
map {$_=>$_} (10,20,50,100,200)); |
Line 239 function folder_choice(targetform,caller
|
Line 241 function folder_choice(targetform,caller
|
<td align="center"><b>'.$lt{'actn'}.'</b><br />'. |
<td align="center"><b>'.$lt{'actn'}.'</b><br />'. |
&Apache::loncommon::select_form('view','folderaction',%actions).' |
&Apache::loncommon::select_form('view','folderaction',%actions).' |
</td><td><br />'. |
</td><td><br />'. |
'<input type="button" value="'.$lt{'go'}.'" onClick="javascript:folder_choice(this.form,'."'change'".');" /> |
'<input type="button" value="'.$lt{'go'}.'" onclick="javascript:folder_choice(this.form,'."'change'".');" /> |
</td> |
</td> |
</tr> |
</tr> |
</table> |
</table> |
Line 247 function folder_choice(targetform,caller
|
Line 249 function folder_choice(targetform,caller
|
<td align="right"> |
<td align="right"> |
<table><tr><td><br /> |
<table><tr><td><br /> |
<input type="button" value="'.&mt('New Folder'). |
<input type="button" value="'.&mt('New Folder'). |
'" onClick="javascript:folder_choice(this.form,'."'new'".');" /></td>'. |
'" onclick="javascript:folder_choice(this.form,'."'new'".');" /></td>'. |
'<td align="center"><b>'.&mt('Name').'</b><br />'. |
'<td align="center"><b>'.&mt('Name').'</b><br />'. |
'<input type="text" size="15" name="newfolder" value="" /> |
'<input type="text" size="15" name="newfolder" value="" /> |
</td></tr></table> |
</td></tr></table> |
Line 295 sub scrollbuttons {
|
Line 297 sub scrollbuttons {
|
} |
} |
return |
return |
'<b>'.&mt('Page').'</b>: '. |
'<b>'.&mt('Page').'</b>: '. |
'<input type="submit" name="firstview" value="'.&mt('First').'" />'. |
'<input type="submit" name="firstview" value="|<" />'. |
'<input type="submit" name="prevview" value="'.&mt('Previous').'" />'. |
'<input type="submit" name="prevview" value="<" />'. |
'<input type="text" size="5" name="startdis" value="'.$start.'" onChange="this.form.submit()" /> of '.$maxdis. |
'<input type="text" size="5" name="startdis" value="'.$start.'" onchange="this.form.submit()" /> of '.$maxdis. |
'<input type="submit" name="nextview" value="'.&mt('Next').'" />'. |
'<input type="submit" name="nextview" value=">" />'. |
'<input type="submit" name="lastview" value="'.&mt('Last').'" /><br />'. |
'<input type="submit" name="lastview" value=">|" /><br />'. |
&mt('<b>[_1] messages</b>: showing messages [_2] through [_3] of [_4].',$status,$first,$finish,$total).'</form>'; |
&mt('<b>[_1] messages</b>: showing messages [_2] through [_3] of [_4].',$status,$first,$finish,$total).'</form>'; |
} |
} |
# =============================================================== Status Change |
# =============================================================== Status Change |
Line 670 sub disgroup {
|
Line 672 sub disgroup {
|
sub group_check_uncheck { |
sub group_check_uncheck { |
my $output = qq| |
my $output = qq| |
<script type="text/javascript"> |
<script type="text/javascript"> |
|
/ <![CDATA[ |
function toggleAll(form,action) { |
function toggleAll(form,action) { |
if (typeof(form.selectedusers_forminput.length)=="undefined") { |
if (typeof(form.selectedusers_forminput.length)=="undefined") { |
if (action == 'check') { |
if (action == 'check') { |
Line 687 function toggleAll(form,action) {
|
Line 690 function toggleAll(form,action) {
|
} |
} |
} |
} |
} |
} |
|
// ]]> |
</script> |
</script> |
|; |
|; |
} |
} |
Line 762 sub discrit {
|
Line 766 sub discrit {
|
.'<div class="LC_warning">' |
.'<div class="LC_warning">' |
.&mt('Access to other pages will be prevented until you have moved all critical messages to your inbox.') |
.&mt('Access to other pages will be prevented until you have moved all critical messages to your inbox.') |
.'</div><br />' |
.'</div><br />' |
.'<form action="/adm/email" method="POST">' |
.'<form action="/adm/email" method="post">' |
.'<input type="hidden" name="confirm" value="true" />'; |
.'<input type="hidden" name="confirm" value="true" />'; |
my %what=&Apache::lonnet::dump('critical'); |
my %what=&Apache::lonnet::dump('critical'); |
my $result = ''; |
my $result = ''; |
Line 981 sub disfolder {
|
Line 985 sub disfolder {
|
my $jscript = &Apache::loncommon::check_uncheck_jscript(); |
my $jscript = &Apache::loncommon::check_uncheck_jscript(); |
$r->print(<<ENDDISHEADER); |
$r->print(<<ENDDISHEADER); |
<script type="text/javascript"> |
<script type="text/javascript"> |
|
// <![CDATA[ |
$jscript |
$jscript |
|
|
function validate_checkedaction() { |
function validate_checkedaction() { |
Line 1009 sub disfolder {
|
Line 1014 sub disfolder {
|
} |
} |
document.disall.submit(); |
document.disall.submit(); |
} |
} |
|
// ]]> |
</script> |
</script> |
ENDDISHEADER |
ENDDISHEADER |
|
|
my $fsqs='&folder='.$folder; |
my $fsqs='&folder='.$folder; |
my @temp=&sortedmessages(\%blocked,$startblock,$endblock,\$numblocked,$folder,$msgstatus); |
my @temp=&sortedmessages(\%blocked,$startblock,$endblock,\$numblocked,$folder,$msgstatus); |
my $totalnumber=$#temp+1; |
my $totalnumber=$#temp+1; |
if ($totalnumber < 1) { |
if ($totalnumber < 1) { |
Line 1127 ENDDISHEADER
|
Line 1132 ENDDISHEADER
|
foreach my $item ($localsenttime,$dis_name,$dis_domain,$shortsubj) { |
foreach my $item ($localsenttime,$dis_name,$dis_domain,$shortsubj) { |
$r->print('<td>'.(($status eq 'new')?'<b>':''). |
$r->print('<td>'.(($status eq 'new')?'<b>':''). |
'<a href="/adm/email?display='.$origID.$sqs.'">'. |
'<a href="/adm/email?display='.$origID.$sqs.'">'. |
$item.(($status eq 'new')?'</b>':'').'</td>'); |
$item.(($status eq 'new')?'</b>':'').'</a></td>'); |
} |
} |
my $showstatus; |
my $showstatus; |
my %statushash = &get_msgstatus_types(); |
my %statushash = &get_msgstatus_types(); |
Line 1346 sub compout {
|
Line 1351 sub compout {
|
$sendmode = '<input type="hidden" name="sendmode" value="group" />'."\n"; |
$sendmode = '<input type="hidden" name="sendmode" value="group" />'."\n"; |
$broadcast_js = qq| |
$broadcast_js = qq| |
<script type="text/javascript"> |
<script type="text/javascript"> |
|
// <![CDATA[ |
function courseRecipients() { |
function courseRecipients() { |
|; |
|; |
foreach my $type (keys(%access_status)) { |
foreach my $type (keys(%access_status)) { |
Line 1372 function courseRecipients() {
|
Line 1378 function courseRecipients() {
|
$broadcast_js .= qq| |
$broadcast_js .= qq| |
return; |
return; |
} |
} |
|
// ]]> |
</script> |
</script> |
|
|
|; |
|; |
Line 1415 function courseRecipients() {
|
Line 1422 function courseRecipients() {
|
my $jscript = &Apache::loncommon::check_uncheck_jscript(); |
my $jscript = &Apache::loncommon::check_uncheck_jscript(); |
$r->print(<<"ENDREPSCRIPT"); |
$r->print(<<"ENDREPSCRIPT"); |
<script type="text/javascript"> |
<script type="text/javascript"> |
|
// <![CDATA[ |
$jscript |
$jscript |
|
// ]]> |
</script> |
</script> |
ENDREPSCRIPT |
ENDREPSCRIPT |
} |
} |
Line 1867 sub facetoface {
|
Line 1876 sub facetoface {
|
return; |
return; |
} |
} |
my $crstype = &Apache::loncommon::course_type(); |
my $crstype = &Apache::loncommon::course_type(); |
my $leaders = ($crstype eq 'Group') ? 'coordinators and leaders' |
my $leaders = ($crstype eq 'Community') ? 'coordinators and leaders' |
: 'faculty and staff'; |
: 'faculty and staff'; |
&printheader($r, |
&printheader($r, |
'/adm/email?recordftf=query', |
'/adm/email?recordftf=query', |
Line 1890 sub facetoface {
|
Line 1899 sub facetoface {
|
'subm' => 'Retrieve discussion and message records', |
'subm' => 'Retrieve discussion and message records', |
'newr' => 'New Record (record is visible to '.lc($crstype).' '.$leaders.')', |
'newr' => 'New Record (record is visible to '.lc($crstype).' '.$leaders.')', |
'post' => 'Post this Record'); |
'post' => 'Post this Record'); |
$r->print(<<"ENDTREC"); |
|
<h3>$lt{'head'}</h3> |
$r->print('<h2>'.$lt{'head'}.'</h2>' |
<form method="post" action="/adm/email" name="stdselect"> |
.'<form method="post" action="/adm/email" name="stdselect">' |
<input type="hidden" name="recordftf" value="retrieve" /> |
.'<input type="hidden" name="recordftf" value="retrieve" />' |
<table> |
.&Apache::lonhtmlcommon::start_pick_box() |
<tr><td>$lt{'user'}:</td><td><input type="text" size="12" name="recuname" value="$env{'form.recuname'}" /></td> |
.&Apache::lonhtmlcommon::row_title($lt{'user'}) |
<td rowspan="2"> |
.'<input type="text" size="12" name="recuname" value="'.$env{'form.recuname'}.'" />' |
$stdbrws |
.' '.$stdbrws |
<input type="submit" value="$lt{'subm'}" /></td> |
.&Apache::lonhtmlcommon::row_closure() |
</tr> |
.&Apache::lonhtmlcommon::row_title($lt{'dom'}) |
<tr><td>$lt{'dom'}:</td> |
.$domform |
<td>$domform</td></tr> |
.&Apache::lonhtmlcommon::row_closure(1) |
</table> |
.&Apache::lonhtmlcommon::end_pick_box() |
</form> |
.'<br />' |
ENDTREC |
.'<input type="submit" value="'.$lt{'subm'}.'" />' |
|
); |
|
|
if (($stage ne 'query') && |
if (($stage ne 'query') && |
($env{'form.recdomain'}) && ($env{'form.recuname'})) { |
($env{'form.recdomain'}) && ($env{'form.recuname'})) { |
chomp($env{'form.newrecord'}); |
chomp($env{'form.newrecord'}); |
Line 1913 ENDTREC
|
Line 1924 ENDTREC
|
$env{'form.recuname'}, |
$env{'form.recuname'}, |
$env{'form.recdomain'}); |
$env{'form.recdomain'}); |
} |
} |
$r->print('<h3>'.&Apache::loncommon::plainname($env{'form.recuname'}, |
my $aboutmelink=&Apache::loncommon::aboutmewrapper( |
$env{'form.recdomain'}).'</h3>'); |
&Apache::loncommon::plainname($env{'form.recuname'} |
|
,$env{'form.recdomain'}) |
|
,$env{'form.recuname'},$env{'form.recdomain'}); |
|
$r->print('<hr />' |
|
.'<h2>' |
|
.&mt('Discussion and message records for [_1] ([_2])' |
|
,$aboutmelink |
|
,$env{'form.recuname'}.':'.$env{'form.recdomain'}) |
|
.'<h2>' |
|
); |
&disfacetoface($r,$env{'form.recuname'},$env{'form.recdomain'}); |
&disfacetoface($r,$env{'form.recuname'},$env{'form.recdomain'}); |
$r->print(<<ENDRHEAD); |
$r->print(<<ENDRHEAD); |
<form method="post" action="/adm/email"> |
<form method="post" action="/adm/email"> |
Line 1943 sub examblock {
|
Line 1963 sub examblock {
|
$r->print('Not allowed'); |
$r->print('Not allowed'); |
return; |
return; |
} |
} |
my $usertype = (&Apache::loncommon::course_type() eq 'Group') ? 'members' |
my $usertype = (&Apache::loncommon::course_type() eq 'Community') ? 'members' |
: 'students'; |
: 'students'; |
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
'comb' => 'Communication Blocking', |
'comb' => 'Communication Blocking', |
Line 2721 sub recipients_link {
|
Line 2741 sub recipients_link {
|
$body =~ s{\n}{}g; |
$body =~ s{\n}{}g; |
$r->print(<<ENDJS); |
$r->print(<<ENDJS); |
<script type="text/javascript"> |
<script type="text/javascript"> |
|
// <![CDATA[ |
function showBroadcastList() { |
function showBroadcastList() { |
var caller = this; |
var caller = this; |
var newWindow = null; |
var newWindow = null; |
Line 2743 function writeWin(caller) {
|
Line 2764 function writeWin(caller) {
|
caller.document.close(); |
caller.document.close(); |
caller.focus(); |
caller.focus(); |
} |
} |
|
// ]]> |
</script> |
</script> |
|
|
ENDJS |
ENDJS |
Line 3175 sub sendoffmail {
|
Line 3196 sub sendoffmail {
|
&Apache::loncommunicate::menu($r); |
&Apache::loncommunicate::menu($r); |
} |
} |
} else { |
} else { |
$r->print('<p><span class="LC_error">'.&mt('Could not deliver message').'</span> '. |
$r->print('<p>'.&Apache::lonhtmlcommon::confirm_success(&mt('Could not deliver message'),1).'<br /> '. |
&mt('Please use the browser "Back" button and correct the recipient addresses ([_1]).',$sendstatus).'</p>'); |
&mt('Please use the browser "Back" button and correct the recipient addresses ([_1]).',$sendstatus).'</p>'); |
} |
} |
} |
} |
Line 3202 sub handler {
|
Line 3223 sub handler {
|
'recordftf','sortedby','block','folder','startdis','interdis', |
'recordftf','sortedby','block','folder','startdis','interdis', |
'showcommentbaseurl','dismode','group','subject','text','ref', |
'showcommentbaseurl','dismode','group','subject','text','ref', |
'msgstatus']); |
'msgstatus']); |
$sqs='&sortedby='.$env{'form.sortedby'}; |
$sqs='&sortedby='.$env{'form.sortedby'}; |
|
|
# ------------------------------------------------------ They checked for email |
# ------------------------------------------------------ They checked for email |
unless ($env{'form.block'}) { |
unless ($env{'form.block'}) { |
Line 3223 sub handler {
|
Line 3244 sub handler {
|
unless ($folder) { |
unless ($folder) { |
$folder=''; |
$folder=''; |
} else { |
} else { |
$sqs.='&folder='.&escape($folder); |
$sqs.='&folder='.&escape($folder); |
} |
} |
# ------------------------------------------------------------ Get Display Mode |
# ------------------------------------------------------------ Get Display Mode |
|
|
Line 3255 sub handler {
|
Line 3276 sub handler {
|
$startdis++; |
$startdis++; |
} |
} |
my $postedstartdis=$startdis+1; |
my $postedstartdis=$startdis+1; |
$sqs.='&startdis='.$postedstartdis; |
$sqs.='&startdis='.$postedstartdis; |
|
|
# --------------------------------------------------------------- Render Output |
# --------------------------------------------------------------- Render Output |
|
|