|
32
|
1 /****************************************************************************
|
|
|
2 * - sample module for digilib *
|
|
|
3 * *
|
|
|
4 * christian luginbuehl (luginbuehl@student.unibe.ch) *
|
|
|
5 ****************************************************************************/
|
|
|
6
|
|
|
7 /**
|
|
|
8 * generates a pdf-file using a perl-script called makepdf
|
|
|
9 *
|
|
|
10 * ATTENTION: the script and this function are only in alpha stadium
|
|
|
11 */
|
|
|
12 function makePDF() {
|
|
|
13 var pages = prompt("Enter the pages you like to make a PDF of:", att[1]);
|
|
|
14 if (pages != null && pages != "") {
|
|
|
15 top.location = "http://penelope.unibe.ch/cgi-bin/cgiwrap/luginbul/makepdf.cgi?dir=" + att[0] + "&pages=" + pages;
|
|
|
16 }
|
|
|
17 }
|
