[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm

raeburn raeburn at source.lon-capa.org
Wed May 13 16:38:31 EDT 2015


raeburn		Wed May 13 20:38:31 2015 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - Version checking accommodates parameter values which match a regexp
    (currently for acc and lenient parameters) as well as designated values.
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.1284 loncom/lonnet/perl/lonnet.pm:1.1285
--- loncom/lonnet/perl/lonnet.pm:1.1284	Sun Apr 19 20:34:25 2015
+++ loncom/lonnet/perl/lonnet.pm	Wed May 13 20:38:31 2015
@@ -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 @@
                 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;
                 }
             }
         }




More information about the LON-CAPA-cvs mailing list