--- loncom/interface/lonmsg.pm 2004/11/12 21:53:30 1.116
+++ loncom/interface/lonmsg.pm 2004/11/13 14:45:57 1.117
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Routines for messaging
#
-# $Id: lonmsg.pm,v 1.116 2004/11/12 21:53:30 albertel Exp $
+# $Id: lonmsg.pm,v 1.117 2004/11/13 14:45:57 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -534,7 +534,7 @@ sub folderlist {
($folder!~/^(new|critical)/?
''.
''.
- ''.
+ ''.
''.
'':'').
'';
@@ -1959,6 +1959,19 @@ sub handler {
unless ($startdis) { $startdis=0; }
$interdis=$ENV{'form.interdis'};
unless ($interdis) { $interdis=20; }
+ if ($ENV{'form.firstview'}) {
+ $startdis=0;
+ }
+ if ($ENV{'form.lastview'}) {
+ $startdis=-1;
+ }
+ if ($ENV{'form.prevview'}) {
+ $startdis--;
+ }
+ if ($ENV{'form.nextview'}) {
+ $startdis++;
+ }
+
# --------------------------------------------------------------- Render Output