version 1.32.2.1, 2008/12/21 04:53:39
|
version 1.34, 2008/11/18 19:13:37
|
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 SUBROUTINES |
|
|
|
=over |
|
|
|
=item handler() |
|
|
|
=item viewmap() |
|
|
|
=item attemptread() |
|
|
|
=item mapread() |
|
|
|
=item start_fresh_session() |
|
|
|
=back |
|
|
|
=cut |
|
|
package Apache::lonsequence; |
package Apache::lonsequence; |
|
|
use strict; |
use strict; |
Line 278 sub handler {
|
Line 308 sub handler {
|
&Apache::lonnet::symblist($requrl,$disurl => [$disurl,$dismapid], |
&Apache::lonnet::symblist($requrl,$disurl => [$disurl,$dismapid], |
'last_known' => [$disurl,$dismapid]); |
'last_known' => [$disurl,$dismapid]); |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->header_out(Location => &Apache::lonnet::absolute_url($ENV{'SERVER_NAME'}). |
$r->header_out(Location => 'http://'.$ENV{'HTTP_HOST'}.$disurl); |
$disurl); |
|
return REDIRECT; |
return REDIRECT; |
} else { |
} else { |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |