The new markup was inspired in http://www.oddmuse.org/cgi-bin/wiki/Footnotes_Extension
65c65,66 < $ConfigError $UploadPattern ); --- > $ConfigError $UploadPattern > $MyFootNoteCounter $MyFootNotes @MyFootnotes %SaveNumFootnote); 1577a1579 > $MyFootNoteCounter = 0; 1598a1601,1606 > if ($MyFootNoteCounter > 0) { > map { s/_MARK_// } @MyFootnotes; > $pageText .= "<DIV class='footnote'>" . "\n" . > "<strong>" . T('Footnote:') . "</strong><br>\n" . > (join (('', @MyFootnotes))) . "</DIV>"; > } 1609a1618,1632 > sub FootNote { > my ($note) = @_; > > $MyFootNoteCounter++; > > my $number = "<A class='footnote' name='fn_$MyFootNoteCounter' > href='#fnr_$MyFootNoteCounter'>$MyFootNoteCounter</A> "; > if (defined $SaveNumFootnote{$note}) { > $MyFootnotes[$SaveNumFootnote{$note}] =~ s/_MARK_/$number _MARK_/; > } else { push @MyFootnotes, $number . " _MARK_$note" . "<br>\n"; > $SaveNumFootnote{$note} = $#MyFootnotes; > } > return "<A class='footnote' name='fnr_$MyFootNoteCounter' href='#fn_MyFootNote Counter'>[$MyFootNoteCounter]</A>"; > } > 1619a1643 > s/(\[\[\[([^\n]+?)\]\]\])/&FootNote($2)/ige;--JuanmaMP