version 1.6, 2010/07/30 17:46:12
|
version 1.7, 2010/08/01 03:57:32
|
Line 375 sub coursecontent_constraints {
|
Line 375 sub coursecontent_constraints {
|
my ($cnum,$cdom,$reqdmajor,$reqdminor) = @_; |
my ($cnum,$cdom,$reqdmajor,$reqdminor) = @_; |
my $navmap = Apache::lonnavmaps::navmap->new(); |
my $navmap = Apache::lonnavmaps::navmap->new(); |
if (defined($navmap)) { |
if (defined($navmap)) { |
my %resourcetracker = &Apache::lonnet::dump('nohist_resourcetracker', |
my %anonsubmissions = &Apache::lonnet::dump('nohist_anonsurveys', |
$cdom,$cnum); |
$cdom,$cnum); |
my %allresponses; |
my %allresponses; |
my $anonsurv_subm; |
my $anonsurv_subm; |
Line 388 sub coursecontent_constraints {
|
Line 388 sub coursecontent_constraints {
|
my @parts = @{$res->parts()}; |
my @parts = @{$res->parts()}; |
my $symb = $res->symb(); |
my $symb = $res->symb(); |
foreach my $part (@parts) { |
foreach my $part (@parts) { |
if (exists($resourcetracker{$symb."\0".$part."\0anonymous"})) { |
if (exists($anonsubmissions{$symb."\0".$part})) { |
$anonsurv_subm = 1; |
$anonsurv_subm = 1; |
} |
} |
} |
} |