version 1.31, 2007/07/11 23:51:02
|
version 1.33, 2008/11/11 16:40:38
|
Line 27
|
Line 27
|
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
|
|
|
=head1 NAME |
|
|
|
Apache::lonsequence |
|
|
|
=head1 SYNOPSIS |
|
|
|
Handler for showing sequence objects of |
|
educational resources. |
|
|
|
This is part of the LearningOnline Network with CAPA project |
|
described at http://www.lon-capa.org. |
|
|
|
=head1 HANDLER SUBROUTINE |
|
|
|
handler() |
|
|
|
and |
|
|
|
viewmap() |
|
|
|
=head1 OTHER SUBROUTINES |
|
|
|
=over |
|
|
|
=item * |
|
|
|
attemptread() |
|
|
|
=item * |
|
|
|
mapread() |
|
|
|
=item * |
|
|
|
start_fresh_session() |
|
|
|
=back |
|
|
|
=cut |
|
|
package Apache::lonsequence; |
package Apache::lonsequence; |
|
|
use strict; |
use strict; |
Line 46 my $successtied;
|
Line 86 my $successtied;
|
# ----------------------------------------- Attempt to read from resource space |
# ----------------------------------------- Attempt to read from resource space |
|
|
sub attemptread { |
sub attemptread { |
my $fn=shift; |
my ($fn,$unsorted)=@_; |
&Apache::lonnet::repcopy($fn); |
&Apache::lonnet::repcopy($fn); |
if (-e $fn) { |
if (-e $fn) { |
return &LONCAPA::map::attemptread($fn); |
return &LONCAPA::map::attemptread($fn,$unsorted); |
} else { |
} else { |
return (); |
return (); |
} |
} |