2 // Copyright (C) 2006-2010 Rod Roark <rod@sunsetsystems.com>
4 // This program is free software; you can redistribute it and/or
5 // modify it under the terms of the GNU General Public License
6 // as published by the Free Software Foundation; either version 2
7 // of the License, or (at your option) any later version.
9 require_once("../globals.php");
10 require_once("$srcdir/patient.inc");
11 require_once("$srcdir/pnotes.inc");
12 require_once("$srcdir/forms.inc");
13 require_once("$srcdir/options.inc.php");
14 require_once("$srcdir/gprelations.inc.php");
18 $filename = $_GET['file'];
20 // ensure the file variable has no illegal characters
21 check_file_dir_name($filename);
23 $filepath = $GLOBALS['hylafax_basedir'] . '/recvq/' . $filename;
25 else if ($_GET['scan']) {
27 $filename = $_GET['scan'];
28 $filepath = $GLOBALS['scanner_output_directory'] . '/' . $filename;
31 die("No filename was given.");
34 $ext = substr($filename, strrpos($filename, '.'));
35 $filebase = basename("/$filename", $ext);
36 $faxcache = $GLOBALS['OE_SITE_DIR'] . "/faxcache/$mode/$filebase";
40 // This function builds an array of document categories recursively.
41 // Kittens are the children of cats, you know. :-)
43 function getKittens($catid, $catstring, &$categories) {
44 $cres = sqlStatement("SELECT id, name FROM categories " .
45 "WHERE parent = $catid ORDER BY name");
47 while ($crow = sqlFetchArray($cres)) {
49 getKittens($crow['id'], ($catstring ?
"$catstring / " : "") .
50 ($catid ?
$crow['name'] : ''), $categories);
52 // If no kitties, then this is a leaf node and should be listed.
53 if (!$childcount) $categories[$catid] = $catstring;
56 // This merges the tiff files for the selected pages into one tiff file.
58 function mergeTiffs() {
64 // form_images are the checkboxes to the right of the images.
65 foreach ($_POST['form_images'] as $inbase) {
66 $inames .= ' ' . escapeshellarg("$inbase.tif");
68 if (!$inames) die(xl("Internal error - no pages were selected!"));
69 $tmp0 = exec("cd '$faxcache'; tiffcp $inames temp.tif", $tmp1, $tmp2);
71 $msg .= "tiffcp returned $tmp2: $tmp0 ";
76 // If we are submitting...
78 if ($_POST['form_save']) {
79 $action_taken = false;
83 if ($_POST['form_cb_copy']) {
84 $patient_id = (int) $_POST['form_pid'];
85 if (!$patient_id) die(xl('Internal error - patient ID was not provided!'));
86 // Compute the name of the target directory and make sure it exists.
87 $docdir = $GLOBALS['OE_SITE_DIR'] . "/documents/$patient_id";
88 exec("mkdir -p '$docdir'");
90 // If copying to patient documents...
92 if ($_POST['form_cb_copy_type'] == 1) {
93 // Compute a target filename that does not yet exist.
94 $ffname = trim($_POST['form_filename']);
95 $i = strrpos($ffname, '.');
96 if ($i) $ffname = trim(substr($ffname, 0, $i));
97 if (!$ffname) $ffname = $filebase;
100 // If the target filename exists, modify it until it doesn't.
102 while (is_file("$docdir/$ffname$ffmod$ffsuff")) {
106 $target = "$docdir/$ffname$ffmod$ffsuff";
107 $docdate = fixDate($_POST['form_docdate']);
109 // Create the target PDF. Note that we are relying on the .tif files for
110 // the individual pages to already exist in the faxcache directory.
112 $info_msg .= mergeTiffs();
113 // The -j option here requires that libtiff is configured with libjpeg.
114 // It could be omitted, but the output PDFs would then be quite large.
115 $tmp0 = exec("tiff2pdf -j -p letter -o '$target' '$faxcache/temp.tif'", $tmp1, $tmp2);
118 $info_msg .= "tiff2pdf returned $tmp2: $tmp0 ";
121 $newid = generate_id();
122 $fsize = filesize($target);
123 $catid = (int) $_POST['form_category'];
124 // Update the database.
125 $query = "INSERT INTO documents ( " .
126 "id, type, size, date, url, mimetype, foreign_id, docdate" .
128 "'$newid', 'file_url', '$fsize', NOW(), 'file://$target', " .
129 "'application/pdf', $patient_id, '$docdate' " .
131 sqlStatement($query);
132 $query = "INSERT INTO categories_to_documents ( " .
133 "category_id, document_id" .
135 "'$catid', '$newid' " .
137 sqlStatement($query);
140 // If we are posting a note...
141 if ($_POST['form_cb_note'] && !$info_msg) {
142 // Build note text in a way that identifies the new document.
143 // See pnotes_full.php which uses this to auto-display the document.
144 $note = "$ffname$ffmod$ffsuff";
145 for ($tmp = $catid; $tmp;) {
146 $catrow = sqlQuery("SELECT name, parent FROM categories WHERE id = '$tmp'");
147 $note = $catrow['name'] . "/$note";
148 $tmp = $catrow['parent'];
150 $note = "New scanned document $newid: $note";
151 $form_note_message = trim($_POST['form_note_message']);
152 if (get_magic_quotes_gpc()) $form_note_message = stripslashes($form_note_message);
153 if ($form_note_message) $note .= "\n" . $form_note_message;
154 // addPnote() will do its own addslashes().
155 $noteid = addPnote($_POST['form_pid'], $note, $userauthorized, '1',
156 $_POST['form_note_type'], $_POST['form_note_to']);
157 // Link the new patient note to the document.
158 setGpRelation(1, $newid, 6, $noteid);
159 } // end post patient note
160 } // end copy to documents
162 // Otherwise creating a scanned encounter note...
166 // Get desired $encounter_id.
168 if (empty($_POST['form_copy_sn_visit'])) {
169 $info_msg .= "This patient has no visits! ";
171 $encounter_id = 0 +
$_POST['form_copy_sn_visit'];
175 // Merge the selected pages.
176 $info_msg .= mergeTiffs();
177 $tmp_name = "$faxcache/temp.tif";
181 // The following is cloned from contrib/forms/scanned_notes/new.php:
183 $query = "INSERT INTO form_scanned_notes ( " .
186 "'" . $_POST['form_copy_sn_comments'] . "' " .
188 $formid = sqlInsert($query);
189 addForm($encounter_id, "Scanned Notes", $formid, "scanned_notes",
190 $patient_id, $userauthorized);
192 $imagedir = $GLOBALS['OE_SITE_DIR'] . "/documents/$patient_id/encounters";
193 $imagepath = "$imagedir/${encounter_id}_$formid.jpg";
194 if (! is_dir($imagedir)) {
195 $tmp0 = exec('mkdir -p "' . $imagedir . '"', $tmp1, $tmp2);
196 if ($tmp2) die("mkdir returned $tmp2: $tmp0");
197 exec("touch '$imagedir/index.html'");
199 if (is_file($imagepath)) unlink($imagepath);
200 // TBD: There may be a faster way to create this file, given that
201 // we already have a jpeg for each page in faxcache.
202 $cmd = "convert -resize 800 -density 96 '$tmp_name' -append '$imagepath'";
203 $tmp0 = exec($cmd, $tmp1, $tmp2);
204 if ($tmp2) die("\"$cmd\" returned $tmp2: $tmp0");
207 // If we are posting a patient note...
208 if ($_POST['form_cb_note'] && !$info_msg) {
209 $note = "New scanned encounter note for visit on " . substr($erow['date'], 0, 10);
210 $form_note_message = trim($_POST['form_note_message']);
211 if (get_magic_quotes_gpc()) $form_note_message = stripslashes($form_note_message);
212 if ($form_note_message) $note .= "\n" . $form_note_message;
213 // addPnote() will do its own addslashes().
214 addPnote($patient_id, $note, $userauthorized, '1',
215 $_POST['form_note_type'], $_POST['form_note_to']);
216 } // end post patient note
219 $action_taken = true;
221 } // end copy to chart
223 if ($_POST['form_cb_forward']) {
224 $form_from = trim($_POST['form_from']);
225 $form_to = trim($_POST['form_to']);
226 $form_fax = trim($_POST['form_fax']);
227 $form_message = trim($_POST['form_message']);
228 $form_finemode = $_POST['form_finemode'] ?
'-m' : '-l';
230 if (get_magic_quotes_gpc()) {
231 $form_from = stripslashes($form_from);
232 $form_to = stripslashes($form_to);
233 $form_message = stripslashes($form_message);
236 // Generate a cover page using enscript. This can be a cool thing
237 // to do, as enscript is very powerful.
241 $tmpfn1 = tempnam("/tmp", "fax1");
242 $tmpfn2 = tempnam("/tmp", "fax2");
243 $tmph = fopen($tmpfn1, "w");
245 $fh = fopen($GLOBALS['OE_SITE_DIR'] . "/faxcover.txt", 'r');
246 while (!feof($fh)) $cpstring .= fread($fh, 8192);
248 $cpstring = str_replace('{CURRENT_DATE}' , date('F j, Y'), $cpstring);
249 $cpstring = str_replace('{SENDER_NAME}' , $form_from , $cpstring);
250 $cpstring = str_replace('{RECIPIENT_NAME}', $form_to , $cpstring);
251 $cpstring = str_replace('{RECIPIENT_FAX}' , $form_fax , $cpstring);
252 $cpstring = str_replace('{MESSAGE}' , $form_message , $cpstring);
253 fwrite($tmph, $cpstring);
255 $tmp0 = exec("cd $webserver_root/custom; " . $GLOBALS['hylafax_enscript'] .
256 " -o $tmpfn2 $tmpfn1", $tmp1, $tmp2);
258 $info_msg .= "enscript returned $tmp2: $tmp0 ";
262 // Send the fax as the cover page followed by the selected pages.
263 $info_msg .= mergeTiffs();
264 $tmp0 = exec("sendfax -A -n $form_finemode -d " .
265 escapeshellarg($form_fax) . " $tmpfn2 '$faxcache/temp.tif'",
268 $info_msg .= "sendfax returned $tmp2: $tmp0 ";
272 $action_taken = true;
275 $form_cb_delete = $_POST['form_cb_delete'];
277 // If deleting selected, do it and then check if any are left.
278 if ($form_cb_delete == '1' && !$info_msg) {
279 foreach ($_POST['form_images'] as $inbase) {
280 unlink("$faxcache/$inbase.jpg");
281 $action_taken = true;
283 // Check if any .jpg files remain... if not we'll clean up.
285 $dh = opendir($faxcache);
286 if (! $dh) die("Cannot read $faxcache");
287 $form_cb_delete = '2';
288 while (false !== ($jfname = readdir($dh))) {
289 if (preg_match('/\.jpg$/', $jfname)) $form_cb_delete = '1';
295 if ($form_cb_delete == '2' && !$info_msg) {
296 // Delete the tiff file, with archiving if desired.
297 if ($GLOBALS['hylafax_archdir'] && $mode == 'fax') {
298 rename($filepath, $GLOBALS['hylafax_archdir'] . '/' . $filename);
303 if (is_dir($faxcache)) {
304 $dh = opendir($faxcache);
305 while (($tmp = readdir($dh)) !== false) {
306 if (is_file("$faxcache/$tmp")) unlink("$faxcache/$tmp");
311 $action_taken = true;
314 if (!$action_taken && !$info_msg)
315 $info_msg = xl('You did not choose any actions.');
317 if ($info_msg ||
$form_cb_delete != '1') {
318 // Close this window and refresh the fax list.
319 echo "<html>\n<body>\n<script language='JavaScript'>\n";
320 if ($info_msg) echo " alert('$info_msg');\n";
321 echo " if (!opener.closed && opener.refreshme) opener.refreshme();\n";
322 echo " window.close();\n";
323 echo "</script>\n</body>\n</html>\n";
326 } // end submit logic
328 // If we get this far then we are displaying the form.
330 // Find out if the scanned_notes form is installed and active.
332 $tmp = sqlQuery("SELECT count(*) AS count FROM registry WHERE " .
333 "directory LIKE 'scanned_notes' AND state = 1 AND sql_run = 1");
334 $using_scanned_notes = $tmp['count'];
336 // If the image cache does not yet exist for this fax, build it.
337 // This will contain a .tif image as well as a .jpg image for each page.
339 if (! is_dir($faxcache)) {
340 $tmp0 = exec('mkdir -p "' . $faxcache . '"', $tmp1, $tmp2);
341 if ($tmp2) die("mkdir returned $tmp2: $tmp0");
342 if (strtolower($ext) != '.tif') {
343 // convert's default density for PDF-to-TIFF conversion is 72 dpi which is
344 // not very good, so we upgrade it to "fine mode" fax quality. It's really
345 // better and faster if the scanner produces TIFFs instead of PDFs.
346 $tmp0 = exec("convert -density 203x196 '$filepath' '$faxcache/deleteme.tif'", $tmp1, $tmp2);
347 if ($tmp2) die("convert returned $tmp2: $tmp0");
348 $tmp0 = exec("cd '$faxcache'; tiffsplit 'deleteme.tif'; rm -f 'deleteme.tif'", $tmp1, $tmp2);
349 if ($tmp2) die("tiffsplit/rm returned $tmp2: $tmp0");
351 $tmp0 = exec("cd '$faxcache'; tiffsplit '$filepath'", $tmp1, $tmp2);
352 if ($tmp2) die("tiffsplit returned $tmp2: $tmp0");
354 $tmp0 = exec("cd '$faxcache'; mogrify -resize 750x970 -format jpg *.tif", $tmp1, $tmp2);
355 if ($tmp2) die("mogrify returned $tmp2: $tmp0; ext is '$ext'; filepath is '$filepath'");
358 // Get the categories list.
359 $categories = array();
360 getKittens(0, '', $categories);
362 // Get the users list.
363 $ures = sqlStatement("SELECT username, fname, lname FROM users " .
364 "WHERE active = 1 AND ( info IS NULL OR info NOT LIKE '%Inactive%' ) " .
365 "ORDER BY lname, fname");
369 <?php
if (function_exists(html_header_show
)) html_header_show(); ?
>
370 <title
><?php
xl('Dispatch Received Document','e'); ?
></title
>
371 <link rel
="stylesheet" href
='<?php echo $css_header ?>' type
='text/css'>
375 td
, input
, select
, textarea
{
386 border
-color
: #0000ff;
393 <style type
="text/css">@import
url(../../library
/dynarch_calendar
.css
);</style
>
395 <script type
="text/javascript" src
="../../library/topdialog.js"></script
>
396 <script type
="text/javascript" src
="../../library/dialog.js"></script
>
397 <script type
="text/javascript" src
="../../library/textformat.js"></script
>
398 <script type
="text/javascript" src
="../../library/dynarch_calendar.js"></script
>
399 <?php
include_once("{$GLOBALS['srcdir']}/dynarch_calendar_en.inc.php"); ?
>
400 <script type
="text/javascript" src
="../../library/dynarch_calendar_setup.js"></script
>
401 <script type
="text/javascript" src
="../../library/js/jquery-1.2.2.min.js"></script
>
403 <script language
="JavaScript">
405 var mypcc
= '<?php echo $GLOBALS['phone_country_code
'] ?>';
407 <?php
require($GLOBALS['srcdir'] . "/restoreSession.php"); ?
>
409 function divclick(cb
, divid
) {
410 var divstyle
= document
.getElementById(divid
).style
;
412 if (divid
== 'div_copy_doc') {
413 document
.getElementById('div_copy_sn').style
.display
= 'none';
415 else if (divid
== 'div_copy_sn') {
416 document
.getElementById('div_copy_doc').style
.display
= 'none';
418 divstyle
.display
= 'block';
420 divstyle
.display
= 'none';
425 // This is for callback by the find-patient popup.
426 function setpatient(pid
, lname
, fname
, dob
) {
427 var f
= document
.forms
[0];
428 f
.form_patient
.value
= lname +
', ' + fname
;
429 f
.form_pid
.value
= pid
;
430 <?php
if ($using_scanned_notes) { ?
>
431 // This loads the patient's list of recent encounters:
432 f
.form_copy_sn_visit
.options
.length
= 0;
433 f
.form_copy_sn_visit
.options
[0] = new Option('Loading...', '0');
434 $
.getScript("fax_dispatch_newpid.php?p=" + pid
);
438 // This invokes the find-patient popup.
439 function sel_patient() {
440 dlgopen('../main/calendar/find_patient_popup.php', '_blank', 500, 400);
443 // Check for errors when the form is submitted.
444 function validate() {
445 var f
= document
.forms
[0];
447 if (f
.form_cb_copy
.checked
) {
448 if (! f
.form_pid
.value
) {
449 alert('You have not selected a patient!');
454 if (f
.form_cb_forward
.checked
) {
455 var s
= f
.form_fax
.value
;
457 alert('A fax number is required!');
461 for (var i
= 0; i
< s
.length
; ++i
) {
463 if (c
>= '0' && c
<= '9') {
466 else if (digcount
== 0 || c
!= '-') {
467 alert('Invalid character(s) in fax number!');
472 if (s
.charAt(0) < '2') {
473 alert('Local phone number starts with an invalid digit!');
477 else if (digcount
== 11) {
478 if (s
.charAt(0) != '1') {
479 alert('11-digit number must begin with 1!');
483 else if (digcount
== 10) {
484 if (s
.charAt(0) < '2') {
485 alert('10-digit number starts with an invalid digit!');
488 f
.form_fax
.value
= '1' + s
;
491 alert('Invalid number of digits in fax telephone number!');
496 if (f
.form_cb_copy
.checked || f
.form_cb_forward
.checked
) {
498 for (var i
= 0; i
< f
.elements
.length
; ++i
) {
499 if (f
.elements
[i
].name
== 'form_images[]' && f
.elements
[i
].checked
)
502 if (check_count
== 0) {
503 alert('No pages have been selected!');
508 top
.restoreSession();
512 function allCheckboxes(issel
) {
513 var f
= document
.forms
[0];
514 for (var i
= 0; i
< f
.elements
.length
; ++i
) {
515 if (f
.elements
[i
].name
== 'form_images[]') f
.elements
[i
].checked
= issel
;
523 <body
class="body_top" onunload
='imclosing()'>
525 <center
><h2
><?php
xl('Dispatch Received Document','e'); ?
></h2
></center
>
527 <form method
='post' name
='theform'
528 action
='fax_dispatch.php?<?php echo ($mode == 'fax
') ? 'file
' : 'scan
'; ?>=<?php echo $filename ?>' onsubmit
='return validate()'>
530 <p
><input type
='checkbox' name
='form_cb_copy' value
='1'
531 onclick
='return divclick(this,"div_copy");' />
532 <b
><?php
xl('Copy Pages to Patient Chart','e'); ?
></b
></p
>
534 <div id
='div_copy' class='section' style
='display:none;'>
537 <td
class='itemtitle' width
='1%' nowrap
><?php
xl('Patient','e'); ?
></td
>
539 <input type
='text' size
='10' name
='form_patient' style
='width:100%'
540 value
=' (<?php xl('Click to select
'); ?>)' onclick
='sel_patient()'
541 title
='Click to select patient' readonly
/>
542 <input type
='hidden' name
='form_pid' value
='0' />
546 <td colspan
='2' style
='padding-top:0.5em;'>
547 <input type
='radio' name
='form_cb_copy_type' value
='1'
548 onclick
='return divclick(this,"div_copy_doc");' checked
/>
549 <b
><?php
xl('Patient Document','e'); ?
></b
> 
;
550 <?php
if ($using_scanned_notes) { ?
>
551 <input type
='radio' name
='form_cb_copy_type' value
='2'
552 onclick
='return divclick(this,"div_copy_sn");' />
553 <b
><?php
xl('Scanned Encounter Note','e'); ?
></b
>
555 <div id
='div_copy_doc' class='section' style
='margin-top:0.5em;'>
558 <td
class='itemtitle' nowrap
><?php
xl('Category','e'); ?
></td
>
560 <select name
='form_category' style
='width:100%'>
562 foreach ($categories as $catkey => $catname) {
563 echo " <option value='$catkey'";
564 echo ">$catname</option>\n";
571 <td
class='itemtitle' nowrap
><?php
xl('Filename','e'); ?
></td
>
573 <input type
='text' size
='10' name
='form_filename' style
='width:100%'
574 value
='<?php echo "$filebase.pdf" ?>'
575 title
='Name for this document in the patient chart' />
579 <td
class='itemtitle' nowrap
><?php
xl('Document Date','e'); ?
></td
>
581 <input type
='text' size
='10' name
='form_docdate' id
='form_docdate'
582 value
='<?php echo date('Y
-m
-d
'); ?>'
583 title
='<?php xl('yyyy
-mm
-dd date associated with this document
','e
'); ?>'
584 onkeyup
='datekeyup(this,mypcc)' onblur
='dateblur(this,mypcc)' />
585 <img src
='../pic/show_calendar.gif' align
='absbottom' width
='24' height
='22'
586 id
='img_docdate' border
='0' alt
='[?]' style
='cursor:pointer'
587 title
='<?php xl('Click here to choose a date
','e
'); ?>' />
591 </div
><!-- end div_copy_doc
-->
592 <div id
='div_copy_sn' class='section' style
='display:none;margin-top:0.5em;'>
595 <td
class='itemtitle' width
='1%' nowrap
><?php
xl('Visit Date','e'); ?
></td
>
597 <select name
='form_copy_sn_visit' style
='width:100%'>
602 <td
class='itemtitle' width
='1%' nowrap
><?php
xl('Comments','e'); ?
></td
>
604 <textarea name
='form_copy_sn_comments' rows
='3' cols
='30' style
='width:100%'
605 title
='Comments associated with this scanned note'
610 </div
><!-- end div_copy_sn
-->
614 <td colspan
='2' style
='padding-top:0.5em;'>
615 <input type
='checkbox' name
='form_cb_note' value
='1'
616 onclick
='return divclick(this,"div_note");' />
617 <b
><?php
xl('Create Patient Note','e'); ?
></b
>
618 <div id
='div_note' class='section' style
='display:none;margin-top:0.5em;'>
621 <td
class='itemtitle' width
='1%' nowrap
><?php
xl('Type','e'); ?
></td
>
624 // Added 6/2009 by BM to incorporate the patient notes into the list_options listings
625 generate_form_field(array('data_type'=>1,'field_id'=>'note_type','list_id'=>'note_type','empty_title'=>'SKIP'), '');
630 <td
class='itemtitle' width
='1%' nowrap
>To
</td
>
632 <select name
='form_note_to' style
='width:100%'>
634 while ($urow = sqlFetchArray($ures)) {
635 echo " <option value='" . $urow['username'] . "'";
636 echo ">" . $urow['lname'];
637 if ($urow['fname']) echo ", " . $urow['fname'];
641 <option value
=''>** <?php
xl('Close','e'); ?
> **</option
>
646 <td
class='itemtitle' nowrap
><?php
xl('Message','e'); ?
></td
>
648 <textarea name
='form_note_message' rows
='3' cols
='30' style
='width:100%'
649 title
='Your comments' /></textarea
>
653 </div
><!-- end div_note
-->
657 </div
><!-- end div_copy
-->
659 <p
><input type
='checkbox' name
='form_cb_forward' value
='1'
660 onclick
='return divclick(this,"div_forward");' />
661 <b
><?php
xl('Forward Pages via Fax','e'); ?
></b
></p
>
663 <div id
='div_forward' class='section' style
='display:none;'>
666 <td
class='itemtitle' width
='1%' nowrap
><?php
xl('From','e'); ?
></td
>
668 <input type
='text' size
='10' name
='form_from' style
='width:100%'
669 title
='Type your name here' />
673 <td
class='itemtitle' nowrap
><?php
xl('To','e'); ?
></td
>
675 <input type
='text' size
='10' name
='form_to' style
='width:100%'
676 title
='Type the recipient name here' />
680 <td
class='itemtitle' nowrap
><?php
xl('Fax','e'); ?
></td
>
682 <input type
='text' size
='10' name
='form_fax' style
='width:100%'
683 title
='The fax phone number to send this to' />
687 <td
class='itemtitle' nowrap
><?php
xl('Message','e'); ?
></td
>
689 <textarea name
='form_message' rows
='3' cols
='30' style
='width:100%'
690 title
='Your comments to include with this message' /></textarea
>
694 <td
class='itemtitle' nowrap
><?php
xl('Quality','e'); ?
></td
>
696 <input type
='radio' name
='form_finemode' value
='' /><?php
xl('Normal','e'); ?
>  
;
697 <input type
='radio' name
='form_finemode' value
='1' checked
/><?php
xl('Fine','e'); ?
>  
;
701 </div
><!-- end div_forward
-->
703 <p
><b
><?php
xl('Delete Pages','e'); ?
>:</b
> 
;
704 <input type
='radio' name
='form_cb_delete' value
='2' />All
 
;
705 <input type
='radio' name
='form_cb_delete' value
='1' checked
/>Selected
 
;
706 <input type
='radio' name
='form_cb_delete' value
='0' />None
711 <input type
='submit' name
='form_save' value
='<?php xl('OK
','e
'); ?>' />
713 <input type
='button' value
='<?php xl('Cancel
','e
'); ?>' onclick
='window.close()' />
715 <input type
='button' value
='<?php xl('Select All
','e
'); ?>' onclick
='allCheckboxes(true)' />
717 <input type
='button' value
='<?php xl('Clear All
','e
'); ?>' onclick
='allCheckboxes(false)' />
720 <p
><br
/><b
><?php
xl('Please select the desired pages to copy or forward:','e'); ?
></b
></p
>
724 $dh = opendir($faxcache);
725 if (! $dh) die("Cannot read $faxcache");
727 while (false !== ($jfname = readdir($dh))) {
728 if (preg_match("/^(.*)\.jpg/", $jfname, $matches)) {
729 $jpgarray[$matches[1]] = $jfname;
733 // readdir does not read in any particular order, we must therefore sort
734 // by filename so the display order matches the original document.
737 foreach ($jpgarray as $jfnamebase => $jfname) {
740 echo " <td valign='top'>\n";
741 echo " <img src='../../sites/" . $_SESSION['site_id'] . "/faxcache/$mode/$filebase/$jfname' />\n";
743 echo " <td align='center' valign='top'>\n";
744 echo " <input type='checkbox' name='form_images[]' value='$jfnamebase' checked />\n";
745 echo " <br />$page\n";
755 <script language
='JavaScript'>
756 Calendar
.setup({inputField
:"form_docdate", ifFormat
:"%Y-%m-%d", button
:"img_docdate"});