|
version 1.298, 2007/09/10 21:41:02
|
version 1.300, 2007/12/01 01:59:55
|
|
Line 1227 ENDPASTE
|
Line 1227 ENDPASTE
|
| &LONCAPA::map::qtescape($env{'docs.markedcopy_url'}).')'); |
&LONCAPA::map::qtescape($env{'docs.markedcopy_url'}).')'); |
| } else { |
} else { |
| my $extension = (split(/\./,$env{'docs.markedcopy_url'}))[-1]; |
my $extension = (split(/\./,$env{'docs.markedcopy_url'}))[-1]; |
| my $type = &Apache::loncommon::filedescription($extension); |
my $icon = &Apache::loncommon::icon($extension); |
| my $icon = '<img src="'.&Apache::loncommon::icon($extension). |
if ($extension eq 'sequence' && |
| '" alt="" class="LC_icon" />'; |
$env{'docs.markedcopy_url'} =~ m{/default_\d+\.sequence$ }x) { |
| |
$icon = &Apache::loncommon::lonhttpdurl($r->dir_config('lonIconsURL')); |
| |
$icon .= '/folder_closed.gif'; |
| |
} |
| |
my $icon = '<img src="'.$icon.'" alt="" class="LC_icon" />'; |
| $r->print($icon.$type.': '. &parse_supplemental_title(&LONCAPA::map::qtescape($env{'docs.markedcopy_title'}))); |
$r->print($icon.$type.': '. &parse_supplemental_title(&LONCAPA::map::qtescape($env{'docs.markedcopy_title'}))); |
| } |
} |
| if ($container eq 'page') { |
if ($container eq 'page') { |
|
Line 1750 sub entryline {
|
Line 1754 sub entryline {
|
| # no copy for published maps |
# no copy for published maps |
| $nocopy = 1; |
$nocopy = 1; |
| } else { |
} else { |
| foreach (&Apache::lonsequence::attemptread(&Apache::lonnet::filelocation('',$url))) { |
foreach (&Apache::lonsequence::attemptread(&Apache::lonnet::filelocation('',$url),1)) { |
| my ($title,$url,$ext,$type)=split(/\:/,$_); |
my ($title,$url,$ext,$type)=split(/\:/,$_); |
| if (($url=~/\.(page|sequence)/) && ($type ne 'zombie')) { |
if (($url=~/\.(page|sequence)/) && ($type ne 'zombie')) { |
| $nocopy=1; |
$nocopy=1; |
![[BACK]](/icons/back.gif){kind=icon}
Return to londocs.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface