.

diff --git a/htdocs/cgi-bin/data.cgi b/htdocs/cgi-bin/data.cgi
index e08b249c8b25a5deafad08068fa95ccbee6722ab..7f983b28a9542c1137fca55ebcba237dcc98898b 100755 (executable)
--- a/htdocs/cgi-bin/data.cgi
+++ b/htdocs/cgi-bin/data.cgi
@@ -250,8 +250,7 @@ sub DeletionConfirmed {
 }
 
 sub errorPage{
-my $err = shift;
-my $sub = shift;
+my  ($err, $sub) = @_;
 printHeader("ERROR");
 print "<font color=red><h2>".ref($err)." Encountered!</h2><br></font><p>Building  $sub Failed! </p><pre><b>Error:</b> ".$err."</pre>";
 print $cgi->end_html()