version 1.125, 2004/12/15 02:35:17
|
version 1.126, 2005/01/01 17:58:48
|
Line 961 ENDDISHEADER
|
Line 961 ENDDISHEADER
|
} else { |
} else { |
$r->print('<a href = "?sortedby=revstatus'.$fsqs.'">'.&mt('Status').'</th>'); |
$r->print('<a href = "?sortedby=revstatus'.$fsqs.'">'.&mt('Status').'</th>'); |
} |
} |
$r->print('</tr>'); |
$r->print("</tr>\n"); |
for (my $n=$firstdis;$n<=$lastdis;$n++) { |
for (my $n=$firstdis;$n<=$lastdis;$n++) { |
my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$origID)= @{$temp[$n]}; |
my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$origID)= @{$temp[$n]}; |
if (($status ne 'deleted') && defined($sendtime) && $sendtime!~/error/) { |
if (($status ne 'deleted') && defined($sendtime) && $sendtime!~/error/) { |
Line 981 ENDDISHEADER
|
Line 981 ENDDISHEADER
|
'<td>'.&Apache::lonlocal::locallocaltime($sendtime).'</td><td>'. |
'<td>'.&Apache::lonlocal::locallocaltime($sendtime).'</td><td>'. |
$fromname.'</td><td>'.$fromdomain.'</td><td>'. |
$fromname.'</td><td>'.$fromdomain.'</td><td>'. |
&Apache::lonnet::unescape($shortsubj).'</td><td>'. |
&Apache::lonnet::unescape($shortsubj).'</td><td>'. |
$status.'</td></tr>'); |
$status."</td></tr>\n"); |
} elsif ($status eq 'deleted') { |
} elsif ($status eq 'deleted') { |
# purge |
# purge |
&movemsg(&Apache::lonnet::unescape($origID),$folder,'trash'); |
&movemsg(&Apache::lonnet::unescape($origID),$folder,'trash'); |
} |
} |
} |
} |
$r->print('</table><p>'. |
$r->print("</table>\n<p>". |
'<a href="javascript:checkall()">'.&mt('Check All').'</a> '. |
'<a href="javascript:checkall()">'.&mt('Check All').'</a> '. |
'<a href="javascript:uncheckall()">'.&mt('Uncheck All').'</a></p>'. |
'<a href="javascript:uncheckall()">'.&mt('Uncheck All').'</a></p>'. |
'<input type="hidden" name="sortedby" value="'.$ENV{'form.sortedby'}.'" />'); |
'<input type="hidden" name="sortedby" value="'.$ENV{'form.sortedby'}.'" />'); |
Line 1002 ENDDISHEADER
|
Line 1002 ENDDISHEADER
|
&Apache::loncommon::select_form('','movetofolder', |
&Apache::loncommon::select_form('','movetofolder', |
( map { $_ => $_ } @allfolders)) |
( map { $_ => $_ } @allfolders)) |
); |
); |
$r->print('<input type="hidden" name="folder" value="'.$folder.'" /></form>'); |
my $postedstartdis=$startdis+1; |
|
$r->print('<input type="hidden" name="folder" value="'.$folder.'" /><input type="hidden" name="startdis" value="'.$postedstartdis.'" /><input type="hidden" name="interdis" value="'.$ENV{'form.interdis'}.'" /></form>'); |
if ($numblocked > 0) { |
if ($numblocked > 0) { |
my $beginblock = &Apache::lonlocal::locallocaltime($startblock); |
my $beginblock = &Apache::lonlocal::locallocaltime($startblock); |
my $finishblock = &Apache::lonlocal::locallocaltime($endblock); |
my $finishblock = &Apache::lonlocal::locallocaltime($endblock); |