version 1.68.6.3, 2012/08/01 12:52:41
|
version 1.72, 2013/01/09 16:30:19
|
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; |
Line 418 END
|
Line 428 END
|
} else { |
} else { |
$r->print($resource->{'title'}); |
$r->print($resource->{'title'}); |
} |
} |
$r->print($resource->{'notes'}."</td><td>\n"); |
$r->print($resource->{'notes'}."</td><td>\n"); |
$r->print($resource->{'url'}."</td>" |
$r->print($resource->{'url'}."</td>" |
.&Apache::loncommon::end_data_table_row() |
.&Apache::loncommon::end_data_table_row() |
."\n"); |
."\n"); |