Fix stock answers

The administration interface looked for them at the old place. Update
the path.

diff --git a/PciIds/Html/Admin.pm b/PciIds/Html/Admin.pm
index 258df13195ecc58a617b1f6944608dc3fc0ab63e..95a7d05e13713a8e9c453c9465b649b60c2499e8 100644 (file)
--- a/PciIds/Html/Admin.pm
+++ b/PciIds/Html/Admin.pm
@@ -83,7 +83,7 @@ sub genNewForm( $$ ) {
 
 sub loadStock() {
        my @stock;
-       if( open ANS, "$directory/answers" ) {
+       if( open ANS, "$directory/cf/answers" ) {
                my( $name, $text, $lines );
                while( defined( $name = <ANS> ) ) {
                        $lines = '';