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. :-)getKittens
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 $form_note_message = strip_escape_custom($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 $form_note_message = strip_escape_custom($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 $form_from = strip_escape_custom($form_from);
231 $form_to = strip_escape_custom($form_to);
232 $form_message = strip_escape_custom($form_message);
234 // Generate a cover page using enscript. This can be a cool thing
235 // to do, as enscript is very powerful.
239 $tmpfn1 = tempnam("/tmp", "fax1");
240 $tmpfn2 = tempnam("/tmp", "fax2");
241 $tmph = fopen($tmpfn1, "w");
243 $fh = fopen($GLOBALS['OE_SITE_DIR'] . "/faxcover.txt", 'r');
244 while (!feof($fh)) $cpstring .= fread($fh, 8192);
246 $cpstring = str_replace('{CURRENT_DATE}' , date('F j, Y'), $cpstring);
247 $cpstring = str_replace('{SENDER_NAME}' , $form_from , $cpstring);
248 $cpstring = str_replace('{RECIPIENT_NAME}', $form_to , $cpstring);
249 $cpstring = str_replace('{RECIPIENT_FAX}' , $form_fax , $cpstring);
250 $cpstring = str_replace('{MESSAGE}' , $form_message , $cpstring);
251 fwrite($tmph, $cpstring);
253 $tmp0 = exec("cd $webserver_root/custom; " . $GLOBALS['hylafax_enscript'] .
254 " -o $tmpfn2 $tmpfn1", $tmp1, $tmp2);
256 $info_msg .= "enscript returned $tmp2: $tmp0 ";
260 // Send the fax as the cover page followed by the selected pages.
261 $info_msg .= mergeTiffs();
262 $tmp0 = exec("sendfax -A -n $form_finemode -d " .
263 escapeshellarg($form_fax) . " $tmpfn2 '$faxcache/temp.tif'",
266 $info_msg .= "sendfax returned $tmp2: $tmp0 ";
270 $action_taken = true;
273 $form_cb_delete = $_POST['form_cb_delete'];
275 // If deleting selected, do it and then check if any are left.
276 if ($form_cb_delete == '1' && !$info_msg) {
277 foreach ($_POST['form_images'] as $inbase) {
278 unlink("$faxcache/$inbase.jpg");
279 $action_taken = true;
281 // Check if any .jpg files remain... if not we'll clean up.
283 $dh = opendir($faxcache);
284 if (! $dh) die("Cannot read $faxcache");
285 $form_cb_delete = '2';
286 while (false !== ($jfname = readdir($dh))) {
287 if (preg_match('/\.jpg$/', $jfname)) $form_cb_delete = '1';
293 if ($form_cb_delete == '2' && !$info_msg) {
294 // Delete the tiff file, with archiving if desired.
295 if ($GLOBALS['hylafax_archdir'] && $mode == 'fax') {
296 rename($filepath, $GLOBALS['hylafax_archdir'] . '/' . $filename);
301 if (is_dir($faxcache)) {
302 $dh = opendir($faxcache);
303 while (($tmp = readdir($dh)) !== false) {
304 if (is_file("$faxcache/$tmp")) unlink("$faxcache/$tmp");
309 $action_taken = true;
312 if (!$action_taken && !$info_msg)
313 $info_msg = xl('You did not choose any actions.');
315 if ($info_msg ||
$form_cb_delete != '1') {
316 // Close this window and refresh the fax list.
317 echo "<html>\n<body>\n<script language='JavaScript'>\n";
318 if ($info_msg) echo " alert('$info_msg');\n";
319 echo " if (!opener.closed && opener.refreshme) opener.refreshme();\n";
320 echo " window.close();\n";
321 echo "</script>\n</body>\n</html>\n";
324 } // end submit logic
326 // If we get this far then we are displaying the form.
328 // Find out if the scanned_notes form is installed and active.
330 $tmp = sqlQuery("SELECT count(*) AS count FROM registry WHERE " .
331 "directory LIKE 'scanned_notes' AND state = 1 AND sql_run = 1");
332 $using_scanned_notes = $tmp['count'];
334 // If the image cache does not yet exist for this fax, build it.
335 // This will contain a .tif image as well as a .jpg image for each page.
337 if (! is_dir($faxcache)) {
338 $tmp0 = exec('mkdir -p "' . $faxcache . '"', $tmp1, $tmp2);
339 if ($tmp2) die("mkdir returned $tmp2: $tmp0");
340 if (strtolower($ext) != '.tif') {
341 // convert's default density for PDF-to-TIFF conversion is 72 dpi which is
342 // not very good, so we upgrade it to "fine mode" fax quality. It's really
343 // better and faster if the scanner produces TIFFs instead of PDFs.
344 $tmp0 = exec("convert -density 203x196 '$filepath' '$faxcache/deleteme.tif'", $tmp1, $tmp2);
345 if ($tmp2) die("convert returned $tmp2: $tmp0");
346 $tmp0 = exec("cd '$faxcache'; tiffsplit 'deleteme.tif'; rm -f 'deleteme.tif'", $tmp1, $tmp2);
347 if ($tmp2) die("tiffsplit/rm returned $tmp2: $tmp0");
349 $tmp0 = exec("cd '$faxcache'; tiffsplit '$filepath'", $tmp1, $tmp2);
350 if ($tmp2) die("tiffsplit returned $tmp2: $tmp0");
352 $tmp0 = exec("cd '$faxcache'; mogrify -resize 750x970 -format jpg *.tif", $tmp1, $tmp2);
353 if ($tmp2) die("mogrify returned $tmp2: $tmp0; ext is '$ext'; filepath is '$filepath'");
356 // Get the categories list.
357 $categories = array();
358 getKittens(0, '', $categories);
360 // Get the users list.
361 $ures = sqlStatement("SELECT username, fname, lname FROM users " .
362 "WHERE active = 1 AND ( info IS NULL OR info NOT LIKE '%Inactive%' ) " .
363 "ORDER BY lname, fname");
367 <?php
if (function_exists(html_header_show
)) html_header_show(); ?
>
368 <title
><?php
xl('Dispatch Received Document','e'); ?
></title
>
369 <link rel
="stylesheet" href
='<?php echo $css_header ?>' type
='text/css'>
373 td
, input
, select
, textarea
{
384 border
-color
: #0000ff;
391 <style type
="text/css">@import
url(../../library
/dynarch_calendar
.css
);</style
>
393 <script type
="text/javascript" src
="../../library/topdialog.js"></script
>
394 <script type
="text/javascript" src
="../../library/dialog.js"></script
>
395 <script type
="text/javascript" src
="../../library/textformat.js"></script
>
396 <script type
="text/javascript" src
="../../library/dynarch_calendar.js"></script
>
397 <?php
include_once("{$GLOBALS['srcdir']}/dynarch_calendar_en.inc.php"); ?
>
398 <script type
="text/javascript" src
="../../library/dynarch_calendar_setup.js"></script
>
399 <script type
="text/javascript" src
="<?php echo $GLOBALS['assets_static_relative']; ?>/jquery-min-1-2-2/index.js"></script
>
401 <script language
="JavaScript">
403 var mypcc
= '<?php echo $GLOBALS['phone_country_code
'] ?>';
405 <?php
require($GLOBALS['srcdir'] . "/restoreSession.php"); ?
>
407 function divclick(cb
, divid
) {
408 var divstyle
= document
.getElementById(divid
).style
;
410 if (divid
== 'div_copy_doc') {
411 document
.getElementById('div_copy_sn').style
.display
= 'none';
413 else if (divid
== 'div_copy_sn') {
414 document
.getElementById('div_copy_doc').style
.display
= 'none';
416 divstyle
.display
= 'block';
418 divstyle
.display
= 'none';
423 // This is for callback by the find-patient popup.
424 function setpatient(pid
, lname
, fname
, dob
) {
425 var f
= document
.forms
[0];
426 f
.form_patient
.value
= lname +
', ' + fname
;
427 f
.form_pid
.value
= pid
;
428 <?php
if ($using_scanned_notes) { ?
>
429 // This loads the patient's list of recent encounters:
430 f
.form_copy_sn_visit
.options
.length
= 0;
431 f
.form_copy_sn_visit
.options
[0] = new Option('Loading...', '0');
432 $
.getScript("fax_dispatch_newpid.php?p=" + pid
);
436 // This invokes the find-patient popup.
437 function sel_patient() {
438 dlgopen('../main/calendar/find_patient_popup.php', '_blank', 500, 400);
441 // Check for errors when the form is submitted.
442 function validate() {
443 var f
= document
.forms
[0];
445 if (f
.form_cb_copy
.checked
) {
446 if (! f
.form_pid
.value
) {
447 alert('You have not selected a patient!');
452 if (f
.form_cb_forward
.checked
) {
453 var s
= f
.form_fax
.value
;
455 alert('A fax number is required!');
459 for (var i
= 0; i
< s
.length
; ++i
) {
461 if (c
>= '0' && c
<= '9') {
464 else if (digcount
== 0 || c
!= '-') {
465 alert('Invalid character(s) in fax number!');
470 if (s
.charAt(0) < '2') {
471 alert('Local phone number starts with an invalid digit!');
475 else if (digcount
== 11) {
476 if (s
.charAt(0) != '1') {
477 alert('11-digit number must begin with 1!');
481 else if (digcount
== 10) {
482 if (s
.charAt(0) < '2') {
483 alert('10-digit number starts with an invalid digit!');
486 f
.form_fax
.value
= '1' + s
;
489 alert('Invalid number of digits in fax telephone number!');
494 if (f
.form_cb_copy
.checked || f
.form_cb_forward
.checked
) {
496 for (var i
= 0; i
< f
.elements
.length
; ++i
) {
497 if (f
.elements
[i
].name
== 'form_images[]' && f
.elements
[i
].checked
)
500 if (check_count
== 0) {
501 alert('No pages have been selected!');
506 top
.restoreSession();
510 function allCheckboxes(issel
) {
511 var f
= document
.forms
[0];
512 for (var i
= 0; i
< f
.elements
.length
; ++i
) {
513 if (f
.elements
[i
].name
== 'form_images[]') f
.elements
[i
].checked
= issel
;
521 <body
class="body_top" onunload
='imclosing()'>
523 <center
><h2
><?php
xl('Dispatch Received Document','e'); ?
></h2
></center
>
525 <form method
='post' name
='theform'
526 action
='fax_dispatch.php?<?php echo ($mode == 'fax
') ? 'file
' : 'scan
'; ?>=<?php echo $filename ?>' onsubmit
='return validate()'>
528 <p
><input type
='checkbox' name
='form_cb_copy' value
='1'
529 onclick
='return divclick(this,"div_copy");' />
530 <b
><?php
xl('Copy Pages to Patient Chart','e'); ?
></b
></p
>
532 <div id
='div_copy' class='section' style
='display:none;'>
535 <td
class='itemtitle' width
='1%' nowrap
><?php
xl('Patient','e'); ?
></td
>
537 <input type
='text' size
='10' name
='form_patient' style
='width:100%'
538 value
=' (<?php xl('Click to select
'); ?>)' onclick
='sel_patient()'
539 title
='Click to select patient' readonly
/>
540 <input type
='hidden' name
='form_pid' value
='0' />
544 <td colspan
='2' style
='padding-top:0.5em;'>
545 <input type
='radio' name
='form_cb_copy_type' value
='1'
546 onclick
='return divclick(this,"div_copy_doc");' checked
/>
547 <b
><?php
xl('Patient Document','e'); ?
></b
> 
;
548 <?php
if ($using_scanned_notes) { ?
>
549 <input type
='radio' name
='form_cb_copy_type' value
='2'
550 onclick
='return divclick(this,"div_copy_sn");' />
551 <b
><?php
xl('Scanned Encounter Note','e'); ?
></b
>
553 <div id
='div_copy_doc' class='section' style
='margin-top:0.5em;'>
556 <td
class='itemtitle' nowrap
><?php
xl('Category','e'); ?
></td
>
558 <select name
='form_category' style
='width:100%'>
560 foreach ($categories as $catkey => $catname) {
561 echo " <option value='$catkey'";
562 echo ">$catname</option>\n";
569 <td
class='itemtitle' nowrap
><?php
xl('Filename','e'); ?
></td
>
571 <input type
='text' size
='10' name
='form_filename' style
='width:100%'
572 value
='<?php echo "$filebase.pdf" ?>'
573 title
='Name for this document in the patient chart' />
577 <td
class='itemtitle' nowrap
><?php
xl('Document Date','e'); ?
></td
>
579 <input type
='text' size
='10' name
='form_docdate' id
='form_docdate'
580 value
='<?php echo date('Y
-m
-d
'); ?>'
581 title
='<?php xl('yyyy
-mm
-dd date associated with this document
','e
'); ?>'
582 onkeyup
='datekeyup(this,mypcc)' onblur
='dateblur(this,mypcc)' />
583 <img src
='../pic/show_calendar.gif' align
='absbottom' width
='24' height
='22'
584 id
='img_docdate' border
='0' alt
='[?]' style
='cursor:pointer'
585 title
='<?php xl('Click here to choose a date
','e
'); ?>' />
589 </div
><!-- end div_copy_doc
-->
590 <div id
='div_copy_sn' class='section' style
='display:none;margin-top:0.5em;'>
593 <td
class='itemtitle' width
='1%' nowrap
><?php
xl('Visit Date','e'); ?
></td
>
595 <select name
='form_copy_sn_visit' style
='width:100%'>
600 <td
class='itemtitle' width
='1%' nowrap
><?php
xl('Comments','e'); ?
></td
>
602 <textarea name
='form_copy_sn_comments' rows
='3' cols
='30' style
='width:100%'
603 title
='Comments associated with this scanned note'
608 </div
><!-- end div_copy_sn
-->
612 <td colspan
='2' style
='padding-top:0.5em;'>
613 <input type
='checkbox' name
='form_cb_note' value
='1'
614 onclick
='return divclick(this,"div_note");' />
615 <b
><?php
xl('Create Patient Note','e'); ?
></b
>
616 <div id
='div_note' class='section' style
='display:none;margin-top:0.5em;'>
619 <td
class='itemtitle' width
='1%' nowrap
><?php
xl('Type','e'); ?
></td
>
622 // Added 6/2009 by BM to incorporate the patient notes into the list_options listings
623 generate_form_field(array('data_type'=>1,'field_id'=>'note_type','list_id'=>'note_type','empty_title'=>'SKIP'), '');
628 <td
class='itemtitle' width
='1%' nowrap
>To
</td
>
630 <select name
='form_note_to' style
='width:100%'>
632 while ($urow = sqlFetchArray($ures)) {
633 echo " <option value='" . $urow['username'] . "'";
634 echo ">" . $urow['lname'];
635 if ($urow['fname']) echo ", " . $urow['fname'];
639 <option value
=''>** <?php
xl('Close','e'); ?
> **</option
>
644 <td
class='itemtitle' nowrap
><?php
xl('Message','e'); ?
></td
>
646 <textarea name
='form_note_message' rows
='3' cols
='30' style
='width:100%'
647 title
='Your comments' /></textarea
>
651 </div
><!-- end div_note
-->
655 </div
><!-- end div_copy
-->
657 <p
><input type
='checkbox' name
='form_cb_forward' value
='1'
658 onclick
='return divclick(this,"div_forward");' />
659 <b
><?php
xl('Forward Pages via Fax','e'); ?
></b
></p
>
661 <div id
='div_forward' class='section' style
='display:none;'>
664 <td
class='itemtitle' width
='1%' nowrap
><?php
xl('From','e'); ?
></td
>
666 <input type
='text' size
='10' name
='form_from' style
='width:100%'
667 title
='Type your name here' />
671 <td
class='itemtitle' nowrap
><?php
xl('To','e'); ?
></td
>
673 <input type
='text' size
='10' name
='form_to' style
='width:100%'
674 title
='Type the recipient name here' />
678 <td
class='itemtitle' nowrap
><?php
xl('Fax','e'); ?
></td
>
680 <input type
='text' size
='10' name
='form_fax' style
='width:100%'
681 title
='The fax phone number to send this to' />
685 <td
class='itemtitle' nowrap
><?php
xl('Message','e'); ?
></td
>
687 <textarea name
='form_message' rows
='3' cols
='30' style
='width:100%'
688 title
='Your comments to include with this message' /></textarea
>
692 <td
class='itemtitle' nowrap
><?php
xl('Quality','e'); ?
></td
>
694 <input type
='radio' name
='form_finemode' value
='' /><?php
xl('Normal','e'); ?
>  
;
695 <input type
='radio' name
='form_finemode' value
='1' checked
/><?php
xl('Fine','e'); ?
>  
;
699 </div
><!-- end div_forward
-->
701 <p
><b
><?php
xl('Delete Pages','e'); ?
>:</b
> 
;
702 <input type
='radio' name
='form_cb_delete' value
='2' />All
 
;
703 <input type
='radio' name
='form_cb_delete' value
='1' checked
/>Selected
 
;
704 <input type
='radio' name
='form_cb_delete' value
='0' />None
709 <input type
='submit' name
='form_save' value
='<?php xl('OK
','e
'); ?>' />
711 <input type
='button' value
='<?php xl('Cancel
','e
'); ?>' onclick
='window.close()' />
713 <input type
='button' value
='<?php xl('Select All
','e
'); ?>' onclick
='allCheckboxes(true)' />
715 <input type
='button' value
='<?php xl('Clear All
','e
'); ?>' onclick
='allCheckboxes(false)' />
718 <p
><br
/><b
><?php
xl('Please select the desired pages to copy or forward:','e'); ?
></b
></p
>
722 $dh = opendir($faxcache);
723 if (! $dh) die("Cannot read $faxcache");
725 while (false !== ($jfname = readdir($dh))) {
726 if (preg_match("/^(.*)\.jpg/", $jfname, $matches)) {
727 $jpgarray[$matches[1]] = $jfname;
731 // readdir does not read in any particular order, we must therefore sort
732 // by filename so the display order matches the original document.
735 foreach ($jpgarray as $jfnamebase => $jfname) {
738 echo " <td valign='top'>\n";
739 echo " <img src='../../sites/" . $_SESSION['site_id'] . "/faxcache/$mode/$filebase/$jfname' />\n";
741 echo " <td align='center' valign='top'>\n";
742 echo " <input type='checkbox' name='form_images[]' value='$jfnamebase' checked />\n";
743 echo " <br />$page\n";
753 <script language
='JavaScript'>
754 Calendar
.setup({inputField
:"form_docdate", ifFormat
:"%Y-%m-%d", button
:"img_docdate"});