version 1.30, 2001/12/17 00:57:59
|
version 1.34, 2002/03/26 16:14:51
|
Line 34
|
Line 34
|
# YEAR=2001 |
# YEAR=2001 |
# 08/13/01,08/30,10/1 Gerd Kortemeyer |
# 08/13/01,08/30,10/1 Gerd Kortemeyer |
# 12/16 Scott Harrison |
# 12/16 Scott Harrison |
|
# YEAR=2002 |
|
# 03/19 Gerd Kortemeyer |
# |
# |
### |
### |
|
|
Line 304 sub handler {
|
Line 306 sub handler {
|
$thisdir=~s/\/[^\/]*$//; |
$thisdir=~s/\/[^\/]*$//; |
foreach (@rlinks) { |
foreach (@rlinks) { |
unless (($_=~/^http:\/\//i) || |
unless (($_=~/^http:\/\//i) || |
($_=~/^\//)) { |
($_=~/^\//) || |
|
($_=~/^javascript:/i) || |
|
($_=~/^mailto:/i) || |
|
($_=~/^\#/)) { |
my $newlocation= |
my $newlocation= |
&Apache::lonnet::hreflocation($thisdir,$_); |
&Apache::lonnet::hreflocation($thisdir,$_); |
$output=~s/(\"|\'|\=\s*)$_(\"|\'|\s|\>)/$1$newlocation$2/; |
$output=~s/(\"|\'|\=\s*)$_(\"|\'|\s|\>)/$1$newlocation$2/; |
Line 343 sub handler {
|
Line 348 sub handler {
|
$r->print("\n<script language='JavaScript'>\n". |
$r->print("\n<script language='JavaScript'>\n". |
$allscript."\n</script>\n"); |
$allscript."\n</script>\n"); |
} |
} |
$r->print(&Apache::lonxml::registerurl(1)); |
$r->print(&Apache::lonxml::registerurl(1,undef)); |
$r->print("\n</head>\n"); |
$r->print("\n</head>\n"); |
# ------------------------------------------------------------------ Start body |
# ------------------------------------------------------------------ Start body |
if ($isxml) { |
if ($isxml) { |
Line 370 sub handler {
|
Line 375 sub handler {
|
my $metainfo='<a href="'. |
my $metainfo='<a href="'. |
$metalink{$rid}.'" target="LONcatInfo">'. |
$metalink{$rid}.'" target="LONcatInfo">'. |
'<img src="/adm/lonMisc/cat_button.gif" border=0>'. |
'<img src="/adm/lonMisc/cat_button.gif" border=0>'. |
'</img></a>'; |
'</img></a><a href="/adm/evaluate?postdata='. |
|
&Apache::lonnet::declutter($hash{'src_'.$rid}).'" target="LONcatInfo">'. |
|
'<img src="/adm/lonMisc/eval_button.gif" border=0>'. |
|
'</img></a>'; |
if ( |
if ( |
($hash{'src_'.$rid}=~/\.(problem|exam|quiz|assess|survey|form)$/) && |
($hash{'src_'.$rid}=~/\.(problem|exam|quiz|assess|survey|form)$/) && |
(&Apache::lonnet::allowed('mgr',$ENV{'request.course.id'}))) { |
(&Apache::lonnet::allowed('mgr',$ENV{'request.course.id'}))) { |