loncom/misc/refresh_courseids_db.pl - diff

Return to refresh_courseids_db.pl CVS log

Up to [LON-CAPA] / loncom / misc

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;
}	}
}	}