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.272 and 1.276

version 1.272, 2009/05/07 11:12:47	version 1.276, 2009/08/12 16:03:58
Line 91 sub list_discussion {	Line 91 sub list_discussion {
if (not &discussion_visible($status)) {	if (not &discussion_visible($status)) {
if ($mode ne 'board') {	if ($mode ne 'board') {
&Apache::lonenc::check_encrypt(\$ressymb);	&Apache::lonenc::check_encrypt(\$ressymb);
return '<br />'.&send_message_link($ressymb);	return '<br /><div class="LC_feedback_link">'.&send_message_link($ressymb)."</div>";
}	}
}	}
if ($group ne '' && $mode eq 'board') {	if ($group ne '' && $mode eq 'board') {
Line 103 sub list_discussion {	Line 103 sub list_discussion {
my ($blocked,$blocktext) =	my ($blocked,$blocktext) =
&Apache::loncommon::blocking_status('boards');	&Apache::loncommon::blocking_status('boards');
if ($blocked) {	if ($blocked) {
	$blocktext = '<br /><div class="LC_feedback_link"><span class="LC_feedback_link">'.$blocktext."</span>";
&Apache::lonenc::check_encrypt(\$ressymb);	&Apache::lonenc::check_encrypt(\$ressymb);
if ($mode ne 'board') {	if ($mode ne 'board') {
$blocktext.='<br />'.&send_message_link($ressymb);	$blocktext.=&send_message_link($ressymb).'</div>';
	}else{
	$blocktext.="</div>";
}	}
return $blocktext;	return $blocktext;
}	}
Line 755 sub send_feedback_link {	Line 758 sub send_feedback_link {
my $output = '<span class="LC_feedback_link">'.	my $output = '<span class="LC_feedback_link">'.
' <a href="/adm/feedback?replydisc='.	' <a href="/adm/feedback?replydisc='.
&escape($ressymb).':::" '.$target.'>'.	&escape($ressymb).':::" '.$target.'>'.
'<img alt="" src="'.	'<img alt="" class="LC_noBorder" src="'.
&Apache::loncommon::lonhttpdurl('/adm/lonMisc/chat.gif').	&Apache::loncommon::lonhttpdurl('/adm/lonMisc/chat.gif').
'" border="0" />'.&mt('Post Discussion').'</a></span>';	'" border="0" /><span class="LC_menubuttons_inline_text">'.&mt('Post Discussion').'</span></a></span>';
return $output;	return $output;
}	}

Line 765 sub send_message_link {	Line 768 sub send_message_link {
my ($ressymb) = @_;	my ($ressymb) = @_;
my $output = '<span class="LC_message_link">'.	my $output = '<span class="LC_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="" class="LC_noBorder" src="'.
&Apache::loncommon::lonhttpdurl('/res/adm/pages/com.png').	&Apache::loncommon::lonhttpdurl('/res/adm/pages/com.png').
'" border="0" />'.&mt('Send Feedback').'</a></span>';	'" border="0" /><span class="LC_menubuttons_inline_text">'.&mt('Send Feedback').'</span></a></span>';
return $output;	return $output;
}	}

Line 1167 sub build_posting_display {	Line 1170 sub build_posting_display {
$$imsitems{$idx}{'attach'}=$attachtxt{$numoldver};	$$imsitems{$idx}{'attach'}=$attachtxt{$numoldver};
$$imsitems{$idx}{'timestamp'}=$contrib{$idx.':timestamp'};	$$imsitems{$idx}{'timestamp'}=$contrib{$idx.':timestamp'};
$$imsitems{$idx}{'sender'}=$plainname.' ('.	$$imsitems{$idx}{'sender'}=$plainname.' ('.
$contrib{$idx.':sendername'}.' at '.	$contrib{$idx.':sendername'}.':'.
$contrib{$idx.':senderdomain'}.')';	$contrib{$idx.':senderdomain'}.')';
$$imsitems{$idx}{'isanonymous'}='false';	$$imsitems{$idx}{'isanonymous'}='false';
if ($contrib{$idx.':anonymous'}) {	if ($contrib{$idx.':anonymous'}) {
Line 1364 sub get_post_contents {	Line 1367 sub get_post_contents {
$$plainname,	$$plainname,
$$contrib{$idx.':sendername'},	$$contrib{$idx.':sendername'},
$$contrib{$idx.':senderdomain'}).' ('.	$$contrib{$idx.':senderdomain'}).' ('.
$$contrib{$idx.':sendername'}.' at '.	$$contrib{$idx.':sendername'}.':'.
$$contrib{$idx.':senderdomain'}.')';	$$contrib{$idx.':senderdomain'}.')';
my $attachmenturls = $$contrib{$idx.':attachmenturl'};	my $attachmenturls = $$contrib{$idx.':attachmenturl'};
my @postversions = ();	my @postversions = ();
Line 1661 END	Line 1664 END
</script>	</script>
END	END

	# Breadcrumbs
	my $brcrum = [{'href' => '',
	'text' => 'Resource Feedback and Discussion'}];

my %onload = ('onload' => 'window.focus();setposttype();');	my %onload = ('onload' => 'window.focus();setposttype();');
my $start_page=	my $start_page=
&Apache::loncommon::start_page('Resource Feedback and Discussion',$js,	&Apache::loncommon::start_page('Resource Feedback and Discussion',$js,
{'add_entries' => \%onload});	{'add_entries' => \%onload,
	'bread_crumbs' => $brcrum,});

if ($quote ne '') {	if ($quote ne '') {
&newline_to_br(\$quote);	&newline_to_br(\$quote);
Line 1928 END	Line 1936 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 2124 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 2973 sub modify_attachments {	Line 2981 sub modify_attachments {
</script>	</script>
END	END

	# Breadcrumbs
	my $brcrum = [{'href' => '',
	'text' => 'Discussion Post Attachments'}];
my $start_page =	my $start_page =
&Apache::loncommon::start_page('Discussion Post Attachments',$js);	&Apache::loncommon::start_page('Discussion Post Attachments',$js,
	{'bread_crumbs' => $brcrum,});

my $orig_subject = &unescape($env{'form.subject'});	my $orig_subject = &unescape($env{'form.subject'});
my $subject=&clear_out_html($orig_subject,undef,1);	my $subject=&clear_out_html($orig_subject,undef,1);
Line 3370 sub handler {	Line 3382 sub handler {
&Apache::loncommon::no_cache($r);	&Apache::loncommon::no_cache($r);
$r->send_http_header;	$r->send_http_header;

$r->print(&Apache::loncommon::start_page('Discussion Post Versions'));	# Breadcrumbs
	my $brcrum = [{'href' => '',
	'text' => 'Discussion Post Versions'}];

	$r->print(&Apache::loncommon::start_page('Discussion Post Versions',undef,
	{'bread_crumbs' => $brcrum,})
	);

my $crs='/'.$env{'request.course.id'};	my $crs='/'.$env{'request.course.id'};
if ($env{'request.course.sec'}) {	if ($env{'request.course.sec'}) {

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

Removed from v.1.272
changed lines
	Added in v.1.276