loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.109, 2004/07/29 18:21:44	version 1.110, 2004/07/29 22:42:25
Line 1856 sub adddiscuss {	Line 1856 sub adddiscuss {
$contrib{'history'} = '';	$contrib{'history'} = '';
my $numoldver = 0;	my $numoldver = 0;
my ($oldsymb,$oldidx)=split(/\:\:\:/,$ENV{'form.editdisc'});	my ($oldsymb,$oldidx)=split(/\:\:\:/,$ENV{'form.editdisc'});
	$oldsymb=~s\|(bulletin___\d+___)adm/wrapper/\|$1\|;
# get timestamp for last post and history	# get timestamp for last post and history
my %oldcontrib=&Apache::lonnet::restore($oldsymb,$ENV{'request.course.id'},	my %oldcontrib=&Apache::lonnet::restore($oldsymb,$ENV{'request.course.id'},
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'},	$ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
Line 2757 ENDREDIR	Line 2758 ENDREDIR
my @deloldattach = ();	my @deloldattach = ();
my @keepold = ();	my @keepold = ();
&process_attachments(\@currnewattach,\@deloldattach,\@keepold);	&process_attachments(\@currnewattach,\@deloldattach,\@keepold);
	$symb=~s\|(bulletin___\d+___)adm/wrapper/\|$1\|;
$attachmenturl=&construct_attachmenturl(\@currnewattach,\@keepold,$symb,$idx);	$attachmenturl=&construct_attachmenturl(\@currnewattach,\@keepold,$symb,$idx);
} elsif ($ENV{'form.attachment.filename'}) {	} elsif ($ENV{'form.attachment.filename'}) {
unless (length($ENV{'form.attachment'})>131072) {	unless (length($ENV{'form.attachment'})>131072) {