--- loncom/homework/grades.pm 2002/11/27 15:54:24 1.61 +++ loncom/homework/grades.pm 2002/11/27 16:39:37 1.62 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Grading handler # -# $Id: grades.pm,v 1.61 2002/11/27 15:54:24 albertel Exp $ +# $Id: grades.pm,v 1.62 2002/11/27 16:39:37 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -352,7 +352,7 @@ LISTJAVASCRIPT ''."\n". ''."\n". ''."\n". - '
'."\n". + '
'."\n". '
'."\n". ''."\n". ''."\n". @@ -672,21 +672,21 @@ sub sub_page_js { pWin.document.write(""); pWin.document.write("Subject"); pWin.document.write(""); - pWin.document.write(""); + pWin.document.write(""); } function displaySavedMsg(ctr,msg,shwsel) { pWin.document.write(""); pWin.document.write(""+ctr+""); pWin.document.write(""); - pWin.document.write(""); + pWin.document.write(""); } function newMsg(newmsg,shwsel) { pWin.document.write(""); pWin.document.write("New"); pWin.document.write(""); - pWin.document.write(""); + pWin.document.write(""); } function msgTail() { @@ -1226,7 +1226,7 @@ sub processHandGrade { my $includemsg = $ENV{'form.includemsg'.$ctr}; my ($subject,$message,$msgstatus) = ('','',''); - if ($includemsg =~ /savemsg|new$ctr/) { + if ($includemsg =~ /savemsg|newmsg\Q$ctr\E/) { $subject = $ENV{'form.msgsub'} if ($includemsg =~ /^msgsub/); my (@msgnum) = split(/,/,$includemsg); foreach (@msgnum) {