version 1.122, 2004/12/11 14:09:46
|
version 1.125, 2004/12/15 02:35:17
|
Line 527 sub folderlist {
|
Line 527 sub folderlist {
|
'critical' => &mt('Critical'), |
'critical' => &mt('Critical'), |
'sent' => &mt('Sent Messages'), |
'sent' => &mt('Sent Messages'), |
map { $_ => $_ } @allfolders)). |
map { $_ => $_ } @allfolders)). |
' '.&mt('Show').' '. |
' '.&mt('Show'). |
&Apache::loncommon::select_form($interdis,'interdis', |
'<select name="interdis">'. |
(' 10' => '10', ' 20' => '20', ' 50' => '50', '100' => '100', '200' => '200')). |
join("\n",map { '<option value="'.$_.'"'. |
|
($_==$interdis?' selected="selected"':'').'>'.$_.'</option>' } |
|
(10,20,50,100,200)).'</select>'. |
'<input type="submit" value="'.&mt('View Folder').'" /><br />'. |
'<input type="submit" value="'.&mt('View Folder').'" /><br />'. |
'<input type="hidden" name="sortedby" value="'.$ENV{'form.sortedby'}.'" />'. |
'<input type="hidden" name="sortedby" value="'.$ENV{'form.sortedby'}.'" />'. |
($folder=~/^(new|critical)/?'</form>':''); |
($folder=~/^(new|critical)/?'</form>':''); |
Line 537 sub folderlist {
|
Line 539 sub folderlist {
|
|
|
sub scrollbuttons { |
sub scrollbuttons { |
my ($start,$maxdis,$first,$finish,$total)=@_; |
my ($start,$maxdis,$first,$finish,$total)=@_; |
|
unless ($total>0) { return ''; } |
$start++; $maxdis++;$first++;$finish++; |
$start++; $maxdis++;$first++;$finish++; |
|
return |
'<input type="submit" name="firstview" value="'.&mt('First').'" />'. |
'<input type="submit" name="firstview" value="'.&mt('First').'" />'. |
'<input type="submit" name="prevview" value="'.&mt('Previous').'" />'. |
'<input type="submit" name="prevview" value="'.&mt('Previous').'" />'. |
'<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. |
Line 697 sub discrit {
|
Line 701 sub discrit {
|
foreach (sort keys %what) { |
foreach (sort keys %what) { |
my %content=&unpackagemsg($what{$_}); |
my %content=&unpackagemsg($what{$_}); |
next if ($content{'senderdomain'} eq ''); |
next if ($content{'senderdomain'} eq ''); |
$content{'message'}=~s/\n/\<br\>/g; |
|
$result.='<hr />'.&mt('From').': <b>'. |
$result.='<hr />'.&mt('From').': <b>'. |
&Apache::loncommon::aboutmewrapper( |
&Apache::loncommon::aboutmewrapper( |
&Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),$content{'sendername'},$content{'senderdomain'}).'</b> ('. |
&Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),$content{'sendername'},$content{'senderdomain'}).'</b> ('. |
Line 913 ENDDISHEADER
|
Line 916 ENDDISHEADER
|
my $fsqs='&folder='.$folder; |
my $fsqs='&folder='.$folder; |
my @temp=sortedmessages(\%blocked,$startblock,$endblock,\$numblocked,$folder); |
my @temp=sortedmessages(\%blocked,$startblock,$endblock,\$numblocked,$folder); |
my $totalnumber=$#temp+1; |
my $totalnumber=$#temp+1; |
|
unless ($totalnumber>0) { |
|
$r->print('<h2>'.&mt('Empty Folder').'</h2>'); |
|
return; |
|
} |
|
unless ($interdis) { |
|
$interdis=20; |
|
} |
my $number=int($totalnumber/$interdis); |
my $number=int($totalnumber/$interdis); |
if (($startdis<0) || ($startdis>$number)) { $startdis=$number; } |
if (($startdis<0) || ($startdis>$number)) { $startdis=$number; } |
my $firstdis=$interdis*$startdis; |
my $firstdis=$interdis*$startdis; |
Line 1731 sub displaymessage {
|
Line 1741 sub displaymessage {
|
'"><b>'.&mt('Mark Unread').'</b></a></td>'. |
'"><b>'.&mt('Mark Unread').'</b></a></td>'. |
'<td><a href="/adm/email?markdel='.&Apache::lonnet::escape($msgid).$sqs. |
'<td><a href="/adm/email?markdel='.&Apache::lonnet::escape($msgid).$sqs. |
'"><b>Delete</b></a></td>'. |
'"><b>Delete</b></a></td>'. |
'<td><a href="/adm/email?sortedby='.$ENV{'form.sortedby'}. |
'<td><a href="/adm/email?'.$sqs. |
'&folder='.&Apache::lonnet::escape($folder). |
'"><b>'.&mt('Back to Folder Display').'</b></a></td>'); |
'"><b>'.&mt('Display all Messages').'</b></a></td>'); |
|
if ($counter > 0){ |
if ($counter > 0){ |
$r->print('<td><a href="/adm/email?display='.$messages[$counter-1]->[5].$sqs. |
$r->print('<td><a href="/adm/email?display='.$messages[$counter-1]->[5].$sqs. |
'"><b>'.&mt('Previous').'</b></a></td>'); |
'"><b>'.&mt('Previous').'</b></a></td>'); |
Line 1981 sub handler {
|
Line 1990 sub handler {
|
'sendreply','compose','sendmail','critical','recname','recdom', |
'sendreply','compose','sendmail','critical','recname','recdom', |
'recordftf','sortedby','block','folder','startdis','interdis', |
'recordftf','sortedby','block','folder','startdis','interdis', |
'showcommentbaseurl']); |
'showcommentbaseurl']); |
$sqs='&sortedby='.$ENV{'form.sortedby'}. |
$sqs='&sortedby='.$ENV{'form.sortedby'}; |
'&startdis='.$ENV{'form.startdis'}. |
|
'&interdis='.$ENV{'form.interdis'}; |
|
|
|
# ------------------------------------------------------ They checked for email |
# ------------------------------------------------------ They checked for email |
unless ($ENV{'form.block'}) { |
unless ($ENV{'form.block'}) { |
Line 2004 sub handler {
|
Line 2011 sub handler {
|
unless ($folder) { |
unless ($folder) { |
$folder=''; |
$folder=''; |
} else { |
} else { |
$sqs='&folder='.&Apache::lonnet::escape($folder); |
$sqs.='&folder='.&Apache::lonnet::escape($folder); |
} |
} |
|
|
# --------------------------------------------------------------------- Display |
# --------------------------------------------------------------------- Display |
Line 2012 sub handler {
|
Line 2019 sub handler {
|
$startdis=$ENV{'form.startdis'}; |
$startdis=$ENV{'form.startdis'}; |
$startdis--; |
$startdis--; |
unless ($startdis) { $startdis=0; } |
unless ($startdis) { $startdis=0; } |
|
|
$interdis=$ENV{'form.interdis'}; |
$interdis=$ENV{'form.interdis'}; |
unless ($interdis) { $interdis=20; } |
unless ($interdis) { $interdis=20; } |
|
$sqs.='&interdis='.$interdis; |
|
|
if ($ENV{'form.firstview'}) { |
if ($ENV{'form.firstview'}) { |
$startdis=0; |
$startdis=0; |
} |
} |
Line 2026 sub handler {
|
Line 2036 sub handler {
|
if ($ENV{'form.nextview'}) { |
if ($ENV{'form.nextview'}) { |
$startdis++; |
$startdis++; |
} |
} |
|
my $postedstartdis=$startdis+1; |
|
$sqs.='&startdis='.$postedstartdis; |
|
|
# --------------------------------------------------------------- Render Output |
# --------------------------------------------------------------- Render Output |
|
|