loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonfeedback.pm between versions 1.271 and 1.273.4.1

version 1.271, 2009/05/06 13:37:56	version 1.273.4.1, 2009/10/12 18:51:43
Line 767 sub send_message_link {	Line 767 sub send_message_link {
' <a href="/adm/feedback?sendmessageonly=1&symb='.	' <a href="/adm/feedback?sendmessageonly=1&symb='.
&escape($ressymb).'"><img alt="" src="'.	&escape($ressymb).'"><img alt="" src="'.
&Apache::loncommon::lonhttpdurl('/res/adm/pages/com.png').	&Apache::loncommon::lonhttpdurl('/res/adm/pages/com.png').
'" border="0" />'.&mt('Send Message').'</a></span>';	'" border="0" />'.&mt('Send Feedback').'</a></span>';
return $output;	return $output;
}	}

sub action_links_bar {	sub action_links_bar {
my ($colspan,$ressymb,$visible,$newpostsflag,$group,$prevread,$markondisp) = @_;	my ($colspan,$ressymb,$visible,$newpostsflag,$group,$prevread,$markondisp) = @_;
my $discussion = '<tr><td class="LC_disc_action_links_bar" colspan="'.$colspan.'">'.	my $discussion = '<tr><td class="LC_disc_action_links_bar" colspan="'.$colspan.'">'.
'<table width="100%" class="LC_disc_action_table"><tr>';	'<table width="100%" class="LC_disc_action_table"><tr>'.
	'<td class="LC_disc_action_left">';
my $escsymb=&escape($ressymb);	my $escsymb=&escape($ressymb);
if ($visible>2) {	if ($visible>2) {
$discussion .= '<td class="LC_disc_action_left">'.	$discussion .= '<a href="/adm/feedback?cmd=threadedon&symb='.$escsymb;
'<a href="/adm/feedback?cmd=threadedon&symb='.$escsymb;
if ($newpostsflag) {	if ($newpostsflag) {
$discussion .= '&previous='.$prevread;	$discussion .= '&previous='.$prevread;
}	}
Line 796 sub action_links_bar {	Line 796 sub action_links_bar {
}	}
$discussion .= &group_args($group);	$discussion .= &group_args($group);
$discussion .='">'.&mt('Sorting/Filtering options').'</a>'.(' ' x2);	$discussion .='">'.&mt('Sorting/Filtering options').'</a>'.(' ' x2);
} else {
$discussion .= '<td class="LC_disc_action_left>';
}	}
$discussion .='<a href="/adm/feedback?export='.$escsymb;	$discussion .='<a href="/adm/feedback?export='.$escsymb;
if ($newpostsflag) {	if ($newpostsflag) {
Line 1928 END	Line 1926 END
&Apache::loncommon::end_page();	&Apache::loncommon::end_page();
$r->print(<<END);	$r->print(<<END);
$start_page	$start_page
<form name="modifydisp" method="POST" action="/adm/feedback">	<form name="modifydisp" method="post" action="/adm/feedback">
$lt{'sdpf'}<br/> $lt{'prca'} <ol><li>$lt{'whpo'}</li><li>$lt{'unwh'}</li><li>$lt{'wipa'}</li></ol>	$lt{'sdpf'}<br/> $lt{'prca'} <ol><li>$lt{'whpo'}</li><li>$lt{'unwh'}</li><li>$lt{'wipa'}</li></ol>
<br />	<br />
END	END
Line 2116 END	Line 2114 END

$r->print(<<END);	$r->print(<<END);
$start_page	$start_page
<form name="modifyshown" method="POST" action="/adm/feedback">	<form name="modifyshown" method="post" action="/adm/feedback">
<b>$lt{'diso'}</b><br/> $lt{'prca'}	<b>$lt{'diso'}</b><br/> $lt{'prca'}
<br /><br />	<br /><br />
<table border="0">	<table border="0">
Line 2609 sub screen_header {	Line 2607 sub screen_header {
}	}
}	}
}	}
if ($msgoptions) { $msgoptions='<h2><img src="'.&Apache::loncommon::lonhttpdurl('/res/adm/pages/com.png').'" />'.&mt('Sending Messages').'</h2>'.$msgoptions; }	if ($msgoptions) {
	$msgoptions='<h2><img src="'.&Apache::loncommon::lonhttpdurl('/res/adm/pages/com.png').'" />'
	.' '.&mt('Send Feedback').'</h2>'
	.$msgoptions;
	}
if ($discussoptions) {	if ($discussoptions) {
$discussoptions='<h2><img src="'.&Apache::loncommon::lonhttpdurl('/adm/lonMisc/chat.gif').'" />'.&mt('Discussion Contributions').'</h2>'.$discussoptions; }	$discussoptions='<h2><img src="'.&Apache::loncommon::lonhttpdurl('/adm/lonMisc/chat.gif').'" />'
	.' '.&mt('Discussion Contributions').'</h2>'
	.$discussoptions;
	}
return $msgoptions.$discussoptions;	return $msgoptions.$discussoptions;
}	}

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

Removed from v.1.271
changed lines
	Added in v.1.273.4.1