--- loncom/interface/lonfeedback.pm 2006/12/08 20:09:29 1.232 +++ loncom/interface/lonfeedback.pm 2006/12/08 22:35:56 1.233 @@ -1,7 +1,7 @@ # The LearningOnline Network # Feedback # -# $Id: lonfeedback.pm,v 1.232 2006/12/08 20:09:29 raeburn Exp $ +# $Id: lonfeedback.pm,v 1.233 2006/12/08 22:35:56 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -90,8 +90,8 @@ sub list_discussion { } if (not &discussion_visible($status)) { if ($mode ne 'board') { - my $encsymb=&Apache::lonenc::check_encrypt($ressymb); - return &send_message_link($encsymb); + &Apache::lonenc::check_encrypt(\$ressymb); + return &send_message_link($ressymb); } } if ($group ne '' && $mode eq 'board') { @@ -103,8 +103,8 @@ sub list_discussion { my ($blocked,$blocktext) = &blocking_posts('boards',1); if ($blocked) { if ($mode ne 'board') { - my $encsymb=&Apache::lonenc::check_encrypt($ressymb); - return $blocktext.'
'.&send_message_link($encsymb); + &Apache::lonenc::check_encrypt(\$ressymb); + return $blocktext.'
'.&send_message_link($ressymb); } } @@ -1755,6 +1755,7 @@ END if ($env{'form.editdisc'} || $env{'form.replydisc'}) { my $now = time; my $ressymb = $symb; + &Apache::lonenc::check_encrypt(\$ressymb); my $postidx = ''; if ($env{'form.editdisc'}) { $postidx = $idx; @@ -2498,7 +2499,7 @@ sub redirect_back { $feedurl .= '?group='.$group.$refarg; } } - $feedurl=&Apache::lonenc::check_encrypt($feedurl); + &Apache::lonenc::check_encrypt(\$feedurl); my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif'); my %onload; if ($env{'environment.remote'} ne 'off') { @@ -2555,7 +2556,7 @@ sub no_redirect_back { my $end_page = &Apache::loncommon::end_page(); - $feedurl=&Apache::lonenc::check_encrypt($feedurl); + &Apache::lonenc::check_encrypt(\$feedurl); my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif'); $r->print (<send_http_header; # Unable to give feedback + &Apache::lonenc::check_encrypt(\$feedurl); &no_redirect_back($r,$feedurl); return OK; } # --------------------------------------------------- Print login screen header unless ($env{'form.sendit'}) { + &Apache::lonenc::check_encrypt(\$feedurl); &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; my $options=&screen_header($feedurl,$symb);