[LON-CAPA-cvs] cvs: loncom /interface lonfeedback.pm

[raeburn]

raeburn		Thu Jul 29 18:42:26 2004 EDT

  Modified files:              
    /loncom/interface	lonfeedback.pm 
  Log:
  Editing now works for bulletin board posts.
  
  
Index: loncom/interface/lonfeedback.pm
diff -u loncom/interface/lonfeedback.pm:1.109 loncom/interface/lonfeedback.pm:1.110
--- loncom/interface/lonfeedback.pm:1.109	Thu Jul 29 14:21:44 2004
+++ loncom/interface/lonfeedback.pm	Thu Jul 29 18:42:25 2004
@@ -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 @@
             $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 @@
           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) {