'.
'';
if ($visible>2) {
@@ -678,7 +679,7 @@ ENDDISCUSS
($ENV{'request.course.sec'}?'/'.$ENV{'request.course.sec'}:''))) {
if ($outputtarget ne 'tex') {
$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 = ();
|