version 1.24, 2002/03/02 03:50:27
|
version 1.28, 2002/07/24 19:57:38
|
Line 102 sub mail_screen {
|
Line 102 sub mail_screen {
|
</head> |
</head> |
<body bgcolor="#FFFFFF" onLoad="window.focus();"> |
<body bgcolor="#FFFFFF" onLoad="window.focus();"> |
<img align=right src=/adm/lonIcons/lonlogos.gif> |
<img align=right src=/adm/lonIcons/lonlogos.gif> |
<h1>Feedback</h1> |
<h1>Resource Feedback and Discussion</h1> |
<h2><tt>$feedurl</tt></h2> |
<h2><tt>$feedurl</tt></h2> |
<form action="/adm/feedback" method=post name=mailform> |
<form action="/adm/feedback" method=post name=mailform> |
<input type=hidden name=postdata value="$feedurl"> |
<input type=hidden name=postdata value="$feedurl"> |
Line 323 sub adddiscuss {
|
Line 323 sub adddiscuss {
|
|
|
my %contrib=('message' => $email, |
my %contrib=('message' => $email, |
'sendername' => $ENV{'user.name'}, |
'sendername' => $ENV{'user.name'}, |
'senderdomain' => $ENV{'user.domain'}); |
'senderdomain' => $ENV{'user.domain'}, |
|
'screenname' => $ENV{'environment.screenname'}, |
|
'plainname' => $ENV{'environment.firstname'}.' '. |
|
$ENV{'environment.middlename'}.' '. |
|
$ENV{'environment.lastname'}.' '. |
|
$ENV{'enrironment.generation'}); |
if ($anon) { |
if ($anon) { |
$contrib{'anonymous'}='true'; |
$contrib{'anonymous'}='true'; |
} |
} |
Line 363 sub handler {
|
Line 368 sub handler {
|
|
|
# --------------------------- Get query string for limited number of parameters |
# --------------------------- Get query string for limited number of parameters |
|
|
foreach (split(/&/,$ENV{'QUERY_STRING'})) { |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
my ($name, $value) = split(/=/,$_); |
['hide','unhide','postdata']); |
$value =~ tr/+/ /; |
|
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; |
|
if (($name eq 'hide') || ($name eq 'unhide')) { |
|
unless ($ENV{'form.'.$name}) { |
|
$ENV{'form.'.$name}=$value; |
|
} |
|
} |
|
} |
|
|
|
if (($ENV{'form.hide'}) || ($ENV{'form.unhide'})) { |
if (($ENV{'form.hide'}) || ($ENV{'form.unhide'})) { |
# ----------------------------------------------------------------- Hide/unhide |
# ----------------------------------------------------------------- Hide/unhide |