oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix: Shouldn't modify $_ in list, PBP p114

Browse source
This commit is contained in:
Doug Bell 2007-12-05 23:49:21 +00:00
parent e5758898a5
commit a30587f7ad
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Asset/Wobject/Calendar.pm
View file

@ -857,8 +857,10 @@ sub processPropertiesFromFormPost {
# Workaround WebGUI::Session::Form->param bug that returns duplicate
# names.
my %feeds;
$feeds{$_}++
for map { s/^feeds-//; $_; } grep /^feeds-/,($form->param());
for my $feedId ( grep /^feeds-/, ($form->param()) ) {
$feedId =~ s/^feeds-//;
$feeds{$feedId}++;
}
my @feedsFromForm = keys %feeds;
# Delete old feeds that are not in @feeds