Return to lond CVS log | Up to [LON-CAPA] / loncom |
version 1.450, 2010/07/26 21:52:10 | version 1.451, 2010/08/17 20:06:25 |
---|---|
Line 3183 sub dump_with_regexp { | Line 3183 sub dump_with_regexp { |
$loncaparev = $Apache::lonnet::loncaparevs{$clientname}; | $loncaparev = $Apache::lonnet::loncaparevs{$clientname}; |
} | } |
my ($major,$minor); | my ($major,$minor); |
if ($loncaparev =~ /^\'?(\d+)\.(\d+)\.[\d.\-]+\'?/) { | if ($loncaparev =~ /^\'?(\d+)\.(\d+)\.[\w.\-]+\'?/) { |
$major = $1; | $major = $1; |
$minor = $2; | $minor = $2; |
} | } |