version 1.32.2.1, 2008/12/21 04:53:39
|
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 278 sub handler {
|
Line 318 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'); |