version 1.13, 2001/07/08 18:31:10
|
version 1.14, 2001/08/07 14:02:27
|
Line 1
|
Line 1
|
# The LearningOnline Network with CAPA |
# The LearningOnline Network with CAPA |
|
# |
# Directory Indexer |
# Directory Indexer |
# (Login Screen |
# (Login Screen |
|
# |
# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14 Gerd Kortemeyer) |
# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14 Gerd Kortemeyer) |
# 11/23 Gerd Kortemeyer |
# 11/23 Gerd Kortemeyer |
# 07/20-08/04 H.K. Ng |
# 07/20-08/04 H.K. Ng |
Line 30 my $hidden;
|
Line 32 my $hidden;
|
my $extrafield; |
my $extrafield; |
my $fnum; |
my $fnum; |
sub BEGIN { |
sub BEGIN { |
my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.'/language.tab'); |
my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}. |
|
'/language.tab'); |
map { |
map { |
$_=~/(\w+)\s+([\w\s\-]+)/; |
$_=~/(\w+)\s+([\w\s\-]+)/; |
$language{$1}=$2; |
$language{$1}=$2; |
Line 66 sub handler {
|
Line 69 sub handler {
|
$hidden=''; my $closebutton=''; |
$hidden=''; my $closebutton=''; |
my $groupimportbutton=''; |
my $groupimportbutton=''; |
my $colspan=''; |
my $colspan=''; |
|
|
|
$extrafield=''; |
if ($ENV{'form.catalogmode'} eq 'interactive') { |
if ($ENV{'form.catalogmode'} eq 'interactive') { |
$extrafield='<td bgcolor="'.$fileclr.'" valign="bottom">'. |
$extrafield='<td bgcolor="'.$fileclr.'" valign="bottom">'. |
'<a name="$anchor"><img src="'.$iconpath.'whitespace1.gif"'. |
'<a name="$anchor"><img src="'.$iconpath.'whitespace1.gif"'. |
Line 164 END
|
Line 169 END
|
<head> |
<head> |
<title>The LearningOnline Network With CAPA Directory Browser</title> |
<title>The LearningOnline Network With CAPA Directory Browser</title> |
|
|
<SCRIPT language="javascript"> |
<script language="javascript"> |
$catalogmodefunctions |
$catalogmodefunctions |
function openWindow(url, wdwName, w, h, toolbar,scrollbar) { |
function openWindow(url, wdwName, w, h, toolbar,scrollbar) { |
var options = "width=" + w + ",height=" + h + ","; |
var options = "width=" + w + ",height=" + h + ","; |
Line 173 function openWindow(url, wdwName, w, h,
|
Line 178 function openWindow(url, wdwName, w, h,
|
var newWin = window.open(url, wdwName, options); |
var newWin = window.open(url, wdwName, options); |
newWin.focus(); |
newWin.focus(); |
} |
} |
</SCRIPT> |
</script> |
|
|
</head> |
</head> |
<body bgcolor="#FFFFFF"> |
<body bgcolor="#FFFFFF"> |
Line 557 sub display_line{
|
Line 562 sub display_line{
|
|
|
} |
} |
|
|
#---------------------prints the beginning of a form for directory or file link |
# ------------------- prints the beginning of a form for directory or file link |
sub begin_form { |
sub begin_form { |
my ($r,$uri) = @_; |
my ($r,$uri) = @_; |
my $anchor = $uri; |
my $anchor = $uri; |