includes/ui/ui_view.inc

   1 <?php
   2
   3 include_once($path_to_root . "/admin/db/voiding_db.inc");
   4
   5 //--------------------------------------------------------------------------------------
   6
   7 function get_supplier_trans_view_str($type, $trans_no, $label="")
   8 {
   9         global $path_to_root, $use_popup_windows;
  10
  11         $viewer = "";
  12         if ($type == systypes::po())
  13                 $viewer = "view_po.php";
  14         elseif ($type == 20)
  15                 $viewer = "view_supp_invoice.php";
  16         elseif ($type == 21)
  17                 $viewer = "view_supp_credit.php";
  18         elseif ($type == 22)
  19                 $viewer = "view_supp_payment.php";
  20         elseif ($type == 25)
  21                 $viewer = "view_grn.php";
  22         else
  23                 return null;
  24
  25         if ($label == "")
  26                 $label = $trans_no;
  27
  28         if ($viewer != "")
  29         {
  30                 if ($use_popup_windows)
  31                         $preview_str = "<a target='_blank' href='$path_to_root/purchasing/view/$viewer?trans_no=$trans_no' onclick=\"javascript:openWindow(this.href,this.target); return false;\" >$label</a>";
  32                 else
  33                         $preview_str = "<a target='_blank' href='$path_to_root/purchasing/view/$viewer?trans_no=$trans_no'>$label</a>";
  34         }
  35         else
  36                 $preview_str = $label;
  37
  38         return $preview_str;
  39 }
  40
  41 //--------------------------------------------------------------------------------------
  42
  43 function get_gl_view_str($type, $trans_no, $label="", $force=false)
  44 {
  45         global $path_to_root, $use_popup_windows;
  46
  47         if (!$force && !user_show_gl_info())
  48                 return "";
  49
  50         if ($label == "")
  51                 $label = _("GL");
  52         if ($use_popup_windows)
  53                 $gl_view = "<a target='_blank' href='$path_to_root/gl/view/gl_trans_view.php?type_id=$type&trans_no=$trans_no' onclick=\"javascript:openWindow(this.href,this.target); return false;\" >$label</a>";
  54         else
  55                 $gl_view = "<a target='_blank' href='$path_to_root/gl/view/gl_trans_view.php?type_id=$type&trans_no=$trans_no'>$label</a>";
  56
  57         return $gl_view;
  58 }
  59
  60 //--------------------------------------------------------------------------------------
  61
  62 function get_gl_view_str_cell($type, $trans_no, $label="")
  63 {
  64         $str = get_gl_view_str($type, $trans_no, $label);
  65         if ($str != "")
  66                 return "<td>$str</td>";
  67 }
  68
  69 //--------------------------------------------------------------------------------------
  70
  71 function get_customer_trans_view_str($type, $trans_no, $label="")
  72 {
  73         global $path_to_root, $use_popup_windows;
  74
  75         $viewer = "";
  76         if ($type == 10)
  77                 $viewer = "view_invoice.php";
  78         elseif ($type == 11)
  79                 $viewer = "view_credit.php";
  80         elseif ($type == 12)
  81                 $viewer = "view_receipt.php";
  82         elseif ($type == 30)
  83                 $viewer = "view_sales_order.php";
  84         else
  85                 return null;
  86
  87         if ($label == "")
  88                 $label = $trans_no;
  89
  90         if ($viewer != "")
  91         {
  92                 if ($use_popup_windows)
  93                         $preview_str = "<a target='_blank' href='$path_to_root/sales/view/$viewer?trans_no=$trans_no' onclick=\"javascript:openWindow(this.href,this.target); return false;\" >$label</a>";
  94                 else
  95                         $preview_str = "<a target='_blank' href='$path_to_root/sales/view/$viewer?trans_no=$trans_no'>$label</a>";
  96         }
  97         else
  98                 $preview_str = $label;
  99
 100         return $preview_str;
 101 }
 102
 103 //--------------------------------------------------------------------------------------
 104
 105 function get_banking_trans_view_str($type, $trans_no, $label="")
 106 {
 107         global $path_to_root, $use_popup_windows;
 108
 109         $viewer = "";
 110
 111         if ($type == 4)
 112                 $viewer = "bank_transfer_view.php";
 113         elseif ($type == 1)
 114                 $viewer = "gl_payment_view.php";
 115         elseif ($type == 2)
 116                 $viewer = "gl_deposit_view.php";
 117         elseif ($type == 0)
 118                 $viewer = "";
 119         else
 120                 return null;
 121
 122         if ($label == "")
 123                 $label = $trans_no;
 124
 125         if ($viewer != "")
 126         {
 127                 if ($use_popup_windows)
 128                         $preview_str = "<a target='_blank' href='$path_to_root/gl/view/$viewer?trans_no=$trans_no' onclick=\"javascript:openWindow(this.href,this.target); return false;\" >$label</a>";
 129                 else
 130                         $preview_str = "<a target='_blank' href='$path_to_root/gl/view/$viewer?trans_no=$trans_no'>$label</a>";
 131         }
 132         else
 133                 $preview_str = $label;
 134
 135         return $preview_str;
 136 }
 137
 138 //--------------------------------------------------------------------------------------
 139
 140 function get_inventory_trans_view_str($type, $trans_no, $label="")
 141 {
 142         global $path_to_root, $use_popup_windows;
 143
 144         $viewer = "";
 145
 146         if ($type == systypes::inventory_adjustment())
 147                 $viewer = "view_adjustment.php";
 148         elseif ($type == systypes::location_transfer())
 149                 $viewer = "view_transfer.php";
 150         else
 151                 return null;
 152
 153         if ($label == "")
 154                 $label = $trans_no;
 155
 156         if ($viewer != "")
 157         {
 158                 if ($use_popup_windows)
 159                         $preview_str = "<a target='_blank' href='$path_to_root/inventory/view/$viewer?trans_no=$trans_no' onclick=\"javascript:openWindow(this.href,this.target); return false;\" >$label</a>";
 160                 else
 161                         $preview_str = "<a target='_blank' href='$path_to_root/inventory/view/$viewer?trans_no=$trans_no'>$label</a>";
 162         }
 163         else
 164                 $preview_str = $label;
 165
 166         return $preview_str;
 167 }
 168
 169 //--------------------------------------------------------------------------------------
 170
 171 function get_manufacturing_trans_view_str($type, $trans_no, $label="")
 172 {
 173         global $path_to_root, $use_popup_windows;
 174
 175         $viewer = "";
 176
 177         if ($type == 28)
 178                 $viewer = "wo_issue_view.php";
 179         elseif ($type == 29)
 180                 $viewer = "wo_production_view.php";
 181         elseif ($type == systypes::work_order())
 182                 $viewer = "work_order_view.php";
 183         else
 184                 return null;
 185
 186         if ($label == "")
 187                 $label = $trans_no;
 188
 189         if ($viewer != "")
 190         {
 191                 if ($use_popup_windows)
 192                         $preview_str = "<a target='_blank' href='$path_to_root/manufacturing/view/$viewer?trans_no=$trans_no' onclick=\"javascript:openWindow(this.href,this.target); return false;\" >$label</a>";
 193                 else
 194                         $preview_str = "<a target='_blank' href='$path_to_root/manufacturing/view/$viewer?trans_no=$trans_no'>$label</a>";
 195         }
 196         else
 197                 $preview_str = $label;
 198
 199         return $preview_str;
 200 }
 201
 202 //--------------------------------------------------------------------------------------
 203
 204 function get_dimensions_trans_view_str($type, $trans_no, $label="")
 205 {
 206         global $path_to_root, $use_popup_windows;
 207
 208         $viewer = "";
 209
 210         if ($type == 40)
 211                 $viewer = "view_dimension.php";
 212         else
 213                 return null;
 214
 215         if ($label == "")
 216                 $label = $trans_no;
 217
 218         if ($viewer != "")
 219         {
 220                 if ($use_popup_windows)
 221                         $preview_str = "<a target='_blank' href='$path_to_root/dimensions/view/$viewer?trans_no=$trans_no' onclick=\"javascript:openWindow(this.href,this.target); return false;\" >$label</a>";
 222                 else
 223                         $preview_str = "<a target='_blank' href='$path_to_root/dimensions/view/$viewer?trans_no=$trans_no'>$label</a>";
 224         }
 225         else
 226                 $preview_str = $label;
 227
 228         return $preview_str;
 229 }
 230
 231 //--------------------------------------------------------------------------------------
 232
 233 function get_trans_view_str($type, $trans_no, $label="")
 234 {
 235         $view_str = get_customer_trans_view_str($type, $trans_no, $label);
 236         if ($view_str != null)
 237                 return $view_str;
 238
 239         $view_str = get_supplier_trans_view_str($type, $trans_no, $label);
 240         if ($view_str != null)
 241                 return $view_str;
 242
 243         $view_str = get_banking_trans_view_str($type, $trans_no, $label);
 244         if ($view_str != null)
 245                 return $view_str;
 246
 247         $view_str = get_inventory_trans_view_str($type, $trans_no, $label);
 248         if ($view_str != null)
 249                 return $view_str;
 250
 251         $view_str = get_manufacturing_trans_view_str($type, $trans_no, $label);
 252         if ($view_str != null)
 253                 return $view_str;
 254
 255         $view_str = get_dimensions_trans_view_str($type, $trans_no, $label);
 256         if ($view_str != null)
 257                 return $view_str;
 258
 259         return null;
 260 }
 261
 262 //--------------------------------------------------------------------------------------
 263
 264 function exchange_rate_display($from_currency, $to_currency, $date_, $buttons=true)
 265 {
 266         if ($from_currency != $to_currency)
 267         {
 268                 if ($buttons && isset($_POST['get_rate']))
 269                 {
 270                         $comp_currency = get_company_currency();
 271                         if ($from_currency == $comp_currency)
 272                                 $currency = $to_currency;
 273                         else
 274                                 $currency = $from_currency;
 275                         $rate = get_ecb_rate($currency);
 276                         if (get_date_exchange_rate($currency, $date_))
 277                                 update_exchange_rate($currency, $date_, $rate, $rate);
 278                         else
 279                                 add_exchange_rate($currency, $date_, $rate, $rate);
 280                         if ($from_currency == $comp_currency)
 281                                 $rate = 1 / $rate;
 282                 }
 283                 else
 284                         $rate = get_exchange_rate_from_to($to_currency, $from_currency, $date_);
 285                 $rate = number_format2($rate, user_exrate_dec());
 286         label_row(_("Exchange Rate:"),"1 " . $from_currency . " = " .  $rate . " " . $to_currency .
 287                         ($buttons?"  " . submit('get_rate',_("Get"), false):""));
 288         }
 289 }
 290
 291 //--------------------------------------------------------------------------------------
 292
 293 function is_voided_display($type, $id, $label)
 294 {
 295         global $table_style;
 296         $void_entry = get_voided_entry($type, $id);
 297
 298         if ($void_entry == null)
 299                 return false;
 300
 301         start_table("width=50% $table_style");
 302         echo "<tr><td align=center><font color=red>$label</font><br>";
 303         echo "<font color=red>" . _("Date Voided:") . " " . sql2date($void_entry["date_"]) . "</font><br>";
 304         if (strlen($void_entry["memo_"]) > 0)
 305                 echo "<center><font color=red>" . _("Memo:") . " " . $void_entry["memo_"] . "</font><br>";
 306         echo "</td></tr>";
 307         end_table(1);
 308
 309         return true;
 310 }
 311
 312 //--------------------------------------------------------------------------------------
 313
 314 function comments_display_row($type, $id)
 315 {
 316         $comments = get_comments($type, $id);
 317         if ($comments and db_num_rows($comments))
 318         {
 319                 echo "<tr><td colspan=15>";
 320         while ($comment = db_fetch($comments))
 321         {
 322                 echo $comment["memo_"] . "<br>";
 323         }
 324                 echo "</td></tr>";
 325         }
 326 }
 327
 328 //--------------------------------------------------------------------------------------
 329
 330 function get_comments_string($type, $type_no)
 331 {
 332         $str_return = "";
 333         $result = get_comments($type, $type_no);
 334         while ($comment = db_fetch($result))
 335         {
 336                 if (strlen($str_return))
 337                         $str_return = $str_return . " \n";
 338                 $str_return = $str_return . $comment["memo_"];
 339         }
 340         return $str_return;
 341 }
 342
 343 //--------------------------------------------------------------------------------------
 344
 345 function view_stock_status($stock_id, $description=null)
 346 {
 347         global $path_to_root;
 348         if ($description)
 349                 //hyperlink_params_separate($path_to_root . "/inventory/inquiry/stock_status.php", (user_show_codes()?$stock_id . " - ":"") . $description, "stock_id=$stock_id");
 350                 $preview_str = "<a target='_blank' href='$path_to_root/inventory/inquiry/stock_status.php?stock_id=$stock_id' onclick=\"javascript:openWindow(this.href,this.target); return false;\" >". (user_show_codes()?$stock_id . " - ":"") . $description."</a>";
 351         else
 352                 //hyperlink_params_separate($path_to_root . "/inventory/inquiry/stock_status.php", $stock_id, "stock_id=$stock_id");
 353                 $preview_str = "<a target='_blank' href='$path_to_root/inventory/inquiry/stock_status.php?stock_id=$stock_id' onclick=\"javascript:openWindow(this.href,this.target); return false;\" >$stock_id</a>";
 354         echo $preview_str;
 355 }
 356
 357 function view_stock_status_cell($stock_id, $description=null)
 358 {
 359         echo "<td>";
 360         view_stock_status($stock_id, $description);
 361         echo "</td>";
 362 }
 363
 364 //--------------------------------------------------------------------------------------
 365
 366 function display_debit_or_credit_cells($value)
 367 {
 368         if ($value > 0)
 369         {
 370                 amount_cell($value);
 371                 label_cell("");
 372         }
 373         elseif ($value < 0)
 374         {
 375                 label_cell("");
 376                 amount_cell(abs($value));
 377         }
 378         else
 379         {
 380                 //label_cell("");
 381                 amount_cell(0);
 382                 label_cell("");
 383         }
 384 }
 385
 386 //--------------------------------------------------------------------------------------
 387
 388 function display_customer_trans_tax_details($tax_items, $columns)
 389 {
 390     while ($tax_item = db_fetch($tax_items))
 391     {
 392         $tax = number_format2($tax_item['amount'],user_price_dec());
 393         if ($tax_item['included_in_price'])
 394                 label_row(_("Included") . " " . $tax_item['tax_type_name'] . " (" . $tax_item['rate'] . "%) " .
 395                         _("Amount") . ": $tax", "", "colspan=$columns align=right", "align=right");
 396         else
 397                 label_row($tax_item['tax_type_name'] . " (" . $tax_item['rate'] . "%)",
 398                         $tax, "colspan=$columns align=right", "align=right");
 399     }
 400 }
 401
 402 //--------------------------------------------------------------------------------------
 403
 404 function display_supp_trans_tax_details($tax_items, $columns)
 405 {
 406     while ($tax_item = db_fetch($tax_items))
 407     {
 408         $tax = number_format2(abs($tax_item['amount']),user_price_dec());
 409         if ($tax_item['included_in_price'])
 410                 label_row(_("Included") . " " . $tax_item['tax_type_name'] . " (" . $tax_item['rate'] . "%) " .
 411                         _("Amount:") . ": $tax", "colspan=$columns align=right", "align=right");
 412         else
 413                 label_row($tax_item['tax_type_name'] . " (" . $tax_item['rate'] . "%)",
 414                         $tax, "colspan=$columns align=right", "align=right");
 415     }
 416 }
 417
 418 //--------------------------------------------------------------------------------------
 419
 420 function display_edit_tax_items($taxes, $columns)
 421 {
 422         $total = 0;
 423
 424     foreach ($taxes as $taxitem)
 425     {
 426         if ($taxitem['included_in_price'])
 427         {
 428                 label_row(_("Included") . " " . $taxitem['tax_type_name'] . " (" . $taxitem['rate'] . "%) " .
 429                         _("Amount:") . " " . number_format2($taxitem['Value'],user_price_dec()), "", "colspan=$columns align=right", "align=right");
 430         }
 431         else
 432         {
 433                 label_row($taxitem['tax_type_name'] . " (" . $taxitem['rate'] . "%)",
 434                         number_format2($taxitem['Value'],user_price_dec()), "colspan=$columns align=right", "align=right");
 435                 $total +=  $taxitem['Value'];
 436         }
 437     }
 438
 439     return $total;
 440 }
 441
 442 //--------------------------------------------------------------------------------------
 443
 444 function display_footer_exit()
 445 {
 446         global $path_to_root;
 447         br(2);
 448         end_page();
 449         exit;
 450 }
 451
 452 //--------------------------------------------------------------------------------------
 453
 454 function display_allocations($alloc_result, $total)
 455 {
 456         global $table_style;
 457
 458         if (!$alloc_result || db_num_rows($alloc_result) == 0)
 459                 return;
 460
 461     display_heading2(_("Allocations"));
 462
 463     start_table("$table_style width=80%");
 464
 465     $th = array( _("Type"), _("Number"), _("Date"), _("Total Amount"),
 466         _("Left to Allocate"), _("This Allocation"));
 467         table_header($th);
 468     $k = $total_allocated = 0;
 469
 470     while ($alloc_row = db_fetch($alloc_result))
 471     {
 472
 473         alt_table_row_color($k);
 474
 475         label_cell(systypes::name($alloc_row['type']));
 476         label_cell(get_trans_view_str($alloc_row['type'],$alloc_row['trans_no']));
 477         label_cell(sql2date($alloc_row['tran_date']));
 478         amount_cell($alloc_row['Total']);
 479         //amount_cell($alloc_row['Total'] - $alloc_row['PrevAllocs'] - $alloc_row['amt']);
 480         amount_cell($alloc_row['Total'] - $alloc_row['amt']);
 481         amount_cell($alloc_row['amt']);
 482         end_row();
 483
 484         $total_allocated += $alloc_row['amt'];
 485     }
 486     start_row();
 487         label_cell(_("Total Allocated:"), "align=right colspan=5");
 488         amount_cell($total_allocated);
 489         end_row();
 490         start_row();
 491     label_cell(_("Left to Allocate:"), "align=right colspan=5");
 492     amount_cell($total - $total_allocated);
 493     end_row();
 494
 495     end_table(1);
 496 }
 497
 498 //--------------------------------------------------------------------------------------
 499
 500 function display_allocations_from($person_type, $person_id, $type, $type_no, $total)
 501 {
 502         switch ($person_type)
 503         {
 504                 case payment_person_types::customer() :
 505                         $alloc_result = get_allocatable_to_cust_transactions($person_id, $type_no, $type);
 506                         display_allocations($alloc_result, $total);
 507                         return;
 508                 case payment_person_types::supplier() :
 509                         $alloc_result = get_allocatable_to_supp_transactions($person_id, $type_no, $type);
 510                         display_allocations($alloc_result, $total);
 511                         return;
 512         }
 513 }
 514
 515 function get_js_go_back()
 516 {
 517         $js = "\n<script type=\"text/javascript\">\n"
 518                 . "<!--\n"
 519                 . "function goBack()\n"
 520                 . "{\n"
 521                 . "     if (window.history.length <= 1)\n"
 522                 . "      window.close();\n"
 523                 . "     else\n"
 524                 . "      window.history.go(-1);\n"
 525                 . "}\n"
 526                 . "-->\n"
 527                 . "</script>\n";
 528         return $js;
 529 }
 530
 531 function get_js_open_window($width, $height)
 532 {
 533         $js = "\n<script type=\"text/javascript\">\n"
 534                 . "<!--\n"
 535                 . "function openWindow(url, title)\n"
 536                 . "{\n"
 537                 . " var left = (screen.width - $width) / 2;\n"
 538                 . " var top = (screen.height - $height) / 2;\n"
 539                 . " window.open(url, title, 'width=$width,height=$height,left='+left+',top='+top+',screenX='+left+',screenY='+top+',status=no,scrollbars=yes');\n"
 540                 . "}\n"
 541                 . "-->\n"
 542                 . "</script>\n";
 543         return $js;
 544 }
 545
 546 function get_js_form_entry($edit_name, $sel_name, $next_name)
 547 {
 548         $js = "\n<script type=\"text/javascript\">\n"
 549                 . "<!--\n"
 550                 . "function recalcAccounts()\n"
 551                 . "{\n"
 552                 . "     var myForm = document.forms[0];\n"
 553                 . "     var len = myForm.$sel_name.length;\n"
 554                 . "     var txt;\n"
 555                 . "     var ac = myForm.$edit_name.value;\n"
 556                 . "     var i;\n"
 557                 . "     myForm.$sel_name.options[myForm.$sel_name.selectedIndex].selected = false;\n"
 558                 . "     for (i = 0; i < len; i++)\n"
 559                 . "     {\n"
 560                 . "             txt = myForm.$sel_name.options[i].text;\n"
 561                 . "             if (txt.indexOf(ac) == 0)\n"
 562                 . "             {\n"
 563                 . "                     myForm.$sel_name.options[i].selected = true;\n"
 564                 . "                     break;\n"
 565                 . "             }\n"
 566                 . "     }\n"
 567                 . "}\n"
 568                 . "function setAccount(p, s)\n"
 569                 . "{\n"
 570                 . "     var myForm = document.forms[0];\n"
 571                 . " if (p == 0 && myForm.$edit_name.value == \"\")\n"
 572                 . "             return true;\n"
 573                 . "     myForm.$edit_name.value = myForm.$sel_name.options[myForm.$sel_name.selectedIndex].value;\n"
 574                 . " if (s)\n"
 575                 . "  myForm.submit();\n"
 576                 . "     myForm.$next_name.focus();\n"
 577                 . "     return true;\n"
 578                 . "}\n"
 579                 . "-->\n"
 580                 . "</script>\n";
 581         return $js;
 582 }
 583
 584 function get_js_set_focus($name)
 585 {
 586         $js = "\n<script type=\"text/javascript\">\n"
 587                 . "<!--\n"
 588                 . "function setFocus()\n"
 589                 . "{\n"
 590                 . "     document.forms[0].$name.focus();\n"
 591                 . "}\n"
 592                 . "-->\n"
 593                 . "</script>\n";
 594         return $js;
 595 }
 596
 597 function get_js_png_fix()
 598 {
 599         $js = "<script type=\"text/javascript\">\n"
 600                 . "function fixPNG(myImage)\n"
 601                 . "{\n"
 602                 . " var arVersion = navigator.appVersion.split(\"MSIE\")\n"
 603                 . " var version = parseFloat(arVersion[1])\n"
 604         . " if ((version >= 5.5) && (version < 7) && (document.body.filters))\n"
 605         . " {\n"
 606         . "  var imgID = (myImage.id) ? \"id='\" + myImage.id + \"' \" : \"\"\n"
 607                 . "  var imgClass = (myImage.className) ? \"class='\" + myImage.className + \"' \" : \"\"\n"
 608                 . "  var imgTitle = (myImage.title) ?\n"
 609                 . "    \"title='\" + myImage.title  + \"' \" : \"title='\" + myImage.alt + \"' \"\n"
 610                 . "  var imgStyle = \"display:inline-block;\" + myImage.style.cssText\n"
 611                 . "  var strNewHTML = \"<span \" + imgID + imgClass + imgTitle\n"
 612         . "    + \" style=\\\"\" + \"width:\" + myImage.width\n"
 613         . "    + \"px; height:\" + myImage.height\n"
 614         . "    + \"px;\" + imgStyle + \";\"\n"
 615         . "    + \"filter:progid:DXImageTransform.Microsoft.AlphaImageLoader\"\n"
 616         . "    + \"(src=\'\" + myImage.src + \"\', sizingMethod='scale');\\\"></span>\"\n"
 617                 . "  myImage.outerHTML = strNewHTML\n"
 618         . " }\n"
 619                 . "}\n"
 620                 . "</script>\n";
 621         return $js;
 622 }
 623
 624 function get_js_date_picker()
 625 {
 626         global $dateseps, $path_to_root;
 627
 628         $encoding = $_SESSION['language']->encoding;    // character encoding
 629         $dir = $_SESSION['language']->dir;                              // left to right, right to left
 630         $how = user_date_format();                                              // 0 = us/ca, 1 = eu, au, nz, 2 = jp, sw
 631         $sep = $dateseps[user_date_sep()];                              // date separator
 632         $wstart = ($how != 0);                                                  // weekstart (sun = 0, mon = 1)
 633         $width = 250;                                                                   // datepicker width
 634         $height = 180;                                                                  // datepicker height
 635         $path = "$path_to_root/themes/default/images/"; // path to images
 636         $tbgcolor = "#4682b4";                                                  // title backgrond
 637         $tcolor = "white";                                                              // title color
 638         $wbgcolor = "#87cefa";                                                  // weekdays background
 639         $wcolor = "white";                                                              // weekdays color
 640         $cbgcolor = "#ffb6c1";                                                  // current day background
 641         $ebgcolor = "#dbeaf5";                                                  // week-end background
 642         $bgcolor = "white";                                                             // normal background
 643         $color = "darkblue";                                                    // month day color
 644         $gcolor = "#aaaaaa";                                                    // prev/next month day color
 645         $family = "tahoma,verdana";                                             // font-family
 646
 647         $js = "\n<script type=\"text/javascript\">\n"
 648                 . "<!--\n"
 649                 . "function date_picker(nm, val) {\n"
 650                 . " var mons = ['"._('January')."', '"._('February')."', '"._('March')."', '"._('April')."', '"._('May')."', '"._('June')."',\n"
 651                 . "  '"._('July')."', '"._('August')."', '"._('Sebtember')."', '"._('October')."', '"._('November')."', '"._('December')."'];\n"
 652                 . " var wdays = ['"._('Su')."', '"._('Mo')."', '"._('Tu')."', '"._('We')."', '"._('Th')."', '"._('Fr')."', '"._('Sa')."'];\n"
 653                 . " var wstart = $wstart; // day of week starts from (normally 0 or 1)\n"
 654                 . " var _date = (val == null || val =='' ?  new Date() : str2dt(val));\n"
 655                 . " var _prev = new Date(_date);\n"
 656                 . " _prev.setMonth(_date.getMonth()-1);\n"
 657                 . " var _next = new Date(_date);\n"
 658                 . " _next.setMonth(_date.getMonth()+1);\n"
 659                 . " var _prevy = new Date(_date);\n"
 660                 . " _prevy.setFullYear(_date.getFullYear()-1);\n"
 661                 . " var _nexty = new Date(_date);\n"
 662                 . " _nexty.setFullYear(_date.getFullYear()+1);\n"
 663                 . " var _first = new Date(_date);\n"
 664                 . " _first.setDate(1);\n"
 665                 . " _first.setDate(1-(7+_first.getDay()-wstart)%7);\n"
 666                 . " var _last = new Date(_next);\n"
 667                 . " _last.setDate(0);\n"
 668                 . " var left = (screen.width - $width) / 2;\n"
 669                 . " var top = (screen.height - $height) / 2;\n"
 670                 . "     var buff = new String (\n"
 671                 . "\"<html dir='$dir'>\\n\"+\n"
 672                 . "\"<head>\\n\"+\n"
 673                 . "\"   <title>DatePicker</title>\\n\"+\n"
 674                 . "\"   <meta http-equiv='Content-type' content='text/html'; charset='$encoding'>\\n\"+\n"
 675                 . "\"   <style>\\n\"+\n"
 676                 . "\"       body { background-color:$tbgcolor; margin:0; padding:0; font-family: $family; font-size: 13px; }\\n\"+\n"
 677                 . "\"       select { font-size: 12px; }\\n\"+\n"
 678                 . "\"       a { text-decoration: none; }\\n\"+\n"
 679                 . "\"       a:hover { text-decoration: underline; }\\n\"+\n"
 680                 . "\"       .tbg { background-color: $tbgcolor; color: $tcolor; font-size: 12px; font-weight: bold; text-align: center;}\\n\"+\n"
 681                 . "\"       .wbg { background-color: $wbgcolor; color: $wcolor; font-size: 12px; text-align: right; }\\n\"+\n"
 682                 . "\"       .cbg { background-color: $cbgcolor; font-size: 12px; text-align: right; }\\n\"+\n"
 683                 . "\"       .ebg { background-color: $ebgcolor; font-size: 12px; text-align: right; }\\n\"+\n"
 684                 . "\"       .bg { background-color: $bgcolor; font-size: 12px; text-align: right; }\\n\"+\n"
 685                 . "\"       .c { color: $color; }\\n\"+\n"
 686                 . "\"       .gc { color: $gcolor; }\\n\"+\n"
 687                 . "\"   </style>\\n\"+\n"
 688                 . "\"</head>\\n\"+\n"
 689                 . "\"<body>\\n\"+\n"
 690                 . "\"<table cellspacing=\\\"0\\\" border=\\\"0\\\" style=\\\"width:100%;\\\">\\n\"+\n"
 691                 . "\"<tr><td class=\\\"tbg\\\">\\n\"+\n"
 692                 . "\"<table cellspacing=\\\"1\\\" cellpadding=\\\"2\\\" border=\\\"0\\\" style=\\\"width:100%;\\\">\\n\"+\n"
 693                 . "\"<tr>\\n    <td class=\\\"tbg\\\"><a href=\\\"javascript:window.opener.date_picker('\"+\n"
 694                 . " nm+\"', '\"+ dt2dtstr(_prev)+\"');\\\">\"+\n"
 695                 . "\"<img src=\\\"".$path."prev.gif\\\" width=\\\"16\\\" height=\\\"16\\\" border=\\\"0\\\"\"+\n"
 696                 . "\" alt=\\\""._('previous month')."\\\"></a></td>\\n\"+\n"
 697                 . "\"   <td class=\\\"tbg\\\" colspan=\\\"5\\\">\"+\n"
 698                 . " mons[_date.getMonth()]+\"</td>\\n\"+\n"
 699                 . "\"   <td class=\\\"tbg\\\"><a href=\\\"javascript:window.opener.date_picker('\"\n"
 700                 . " +nm+\"', '\"+dt2dtstr(_next)+\"');\\\">\"+\n"
 701                 . "\"<img src=\\\"".$path."next.gif\\\" width=\\\"16\\\" height=\\\"16\\\" border=\\\"0\\\"\"+\n"
 702                 . "\" alt=\\\""._('next month')."\\\"></a></td>\\n</tr>\\n\"+\n"
 703                 . "\"<tr>\\n    <td class=\\\"tbg\\\"><a href=\\\"javascript:window.opener.date_picker('\"+\n"
 704                 . " nm+\"', '\"+ dt2dtstr(_prevy)+\"');\\\">\"+\n"
 705                 . "\"<img src=\\\"".$path."prev.gif\\\" width=\\\"16\\\" height=\\\"16\\\" border=\\\"0\\\"\"+\n"
 706                 . "\" alt=\\\""._('previous year')."\\\"></a></td>\\n\"+\n"
 707                 . "\"   <td class=\\\"tbg\\\" colspan=\\\"5\\\">\"+\n"
 708                 . " _date.getFullYear()+\"</td>\\n\"+\n"
 709                 . "\"   <td class=\\\"tbg\\\"><a href=\\\"javascript:window.opener.date_picker('\"\n"
 710                 . " +nm+\"', '\"+dt2dtstr(_nexty)+\"');\\\">\"+\n"
 711                 . "\"<img src=\\\"".$path."next.gif\\\" width=\\\"16\\\" height=\\\"16\\\" border=\\\"0\\\"\"+\n"
 712                 . "\" alt=\\\""._('next year')."\\\"></a></td>\\n</tr>\\n\"\n"
 713                 . ");\n"
 714                 . " var _current = new Date(_first);\n"
 715                 . " // weekdays titles\n"
 716                 . " buff += \"<tr>\\n\";\n"
 717                 . " for (var n=0; n<7; n++)\n"
 718                 . "  buff += \" <td class=\\\"wbg\\\">\"+\n"
 719                 . " wdays[(wstart+n)%7]+\"</td>\\n\";\n"
 720                 . " // calendar table\n"
 721                 . " buff += \"</tr>\\n\";\n"
 722                 . " for (var i=0; i<6; i++) {\n"
 723                 . "  // row heder\n"
 724                 . "  buff += \"<tr>\\n\";\n"
 725                 . "  for (var n=0; n<7; n++) {\n"
 726                 . "   if (_current.getDate() == _date.getDate() &&\n"
 727                 . "    _current.getMonth() == _date.getMonth())\n"
 728                 . "    // current date\n"
 729                 . "        buff += \"   <td class=\\\"cbg\\\">\";\n"
 730                 . "       else if (_current.getDay() == 0 || _current.getDay() == 6)\n"
 731                 . "        // weekend days\n"
 732                 . "    buff += \"       <td class=\\\"ebg\\\">\";\n"
 733                 . "   else\n"
 734                 . "    // working days of current month\n"
 735                 . "        buff += \"   <td class=\\\"bg\\\">\";\n"
 736                 . "       if (_current.getMonth() == _date.getMonth())\n"
 737                 . "    // days of current month\n"
 738                 . "    buff += \"<a href=\\\"javascript:window.opener.\"+nm+\n"
 739                 . "             \".value='\"+dt2dtstr(_current)+\"'; window.close();\\\">\"+\n"
 740                 . "             \"<span class=\\\"c\\\">\";\n"
 741                 . "   else\n"
 742                 . "    // days of other months\n"
 743                 . "    buff += \"<a href=\\\"javascript:window.opener.\"+nm+\n"
 744                 . "             \".value='\"+dt2dtstr(_current)+\"'; window.close();\\\">\"+\n"
 745                 . "             \"<span class=\\\"gc\\\">\";\n"
 746                 . "   buff += _current.getDate()+\"</span></a></td>\\n\";\n"
 747                 . "   _current.setDate(_current.getDate()+1);\n"
 748                 . "  }\n"
 749                 . "  // row footer\n"
 750                 . "  buff += \"</tr>\\n\";\n"
 751                 . " }\n"
 752                 . " // picker footer\n"
 753                 . " buff +=\n"
 754                 . " \"</table>\\n\" +\n"
 755                 . " \"</tr>\\n</td>\\n</table>\\n\" +\n"
 756                 . " \"</body>\\n\" +\n"
 757                 . " \"</html>\\n\";\n"
 758                 . "     var picker = window.open('', 'DatePicker',\n"
 759                 . "  'width=$width,height=$height,status=no,resizable=yes,top='+top+',left='+left+'');\n"
 760                 . " picker.opener = self;\n"
 761                 . " var _doc = picker.document;\n"
 762                 . " _doc.write (buff);\n"
 763                 . " _doc.close();\n"
 764                 . "}\n"
 765                 . "// datetime parsing and formatting routimes. modify them if you wish other datetime format\n"
 766                 . "function str2dt (val) {\n"
 767                 . " var re_date = /^(\\d+)\\".$sep."(\\d+)\\".$sep."(\\d+)+$/;\n"
 768                 . " if (!re_date.exec(val))\n"
 769                 . "  return alert('"._('Invalid Datetime format').": '+ val);\n";
 770         if ($how == 0)
 771                 $js .= " return (new Date (RegExp.$3, RegExp.$1-1, RegExp.$2));\n";
 772         elseif ($how == 1)
 773                 $js .= " return (new Date (RegExp.$3, RegExp.$2-1, RegExp.$1));\n";
 774         else
 775                 $js .= " return (new Date (RegExp.$1, RegExp.$2-1, RegExp.$3));\n";
 776         $js .= "}\n"
 777                 . "function dt2dtstr (_date) {\n"
 778                 . " var da = new String(_date.getDate());\n"
 779                 . " var mo = new String(_date.getMonth()+1);\n"
 780                 . " var yr = _date.getFullYear();\n"
 781                 . " if (da.length < 2)\n"
 782                 . "  da = '0'+da;\n"
 783                 . " if (mo.length < 2)\n"
 784                 . "  mo = '0'+mo;\n";
 785         if ($how == 0)
 786                 $js .= " return (new String (mo+'$sep'+da+'$sep'+yr));\n";
 787         elseif ($how == 1)
 788                 $js .= " return (new String (da+'$sep'+mo+'$sep'+yr));\n";
 789         else
 790                 $js .= " return (new String (yr+'$sep'+mo+'$sep'+da));\n";
 791         $js .= "}\n"
 792                 . "-->\n"
 793                 . "</script>\n";
 794         return $js;
 795 }
 796
 797 function alert($msg)
 798 {
 799         echo "\n<script type=\"text/javascript\">\n"
 800                 . "<!--\n"
 801                 . "alert('$msg');\n"
 802                 . "-->\n"
 803                 . "</script>\n";
 804 }
 805
 806 if (!function_exists('_vd'))
 807 {
 808         function _vd($mixed, $title = '', $exit = false)
 809         {
 810         // Only the site admin is able to proceed here.
 811         echo (!empty($title) ? ($title .':') : '') .'<pre>';
 812         var_dump($mixed);
 813         echo "</pre>\n";
 814         if ($exit)
 815                 exit;
 816         }
 817 }
 818
 819 ?>