my @dirs = ref($dir)?@{$dir}:$dir;
if ($options{use_git}) {
- my @files = grep /\.pdf$/, split /\n/, qx(git ls-tree HEAD -r --full-name --name-only);
+ my @files = grep /\.pdf\"?$/, split /\n/, qx(git ls-tree HEAD -r --full-name --name-only);
for my $file (@files) {
+ $file =~ s/^\"(.+)\"$/"qq($1)"/gee;
insert_or_replace_papers($dbh,$sth,basename($file),File::Spec->rel2abs($file), -e "${file}.xoj");
}
} else {
sub open_pdf {
my ($file_name,$options,$has_xoj) = @_;
print STDERR "opening $file_name\n" if $DEBUG;
- if ($has_xoj) {
- fork_exec('xournal',$file_name);
- } else {
- fork_exec('xournal',$file_name)
+ my $pdf_viewer = 'xournal';
+ if (exists $options->{pdfviewer} and defined $options->{pdfviewer}) {
+ $pdf_viewer = $options->{pdfviewer};
}
+ fork_exec($pdf_viewer,$file_name);
}
sub open_browser{