version 1.15, 2003/04/07 20:47:06
|
version 1.17, 2004/05/21 20:16:40
|
Line 46 use Apache::lonratedt;
|
Line 46 use Apache::lonratedt;
|
use Apache::lonratsrv; |
use Apache::lonratsrv; |
use Apache::lonpageflip; |
use Apache::lonpageflip; |
use Apache::loncommon; |
use Apache::loncommon; |
|
use Apache::lonlocal; |
|
|
my %selhash; |
my %selhash; |
my $successtied; |
my $successtied; |
Line 164 ENDSELECT
|
Line 165 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),''); |
my ($errtext,$fatal)=&mapread(&Apache::lonnet::filelocation('',$url),''); |
if ($fatal==1) { |
if ($fatal==1) { |
$r->print('<p><b><font color="red">Map contents are not shown in order.</font></b></p><br />'); |
$r->print('<p><b><font color="red">'.&mt('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))) { |
Line 177 ENDSELECT
|
Line 178 ENDSELECT
|
$title=~s/\&colon\;/\:/g; |
$title=~s/\&colon\;/\:/g; |
$url=~s/\&colon\;/\:/g; |
$url=~s/\&colon\;/\:/g; |
unless ($title) { $title=(split(/\//,$url))[-1] }; |
unless ($title) { $title=(split(/\//,$url))[-1] }; |
unless ($title) { $title='<i>Empty</i>'; } |
unless ($title) { $title='<i>'.&mt('Empty').'</i>'; } |
if ($url) { |
if ($url) { |
if ($successtied) { |
if ($successtied) { |
my $checked=''; |
my $checked=''; |
Line 229 sub handler {
|
Line 230 sub handler {
|
my $r=shift; |
my $r=shift; |
|
|
if ($r->header_only) { |
if ($r->header_only) { |
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
return OK; |
return OK; |
} |
} |
Line 262 sub handler {
|
Line 263 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 $randomout =''; |
|
|
if ($direction eq 'back') { |
if ($direction eq 'back') { |
$disid=$bighash{'map_finish_'.$requrl}; |
$disid=$bighash{'map_finish_'.$requrl}; |
Line 271 sub handler {
|
Line 273 sub handler {
|
if ($disid) { |
if ($disid) { |
$disurl=$bighash{'src_'.$disid}; |
$disurl=$bighash{'src_'.$disid}; |
$dismapid=(split(/\./,$disid))[1]; |
$dismapid=(split(/\./,$disid))[1]; |
|
$randomout = $bighash{'randomout_'.$disid}; |
} |
} |
# ------------------------- If this is an empty one, skip to next non-empty one |
# ----------- If this is an empty one, or hidden, skip to next non-empty or non-hidden one |
if ((!$disurl) && ($disid)) { |
if ( ((!$disurl) && ($disid)) || ($randomout && $disid) ) { |
$direction=($direction?$direction:'forward'); |
$direction=($direction?$direction:'forward'); |
($disid,$requrl)= |
($disid,$requrl)= |
&Apache::lonpageflip::fullmove($disid, |
&Apache::lonpageflip::fullmove($disid, |
Line 295 sub handler {
|
Line 298 sub handler {
|
# -------------------------------------------------- Has first or last resource |
# -------------------------------------------------- Has first or last resource |
&Apache::lonnet::symblist($requrl,$disurl => $dismapid, |
&Apache::lonnet::symblist($requrl,$disurl => $dismapid, |
'last_known' => &Apache::lonnet::declutter($disurl)); |
'last_known' => &Apache::lonnet::declutter($disurl)); |
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->header_out(Location => 'http://'.$ENV{'HTTP_HOST'}.$disurl); |
$r->header_out(Location => 'http://'.$ENV{'HTTP_HOST'}.$disurl); |
return REDIRECT; |
return REDIRECT; |
} else { |
} else { |
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
&viewmap($r,$requrl); |
&viewmap($r,$requrl); |
return OK; |
return OK; |