version 1.3, 2000/10/17 10:36:17
|
version 1.6, 2002/04/02 21:05:50
|
Line 2
|
Line 2
|
# |
# |
# Sequence Handler |
# Sequence Handler |
# |
# |
|
# $Id$ |
|
# |
|
# Copyright Michigan State University Board of Trustees |
|
# |
|
# This file is part of the LearningOnline Network with CAPA (LON-CAPA). |
|
# |
|
# LON-CAPA is free software; you can redistribute it and/or modify |
|
# it under the terms of the GNU General Public License as published by |
|
# the Free Software Foundation; either version 2 of the License, or |
|
# (at your option) any later version. |
|
# |
|
# LON-CAPA is distributed in the hope that it will be useful, |
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
# GNU General Public License for more details. |
|
# |
|
# You should have received a copy of the GNU General Public License |
|
# along with LON-CAPA; if not, write to the Free Software |
|
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
|
# |
|
# /home/httpd/html/adm/gpl.txt |
|
# |
|
# http://www.lon-capa.org/ |
|
# |
# (Handler to resolve ambiguous file locations |
# (Handler to resolve ambiguous file locations |
# |
# |
# (TeX Content Handler |
# (TeX Content Handler |
Line 64 sub handler {
|
Line 88 sub handler {
|
if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db', |
if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db', |
&GDBM_READER,0640)) { |
&GDBM_READER,0640)) { |
my $disid=''; |
my $disid=''; |
|
my $whatend=''; |
if ($direction eq 'back') { |
if ($direction eq 'back') { |
$disid=$bighash{'map_finish_'.$requrl}; |
$disid=$bighash{'map_finish_'.$requrl}; |
|
$whatend='End'; |
} else { |
} else { |
$disid=$bighash{'map_start_'.$requrl}; |
$disid=$bighash{'map_start_'.$requrl}; |
|
$whatend='Beginning'; |
} |
} |
my $disurl=''; |
my $disurl=''; |
|
my $dismapid=''; |
if ($disid) { |
if ($disid) { |
$disurl=$bighash{'src_'.$disid}; |
$disurl=$bighash{'src_'.$disid}; |
|
$dismapid=(split(/\./,$disid))[1]; |
} |
} |
my $symb=''; |
my $symb=''; |
|
my $sequencetitle=''; |
unless($disurl) { |
unless($disurl) { |
if ($symb=&Apache::lonnet::symbread()) { |
if ($symb=&Apache::lonnet::symbread()) { |
|
my ($mapurl,$mapid)=split(/\_\_\_/,$symb); |
|
$sequencetitle=$bighash{'title_'. |
|
$bighash{'map_pc_/res/'.$mapurl}.'.'. |
|
$mapid}; |
} |
} |
} |
} |
# --------------------------------------- Untie hash, make sure to come by here |
# --------------------------------------- Untie hash, make sure to come by here |
untie(%bighash); |
untie(%bighash); |
if ($disurl) { |
if ($disurl) { |
# -------------------------------------------------- Has first or last resource |
# -------------------------------------------------- Has first or last resource |
|
&Apache::lonnet::symblist($requrl,{$disurl => $dismapid, |
|
'last_known' => &Apache::lonnet::declutter($disurl)}); |
$r->content_type('text/html'); |
$r->content_type('text/html'); |
$r->header_out(Location => 'http://'.$ENV{'HTTP_HOST'}.$disurl); |
$r->header_out(Location => 'http://'.$ENV{'HTTP_HOST'}.$disurl); |
return REDIRECT; |
return REDIRECT; |
Line 93 sub handler {
|
Line 129 sub handler {
|
$r->content_type('text/html'); |
$r->content_type('text/html'); |
$r->send_http_header; |
$r->send_http_header; |
$r->print(<<ENDSYMB); |
$r->print(<<ENDSYMB); |
<html><body> |
<html><body bgcolor="#FFFFFF"> |
|
<h2>$whatend of</h2> |
|
<h1>$sequencetitle</h1> |
</body></html> |
</body></html> |
ENDSYMB |
ENDSYMB |
return OK |
return OK |