|
version 1.35, 2003/07/05 10:07:12
|
version 1.36, 2003/07/17 13:50:44
|
|
Line 311 sub putresource {
|
Line 311 sub putresource {
|
| $thisdisfn.'/'.$filename.'" target=cat>Retrieve</a>'; |
$thisdisfn.'/'.$filename.'" target=cat>Retrieve</a>'; |
| } |
} |
| my $editlink=''; |
my $editlink=''; |
| if ($filename=~/\.(xml|html|htm|xhtml|xhtm)$/) { |
if ($filename=~/\.(xml|html|htm|xhtml|xhtm|sty)$/) { |
| $editlink=' (<a href="'.$linkdir.'/'.$filename.'?forceedit=1" target="_top">Edit</a>)'; |
$editlink=' (<a href="'.$linkdir.'/'.$filename.'?forceedit=1" target="_top">Edit</a>)'; |
| } |
} |
| if ($filename=~/\.(problem|exam|quiz|assess|survey|form|library)$/) { |
if ($filename=~/\.(problem|exam|quiz|assess|survey|form|library)$/) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonpubdir.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / publisher