|
version 1.304, 2010/11/20 01:07:05
|
version 1.305, 2011/11/07 20:05:55
|
|
Line 135 sub list_discussion {
|
Line 135 sub list_discussion {
|
| $crs=~s/\_/\//g; |
$crs=~s/\_/\//g; |
| my $encsymb=&Apache::lonenc::check_encrypt($ressymb); |
my $encsymb=&Apache::lonenc::check_encrypt($ressymb); |
| my $viewgrades=(&Apache::lonnet::allowed('vgr',$crs) |
my $viewgrades=(&Apache::lonnet::allowed('vgr',$crs) |
| && ($ressymb=~/\.(problem|exam|quiz|assess|survey|form|task)$/)); |
&& ($ressymb=~/$LONCAPA::assess_re/)); |
| |
|
| my %usernamesort = (); |
my %usernamesort = (); |
| my %namesort =(); |
my %namesort =(); |
|
Line 3814 ENDREDIR
|
Line 3814 ENDREDIR
|
| my $mode='board'; |
my $mode='board'; |
| my $status='OPEN'; |
my $status='OPEN'; |
| my $previous=$env{'form.previous'}; |
my $previous=$env{'form.previous'}; |
| if ($feedurl =~ /\.(problem|exam|quiz|assess|survey|form|library|task)$/) { |
if ($feedurl =~ /$LONCAPA::assess_re/) { |
| $mode='problem'; |
$mode='problem'; |
| $status=$Apache::inputtags::status[-1]; |
$status=$Apache::inputtags::status[-1]; |
| } |
} |
|
Line 3854 ENDREDIR
|
Line 3854 ENDREDIR
|
| &dewrapper(\$feedurl); |
&dewrapper(\$feedurl); |
| } |
} |
| my $goahead=1; |
my $goahead=1; |
| if ($feedurl=~/\.(problem|exam|quiz|assess|survey|form|task)$/) { |
if ($feedurl=~/$LONCAPA::assess_re/) { |
| unless ($symb) { $goahead=0; } |
unless ($symb) { $goahead=0; } |
| } |
} |
| if (!$goahead) { |
if (!$goahead) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonfeedback.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface