loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.238, 2006/12/27 02:45:41	version 1.239, 2007/01/04 20:35:15
Line 1468 sub replicate_attachments {	Line 1468 sub replicate_attachments {
}	}

sub mail_screen {	sub mail_screen {
my ($r,$feedurl,$options,$symb) = @_;	my ($r,$feedurl,$options,$caller_symb) = @_;
if (exists($env{'form.origpage'})) {	if (exists($env{'form.origpage'})) {
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['subject','comment','currnewattach','addnewattach','deloldattach','delnewattach','timestamp','idx','anondiscuss','discuss','blog','group','ref']);	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['subject','comment','currnewattach','addnewattach','deloldattach','delnewattach','timestamp','idx','anondiscuss','discuss','blog','group','ref']);
}	}
Line 1480 sub mail_screen {	Line 1480 sub mail_screen {
'reta' => 'Retained attachments',	'reta' => 'Retained attachments',
'atta' => 'Attachment (128 KB max size)',	'atta' => 'Attachment (128 KB max size)',
);	);
my $restitle = &get_resource_title($symb,$feedurl);	my $restitle = &get_resource_title($caller_symb,$feedurl);
my $quote='';	my $quote='';
my $subject = '';	my $subject = '';
my $comment = '';	my $comment = '';