loncom/interface/groupsort.pm - diff

Return to groupsort.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.69, 2012/06/30 23:02:20	version 1.71, 2013/01/09 03:56:28
Line 152 sub readfromfile {	Line 152 sub readfromfile {
&Apache::lonnet::filelocation('',$env{'form.readfile'}));	&Apache::lonnet::filelocation('',$env{'form.readfile'}));
} else {	} else {
my $parser = HTML::TokeParser->new(\$cont);	my $parser = HTML::TokeParser->new(\$cont);
my $token;	my ($token,$donechk,$allmaps);
	$allmaps = {};
while ($token = $parser->get_token) {	while ($token = $parser->get_token) {
if ($token->[0] eq 'S') {	if ($token->[0] eq 'S') {
if ($token->[1] eq 'resource') {	if ($token->[1] eq 'resource') {
if ($env{'form.recover'}) {	if ($env{'form.recover'}) {
if ($token->[2]->{'type'} ne 'zombie') { next; }	if ($token->[2]->{'type'} ne 'zombie') { next; }
	if ($token->[2]->{'src'} =~ /\.(page\|sequence)$/) {
	if (($env{'request.course.id'}) &&
	($env{'form.readfile'} =~ m{/default(\|_\d+)\.(page\|sequence)$})) {
	unless ($donechk) {
	$allmaps = &Apache::loncommon::allmaps_incourse();
	$donechk = 1;
	}
	}
	if ($allmaps->{$token->[2]->{'src'}}) { next; }
	}
} else {	} else {
if ($token->[2]->{'type'} eq 'zombie') { next; }	if ($token->[2]->{'type'} eq 'zombie') { next; }
}	}
Line 181 sub readfromfile {	Line 192 sub readfromfile {
}	}
}	}


# ---------------------------------------------------------------- Main Handler	# ---------------------------------------------------------------- Main Handler
sub handler {	sub handler {
my $r = shift;	my $r = shift;