|
version 1.60, 2003/02/13 23:06:10
|
version 1.62, 2003/03/14 16:12:14
|
|
Line 519 sub scanDir {
|
Line 519 sub scanDir {
|
| my $fext = pop @fileparts; |
my $fext = pop @fileparts; |
| my $ov = pop @fileparts; |
my $ov = pop @fileparts; |
| my $fname = join ('.',@fileparts,$fext); |
my $fname = join ('.',@fileparts,$fext); |
| next if (grep /$fname/,@list and $ov =~ /\d+/); |
next if (grep /\Q$fname\E/,@list and $ov =~ /\d+/); |
| } |
} |
| } |
} |
| |
|
|
Line 739 sub display_line {
|
Line 739 sub display_line {
|
| (!defined($embstyle) || $embstyle eq 'unk' || $embstyle eq 'hdn'); |
(!defined($embstyle) || $embstyle eq 'unk' || $embstyle eq 'hdn'); |
| # |
# |
| $r->print("<tr bgcolor=$fileclr><td nowrap valign='bottom'>"); |
$r->print("<tr bgcolor=$fileclr><td nowrap valign='bottom'>"); |
| my $metafile = grep /^$filecom[0]\.meta\&/, @list; |
my $metafile = grep /^\Q$filecom[0]\E\.meta\&/, @list; |
| my $title; |
my $title; |
| if ($ENV{'form.catalogmode'} eq 'interactive') { |
if ($ENV{'form.catalogmode'} eq 'interactive') { |
| $title=$listname; |
$title=$listname; |
|
Line 843 sub display_line {
|
Line 843 sub display_line {
|
| my $output=''; |
my $output=''; |
| my $embstyle=&Apache::loncommon::fileembstyle($curfext); |
my $embstyle=&Apache::loncommon::fileembstyle($curfext); |
| if ($embstyle eq 'ssi') { |
if ($embstyle eq 'ssi') { |
| $output=&Apache::lonnet::ssi($filelink); |
$output=&Apache::lonnet::ssi_body($filelink); |
| $output=~s/^.*\<body[^\>]*\>//si; |
|
| $output=~s/\<\/body\s*\>.*$//si; |
|
| $output='<font size="-2">'.$output.'</font>'; |
$output='<font size="-2">'.$output.'</font>'; |
| } elsif ($embstyle eq 'img') { |
} elsif ($embstyle eq 'img') { |
| $output='<img src="'.$filelink.'" />'; |
$output='<img src="'.$filelink.'" />'; |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonindexer.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface