|
version 1.26, 2002/04/03 18:47:39
|
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 368 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') || ($name eq 'postdata')) { |
|
| 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 |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonfeedback.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface