--- loncom/interface/lonmsg.pm 2004/11/12 16:22:48 1.115
+++ 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.115 2004/11/12 16:22:48 www 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
@@ -2024,7 +2037,7 @@ sub handler {
} elsif ($ENV{'form.block'}) {
&examblock($r,$ENV{'form.block'});
} elsif ($ENV{'form.sendmail'}) {
- &sendoffmessage($r);
+ &sendoffmail($r);
} elsif ($ENV{'form.newfolder'}) {
&printheader($r,'','New Folder');
&makefolder($ENV{'form.newfolder'});