|
version 1.82, 2005/05/28 02:18:03
|
version 1.83, 2005/05/29 01:46:16
|
|
Line 578 sub putresource {
|
Line 578 sub putresource {
|
| $editlink2=' <br />(<a href="'.$linkdir.'/'.$filename.'?forceColoredit=1" target="_parent">'.&mt('Edit').'</a>)'; |
$editlink2=' <br />(<a href="'.$linkdir.'/'.$filename.'?forceColoredit=1" target="_parent">'.&mt('Edit').'</a>)'; |
| } |
} |
| if ($filename=~/\.(problem|exam|quiz|assess|survey|form|library|xml|html|htm|xhtml|xhtm|sty)$/) { |
if ($filename=~/\.(problem|exam|quiz|assess|survey|form|library|xml|html|htm|xhtml|xhtm|sty)$/) { |
| $editlink.='<a href="/adm/cleanup?filename=/~'.$uname. |
$editlink.=' (<a href="/adm/cleanup?filename=/~'.$uname. |
| $thisdisfn.'/'.$filename.'" target="_parent">'.&mt('Clean Up').'</a>'; |
$thisdisfn.'/'.$filename.'" target="_parent">'.&mt('Clean Up').')</a>'; |
| } |
} |
| if ($filename=~/\.(zip|tar|bz2|gz|tar.gz|tar.bz2|tgz)$/) { |
if ($filename=~/\.(zip|tar|bz2|gz|tar.gz|tar.bz2|tgz)$/) { |
| $editlink=' (<a target="_parent" href="/adm/cfile?decompress=/~'. |
$editlink=' (<a target="_parent" href="/adm/cfile?decompress=/~'. |
![[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