--- loncom/interface/lonfeedback.pm	2004/11/11 22:19:53	1.129
+++ loncom/interface/lonfeedback.pm	2004/11/14 07:54:41	1.132
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.129 2004/11/11 22:19:53 albertel Exp $
+# $Id: lonfeedback.pm,v 1.132 2004/11/14 07:54:41 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -37,6 +37,7 @@ use Apache::lontexconvert();
 use Apache::lonlocal; # must not have ()
 use Apache::lonhtmlcommon();
 use Apache::lonnavmaps;
+use Apache::lonenc();
 use HTML::LCParser();
 use Apache::lonspeller();
 use Cwd;
@@ -2188,8 +2189,6 @@ sub clear_out_html {
 sub assemble_email {
   my ($feedurl,$message,$prevattempts,$usersaw,$useranswer)=@_;
   my $email=<<"ENDEMAIL";
-Refers to <a href="$feedurl">$feedurl</a>
-
 $message
 ENDEMAIL
     my $citations=<<"ENDCITE";
@@ -2341,6 +2340,7 @@ sub adddiscuss {
             $contrib{'history'} = '';
             my $numoldver = 0;
             my ($oldsymb,$oldidx)=split(/\:\:\:/,$ENV{'form.editdisc'});
+	    &Apache::lonenc::check_decrypt(\$oldsymb);
             $oldsymb=~s|(bulletin___\d+___)adm/wrapper/|$1|;
 # get timestamp for last post and history
             my %oldcontrib=&Apache::lonnet::restore($oldsymb,$ENV{'request.course.id'},
@@ -2801,6 +2801,7 @@ END
       my $seeid=&Apache::lonnet::allowed('rin',$crs);
       my ($symb,$idx)=split(/\:\:\:/,$ENV{'form.allversions'});
       my $ressymb=$symb;
+      &Apache::lonenc::check_decrypt(\$ressymb);
       unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) {
           $ressymb=~s|(bulletin___\d+___)|$1adm/wrapper|;
       }
@@ -2842,6 +2843,7 @@ END
       my $previous=$ENV{'form.previous'};
 # backward compatibility (bulletin boards used to be 'wrapped')
       my $ressymb=$symb;
+      &Apache::lonenc::check_decrypt(\$ressymb);
       unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) {
           $ressymb=~s|(bulletin___\d+___)|$1adm/wrapper|;
       }
@@ -2921,6 +2923,7 @@ END
       foreach (@resources) {
 # backward compatibility (bulletin boards used to be 'wrapped')
           my $ressymb=$_;
+	  &Apache::lonenc::check_decrypt(\$ressymb);
           if ($ressymb =~ m/bulletin___\d+___/) {
               unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) {
                   $ressymb=~s|(bulletin___\d+___)|$1adm/wrapper/|;
@@ -2978,6 +2981,7 @@ ENDREDIR
           my $symb=$ENV{'form.toggoff'}?$ENV{'form.toggoff'}:$ENV{'form.toggon'};
           my $ressymb = $symb;
           ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb);
+	  &Apache::lonenc::check_decrypt(\$ressymb);
           unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) {
               $ressymb=~s|(bulletin___\d+___)|$1adm/wrapper|;
           }
@@ -2995,6 +2999,7 @@ ENDREDIR
           my $symb=$ENV{'form.markondisp'}?$ENV{'form.markondisp'}:$ENV{'form.markonread'};
           my $ressymb = $symb;
           ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb);
+	  &Apache::lonenc::check_decrypt(\$ressymb);
           unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) {
               $ressymb=~s|(bulletin___\d+___)|$1adm/wrapper|;
           }
@@ -3024,6 +3029,7 @@ ENDREDIR
           }
           my $ressymb = $symb;
           ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb);
+	  &Apache::lonenc::check_decrypt(\$ressymb);
           unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) {
               $ressymb=~s|(bulletin___\d+___)|$1adm/wrapper|;
           }
@@ -3051,6 +3057,7 @@ ENDREDIR
       my $symb=$ENV{'form.markread'};
       my $ressymb = $symb;
       my ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb);
+      &Apache::lonenc::check_decrypt(\$ressymb);
       unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) {
           $ressymb=~s|(bulletin___\d+___)|$1adm/wrapper|;
       }
@@ -3233,6 +3240,7 @@ ENDREDIR
           $feedurl=&Apache::lonnet::clutter($url);
       }
   }
+  &Apache::lonenc::check_decrypt(\$symb);
   my $goahead=1;
   if ($feedurl=~/\.(problem|exam|quiz|assess|survey|form)$/) {
       unless ($symb) { $goahead=0; }
@@ -3290,6 +3298,7 @@ ENDREDIR
           } elsif ($ENV{'form.origpage'}) {
               $symb = $ENV{'form.symb'};
           }
+	  &Apache::lonenc::check_decrypt(\$symb);
           my @currnewattach = ();
           my @deloldattach = ();
           my @keepold = ();