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.50 and 1.52

version 1.50, 2003/08/06 17:00:30	version 1.52, 2003/09/09 18:46:28
Line 56 sub mail_screen {	Line 56 sub mail_screen {
my ($r,$feedurl,$options) = @_;	my ($r,$feedurl,$options) = @_;
my $bodytag=&Apache::loncommon::bodytag('Resource Feedback and Discussion',	my $bodytag=&Apache::loncommon::bodytag('Resource Feedback and Discussion',
'','onLoad="window.focus();"');	'','onLoad="window.focus();"');
	my $title=&Apache::lonnet::gettitle($feedurl);
	if (!$title) { $title = $feedurl; }
my $latexHelp = Apache::loncommon::helpLatexCheatsheet();	my $latexHelp = Apache::loncommon::helpLatexCheatsheet();
$r->print(<<ENDDOCUMENT);	$r->print(<<ENDDOCUMENT);
<html>	<html>
Line 105 sub mail_screen {	Line 107 sub mail_screen {
</script>	</script>
</head>	</head>
$bodytag	$bodytag
<h2><tt>$feedurl</tt></h2>	<h2><tt>$title</tt></h2>
<form action="/adm/feedback" method="post" name="mailform"	<form action="/adm/feedback" method="post" name="mailform"
enctype="multipart/form-data">	enctype="multipart/form-data">
<input type=hidden name=postdata value="$feedurl">	<input type=hidden name=postdata value="$feedurl">
Line 463 sub handler {	Line 465 sub handler {
my $entry=$ENV{'form.hide'}?$ENV{'form.hide'}:$ENV{'form.unhide'};	my $entry=$ENV{'form.hide'}?$ENV{'form.hide'}:$ENV{'form.unhide'};

my ($symb,$idx)=split(/\:\:\:/,$entry);	my ($symb,$idx)=split(/\:\:\:/,$entry);
my ($map,$ind,$url)=split(/\_\_\_/,$symb);	my ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb);

my %contrib=&Apache::lonnet::restore($symb,$ENV{'request.course.id'},	my %contrib=&Apache::lonnet::restore($symb,$ENV{'request.course.id'},
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'},	$ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
Line 493 sub handler {	Line 495 sub handler {
my $entry=$ENV{'form.deldisc'};	my $entry=$ENV{'form.deldisc'};

my ($symb,$idx)=split(/\:\:\:/,$entry);	my ($symb,$idx)=split(/\:\:\:/,$entry);
my ($map,$ind,$url)=split(/\_\_\_/,$symb);	my ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb);

my %contrib=&Apache::lonnet::restore($symb,$ENV{'request.course.id'},	my %contrib=&Apache::lonnet::restore($symb,$ENV{'request.course.id'},
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'},	$ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
Line 526 sub handler {	Line 528 sub handler {
unless ($symb) {	unless ($symb) {
$symb=$ENV{'form.symb'};	$symb=$ENV{'form.symb'};
if ($symb) {	if ($symb) {
my ($map,$id,$url)=split(/\_\_\_/,$symb);	my ($map,$id,$url)=&Apache::lonnet::decode_symb($symb);
$feedurl=&Apache::lonnet::clutter($url);	$feedurl=&Apache::lonnet::clutter($url);
}	}
}	}

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

Removed from v.1.50
changed lines
	Added in v.1.52