#}
# Write first line of the lyx file
- $LyX_Preamble .= "\#LyX 1.2 created this file. For more info see http://www.lyx.org/\n";
+ $LyX_Preamble .= "\# The reLyX bundled with LyX 1.3 created this file.\n" .
+ "# For more info see http://www.lyx.org/\n";
# Print \lyxformat.
$LyX_Preamble .= "\\lyxformat $Format\n";
my $up;
foreach $up (keys %Usepackage_Table) {
- $Latex_Preamble =~ s/\\usepackage\{$up\}\s*// && do {
- my $tmp = $Usepackage_Table{$up};
- $LyX_Preamble .= join($tmp, "\n") unless ($tmp eq '');
- #$LyX_Preamble .= "$Usepackage_Table{$up}";
- #$LyX_Preamble .= "\n" unless ($Usepackage_Table{$up} eq "");
+ $Latex_Preamble =~ s/^\s*\\usepackage\{$up\}\s*// && do {
+ $LyX_Preamble .= "$Usepackage_Table{$up}";
+ $LyX_Preamble .= "\n" unless ($Usepackage_Table{$up} eq "");
}
}
# Natbib is a little more complex than that.
if ($Latex_Preamble =~ s/\\usepackage(.*)\{natbib\}\s*//) {
- print "matched it!\n";
$LyX_Preamble .= "\\use_natbib 1\n\\use_numerical_citations ";
$LyX_Preamble .= ($1 =~ /numbers/) ? "1\n" : "0\n";
} else {