[LON-CAPA-cvs] cvs: loncom /node.js/axe lonaxe.pl

[raeburn]

raeburn		Sat Jul 25 15:47:21 2026 EDT

  Modified files:              
    /loncom/node.js/axe	lonaxe.pl 
  Log:
  - Data::Dumper->Dump returns a list of strings when called in list context.
  
  
Index: loncom/node.js/axe/lonaxe.pl
diff -u loncom/node.js/axe/lonaxe.pl:1.4 loncom/node.js/axe/lonaxe.pl:1.5
--- loncom/node.js/axe/lonaxe.pl:1.4	Tue Mar 31 23:29:35 2026
+++ loncom/node.js/axe/lonaxe.pl	Sat Jul 25 15:47:21 2026
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 $|=1;
-# $Id: lonaxe.pl,v 1.4 2026/03/31 23:29:35 raeburn Exp $
+# $Id: lonaxe.pl,v 1.5 2026/07/25 15:47:21 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -259,20 +259,21 @@
                                 $url = $privurl.$item;
                             }
                             if ($url ne '') { 
-                                my ($violations,$details) =
+                                my ($violations, at details) =
                                     &LONCAPA::AxeRunner::checkcompliance($protocol.'://'.$hostname.$url.$querystr);
                                 &Apache::lonhtmlcommon::Increment_PrgWin('',\%prog_state,'last resource');
                                 if ($violations eq -1) {
                                     push(@{$errors{'invalid'}},$url);
                                 } elsif ($violations eq '') {
                                     push(@{$errors{'nolistener'}},$url);
-                                } elsif ($violations == 0) {
+                                } elsif ($violations eq 0) {
                                     push(@passed,$url);
                                     print $csvfh "\"$url\",\"$lt{'pass'}\",\"0\"\n";
                                 } else {
                                     push(@failed,$url);
                                     print $outfh &mt('[quant,_1,violation] for [_2]',
-                                                     $violations,$url)."\n".$details."\n\n";
+                                                     $violations,$url)."\n".
+                                                     join("\n", at details)."\n--------------\n";
                                     print $csvfh "\"$url\",\"$lt{'fail'}\",\"$violations\"\n";
                                 }
                             }