--- loncom/interface/lonfeedback.pm 2004/07/29 18:21:44 1.109 +++ loncom/interface/lonfeedback.pm 2004/07/29 22:42:25 1.110 @@ -1,7 +1,7 @@ # The LearningOnline Network # Feedback # -# $Id: lonfeedback.pm,v 1.109 2004/07/29 18:21:44 raeburn Exp $ +# $Id: lonfeedback.pm,v 1.110 2004/07/29 22:42:25 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1856,6 +1856,7 @@ sub adddiscuss { $contrib{'history'} = ''; my $numoldver = 0; my ($oldsymb,$oldidx)=split(/\:\:\:/,$ENV{'form.editdisc'}); + $oldsymb=~s|(bulletin___\d+___)adm/wrapper/|$1|; # get timestamp for last post and history my %oldcontrib=&Apache::lonnet::restore($oldsymb,$ENV{'request.course.id'}, $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, @@ -2757,6 +2758,7 @@ ENDREDIR my @deloldattach = (); my @keepold = (); &process_attachments(\@currnewattach,\@deloldattach,\@keepold); + $symb=~s|(bulletin___\d+___)adm/wrapper/|$1|; $attachmenturl=&construct_attachmenturl(\@currnewattach,\@keepold,$symb,$idx); } elsif ($ENV{'form.attachment.filename'}) { unless (length($ENV{'form.attachment'})>131072) {