--- loncom/build/lpml_html_posteval.pl 2001/12/06 23:14:33 1.2 +++ loncom/build/lpml_html_posteval.pl 2001/12/07 04:44:48 1.3 @@ -3,7 +3,7 @@ # The LearningOnline Network with CAPA # lpml_html_posteval.pl - runs posteval lpml statements in a lpml document. # -# $Id: lpml_html_posteval.pl,v 1.2 2001/12/06 23:14:33 harris41 Exp $ +# $Id: lpml_html_posteval.pl,v 1.3 2001/12/07 04:44:48 harris41 Exp $ # # Copyright Michigan State University Board of Trustees # @@ -37,14 +37,17 @@ use strict; while(<>) { my $line=$_; my $arguments=''; - if ($line=~/\<\!\-\- POSTEVAL2 (.*?) \-\-\>/) { + if ($line=~/\<\!\-\- POSTEVAL (.*?) \-\-\>/) { $arguments=$1; } if ($arguments=~/^verify\.pl /) { my @values=`perl $arguments`; my $ret=join('',@values); $ret='good' unless $ret; - $line=~s/<\!\-\- POSTEVAL2 .*? \-\-\>/$ret/; + $line=~s/<\!\-\- POSTEVAL .*? \-\-\>/$ret/; + } + elsif ($arguments=~/^byteandlinecount/) { + } print $line; }