version 1.96, 2003/12/09 19:48:51
|
version 1.99, 2004/01/15 03:18:19
|
Line 425 END
|
Line 425 END
|
# Figure out what kind of a resource this is |
# Figure out what kind of a resource this is |
my ($extension)=($url=~/\.(\w+)$/); |
my ($extension)=($url=~/\.(\w+)$/); |
my $uploaded=($url=~/^\/*uploaded\//); |
my $uploaded=($url=~/^\/*uploaded\//); |
my $icon='unknown'; |
my $icon=&Apache::loncommon::icon($url); |
if (-e "/home/httpd/html/adm/lonIcons/$extension.gif") { |
|
$icon=$extension; |
|
} |
|
my $isfolder=0; |
my $isfolder=0; |
if ($uploaded) { |
if ($uploaded) { |
if ($extension eq 'sequence') { |
if ($extension eq 'sequence') { |
$icon='folder_closed'; |
$icon=$iconpath.'/folder_closed.gif'; |
$url=~/\/(\w+)\.sequence/; |
$url=~/\/(\w+)\.sequence/; |
$url='/adm/coursedocs?folder='.$1; |
$url='/adm/coursedocs?folder='.$1; |
$isfolder=1; |
$isfolder=1; |
Line 454 END
|
Line 451 END
|
if ($isfolder) { $url.='&foldername='. |
if ($isfolder) { $url.='&foldername='. |
&Apache::lonnet::escape($foldertitle); } |
&Apache::lonnet::escape($foldertitle); } |
$line.='<td bgcolor="#FFFFBB"><a href="'.$url.'" target="cat_'.$folder. |
$line.='<td bgcolor="#FFFFBB"><a href="'.$url.'" target="cat_'.$folder. |
'"><img src="/adm/lonIcons/'. |
'"><img src="'.$icon.'" border="0"></a></td>'. |
$icon.'.gif" border="0"></a></td>'. |
|
"<td bgcolor='#FFFFBB'><a href='$url' target='cat_$folder'>$title</a></td></tr>"; |
"<td bgcolor='#FFFFBB'><a href='$url' target='cat_$folder'>$title</a></td></tr>"; |
return $line; |
return $line; |
} |
} |
Line 515 sub checkonthis {
|
Line 511 sub checkonthis {
|
if (($Apache::lonxml::errorcount) || |
if (($Apache::lonxml::errorcount) || |
($Apache::lonxml::warningcount)) { |
($Apache::lonxml::warningcount)) { |
if ($Apache::lonxml::errorcount) { |
if ($Apache::lonxml::errorcount) { |
$r->print('<font color="red"><b>'. |
$r->print('<img src="/adm/lonMisc/bomb.gif" /><font color="red"><b>'. |
$Apache::lonxml::errorcount.' '. |
$Apache::lonxml::errorcount.' '. |
&mt('error(s)').'</b></font> '); |
&mt('error(s)').'</b></font> '); |
} |
} |
Line 966 ENDNEWSCRIPT
|
Line 962 ENDNEWSCRIPT
|
# -------------------------------------------------------------------- Body tag |
# -------------------------------------------------------------------- Body tag |
$r->print('</head>'. |
$r->print('</head>'. |
&Apache::loncommon::bodytag('Course Documents','',$events, |
&Apache::loncommon::bodytag('Course Documents','',$events, |
'','',$showdoc)); |
'','',$showdoc). |
|
&Apache::loncommon::help_open_faq(273). |
|
&Apache::loncommon::help_open_bug('RAT')); |
unless ($showdoc) { |
unless ($showdoc) { |
# ----------------------------------------------------------------------------- |
# ----------------------------------------------------------------------------- |
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |