version 1.14, 2002/08/31 00:43:13
|
version 1.15, 2003/04/07 20:47:06
|
Line 62 sub attemptread {
|
Line 62 sub attemptread {
|
} |
} |
} |
} |
|
|
|
sub mapread { |
|
my $fn=shift; |
|
&Apache::lonnet::repcopy($fn); |
|
if (-e $fn) { |
|
return &Apache::lonratedt::mapread($fn,''); |
|
} else { |
|
return (); |
|
} |
|
} |
|
|
# ---------------------------------------------------------------- View Handler |
# ---------------------------------------------------------------- View Handler |
|
|
sub viewmap { |
sub viewmap { |
Line 152 ENDSELECT
|
Line 162 ENDSELECT
|
} |
} |
} |
} |
# ----------------------------- successtied is now '1' if in working selectmode |
# ----------------------------- successtied is now '1' if in working selectmode |
|
my ($errtext,$fatal)=&mapread(&Apache::lonnet::filelocation('',$url),''); |
|
if ($fatal==1) { |
|
$r->print('<p><b><font color="red">Map contents are not shown in order.</font></b></p><br />'); |
|
} |
my $idx=0; |
my $idx=0; |
foreach (&attemptread(&Apache::lonnet::filelocation('',$url))) { |
foreach (&attemptread(&Apache::lonnet::filelocation('',$url))) { |
if (defined($_)) { |
if (defined($_)) { |