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.75 and 1.78

version 1.75, 2014/01/15 18:48:35	version 1.78, 2014/01/20 17:25:41
Line 294 ENDJS	Line 294 ENDJS
}	}
$r->print('<form method="post" action="" name="logproblem"'.$formtype.'>'."\n");	$r->print('<form method="post" action="" name="logproblem"'.$formtype.'>'."\n");
my $output = &Apache::lonhtmlcommon::start_pick_box().	my $output = &Apache::lonhtmlcommon::start_pick_box().
	&Apache::lonhtmlcommon::row_headline().
	'<span class="LC_info">'.
	&mt('(All fields marked with * are required.)').
	'</span>'.
	&Apache::lonhtmlcommon::row_closure().
&Apache::lonhtmlcommon::row_title($lt{'name'},undef,$css[$num])."\n";	&Apache::lonhtmlcommon::row_title($lt{'name'},undef,$css[$num])."\n";
my $fullname = '';	my $fullname = '';
if ((defined($lastname) && $lastname ne '') && (defined($firstname) && $firstname ne '')) {	if ((defined($lastname) && $lastname ne '') && (defined($firstname) && $firstname ne '')) {
Line 311 ENDJS	Line 316 ENDJS
&Apache::lonhtmlcommon::row_closure()."\n";	&Apache::lonhtmlcommon::row_closure()."\n";
$num ++;	$num ++;
$i = $num%2;	$i = $num%2;
$output .= &Apache::lonhtmlcommon::row_title($lt{'emad'},undef,$css[$i]).	$output .= &Apache::lonhtmlcommon::row_title(
	'<span title="'.&mt('required').'">'.
	$lt{'emad'}.' <span class="LC_info">*</span></span>'
	,undef,$css[$i]).
'<input type="text" size="20" name="email" value="'.	'<input type="text" size="20" name="email" value="'.
&HTML::Entities::encode($email,'"<>&').'" /><br />'."\n".	&HTML::Entities::encode($email,'"<>&').'" /><br />'."\n".
&Apache::lonhtmlcommon::row_closure();	&Apache::lonhtmlcommon::row_closure();
Line 477 ENDJS	Line 485 ENDJS
$output .= &Apache::lonhtmlcommon::row_closure();	$output .= &Apache::lonhtmlcommon::row_closure();
$num ++;	$num ++;
$i = $num%2;	$i = $num%2;
$output .= &Apache::lonhtmlcommon::row_title($lt{'subj'},undef,'LC_oddrow_value').	$output .= &Apache::lonhtmlcommon::row_title(
' <input type="text" size="40" name="subject" />'."\n".	'<span title="'.&mt('required').'">'.
	$lt{'subj'}.' <span class="LC_info">*</span></span>'
	,undef,'LC_oddrow_value').
	'<input type="text" size="40" name="subject" />'."\n".
&Apache::lonhtmlcommon::row_closure().	&Apache::lonhtmlcommon::row_closure().
&Apache::lonhtmlcommon::row_title($lt{'detd'},undef,'LC_evenrow_value').	&Apache::lonhtmlcommon::row_title(
' <textarea rows="10" cols="45" name="description" style="word-wrap:normal;">'.	'<span title="'.&mt('required').'">'.
	$lt{'detd'}.' <span class="LC_info">*</span></span>'
	,undef,'LC_evenrow_value').
	'<textarea rows="10" cols="45" name="description" style="word-wrap:normal;">'.
'</textarea>'."\n".	'</textarea>'."\n".
&Apache::lonhtmlcommon::row_closure();	&Apache::lonhtmlcommon::row_closure();
$num ++;	$num ++;
Line 500 ENDJS	Line 514 ENDJS
my ($captchaform,$error) =	my ($captchaform,$error) =
&Apache::loncommon::captcha_display('login',$lonhost);	&Apache::loncommon::captcha_display('login',$lonhost);
if ($captchaform) {	if ($captchaform) {
$output .= &Apache::lonhtmlcommon::row_title(&mt('Validation'),undef,	$output .= &Apache::lonhtmlcommon::row_title(
$css[$i])."\n".	'<span title="'.&mt('required').'">'.
	&mt('Validation').
	' <span class="LC_info">*</span></span>'
	,undef,$css[$i]).
$captchaform."\n".	$captchaform."\n".
&Apache::lonhtmlcommon::row_closure();	&Apache::lonhtmlcommon::row_closure();
$num ++;	$num ++;
Line 823 END	Line 840 END
if ($homeserver && $env{'form.screenshot.filename'}) {	if ($homeserver && $env{'form.screenshot.filename'}) {
$attachmentsize = length($env{'form.screenshot'});	$attachmentsize = length($env{'form.screenshot'});
if ($attachmentsize > 131072) {	if ($attachmentsize > 131072) {
$displaymsg .= '<br />'.&mt('The uploaded screenshot file ([_1] bytes) included with your request exceeded the maximum allowed size - 128 KB, and has therefore been discarded.',$attachmentsize);	$displaymsg .= '<br /><span class="LC_warning">'.
	&mt('The uploaded screenshot file ([_1] bytes) included with your request exceeded the maximum allowed size - 128 KB, and has therefore been discarded.',$attachmentsize).'</span>';
} else {	} else {
$attachmentpath=&Apache::lonnet::userfileupload('screenshot',undef,'helprequests');	$attachmentpath=&Apache::lonnet::userfileupload('screenshot',undef,'helprequests');
}	}
Line 1005 END	Line 1023 END
$r->print(<<"END");	$r->print(<<"END");
<tr>	<tr>
<td colspan="3">$reviewtext	<td colspan="3">$reviewtext
$lt{'ifyo'}<br />	$lt{'ifyo'}
<span style="font-size:90%;"><b>$lt{'stud'}</b>:	<p class="LC_info">
$stuwarn $lt{'cont'}</span>	<b>$lt{'stud'}:</b>
<br /><br />	$stuwarn $lt{'cont'}
	</p><br />
</td>	</td>
</tr>	</tr>
END	END

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

Removed from v.1.75
changed lines
	Added in v.1.78