|
version 1.484.2.39, 2013/08/18 17:32:28
|
version 1.484.2.40, 2013/09/01 03:21:46
|
|
Line 5150 sub remove_archive {
|
Line 5150 sub remove_archive {
|
| my $currcmd = $env{'form.cmd'}; |
my $currcmd = $env{'form.cmd'}; |
| my $position = $env{'form.position'}; |
my $position = $env{'form.position'}; |
| if ($position > 0) { |
if ($position > 0) { |
| $env{'form.cmd'} = 'del_'.$position; |
$env{'form.cmd'} = 'remove_'.$position; |
| my ($title,$url,@rrest) = |
my ($title,$url,@rrest) = |
| split(/:/,$LONCAPA::map::resources[$LONCAPA::map::order[$position]]); |
split(/:/,$LONCAPA::map::resources[$LONCAPA::map::order[$position]]); |
| if (&handle_edit_cmd($docuname,$docudom)) { |
if (&handle_edit_cmd($docuname,$docudom)) { |
![[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