version 1.130, 2004/11/11 22:47:55
|
version 1.132, 2004/11/14 07:54:41
|
Line 2189 sub clear_out_html {
|
Line 2189 sub clear_out_html {
|
sub assemble_email { |
sub assemble_email { |
my ($feedurl,$message,$prevattempts,$usersaw,$useranswer)=@_; |
my ($feedurl,$message,$prevattempts,$usersaw,$useranswer)=@_; |
my $email=<<"ENDEMAIL"; |
my $email=<<"ENDEMAIL"; |
Refers to <a href="$feedurl">$feedurl</a> |
|
|
|
$message |
$message |
ENDEMAIL |
ENDEMAIL |
my $citations=<<"ENDCITE"; |
my $citations=<<"ENDCITE"; |
Line 2342 sub adddiscuss {
|
Line 2340 sub adddiscuss {
|
$contrib{'history'} = ''; |
$contrib{'history'} = ''; |
my $numoldver = 0; |
my $numoldver = 0; |
my ($oldsymb,$oldidx)=split(/\:\:\:/,$ENV{'form.editdisc'}); |
my ($oldsymb,$oldidx)=split(/\:\:\:/,$ENV{'form.editdisc'}); |
|
&Apache::lonenc::check_decrypt(\$oldsymb); |
$oldsymb=~s|(bulletin___\d+___)adm/wrapper/|$1|; |
$oldsymb=~s|(bulletin___\d+___)adm/wrapper/|$1|; |
# get timestamp for last post and history |
# get timestamp for last post and history |
my %oldcontrib=&Apache::lonnet::restore($oldsymb,$ENV{'request.course.id'}, |
my %oldcontrib=&Apache::lonnet::restore($oldsymb,$ENV{'request.course.id'}, |
Line 2802 END
|
Line 2801 END
|
my $seeid=&Apache::lonnet::allowed('rin',$crs); |
my $seeid=&Apache::lonnet::allowed('rin',$crs); |
my ($symb,$idx)=split(/\:\:\:/,$ENV{'form.allversions'}); |
my ($symb,$idx)=split(/\:\:\:/,$ENV{'form.allversions'}); |
my $ressymb=$symb; |
my $ressymb=$symb; |
|
&Apache::lonenc::check_decrypt(\$ressymb); |
unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) { |
unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) { |
$ressymb=~s|(bulletin___\d+___)|$1adm/wrapper|; |
$ressymb=~s|(bulletin___\d+___)|$1adm/wrapper|; |
} |
} |
Line 2843 END
|
Line 2843 END
|
my $previous=$ENV{'form.previous'}; |
my $previous=$ENV{'form.previous'}; |
# backward compatibility (bulletin boards used to be 'wrapped') |
# backward compatibility (bulletin boards used to be 'wrapped') |
my $ressymb=$symb; |
my $ressymb=$symb; |
|
&Apache::lonenc::check_decrypt(\$ressymb); |
unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) { |
unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) { |
$ressymb=~s|(bulletin___\d+___)|$1adm/wrapper|; |
$ressymb=~s|(bulletin___\d+___)|$1adm/wrapper|; |
} |
} |
Line 2922 END
|
Line 2923 END
|
foreach (@resources) { |
foreach (@resources) { |
# backward compatibility (bulletin boards used to be 'wrapped') |
# backward compatibility (bulletin boards used to be 'wrapped') |
my $ressymb=$_; |
my $ressymb=$_; |
|
&Apache::lonenc::check_decrypt(\$ressymb); |
if ($ressymb =~ m/bulletin___\d+___/) { |
if ($ressymb =~ m/bulletin___\d+___/) { |
unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) { |
unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) { |
$ressymb=~s|(bulletin___\d+___)|$1adm/wrapper/|; |
$ressymb=~s|(bulletin___\d+___)|$1adm/wrapper/|; |
Line 2979 ENDREDIR
|
Line 2981 ENDREDIR
|
my $symb=$ENV{'form.toggoff'}?$ENV{'form.toggoff'}:$ENV{'form.toggon'}; |
my $symb=$ENV{'form.toggoff'}?$ENV{'form.toggoff'}:$ENV{'form.toggon'}; |
my $ressymb = $symb; |
my $ressymb = $symb; |
($map,$ind,$url)=&Apache::lonnet::decode_symb($symb); |
($map,$ind,$url)=&Apache::lonnet::decode_symb($symb); |
|
&Apache::lonenc::check_decrypt(\$ressymb); |
unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) { |
unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) { |
$ressymb=~s|(bulletin___\d+___)|$1adm/wrapper|; |
$ressymb=~s|(bulletin___\d+___)|$1adm/wrapper|; |
} |
} |
Line 2996 ENDREDIR
|
Line 2999 ENDREDIR
|
my $symb=$ENV{'form.markondisp'}?$ENV{'form.markondisp'}:$ENV{'form.markonread'}; |
my $symb=$ENV{'form.markondisp'}?$ENV{'form.markondisp'}:$ENV{'form.markonread'}; |
my $ressymb = $symb; |
my $ressymb = $symb; |
($map,$ind,$url)=&Apache::lonnet::decode_symb($symb); |
($map,$ind,$url)=&Apache::lonnet::decode_symb($symb); |
|
&Apache::lonenc::check_decrypt(\$ressymb); |
unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) { |
unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) { |
$ressymb=~s|(bulletin___\d+___)|$1adm/wrapper|; |
$ressymb=~s|(bulletin___\d+___)|$1adm/wrapper|; |
} |
} |
Line 3025 ENDREDIR
|
Line 3029 ENDREDIR
|
} |
} |
my $ressymb = $symb; |
my $ressymb = $symb; |
($map,$ind,$url)=&Apache::lonnet::decode_symb($symb); |
($map,$ind,$url)=&Apache::lonnet::decode_symb($symb); |
|
&Apache::lonenc::check_decrypt(\$ressymb); |
unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) { |
unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) { |
$ressymb=~s|(bulletin___\d+___)|$1adm/wrapper|; |
$ressymb=~s|(bulletin___\d+___)|$1adm/wrapper|; |
} |
} |
Line 3052 ENDREDIR
|
Line 3057 ENDREDIR
|
my $symb=$ENV{'form.markread'}; |
my $symb=$ENV{'form.markread'}; |
my $ressymb = $symb; |
my $ressymb = $symb; |
my ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb); |
my ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb); |
|
&Apache::lonenc::check_decrypt(\$ressymb); |
unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) { |
unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) { |
$ressymb=~s|(bulletin___\d+___)|$1adm/wrapper|; |
$ressymb=~s|(bulletin___\d+___)|$1adm/wrapper|; |
} |
} |
Line 3234 ENDREDIR
|
Line 3240 ENDREDIR
|
$feedurl=&Apache::lonnet::clutter($url); |
$feedurl=&Apache::lonnet::clutter($url); |
} |
} |
} |
} |
|
&Apache::lonenc::check_decrypt(\$symb); |
my $goahead=1; |
my $goahead=1; |
if ($feedurl=~/\.(problem|exam|quiz|assess|survey|form)$/) { |
if ($feedurl=~/\.(problem|exam|quiz|assess|survey|form)$/) { |
unless ($symb) { $goahead=0; } |
unless ($symb) { $goahead=0; } |
Line 3291 ENDREDIR
|
Line 3298 ENDREDIR
|
} elsif ($ENV{'form.origpage'}) { |
} elsif ($ENV{'form.origpage'}) { |
$symb = $ENV{'form.symb'}; |
$symb = $ENV{'form.symb'}; |
} |
} |
|
&Apache::lonenc::check_decrypt(\$symb); |
my @currnewattach = (); |
my @currnewattach = (); |
my @deloldattach = (); |
my @deloldattach = (); |
my @keepold = (); |
my @keepold = (); |