interface/patient_file/letter.php

   1 <?php
   2 // Copyright (C) 2007-2011 Rod Roark <rod@sunsetsystems.com>
   3 //
   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.
   8
   9 // Undo magic quotes and do not allow fake register globals.
  10 $sanitize_all_escapes  = true;
  11 $fake_register_globals = false;
  12
  13 include_once("../globals.php");
  14 include_once($GLOBALS['srcdir'] . "/patient.inc");
  15
  16 $template_dir = $GLOBALS['OE_SITE_DIR'] . "/letter_templates";
  17
  18 // array of field name tags to allow internationalization
  19 //  of templates
  20 $FIELD_TAG = array(
  21     'DATE'             => xl('DATE'),
  22     'FROM_TITLE'       => xl('FROM_TITLE'),
  23     'FROM_FNAME'       => xl('FROM_FNAME'),
  24     'FROM_LNAME'       => xl('FROM_LNAME'),
  25     'FROM_MNAME'       => xl('FROM_MNAME'),
  26     'FROM_STREET'      => xl('FROM_STREET'),
  27     'FROM_CITY'        => xl('FROM_CITY'),
  28     'FROM_STATE'       => xl('FROM_STATE'),
  29     'FROM_POSTAL'      => xl('FROM_POSTAL'),
  30     'FROM_VALEDICTORY' => xl('FROM_VALEDICTORY'),
  31     'FROM_PHONE'       => xl('FROM_PHONE'),
  32     'FROM_PHONECELL'   => xl('FROM_PHONECELL'),
  33     'FROM_EMAIL'       => xl('FROM_EMAIL'),
  34     'TO_TITLE'         => xl('TO_TITLE'),
  35     'TO_FNAME'         => xl('TO_FNAME'),
  36     'TO_LNAME'         => xl('TO_LNAME'),
  37     'TO_MNAME'         => xl('TO_MNAME'),
  38     'TO_STREET'        => xl('TO_STREET'),
  39     'TO_CITY'          => xl('TO_CITY'),
  40     'TO_STATE'         => xl('TO_STATE'),
  41     'TO_POSTAL'        => xl('TO_POSTAL'),
  42     'TO_VALEDICTORY'   => xl('TO_VALEDICTORY'),
  43     'TO_PHONE'         => xl('TO_PHONE'),
  44     'TO_PHONECELL'     => xl('TO_PHONECELL'),
  45     'TO_FAX'           => xl('TO_FAX'),
  46     'TO_ORGANIZATION'  => xl('TO_ORGANIZATION'),
  47     'PT_FNAME'         => xl('PT_FNAME'),
  48     'PT_LNAME'         => xl('PT_LNAME'),
  49     'PT_MNAME'         => xl('PT_MNAME'),
  50     'PT_STREET'        => xl('PT_STREET'),
  51     'PT_CITY'          => xl('PT_CITY'),
  52     'PT_STATE'         => xl('PT_STATE'),
  53     'PT_POSTAL'        => xl('PT_POSTAL'),
  54     'PT_PHONE_HOME'    => xl('PT_PHONE_HOME'),
  55     'PT_PHONE_CELL'    => xl('PT_PHONE_CELL'),
  56     'PT_SSN'           => xl('PT_SSN'),
  57     'PT_EMAIL'         => xl('PT_EMAIL'),
  58     'PT_DOB'           => xl('PT_DOB')
  59
  60 );
  61
  62 $patdata = sqlQuery("SELECT " .
  63   "p.fname, p.mname, p.lname, p.pubpid, p.DOB, " .
  64   "p.street, p.city, p.state, p.phone_home, p.phone_cell, p.ss, p.email, p.postal_code " .
  65   "FROM patient_data AS p " .
  66   "WHERE p.pid = '$pid' LIMIT 1");
  67
  68 $alertmsg = ''; // anything here pops up in an alert box
  69
  70 // If the Generate button was clicked...
  71 if ($_POST['formaction']=="generate") {
  72
  73     $form_pid      = $_POST['form_pid'];
  74     $form_from     = $_POST['form_from'];
  75     $form_to       = $_POST['form_to'];
  76     $form_date     = $_POST['form_date'];
  77     $form_template = $_POST['form_template'];
  78     $form_format   = $_POST['form_format'];
  79     $form_body     = $_POST['form_body'];
  80
  81     $frow = sqlQuery("SELECT * FROM users WHERE id = '$form_from'");
  82     $trow = sqlQuery("SELECT * FROM users WHERE id = '$form_to'");
  83
  84     $datestr = date('j F Y', strtotime($form_date));
  85     $from_title = $frow['title'] ? $frow['title'] . ' ' : '';
  86     $to_title   = $trow['title'] ? $trow['title'] . ' ' : '';
  87
  88     $cpstring = $_POST['form_body'];
  89
  90     // attempt to save to the autosaved template
  91     $fh = fopen("$template_dir/autosaved", 'w');
  92     // translate from definition to the constant
  93     $temp_bodytext = $cpstring;
  94     foreach ($FIELD_TAG as $key => $value) {
  95         $temp_bodytext = str_replace("{".$value."}", "{".$key."}", $temp_bodytext);
  96     }
  97     if (! fwrite($fh, $temp_bodytext)) {
  98         echo xl('Error while saving to the file','','',' ') . $template_dir."/autosaved" .
  99              xl('Ensure OpenEMR has write privileges to directory','',' . ',' ') . $template_dir  . "/ ." ;
 100         die;
 101     }
 102     fclose($fh);
 103
 104     $cpstring = str_replace('{'.$FIELD_TAG['DATE'].'}'            , $datestr, $cpstring);
 105     $cpstring = str_replace('{'.$FIELD_TAG['FROM_TITLE'].'}'      , $from_title, $cpstring);
 106     $cpstring = str_replace('{'.$FIELD_TAG['FROM_FNAME'].'}'      , $frow['fname'], $cpstring);
 107     $cpstring = str_replace('{'.$FIELD_TAG['FROM_LNAME'].'}'      , $frow['lname'], $cpstring);
 108     $cpstring = str_replace('{'.$FIELD_TAG['FROM_MNAME'].'}'      , $frow['mname'], $cpstring);
 109     $cpstring = str_replace('{'.$FIELD_TAG['FROM_STREET'].'}'     , $frow['street'], $cpstring);
 110     $cpstring = str_replace('{'.$FIELD_TAG['FROM_CITY'].'}'       , $frow['city'], $cpstring);
 111     $cpstring = str_replace('{'.$FIELD_TAG['FROM_STATE'].'}'      , $frow['state'], $cpstring);
 112     $cpstring = str_replace('{'.$FIELD_TAG['FROM_POSTAL'].'}'     , $frow['zip'], $cpstring);
 113     $cpstring = str_replace('{'.$FIELD_TAG['FROM_VALEDICTORY'].'}', $frow['valedictory'], $cpstring);
 114     $cpstring = str_replace('{'.$FIELD_TAG['FROM_PHONECELL'].'}'  , $frow['phonecell'], $cpstring);
 115     $cpstring = str_replace('{'.$FIELD_TAG['FROM_PHONE'].'}'      , $frow['phone'], $cpstring);
 116     $cpstring = str_replace('{'.$FIELD_TAG['FROM_EMAIL'].'}'      , $frow['email'], $cpstring);
 117     $cpstring = str_replace('{'.$FIELD_TAG['TO_TITLE'].'}'        , $to_title, $cpstring);
 118     $cpstring = str_replace('{'.$FIELD_TAG['TO_FNAME'].'}'        , $trow['fname'], $cpstring);
 119     $cpstring = str_replace('{'.$FIELD_TAG['TO_LNAME'].'}'        , $trow['lname'], $cpstring);
 120     $cpstring = str_replace('{'.$FIELD_TAG['TO_MNAME'].'}'        , $trow['mname'], $cpstring);
 121     $cpstring = str_replace('{'.$FIELD_TAG['TO_STREET'].'}'       , $trow['street'], $cpstring);
 122     $cpstring = str_replace('{'.$FIELD_TAG['TO_CITY'].'}'         , $trow['city'], $cpstring);
 123     $cpstring = str_replace('{'.$FIELD_TAG['TO_STATE'].'}'        , $trow['state'], $cpstring);
 124     $cpstring = str_replace('{'.$FIELD_TAG['TO_POSTAL'].'}'       , $trow['zip'], $cpstring);
 125     $cpstring = str_replace('{'.$FIELD_TAG['TO_VALEDICTORY'].'}'  , $trow['valedictory'], $cpstring);
 126     $cpstring = str_replace('{'.$FIELD_TAG['TO_FAX'].'}'          , $trow['fax'], $cpstring);
 127     $cpstring = str_replace('{'.$FIELD_TAG['TO_PHONE'].'}'        , $trow['phone'], $cpstring);
 128     $cpstring = str_replace('{'.$FIELD_TAG['TO_PHONECELL'].'}'    , $trow['phonecell'], $cpstring);
 129     $cpstring = str_replace('{'.$FIELD_TAG['TO_ORGANIZATION'].'}' , $trow['organization'], $cpstring);
 130     $cpstring = str_replace('{'.$FIELD_TAG['PT_FNAME'].'}'        , $patdata['fname'], $cpstring);
 131     $cpstring = str_replace('{'.$FIELD_TAG['PT_LNAME'].'}'        , $patdata['lname'], $cpstring);
 132     $cpstring = str_replace('{'.$FIELD_TAG['PT_MNAME'].'}'        , $patdata['mname'], $cpstring);
 133     $cpstring = str_replace('{'.$FIELD_TAG['PT_STREET'].'}'       , $patdata['street'], $cpstring);
 134     $cpstring = str_replace('{'.$FIELD_TAG['PT_CITY'].'}'         , $patdata['city'], $cpstring);
 135     $cpstring = str_replace('{'.$FIELD_TAG['PT_STATE'].'}'        , $patdata['state'], $cpstring);
 136     $cpstring = str_replace('{'.$FIELD_TAG['PT_POSTAL'].'}'       , $patdata['postal_code'], $cpstring);
 137     $cpstring = str_replace('{'.$FIELD_TAG['PT_PHONE_HOME'].'}'   , $patdata['phone_home'], $cpstring);
 138     $cpstring = str_replace('{'.$FIELD_TAG['PT_PHONE_CELL'].'}'   , $patdata['phone_cell'], $cpstring);
 139     $cpstring = str_replace('{'.$FIELD_TAG['PT_SSN'].'}'          , $patdata['ss'], $cpstring);
 140     $cpstring = str_replace('{'.$FIELD_TAG['PT_EMAIL'].'}'        , $patdata['email'], $cpstring);
 141     $cpstring = str_replace('{'.$FIELD_TAG['PT_DOB'].'}'          , $patdata['DOB'], $cpstring);
 142
 143     if ($form_format == "pdf") {
 144       $pdf = new Cezpdf($GLOBALS['rx_paper_size']);
 145       $pdf->ezSetMargins($GLOBALS['rx_top_margin']
 146                       ,$GLOBALS['rx_bottom_margin']
 147                       ,$GLOBALS['rx_left_margin']
 148                       ,$GLOBALS['rx_right_margin']
 149                       );
 150       if (file_exists("$template_dir/custom_pdf.php")) {
 151         include("$template_dir/custom_pdf.php");
 152       }
 153       else {
 154         $pdf->selectFont('Helvetica');
 155         $pdf->ezText($cpstring, 12);
 156       }
 157       $pdf->ezStream();
 158       exit;
 159     }
 160     else { // $form_format = html
 161         $cpstring = text($cpstring); //escape to prevent stored cross script attack
 162         $cpstring = str_replace("\n", "<br>", $cpstring);
 163         $cpstring = str_replace("\t", "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;", $cpstring);
 164     ?>
 165         <html>
 166         <head>
 167         <style>
 168         body {
 169          font-family: sans-serif;
 170          font-weight: normal;
 171          font-size: 12pt;
 172          background: white;
 173          color: black;
 174         }
 175         .paddingdiv {
 176          width: 524pt;
 177          padding: 0pt;
 178          margin-top: 50pt;
 179         }
 180         .navigate {
 181          margin-top: 2.5em;
 182         }
 183         @media print {
 184          .navigate {
 185           display: none;
 186          }
 187         }
 188         </style>
 189         <title><?php xl('Letter','e'); ?></title>
 190         </head>
 191         <body>
 192         <div class='paddingdiv'>
 193         <?php echo $cpstring; ?>
 194         <div class="navigate">
 195         <a href="<?php echo $GLOBALS['rootdir'] . '/patient_file/letter.php?template=autosaved'; ?>">(<?php xl('Back','e'); ?>)</a>
 196         </div>
 197         <script language='JavaScript'>
 198         window.print();
 199         </script>
 200         </body>
 201         </div>
 202         <?php
 203         exit;
 204     }
 205 }
 206 else if (isset($_GET['template']) && $_GET['template'] != "") {
 207     // utilized to go back to autosaved template
 208     $bodytext = "";
 209     $fh = fopen("$template_dir/".$_GET['template'], 'r');
 210     while (!feof($fh)) $bodytext.= fread($fh, 8192);
 211     fclose($fh);
 212     // translate from constant to the definition
 213     foreach ($FIELD_TAG as $key => $value) {
 214         $bodytext = str_replace("{".$key."}", "{".$value."}", $bodytext);
 215     }
 216 }
 217 else if ($_POST['formaction'] == "loadtemplate" && $_POST['form_template'] != "") {
 218     $bodytext = "";
 219     $fh = fopen("$template_dir/".$_POST['form_template'], 'r');
 220     while (!feof($fh)) $bodytext.= fread($fh, 8192);
 221     fclose($fh);
 222     // translate from constant to the definition
 223     foreach ($FIELD_TAG as $key => $value) {
 224         $bodytext = str_replace("{".$key."}", "{".$value."}", $bodytext);
 225     }
 226 }
 227 else if ($_POST['formaction'] == "newtemplate" && $_POST['newtemplatename'] != "") {
 228     // attempt to save the template
 229     $fh = fopen("$template_dir/".$_POST['newtemplatename'], 'w');
 230     // translate from definition to the constant
 231     $temp_bodytext = $_POST['form_body'];
 232     foreach ($FIELD_TAG as $key => $value) {
 233         $temp_bodytext = str_replace("{".$value."}", "{".$key."}", $temp_bodytext);
 234     }
 235     if (! fwrite($fh, $temp_bodytext)) {
 236         echo xl('Error while writing to file','','',' ') . $template_dir."/".$_POST['newtemplatename'];
 237         die;
 238     }
 239     fclose($fh);
 240
 241     // read the saved file back
 242     $_POST['form_template'] = $_POST['newtemplatename'];
 243     $fh = fopen("$template_dir/".$_POST['form_template'], 'r');
 244     while (!feof($fh)) $bodytext.= fread($fh, 8192);
 245     fclose($fh);
 246     // translate from constant to the definition
 247     foreach ($FIELD_TAG as $key => $value) {
 248         $bodytext = str_replace("{".$key."}", "{".$value."}" , $bodytext);
 249     }
 250 }
 251 else if ($_POST['formaction'] == "savetemplate" && $_POST['form_template'] != "") {
 252     // attempt to save the template
 253     $fh = fopen("$template_dir/".$_POST['form_template'], 'w');
 254     // translate from definition to the constant
 255     $temp_bodytext = $_POST['form_body'];
 256     foreach ($FIELD_TAG as $key => $value) {
 257         $temp_bodytext = str_replace("{".$value."}", "{".$key."}", $temp_bodytext);
 258     }
 259     if (! fwrite($fh, $temp_bodytext)) {
 260         echo xl('Error while writing to file','','',' ') . $template_dir."/".$_POST['form_template'];
 261         die;
 262     }
 263     fclose($fh);
 264
 265     // read the saved file back
 266     $fh = fopen("$template_dir/".$_POST['form_template'], 'r');
 267     while (!feof($fh)) $bodytext.= fread($fh, 8192);
 268     fclose($fh);
 269     // translate from constant to the definition
 270     foreach ($FIELD_TAG as $key => $value) {
 271         $bodytext = str_replace("{".$key."}", "{".$value."}", $bodytext);
 272     }
 273 }
 274
 275 // This is the case where we display the form for data entry.
 276 // Get the users list.
 277 $ures = sqlStatement("SELECT id, fname, lname, specialty FROM users " .
 278   "WHERE active = 1 AND ( info IS NULL OR info NOT LIKE '%Inactive%' ) " .
 279   "ORDER BY lname, fname");
 280 $i = 0;
 281 $optfrom = '';
 282 $optto = '';
 283 $ulist = "var ulist = new Array();\n";
 284 while ($urow = sqlFetchArray($ures)) {
 285   $uname = $urow['lname'];
 286   if ($urow['fname']) $uname .= ", " . $urow['fname'];
 287   $tmp1 = " <option value='" . $urow['id'] . "'";
 288   $tmp2 = ">$uname</option>\n";
 289   $optto .= $tmp1 . $tmp2;
 290   if ($urow['id'] == $_SESSION['authUserID']) $tmp1 .= " selected";
 291   $optfrom .= $tmp1 . $tmp2;
 292   $ulist .= "ulist[$i] = '" . addslashes($uname) . "|" .
 293     $urow['id'] . "|" . addslashes($urow['specialty']) . "';\n";
 294   ++$i;
 295 }
 296
 297 // Get the unique specialties.
 298 $sres = sqlStatement("SELECT DISTINCT specialty FROM users " .
 299   "WHERE active = 1 AND ( info IS NULL OR info NOT LIKE '%Inactive%' ) " .
 300   "ORDER BY specialty");
 301 $optspec = "<option value='All'>" . xl('All') . "</option>\n";
 302 while ($srow = sqlFetchArray($sres)) {
 303   $optspec .= " <option value='" . $srow['specialty'] . "'>" .
 304     $srow['specialty'] . "</option>\n";
 305 }
 306 ?>
 307
 308 <html>
 309 <head>
 310 <?php html_header_show();?>
 311 <title><?php xl('Letter Generator','e'); ?></title>
 312
 313 <style type="text/css">@import url(../../library/dynarch_calendar.css);</style>
 314 <link rel='stylesheet' href='<?php echo $css_header ?>' type='text/css'>
 315
 316 <!-- supporting javascript code -->
 317 <script type="text/javascript" src="<?php echo $GLOBALS['assets_static_relative']; ?>/jquery-min-1-2-1/index.js"></script>
 318
 319 <script type="text/javascript" src="<?php echo $GLOBALS['webroot'] ?>/library/topdialog.js"></script>
 320 <script type="text/javascript" src="<?php echo $GLOBALS['webroot'] ?>/library/dialog.js?v=<?php echo $v_js_includes; ?>"></script>
 321 <script type="text/javascript" src="<?php echo $GLOBALS['webroot'] ?>/library/textformat.js"></script>
 322 <script type="text/javascript" src="<?php echo $GLOBALS['webroot'] ?>/library/dynarch_calendar.js"></script>
 323 <?php include_once("{$GLOBALS['srcdir']}/dynarch_calendar_en.inc.php"); ?>
 324 <script type="text/javascript" src="<?php echo $GLOBALS['webroot'] ?>/library/dynarch_calendar_setup.js"></script>
 325
 326 <script language="JavaScript">
 327 <?php echo $ulist; ?>
 328
 329 // React to selection of a specialty.  This rebuilds the "to" users list
 330 // with users having that specialty, or all users if "All" is selected.
 331 function newspecialty() {
 332     var f = document.forms[0];
 333     var s = f.form_specialty.value;
 334     var theopts = f.form_to.options;
 335     theopts.length = 0;
 336     var j = 0;
 337     for (var i = 0; i < ulist.length; ++i) {
 338         tmp = ulist[i].split("|");
 339         if (s != 'All' && s != tmp[2]) continue;
 340         theopts[j++] = new Option(tmp[0], tmp[1], false, false);
 341     }
 342 }
 343
 344
 345 // insert text into a textarea where the cursor is
 346 function insertAtCaret(areaId,text) {
 347     var txtarea = document.getElementById(areaId);
 348     var scrollPos = txtarea.scrollTop;
 349     var strPos = 0;
 350     var br = ((txtarea.selectionStart || txtarea.selectionStart == '0') ?
 351             "ff" : (document.selection ? "ie" : false ) );
 352     if (br == "ie") {
 353         txtarea.focus();
 354         var range = document.selection.createRange();
 355         range.moveStart ('character', -txtarea.value.length);
 356         strPos = range.text.length;
 357     }
 358     else if (br == "ff") strPos = txtarea.selectionStart;
 359
 360     var front = (txtarea.value).substring(0,strPos);
 361     var back = (txtarea.value).substring(strPos,txtarea.value.length);
 362     txtarea.value=front+text+back;
 363     strPos = strPos + text.length;
 364     if (br == "ie") {
 365         txtarea.focus();
 366         var range = document.selection.createRange();
 367         range.moveStart ('character', -txtarea.value.length);
 368         range.moveStart ('character', strPos);
 369         range.moveEnd ('character', 0);
 370         range.select();
 371     }
 372     else if (br == "ff") {
 373         txtarea.selectionStart = strPos;
 374         txtarea.selectionEnd = strPos;
 375         txtarea.focus();
 376     }
 377     txtarea.scrollTop = scrollPos;
 378 }
 379
 380 function insertAtCursor(myField, myValue) {
 381     //IE support
 382     if (document.selection) {
 383         myField.focus();
 384         sel = document.selection.createRange();
 385         sel.text = myValue;
 386     }
 387     //MOZILLA/NETSCAPE support
 388     else if (myField.selectionStart || myField.selectionStart == '0') {
 389         var startPos = myField.selectionStart;
 390         var endPos = myField.selectionEnd;
 391         myField.value = myField.value.substring(0, startPos)
 392                         + myValue
 393                         + myField.value.substring(endPos, myField.value.length);
 394     } else {
 395         myField.value += myValue;
 396     }
 397 }
 398
 399
 400 </script>
 401
 402 </head>
 403
 404 <body class="body_top" onunload='imclosing()'>
 405
 406 <!-- <form method='post' action='letter.php' onsubmit='return top.restoreSession()'> -->
 407 <form method='post' action='letter.php' id="theform" name="theform">
 408 <input type="hidden" name="formaction" id="formaction" value="">
 409 <input type='hidden' name='form_pid' value='<?php echo $pid ?>' />
 410
 411 <center>
 412 <p>
 413 <table border='0' cellspacing='8' width='98%'>
 414
 415  <tr>
 416   <td colspan='4' align='center'>
 417    &nbsp;<br>
 418    <b><?php xl('Generate Letter regarding ','e','',' '); echo $patdata['fname'] . " " .
 419     $patdata['lname'] . " (" . $patdata['pubpid'] . ")" ?></b>
 420     <br>&nbsp;
 421   </td>
 422  </tr>
 423
 424  <tr>
 425
 426   <td>
 427    <?php xl('From','e'); ?>:
 428   </td>
 429
 430   <td>
 431    <select name='form_from'>
 432 <?php echo $optfrom; ?>
 433    </select>
 434   </td>
 435
 436   <td>
 437    <?php xl('Date','e'); ?>:
 438   </td>
 439
 440   <td>
 441    <input type='text' size='10' name='form_date' id='form_date'
 442     value='<?php echo date('Y-m-d'); ?>'
 443     title='<?php xl('yyyy-mm-dd date of this letter','e'); ?>'
 444     onkeyup='datekeyup(this,mypcc)' onblur='dateblur(this,mypcc)' />
 445    <img src='../pic/show_calendar.gif' align='absbottom' width='24' height='22'
 446     id='img_date' border='0' alt='[?]' style='cursor:pointer'
 447     title='<?php xl('Click here to choose a date','e'); ?>' />
 448   </td>
 449
 450  </tr>
 451
 452  <tr>
 453
 454   <td>
 455    <?php xl('Specialty','e'); ?>:
 456   </td>
 457
 458   <td>
 459    <select name='form_specialty' onchange='newspecialty()'>
 460 <?php echo $optspec; ?>
 461    </select>
 462   </td>
 463
 464   <td>
 465    <?php xl('Template','e'); ?>:
 466   </td>
 467
 468   <td>
 469    <select name="form_template" id="form_template">
 470    <option value="">(<?php xl('none','e'); ?>)</option>
 471 <?php
 472 $tpldir = $GLOBALS['OE_SITE_DIR'] . "/letter_templates";
 473 $dh = opendir($tpldir);
 474 if (! $dh) die(xl('Cannot read','','',' ') . $tpldir);
 475 while (false !== ($tfname = readdir($dh))) {
 476   // skip dot-files, scripts and images
 477   if (preg_match("/^\./"   , $tfname)) { continue; }
 478   if (preg_match("/\.php$/", $tfname)) { continue; }
 479   if (preg_match("/\.jpg$/", $tfname)) { continue; }
 480   if (preg_match("/\.png$/", $tfname)) { continue; }
 481   echo "<option value=".$tfname;
 482   if (($tfname == $_POST['form_template']) || ($tfname == $_GET['template'])) echo " SELECTED";
 483   echo ">";
 484   if ($tfname == 'autosaved') {
 485     echo xl($tfname);
 486   }
 487   else {
 488     echo $tfname;
 489   }
 490   echo "</option>";
 491 }
 492 closedir($dh);
 493 ?>
 494    </select>
 495   </td>
 496
 497  </tr>
 498
 499  </tr>
 500
 501  <tr>
 502
 503   <td>
 504    <?php xl('To','e'); ?>:
 505   </td>
 506
 507   <td>
 508    <select name='form_to'>
 509 <?php echo $optto; ?>
 510    </select>
 511   </td>
 512
 513   <td>
 514    <?php xl('Print Format','e'); ?>:
 515   </td>
 516
 517   <td>
 518    <select name='form_format'>
 519     <option value='html'><?php xl('HTML','e'); ?></option>
 520     <option value='pdf'><?php xl('PDF','e'); ?></option>
 521    </select>
 522   </td>
 523
 524  </tr>
 525
 526  <tr>
 527   <td colspan='4'>
 528     <div id="letter_toolbar" class='text' style="width: 100%; background-color: #ddd; padding: 5px; margin: 0px;">
 529     <?php echo xlt('Insert special field'); ?>:
 530     <select id="letter_field">
 531     <option value="">- <?php xl('Choose','e'); ?> -</option>
 532     <option value="<?php echo '{'.$FIELD_TAG['DATE'].'}'; ?>"><?php xl('Today\'s Date','e'); ?></option>
 533     <option value="<?php echo '{'.$FIELD_TAG['FROM_TITLE'].'}'; ?>"><?php xl('FROM','e'); ?> - <?php xl('Title','e'); ?></option>
 534     <option value="<?php echo '{'.$FIELD_TAG['FROM_FNAME'].'}'; ?>"><?php xl('FROM','e'); ?> - <?php xl('First name','e'); ?></option>
 535     <option value="<?php echo '{'.$FIELD_TAG['FROM_MNAME'].'}'; ?>"><?php xl('FROM','e'); ?> - <?php xl('Middle name','e'); ?></option>
 536     <option value="<?php echo '{'.$FIELD_TAG['FROM_LNAME'].'}'; ?>"><?php xl('FROM','e'); ?> - <?php xl('Last name','e'); ?></option>
 537     <option value="<?php echo '{'.$FIELD_TAG['FROM_STREET'].'}'; ?>"><?php xl('FROM','e'); ?> - <?php xl('Street','e'); ?></option>
 538     <option value="<?php echo '{'.$FIELD_TAG['FROM_CITY'].'}'; ?>"><?php xl('FROM','e'); ?> - <?php xl('City','e'); ?></option>
 539     <option value="<?php echo '{'.$FIELD_TAG['FROM_STATE'].'}'; ?>"><?php xl('FROM','e'); ?> - <?php xl('State','e'); ?></option>
 540     <option value="<?php echo '{'.$FIELD_TAG['FROM_POSTAL'].'}'; ?>"><?php xl('FROM','e'); ?> - <?php xl('Postal Code','e'); ?></option>
 541     <option value="<?php echo '{'.$FIELD_TAG['FROM_VALEDICTORY'].'}'; ?>"><?php xl('FROM','e'); ?> - <?php xl('Valedictory','e'); ?></option>
 542     <option value="<?php echo '{'.$FIELD_TAG['FROM_PHONECELL'].'}'; ?>"><?php xl('FROM','e'); ?> - <?php xl('Cell Phone','e'); ?></option>
 543     <option value="<?php echo '{'.$FIELD_TAG['FROM_PHONE'].'}'; ?>"><?php xl('FROM','e'); ?> - <?php xl('Phone','e'); ?></option>
 544     <option value="<?php echo '{'.$FIELD_TAG['FROM_EMAIL'].'}'; ?>"><?php xl('FROM','e'); ?> - <?php xl('email','e'); ?></option>
 545     <option value="<?php echo '{'.$FIELD_TAG['TO_TITLE'].'}'; ?>"><?php xl('TO','e'); ?> - <?php xl('Title','e'); ?></option>
 546     <option value="<?php echo '{'.$FIELD_TAG['TO_FNAME'].'}'; ?>"><?php xl('TO','e'); ?> - <?php xl('First name','e'); ?></option>
 547     <option value="<?php echo '{'.$FIELD_TAG['TO_MNAME'].'}'; ?>"><?php xl('TO','e'); ?> - <?php xl('Middle name','e'); ?></option>
 548     <option value="<?php echo '{'.$FIELD_TAG['TO_LNAME'].'}'; ?>"><?php xl('TO','e'); ?> - <?php xl('Last name','e'); ?></option>
 549     <option value="<?php echo '{'.$FIELD_TAG['TO_STREET'].'}'; ?>"><?php xl('TO','e'); ?> - <?php xl('Street','e'); ?></option>
 550     <option value="<?php echo '{'.$FIELD_TAG['TO_CITY'].'}'; ?>"><?php xl('TO','e'); ?> - <?php xl('City','e'); ?></option>
 551     <option value="<?php echo '{'.$FIELD_TAG['TO_STATE'].'}'; ?>"><?php xl('TO','e'); ?> - <?php xl('State','e'); ?></option>
 552     <option value="<?php echo '{'.$FIELD_TAG['TO_POSTAL'].'}'; ?>"><?php xl('TO','e'); ?> - <?php xl('Postal Code','e'); ?></option>
 553     <option value="<?php echo '{'.$FIELD_TAG['TO_VALEDICTORY'].'}'; ?>"><?php xl('TO','e'); ?> - <?php xl('Valedictory','e'); ?></option>
 554     <option value="<?php echo '{'.$FIELD_TAG['TO_ORGANIZATION'].'}'; ?>"><?php xl('TO','e'); ?> - <?php xl('Organization','e'); ?></option>
 555     <option value="<?php echo '{'.$FIELD_TAG['TO_FAX'].'}'; ?>"><?php xl('TO','e'); ?> - <?php xl('Fax number','e'); ?></option>
 556     <option value="<?php echo '{'.$FIELD_TAG['TO_PHONE'].'}'; ?>"><?php xl('TO','e'); ?> - <?php xl('Phone number','e'); ?></option>
 557     <option value="<?php echo '{'.$FIELD_TAG['TO_PHONECELL'].'}'; ?>"><?php xl('TO','e'); ?> - <?php xl('Cell phone number','e'); ?></option>
 558     <option value="<?php echo '{'.$FIELD_TAG['PT_FNAME'].'}'; ?>"><?php xl('PATIENT','e'); ?> - <?php xl('First name','e'); ?></option>
 559     <option value="<?php echo '{'.$FIELD_TAG['PT_MNAME'].'}'; ?>"><?php xl('PATIENT','e'); ?> - <?php xl('Middle name','e'); ?></option>
 560     <option value="<?php echo '{'.$FIELD_TAG['PT_LNAME'].'}'; ?>"><?php xl('PATIENT','e'); ?> - <?php xl('Last name','e'); ?></option>
 561     <option value="<?php echo '{'.$FIELD_TAG['PT_STREET'].'}'; ?>"><?php xl('PATIENT','e'); ?> - <?php xl('Street','e'); ?></option>
 562     <option value="<?php echo '{'.$FIELD_TAG['PT_CITY'].'}'; ?>"><?php xl('PATIENT','e'); ?> - <?php xl('City','e'); ?></option>
 563     <option value="<?php echo '{'.$FIELD_TAG['PT_STATE'].'}'; ?>"><?php xl('PATIENT','e'); ?> - <?php xl('State','e'); ?></option>
 564     <option value="<?php echo '{'.$FIELD_TAG['PT_POSTAL'].'}'; ?>"><?php xl('PATIENT','e'); ?> - <?php xl('Postal Code','e'); ?></option>
 565     <option value="<?php echo '{'.$FIELD_TAG['PT_PHONE_HOME'].'}'; ?>"><?php xl('PATIENT','e'); ?> - <?php xl('Phone Home','e'); ?></option>
 566     <option value="<?php echo '{'.$FIELD_TAG['PT_PHONE_CELL'].'}'; ?>"><?php xl('PATIENT','e'); ?> - <?php xl('Phone Cell','e'); ?></option>
 567     <option value="<?php echo '{'.$FIELD_TAG['PT_SSN'].'}'; ?>"><?php xl('PATIENT','e'); ?> - <?php xl('SSN','e'); ?></option>
 568     <option value="<?php echo '{'.$FIELD_TAG['PT_DOB'].'}'; ?>"><?php xl('PATIENT','e'); ?> - <?php xl('Date of birth','e'); ?></option>
 569     </select>
 570     </div>
 571    <textarea name='form_body' id="form_body" rows='20' cols='30' style='width:100%'
 572     title=<?php xl('Enter body of letter here','e','\'','\''); ?> /><?php echo $bodytext; ?></textarea>
 573   </td>
 574  </tr>
 575
 576 </table>
 577
 578 <input type='button' class="addtemplate" value=<?php xl('Save as New','e','\'','\''); ?>>
 579 <input type='button' name='savetemplate' id="savetemplate" value=<?php xl('Save Changes','e','\'','\''); ?>>
 580 <input type='button' name='form_generate' id="form_generate" value=<?php xl('Generate Letter','e','\'','\''); ?>>
 581
 582 </center>
 583
 584 <!-- template DIV that appears when user chooses to add a new letter template -->
 585 <div id="newtemplatedetail" style="border: 1px solid black; padding: 3px; display: none; visibility: hidden; background-color: lightgrey;">
 586 <?php xl('Template Name','e'); ?>: <input type="textbox" size="20" maxlength="30" name="newtemplatename" id="newtemplatename">
 587 <br>
 588 <input type="button" class="savenewtemplate" value=<?php xl('Save new template','e','\'','\''); ?>>
 589 <input type="button" class="cancelnewtemplate" value=<?php xl('Cancel','e','\'','\''); ?>>
 590 </div>
 591
 592 </form>
 593 </body>
 594
 595 <script language='JavaScript'>
 596  Calendar.setup({inputField:"form_date", ifFormat:"%Y-%m-%d", button:"img_date"});
 597
 598 // jQuery stuff to make the page a little easier to use
 599
 600 $(document).ready(function(){
 601     $("#form_generate").click(function() { $("#formaction").val("generate"); $("#theform").submit(); });
 602     $("#form_template").change(function() { $("#formaction").val("loadtemplate"); $("#theform").submit(); });
 603
 604     $("#savetemplate").click(function() { SaveTemplate(this); });
 605
 606     $("#letter_field").change(function() { insertAtCursor(document.getElementById("form_body"), $(this).val()); $(this).attr("selectedIndex", "0"); });
 607
 608     $(".addtemplate").click(function() { AddTemplate(this); });
 609     $(".savenewtemplate").click(function() { SaveNewTemplate(this); });
 610     $(".deletetemplate").click(function() { DeleteTemplate(this); });
 611     $(".cancelnewtemplate").click(function() { CancelNewTemplate(this); });
 612
 613     // display the 'new group' DIV
 614     var AddTemplate = function(btnObj) {
 615         // show the field details DIV
 616         $('#newtemplatedetail').css('visibility', 'visible');
 617         $('#newtemplatedetail').css('display', 'block');
 618         $(btnObj).parent().append($("#newtemplatedetail"));
 619         $('#newtemplatedetail > #newtemplatename').focus();
 620     };
 621
 622     // save the new template
 623     var SaveNewTemplate = function(btnObj) {
 624         // the template name can only have letters, numbers, spaces and underscores
 625         // AND it cannot start with a number
 626         if ($("#newtemplatename").val().match(/^\d+/)) {
 627             alert("<?php xl('Template names cannot start with numbers.','e'); ?>");
 628             return false;
 629         }
 630         var validname = $("#newtemplatename").val().replace(/[^A-za-z0-9]/g, "_"); // match any non-word characters and replace them
 631         $("#newtemplatename").val(validname);
 632
 633         // submit the form to add a new field to a specific group
 634         $("#formaction").val("newtemplate");
 635         $("#theform").submit();
 636     }
 637
 638     // actually delete a template file
 639 /*
 640     var DeleteTemplate = function(btnObj) {
 641         var parts = $(btnObj).attr("id");
 642         var groupname = parts.replace(/^\d+/, "");
 643         if (confirm("WARNING - This action cannot be undone.\n Are you sure you wish to delete the entire group named '"+groupname+"'?")) {
 644             // submit the form to add a new field to a specific group
 645             $("#formaction").val("deletegroup");
 646             $("#deletegroupname").val(parts);
 647             $("#theform").submit();
 648         }
 649     };
 650 */
 651
 652     // just hide the new template DIV
 653     var CancelNewTemplate = function(btnObj) {
 654         // hide the field details DIV
 655         $('#newtemplatedetail').css('visibility', 'hidden');
 656         $('#newtemplatedetail').css('display', 'none');
 657         // reset the new group values to a default
 658         $('#newtemplatedetail > #newtemplatename').val("");
 659     };
 660
 661
 662     // save the template, overwriting the older version
 663     var SaveTemplate = function(btnObj) {
 664         if (! confirm("<?php xl('You are about to permanently replace the existing template. Are you sure you wish to continue?','e'); ?>")) {
 665             return false;
 666         }
 667         $("#formaction").val("savetemplate");
 668         $("#theform").submit();
 669     }
 670 });
 671
 672 </script>
 673
 674 </html>