version 1.112, 2001/12/13 14:00:37
|
version 1.115, 2002/01/17 13:53:45
|
Line 28
|
Line 28
|
# YEAR=2001 |
# YEAR=2001 |
# 3/8, 3/12, 3/13, 3/14, 3/15, 3/19 Scott Harrison |
# 3/8, 3/12, 3/13, 3/14, 3/15, 3/19 Scott Harrison |
# 3/20, 3/21, 3/22, 3/26, 3/27, 4/2, 8/15, 8/24, 8/25 Scott Harrison |
# 3/20, 3/21, 3/22, 3/26, 3/27, 4/2, 8/15, 8/24, 8/25 Scott Harrison |
# 10/12,10/14,10/15,10/16,11/28,11/29,12/10,12/12 Scott Harrison |
# 10/12,10/14,10/15,10/16,11/28,11/29,12/10,12/12,12/16 Scott Harrison |
|
# YEAR=2002 |
|
# 1/17 Scott Harrison |
# |
# |
### |
### |
|
|
Line 59 use Apache::loncommon();
|
Line 61 use Apache::loncommon();
|
# ---------------------------------------- variables used throughout the module |
# ---------------------------------------- variables used throughout the module |
|
|
# -- information holders |
# -- information holders |
# my %language; # holds contents of language.tab |
|
# my %cprtag; # holds contents of copyright.tab |
|
# my %mimetag; # holds contents of filetypes.tab |
|
my %hostdomains; # matches host name to host domain |
my %hostdomains; # matches host name to host domain |
my %hostips; # matches host name to host ip |
my %hostips; # matches host name to host ip |
my %hitcount; # stores number of hits per host |
my %hitcount; # stores number of hits per host |
Line 98 my $advancedviewselect=<<END;
|
Line 97 my $advancedviewselect=<<END;
|
END |
END |
|
|
# ----------------------------------------------------------------------- BEGIN |
# ----------------------------------------------------------------------- BEGIN |
sub BEGIN { |
BEGIN { |
{ |
{ |
my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}. |
my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}. |
'/hosts.tab'); |
'/hosts.tab'); |
Line 1231 END
|
Line 1230 END
|
$compiledresult.=<<END; |
$compiledresult.=<<END; |
<p> |
<p> |
END |
END |
$compiledresult.=<<END if $ENV{'form.catalogmode'} eq 'interactive'; |
if ($ENV{'form.catalogmode'} eq 'interactive') { |
|
my $titleesc=$title; |
|
$titleesc=~s/\'/\\'/; |
|
|
|
$compiledresult.=<<END |
|
if $ENV{'form.catalogmode'} eq 'interactive'; |
<font size='-1'><INPUT TYPE="button" NAME="returnvalues" VALUE="SELECT" |
<font size='-1'><INPUT TYPE="button" NAME="returnvalues" VALUE="SELECT" |
onClick="javascript:select_data('$title','$url')"> |
onClick="javascript:select_data('$titleesc','$url')"> |
</font> |
</font> |
<br /> |
<br /> |
END |
END |
|
} |
if ($ENV{'form.catalogmode'} eq 'groupsearch') { |
if ($ENV{'form.catalogmode'} eq 'groupsearch') { |
$fnum+=0; |
$fnum+=0; |
$hash{"pre_${fnum}_link"}=$url; |
$hash{"pre_${fnum}_link"}=$url; |
Line 1561 This routine is only run once after comp
|
Line 1566 This routine is only run once after comp
|
|
|
=item * |
=item * |
|
|
Initializes %language hash table. |
|
|
|
=item * |
|
|
|
Initializes %cprtag hash table (for copyright.tab). |
|
|
|
=item * |
|
|
|
Initializes %mimetag hash table (for filetypes.tab). |
|
|
|
=item * |
|
|
|
Initializes %hostdomains and hostips hash table (for hosts.tab). |
Initializes %hostdomains and hostips hash table (for hosts.tab). |
|
|
=back |
=back |