[LON-CAPA-cvs] cvs: loncom /interface lonfeedback.pm

[raeburn]

raeburn		Fri Dec  8 17:35:57 2006 EDT

  Modified files:              
    /loncom/interface	lonfeedback.pm 
  Log:
  &check_encrypt() is needed in more places.  Work in progress.
  
  
Index: loncom/interface/lonfeedback.pm
diff -u loncom/interface/lonfeedback.pm:1.232 loncom/interface/lonfeedback.pm:1.233
--- loncom/interface/lonfeedback.pm:1.232	Fri Dec  8 15:09:29 2006
+++ loncom/interface/lonfeedback.pm	Fri Dec  8 17:35:56 2006
@@ -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 @@
     }
     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 @@
     my ($blocked,$blocktext) = &blocking_posts('boards',1);
     if ($blocked) {
         if ($mode ne 'board') {
-            my $encsymb=&Apache::lonenc::check_encrypt($ressymb);
-            return $blocktext.'<br />'.&send_message_link($encsymb);
+            &Apache::lonenc::check_encrypt(\$ressymb);
+            return $blocktext.'<br />'.&send_message_link($ressymb);
         }
     }
 
@@ -1755,6 +1755,7 @@
     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 @@
           $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 @@
 				      
   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 (<<ENDNOREDIRTWO);
 $start_page
@@ -3782,11 +3783,13 @@
 	  &Apache::loncommon::content_type($r,'text/html');
 	  $r->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);