version 1.16, 2001/05/28 14:21:22
|
version 1.17, 2001/07/05 19:38:23
|
Line 12
|
Line 12
|
# |
# |
# 10/03,10/05,10/06,10/07,10/09,10/10,10/11,10/16,10/17, |
# 10/03,10/05,10/06,10/07,10/09,10/10,10/11,10/16,10/17, |
# 11/14,11/16, |
# 11/14,11/16, |
# 10/01/01,05/01,05/28 Gerd Kortemeyer |
# 10/01/01,05/01,05/28,07/05 Gerd Kortemeyer |
|
|
package Apache::lonpageflip; |
package Apache::lonpageflip; |
|
|
Line 159 sub handler {
|
Line 159 sub handler {
|
} |
} |
$currenturl=~s/^http\:\/\///; |
$currenturl=~s/^http\:\/\///; |
$currenturl=~s/^[^\/]+//; |
$currenturl=~s/^[^\/]+//; |
unless ($currenturl=~/\/res\//) { |
unless (($currenturl=~/^\/res\//) || |
|
($currenturl=~/^\/adm\/wrapper\//)) { |
my $last; |
my $last; |
if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'_symb.db', |
if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'_symb.db', |
&GDBM_READER,0640)) { |
&GDBM_READER,0640)) { |
Line 266 ENDSTART
|
Line 267 ENDSTART
|
$r->print(<<ENDNONE); |
$r->print(<<ENDNONE); |
<head><title>Choose Next Location</title></head> |
<head><title>Choose Next Location</title></head> |
<body bgcolor="#FFFFFF"> |
<body bgcolor="#FFFFFF"> |
<img src="/adm/lonKaputt/lonlogo_broken.gif" align=left> |
<img src="/adm/lonIcons/lonlogos.gif" align=right> |
<h1>Sorry!</h1> |
<h1>Sorry!</h1> |
<h2>Next resource could not be identified.</h2> |
<h2>Next resource could not be identified.</h2> |
|
<h3>You probably are at the beginning or the end of the course.</h3> |
</body> |
</body> |
</html> |
</html> |
ENDNONE |
ENDNONE |