version 1.68, 2001/05/04 15:29:32
|
version 1.69, 2001/05/04 16:10:17
|
Line 40 sub xmlend {
|
Line 40 sub xmlend {
|
sub registerurl { |
sub registerurl { |
return (<<ENDSCRIPT); |
return (<<ENDSCRIPT); |
<script language="JavaScript"> |
<script language="JavaScript"> |
if (window.location.pathname!="/res/adm/pages/menu.html") { |
function LONCAPAreg() { |
menu=window.open("","LONCAPAmenu"); |
if (window.location.pathname!="/res/adm/pages/menu.html") { |
menu.currentURL=window.location.pathname; |
menu=window.open("","LONCAPAmenu"); |
menu.currentStale=0; |
menu.currentURL=window.location.pathname; |
|
menu.currentStale=0; |
|
} |
|
} |
|
|
|
function LONCAPAstale() { |
|
if (window.location.pathname!="/res/adm/pages/menu.html") { |
|
menu=window.open("","LONCAPAmenu"); |
|
menu.currentStale=1; |
|
} |
} |
} |
</script> |
</script> |
ENDSCRIPT |
ENDSCRIPT |
} |
} |
|
|
|
sub loadevents() { |
|
return 'LONCAPAreg();'; |
|
} |
|
|
|
sub unloadevents() { |
|
return 'LONCAPAstale();'; |
|
} |
|
|
sub register { |
sub register { |
my $space; |
my $space; |
my @taglist; |
my @taglist; |