--- loncom/interface/lonfeedback.pm 2006/07/18 17:44:43 1.212
+++ loncom/interface/lonfeedback.pm 2006/07/27 15:48:56 1.213
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Feedback
#
-# $Id: lonfeedback.pm,v 1.212 2006/07/18 17:44:43 albertel Exp $
+# $Id: lonfeedback.pm,v 1.213 2006/07/27 15:48:56 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -713,8 +713,8 @@ END
if ($discussiononly) {
my $now = time;
my $attachnum = 0;
- my $currnewattach;
- my $currdelold;
+ my $currnewattach = [];
+ my $currdelold = [];
my $comment = '';
my $subject = '';
if ($env{'form.origpage'}) {
@@ -1683,7 +1683,7 @@ END
}
}
if ($attachmsg) {
- $r->print("Retained attachments:$attachmsg
\n");
+ $r->print("
Retained attachments:$attachmsg
\n");
}
if ($newattachmsg) {
$r->print("$newattachmsg
");
@@ -2920,7 +2920,7 @@ END
}
}
}
- if (@{$currnewattach} > 0) {
+ if ((ref($currnewattach) eq 'ARRAY') && (@{$currnewattach} > 0)) {
$r->print("The following attachments have been uploaded for inclusion with this posting.
Check the checkboxes for any you wish to remove
\n");
foreach (@{$currnewattach}) {
$_ =~ m#/([^/]+)$#;