+# Показ сообщения для редактирования
+sub show_messageedit {
+ my ($cgi,$forum,$path,$id)=@_;
+ my ($tree,$lockfd) = gettree($path);
+ my $dirname = $path;
+ $dirname =~ s/\/[^\/]+$//;
+ my ($msg) = $tree->look_down(id => $id);
+ show_error($forum,"В данной теме нет реплики с id=$id") if (!$msg);
+ show_error($forum,"У вас нет прав на редактированиее этого сообщения")
+ unless moderator_or_author($cgi,$forum,$msg);
+ # Выбираем данные сообщения
+ my ($text) = $msg->look_down(class=>"mtext")->content_list;
+ my ($subject) = $msg->look_down(class=>"subject");
+ $cgi->param("text"=>$text->as_HTML('<>&"'));
+ $cgi->param("text_format"=>"html");
+ $cgi->param("subject"=> $subject->as_text);
+ discardtree($tree,$lockfd);
+ # Подготавливаем шаблон
+ my $form = prepare_template("edit_message",$cgi,$forum);
+ # Подставляем информацию о картинках.
+ opendir D,$dirname;
+ while ( my $filename=readdir D) {
+ next unless $filename =~/^${id}_/;
+ my $pic = "$dirname/$filename";
+ my $picitem = newlistelement($form,"picture","picturelist");
+ my ($w,$h) = imgsize($pic);
+ substinfo($picitem,[_tag=>"img", class=>"msgpicture"],
+ src=>dir2url($cgi,$pic),width=>$w,height=>$h);
+ substinfo($picitem,[_tag=>"input",name=>"delpicture"],
+ value=>$filename);
+ substinfo($picitem,[class=>"filename"],_content =>$filename);
+ }
+ closedir D;
+ send_to_user($form,"edit_message",$cgi,$forum);
+}
+# Показ темы для редактирования
+sub show_topicedit {
+ my ($cgi,$forum,$path)=@_;
+}
+# Показ форума для редактирования
+sub show_forumedit {
+ my ($cgi,$forum,$path) = @_;
+}