diff options
| author | Norbert Preining <preining@logic.at> | 2009-01-16 00:07:45 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2009-01-16 00:07:45 +0000 |
| commit | f589d28556171fbe773abffa0a5d99789fbfd1be (patch) | |
| tree | dec50339a5576243cbbb7ba9a27246882a3702eb /Master/tlpkg/TeXLive/TLPaper.pm | |
| parent | e64abd2ee8e2bb1967cbe271af9ea1116351d460 (diff) | |
fix tlmgr2 gui mode, the gui used some things from paper-settings ...
git-svn-id: svn://tug.org/texlive/trunk@11882 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPaper.pm')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLPaper.pm | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLPaper.pm b/Master/tlpkg/TeXLive/TLPaper.pm index 58a2bdd17d7..301d6abb65a 100644 --- a/Master/tlpkg/TeXLive/TLPaper.pm +++ b/Master/tlpkg/TeXLive/TLPaper.pm @@ -124,6 +124,19 @@ my %dvipdfm_papersize = ( + +=item C<get_paper_list($prog)> + +Returns the list of supported paper sizes with the first entry being +the currently selected one. + +=cut + +sub get_paper_list { + my $prog = shift; + return ( &{$paper_sub{$prog}} ( "/dummy", "--returnlist" ) ); +} + =item C<do_paper($prog,$texmfsysconfig,@args)> Call the paper subroutine for C<$prog>, passing args. Return hash of |