loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.583, 2014/08/25 00:55:27	version 1.584, 2014/08/25 01:42:30
Line 5467 sub decompression_info {	Line 5467 sub decompression_info {
unshift(@hiddens,$pathitem);	unshift(@hiddens,$pathitem);
foreach my $item (@hiddens) {	foreach my $item (@hiddens) {
if ($env{'form.'.$item}) {	if ($env{'form.'.$item}) {
my $value = $env{'form.'.$item};
$hiddenelem .= '<input type="hidden" name="'.$item.'" value="'.	$hiddenelem .= '<input type="hidden" name="'.$item.'" value="'.
&HTML::Entities::encode($env{'form.'.$item},'<>&"').'" />'."\n";	&HTML::Entities::encode($env{'form.'.$item},'<>&"').'" />'."\n";
}	}
Line 5536 sub remove_archive {	Line 5535 sub remove_archive {
$archiveidx = $position-1;	$archiveidx = $position-1;
}	}
$env{'form.cmd'} = 'remove_'.$archiveidx;	$env{'form.cmd'} = 'remove_'.$archiveidx;
my ($title,$url,@rrest) =	my ($title,$url,@rrest) =
split(/:/,$LONCAPA::map::resources[$LONCAPA::map::order[$archiveidx]]);	split(/:/,$LONCAPA::map::resources[$LONCAPA::map::order[$archiveidx]]);
if ($url eq $env{'form.archiveurl'}) {	if ($url eq $env{'form.archiveurl'}) {
if (&handle_edit_cmd($docuname,$docudom)) {	if (&handle_edit_cmd($docuname,$docudom)) {