--- loncom/interface/lonfeedback.pm 2004/10/04 21:35:52 1.128 +++ 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.128 2004/10/04 21:35:52 raeburn 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; @@ -99,7 +100,7 @@ sub list_discussion { $ressymb=~s|(bulletin___\d+___)|$1adm/wrapper|; } } - + $ressymb=&Apache::lonenc::check_encrypt($ressymb); # Get discussion display settings for this discussion my $lastkey = $ressymb.'_lastread'; my $showkey = $ressymb.'_showonlyunread'; @@ -360,7 +361,7 @@ imscp_v1p1.xsd http://www.imsglobal.org/ } |; - $discussion.='
'; + $discussion.='
'; $discussion .='
'. ''; if ($visible>2) { @@ -678,7 +679,7 @@ ENDDISCUSS ($ENV{'request.course.sec'}?'/'.$ENV{'request.course.sec'}:''))) { if ($outputtarget ne 'tex') { $discussion.='
'. + $ressymb.':::" '.$target.'>'. ''. &mt('Post Discussion').'
'; } @@ -2049,6 +2050,7 @@ sub redirect_back { $sectag = ''; } } + $feedurl=&Apache::lonenc::check_encrypt($feedurl); $r->print (< @@ -2086,9 +2088,10 @@ sub no_redirect_back { ENDNOREDIR if ($feedurl!~/^\/adm\/feedback/) { - $r->print(''); + $r->print(''); } - + $feedurl=&Apache::lonenc::check_encrypt($feedurl); $r->print (< @@ -2186,8 +2189,6 @@ sub clear_out_html { sub assemble_email { my ($feedurl,$message,$prevattempts,$usersaw,$useranswer)=@_; my $email=<<"ENDEMAIL"; -Refers to $feedurl - $message ENDEMAIL my $citations=<<"ENDCITE"; @@ -2339,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'}, @@ -2799,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|; } @@ -2840,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|; } @@ -2919,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/|; @@ -2976,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|; } @@ -2993,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|; } @@ -3022,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|; } @@ -3049,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|; } @@ -3231,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; } @@ -3288,6 +3298,7 @@ ENDREDIR } elsif ($ENV{'form.origpage'}) { $symb = $ENV{'form.symb'}; } + &Apache::lonenc::check_decrypt(\$symb); my @currnewattach = (); my @deloldattach = (); my @keepold = ();