loncom/interface/lonsupportreq.pm - diff

Return to lonsupportreq.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonsupportreq.pm between versions 1.70 and 1.71

version 1.70, 2013/01/04 16:57:38	version 1.71, 2013/01/04 17:46:00
Line 677 sub print_request_receipt {	Line 677 sub print_request_receipt {
$okcclist = join(', ',@ok_ccs);	$okcclist = join(', ',@ok_ccs);
}	}
if (@bad_ccs == 1) {	if (@bad_ccs == 1) {
$badccmsg .= '<br />'.&mt('The following Cc e-mail address is invalid: ').$bad_ccs[0];	if ($bad_ccs[0] ne '') {
	$badccmsg .= '<br />'.&mt('The following Cc e-mail address is invalid: ').&cleanup_html($bad_ccs[0]);
	}
} elsif (@bad_ccs > 1) {	} elsif (@bad_ccs > 1) {
my $bad_cc_string = join(', ',@bad_ccs);	$badccmsg .= '<br />'.&mt('The following Cc e-mail addresses are invalid: '). &cleanup_html(join(', ',@bad_ccs));
$badccmsg .= '<br />'.&mt('The following Cc e-mail addresses are invalid: ').$bad_cc_string;
}	}
}	}
$env{'form.user'} = "'".$env{'form.uname'}.':'.$env{'form.udom'}."'";	$env{'form.user'} = "'".$env{'form.uname'}.':'.$env{'form.udom'}."'";
Line 716 END	Line 717 END
'<span class="LC_helpform_receipt_cat">'.	'<span class="LC_helpform_receipt_cat">'.
"$lt{$item}</span>: $showurl<br />\n";	"$lt{$item}</span>: $showurl<br />\n";
} elsif ($item eq 'cc') {	} elsif ($item eq 'cc') {
$displaymsg .=	if ($okcclist) {
'<span class="LC_helpform_receipt_cat">'.	my $showcclist = &cleanup_html($okcclist);
"$lt{$item}</span>: $okcclist<br />\n";	$displaymsg .=
	'<span class="LC_helpform_receipt_cat">'.
	"$lt{$item}</span>: $showcclist<br />\n";
	}
} else {	} else {
my $showitem = $env{'form.'.$item};	my $showitem = $env{'form.'.$item};
$showitem = &cleanup_html($showitem);	$showitem = &cleanup_html($showitem);

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.70
changed lines
	Added in v.1.71