version 1.50, 2003/04/03 03:08:12
|
version 1.51, 2003/04/03 14:44:01
|
Line 640 sub footer {
|
Line 640 sub footer {
|
} |
} |
|
|
sub utilityfunctions { |
sub utilityfunctions { |
unless ($ENV{'browser.interface'} eq 'textual') { return ''; } |
unless (($ENV{'browser.interface'} eq 'textual') || |
|
($ENV{'environment.remote'} eq 'off')) { return ''; } |
my $currenturl=$ENV{'REQUEST_URI'}; |
my $currenturl=$ENV{'REQUEST_URI'}; |
my $currentsymb=$ENV{'request.symb'}; |
my $currentsymb=$ENV{'request.symb'}; |
return (<<ENDUTILITY) |
return (<<ENDUTILITY) |