version 1.130, 2009/07/27 11:30:05
|
version 1.134, 2009/09/08 22:08:20
|
Line 113 use lib '/home/httpd/lib/perl/';
|
Line 113 use lib '/home/httpd/lib/perl/';
|
use LONCAPA; |
use LONCAPA; |
|
|
# Querystring component with sorting type |
# Querystring component with sorting type |
my $sqs; |
my $sqs=''; |
my $startdis; |
my $startdis=''; |
|
|
# ============================================================ List all folders |
# ============================================================ List all folders |
|
|
Line 558 sub discourse {
|
Line 558 sub discourse {
|
$result .= '<fieldset id="LC_futureusers"><legend>' |
$result .= '<fieldset id="LC_futureusers"><legend>' |
.&mt('Bcc: course members with future access') |
.&mt('Bcc: course members with future access') |
.'</legend>' |
.'</legend>' |
.'<form name="previoususers">'; |
.'<form name="futureusers">'; |
$result .= $tmptext.'</form></fieldset>'; |
$result .= $tmptext.'</form></fieldset>'; |
if (ref($statushash) eq 'HASH') { |
if (ref($statushash) eq 'HASH') { |
$statushash->{'future'} = 1; |
$statushash->{'future'} = 1; |
Line 1060 ENDDISHEADER
|
Line 1060 ENDDISHEADER
|
$r->print('<form method="post" name="disall" action="/adm/email">'. |
$r->print('<form method="post" name="disall" action="/adm/email">'. |
'<table class="LC_mail_list"><tr><th colspan="1"> </th><th>'); |
'<table class="LC_mail_list"><tr><th colspan="1"> </th><th>'); |
if ($env{'form.sortedby'} eq "revdate") { |
if ($env{'form.sortedby'} eq "revdate") { |
$r->print('<a href = "?sortedby=date'.$fsqs.'">'.&mt('Date').'</a></th>'); |
$r->print('<a href = "/adm/email?sortedby=date'.$fsqs.'">'.&mt('Date').'</a></th>'); |
} else { |
} else { |
$r->print('<a href = "?sortedby=revdate'.$fsqs.'">'.&mt('Date').'</a></th>'); |
$r->print('<a href = "/adm/email?sortedby=revdate'.$fsqs.'">'.&mt('Date').'</a></th>'); |
} |
} |
$r->print('<th>'); |
$r->print('<th>'); |
if ($env{'form.sortedby'} eq "revuser") { |
if ($env{'form.sortedby'} eq "revuser") { |
$r->print('<a href = "?sortedby=user'.$fsqs.'">'.&mt('Username').'</a>'); |
$r->print('<a href = "/adm/email?sortedby=user'.$fsqs.'">'.&mt('Username').'</a>'); |
} else { |
} else { |
$r->print('<a href = "?sortedby=revuser'.$fsqs.'">'.&mt('Username').'</a>'); |
$r->print('<a href = "/adm/email?sortedby=revuser'.$fsqs.'">'.&mt('Username').'</a>'); |
} |
} |
$r->print('</th><th>'); |
$r->print('</th><th>'); |
if ($env{'form.sortedby'} eq "revdomain") { |
if ($env{'form.sortedby'} eq "revdomain") { |
$r->print('<a href = "?sortedby=domain'.$fsqs.'">'.&mt('Domain').'</a>'); |
$r->print('<a href = "/adm/email?sortedby=domain'.$fsqs.'">'.&mt('Domain').'</a>'); |
} else { |
} else { |
$r->print('<a href = "?sortedby=revdomain'.$fsqs.'">'.&mt('Domain').'</a>'); |
$r->print('<a href = "/adm/email?sortedby=revdomain'.$fsqs.'">'.&mt('Domain').'</a>'); |
} |
} |
$r->print('</th><th>'); |
$r->print('</th><th>'); |
if ($env{'form.sortedby'} eq "revsubject") { |
if ($env{'form.sortedby'} eq "revsubject") { |
$r->print('<a href = "?sortedby=subject'.$fsqs.'">'.&mt('Subject').'</a>'); |
$r->print('<a href = "/adm/email?sortedby=subject'.$fsqs.'">'.&mt('Subject').'</a>'); |
} else { |
} else { |
$r->print('<a href = "?sortedby=revsubject'.$fsqs.'">'.&mt('Subject').'</a>'); |
$r->print('<a href = "/adm/email?sortedby=revsubject'.$fsqs.'">'.&mt('Subject').'</a>'); |
} |
} |
$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 = "/adm/email?sortedby=course'.$fsqs.'">'.&mt('Course').'</a>'); |
} else { |
} else { |
$r->print('<a href = "?sortedby=revcourse'.$fsqs.'">'.&mt('Course').'</a>'); |
$r->print('<a href = "/adm/email?sortedby=revcourse'.$fsqs.'">'.&mt('Course').'</a>'); |
} |
} |
$r->print('</th><th>'); |
$r->print('</th><th>'); |
if ($env{'form.sortedby'} eq "revstatus") { |
if ($env{'form.sortedby'} eq "revstatus") { |
$r->print('<a href = "?sortedby=status'.$fsqs.'">'.&mt('Status').'</a></th>'); |
$r->print('<a href = "/adm/email?sortedby=status'.$fsqs.'">'.&mt('Status').'</a></th>'); |
} else { |
} else { |
$r->print('<a href = "?sortedby=revstatus'.$fsqs.'">'.&mt('Status').'</a></th>'); |
$r->print('<a href = "/adm/email?sortedby=revstatus'.$fsqs.'">'.&mt('Status').'</a></th>'); |
} |
} |
$r->print("</tr>\n"); |
$r->print("</tr>\n"); |
|
|
my $suffix = &Apache::lonmsg::foldersuffix($folder); |
my $suffix = &Apache::lonmsg::foldersuffix($folder); |
my $count = 0; |
my $count = $firstdis; |
for (my $n=$firstdis;$n<=$lastdis;$n++) { |
for (my $n=$firstdis;$n<=$lastdis;$n++) { |
my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$origID, |
my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$origID, |
$description,$recv_name,$recv_domain)= |
$description,$recv_name,$recv_domain)= |
Line 1222 sub blocked_in_folder {
|
Line 1222 sub blocked_in_folder {
|
# $setters); |
# $setters); |
|
|
my ($blocked, $blocktext) = &Apache::loncommon::blocking_status("com"); |
my ($blocked, $blocktext) = &Apache::loncommon::blocking_status("com"); |
$output .="<br />".$blocktext; |
$output .="<br /><br />".$blocktext; |
|
|
return $output; |
return $output; |
} |
} |