--- loncom/lonnet/perl/lonnet.pm 2015/04/19 20:34:25 1.1284 +++ loncom/lonnet/perl/lonnet.pm 2015/05/13 20:38:31 1.1285 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.1284 2015/04/19 20:34:25 raeburn Exp $ +# $Id: lonnet.pm,v 1.1285 2015/05/13 20:38:31 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -12726,10 +12726,11 @@ BEGIN { my $item = $token->[1]; my $name = $token->[2]{'name'}; my $value = $token->[2]{'value'}; - if ($item ne '' && $name ne '' && $value ne '') { + my $valuematch = $token->[2]{'valuematch'}; + if ($item ne '' && $name ne '' && ($value ne '' || $valuematch ne '')) { my $release = $parser->get_text(); $release =~ s/(^\s*|\s*$ )//gx; - $needsrelease{$item.':'.$name.':'.$value} = $release; + $needsrelease{$item.':'.$name.':'.$value.':'.$valuematch} = $release; } } }