* Portions created by SugarCRM are Copyright (C) 2004-2006 SugarCRM, Inc.;
* All Rights Reserved.
* Contributor(s): ______________________________________.
*/
require_once 'XTemplate/xtpl.php';
require_once 'data/Tracker.php';
require_once 'modules/Ink/Ink.php';
require_once 'include/time.php';
require_once 'modules/Ink/Forms.php';
global $timedate;
global $app_strings;
global $app_list_strings;
global $current_language;
global $current_user;
global $sugar_version, $sugar_config;
$focus = new Ink();
if (!empty($_REQUEST['record'])) {
$focus->retrieve($_REQUEST['record']);
}
echo "\n<p>\n";
echo get_module_title($mod_strings['LBL_MODULE_NAME'], $mod_strings['LBL_MODULE_NAME'] . ": " . $focus->name, true);
echo "\n</p>\n";
global $theme;
$theme_path = "themes/" . $theme . "/";
$image_path = $theme_path . "images/";
require_once $theme_path . 'layout_utils.php';
$GLOBALS['log']->info("Ink detail view");
$xtpl = new XTemplate('modules/Ink/EditView.html');
/// Users Popup
$json = getJSONobj();
$popup_request_data = array('call_back_function' => 'set_return', 'form_name' => 'EditView', 'field_to_name_array' => array('id' => 'assigned_user_id', 'user_name' => 'assigned_user_name'));
function CreateTestAnnots($doc)
{
$ew = new ElementWriter();
$eb = new ElementBuilder();
$first_page = $doc->PageCreate(new Rect(0.0, 0.0, 600.0, 600.0));
$doc->PagePushBack($first_page);
$ew->Begin($first_page, ElementWriter::e_overlay, false);
// begin writing to this page
$ew->End();
// save changes to the current page
//
// Test of a free text annotation.
//
$txtannot = FreeText::Create($doc->GetSDFDoc(), new Rect(10.0, 400.0, 160.0, 570.0));
$txtannot->SetContents("\n\nSome swift brown fox snatched a gray hare out of the air by freezing it with an angry glare." . "\n\nAha!\n\nAnd there was much rejoicing!");
$txtannot->SetBorderStyle(new BorderStyle(BorderStyle::e_solid, 1.0, 10.0, 20.0), true);
$txtannot->SetQuaddingFormat(0);
$first_page->AnnotPushBack($txtannot);
$txtannot->RefreshAppearance();
$txtannot = FreeText::Create($doc->GetSDFDoc(), new Rect(100.0, 100.0, 350.0, 500.0));
$txtannot->SetContentRect(new Rect(200.0, 200.0, 350.0, 500.0));
$txtannot->SetContents("\n\nSome swift brown fox snatched a gray hare out of the air by freezing it with an angry glare." . "\n\nAha!\n\nAnd there was much rejoicing!");
$txtannot->SetCalloutLinePoints(new Point(200.0, 300.0), new Point(150.0, 290.0), new Point(110.0, 110.0));
$txtannot->SetBorderStyle(new BorderStyle(BorderStyle::e_solid, 1.0, 10.0, 20.0), true);
$txtannot->SetEndingStyle(LineAnnot::e_ClosedArrow);
$txtannot->SetColor(new ColorPt(0.0, 1.0, 0.0));
$txtannot->SetQuaddingFormat(1);
$first_page->AnnotPushBack($txtannot);
$txtannot->RefreshAppearance();
$txtannot = FreeText::Create($doc->GetSDFDoc(), new Rect(400.0, 10.0, 550.0, 400.0));
$txtannot->SetContents("\n\nSome swift brown fox snatched a gray hare out of the air by freezing it with an angry glare." . "\n\nAha!\n\nAnd there was much rejoicing!");
$txtannot->SetBorderStyle(new BorderStyle(BorderStyle::e_solid, 1.0, 10.0, 20.0), true);
$txtannot->SetColor(new ColorPt(0.0, 0.0, 1.0));
$txtannot->SetOpacity(0.2);
$txtannot->SetQuaddingFormat(2);
$first_page->AnnotPushBack($txtannot);
$txtannot->RefreshAppearance();
$page = $doc->PageCreate(new Rect(0.0, 0.0, 600.0, 600.0));
$doc->PagePushBack($page);
$ew->Begin($page, ElementWriter::e_overlay, false);
// begin writing to this page
$eb->Reset();
// Reset the GState to default
$ew->End();
// save changes to the current page
//Create a Line annotation...
$line = LineAnnot::Create($doc->GetSDFDoc(), new Rect(250.0, 250.0, 400.0, 400.0));
$line->SetStartPoint(new Point(350.0, 270.0));
$line->SetEndPoint(new Point(260.0, 370.0));
$line->SetStartStyle(LineAnnot::e_Square);
$line->SetEndStyle(LineAnnot::e_Circle);
$line->SetColor(new ColorPt(0.3, 0.5, 0.0), 3);
$line->SetContents("Dashed Captioned");
$line->SetShowCaption(true);
$line->SetCaptionPosition(LineAnnot::e_Top);
$line->SetBorderStyle(new BorderStyle(BorderStyle::e_dashed, 2.0, 0.0, 0.0, array(2.0, 2.0)));
$line->RefreshAppearance();
$page->AnnotPushBack($line);
$line = LineAnnot::Create($doc->GetSDFDoc(), new Rect(347.0, 377.0, 600.0, 600.0));
$line->SetStartPoint(new Point(385.0, 410.0));
$line->SetEndPoint(new Point(540.0, 555.0));
$line->SetStartStyle(LineAnnot::e_Circle);
$line->SetEndStyle(LineAnnot::e_OpenArrow);
$line->SetColor(new ColorPt(1.0, 0.0, 0.0), 3);
$line->SetInteriorColor(new ColorPt(0.0, 1.0, 0.0), 3);
$line->SetContents("Inline Caption");
$line->SetShowCaption(true);
$line->SetCaptionPosition(LineAnnot::e_Inline);
$line->SetLeaderLineExtensionLength(-4.0);
$line->SetLeaderLineLength(-12.0);
$line->SetLeaderLineOffset(2.0);
$line->RefreshAppearance();
$page->AnnotPushBack($line);
$line = LineAnnot::Create($doc->GetSDFDoc(), new Rect(10.0, 400.0, 200.0, 600.0));
$line->SetStartPoint(new Point(25.0, 426.0));
$line->SetEndPoint(new Point(180.0, 555.0));
$line->SetStartStyle(LineAnnot::e_Circle);
$line->SetEndStyle(LineAnnot::e_Square);
$line->SetColor(new ColorPt(0.0, 0.0, 1.0), 3);
$line->SetInteriorColor(new ColorPt(1.0, 0.0, 0.0), 3);
$line->SetContents("Offset Caption");
$line->SetShowCaption(true);
$line->SetCaptionPosition(LineAnnot::e_Top);
$line->SetTextHOffset(-60);
$line->SetTextVOffset(10);
$line->RefreshAppearance();
$page->AnnotPushBack($line);
$line = LineAnnot::Create($doc->GetSDFDoc(), new Rect(200.0, 10.0, 400.0, 70.0));
$line->SetStartPoint(new Point(220.0, 25.0));
$line->SetEndPoint(new Point(370.0, 60.0));
$line->SetStartStyle(LineAnnot::e_Butt);
$line->SetEndStyle(LineAnnot::e_OpenArrow);
$line->SetColor(new ColorPt(0.0, 0.0, 1.0), 3);
$line->SetContents("Regular Caption");
$line->SetShowCaption(true);
$line->SetCaptionPosition(LineAnnot::e_Top);
$line->RefreshAppearance();
$page->AnnotPushBack($line);
$line = LineAnnot::Create($doc->GetSDFDoc(), new Rect(200.0, 70.0, 400.0, 130.0));
$line->SetStartPoint(new Point(220.0, 111.0));
$line->SetEndPoint(new Point(370.0, 78.0));
$line->SetStartStyle(LineAnnot::e_Circle);
$line->SetEndStyle(LineAnnot::e_Diamond);
$line->SetContents("Circle to Diamond");
$line->SetColor(new ColorPt(0.0, 0.0, 1.0), 3);
$line->SetInteriorColor(new ColorPt(0.0, 1.0, 0.0), 3);
$line->SetShowCaption(true);
$line->SetCaptionPosition(LineAnnot::e_Top);
$line->RefreshAppearance();
$page->AnnotPushBack($line);
$line = LineAnnot::Create($doc->GetSDFDoc(), new Rect(10.0, 100.0, 160.0, 200.0));
$line->SetStartPoint(new Point(15.0, 110.0));
$line->SetEndPoint(new Point(150.0, 190.0));
$line->SetStartStyle(LineAnnot::e_Slash);
$line->SetEndStyle(LineAnnot::e_ClosedArrow);
$line->SetContents("Slash to CArrow");
$line->SetColor(new ColorPt(1.0, 0.0, 0.0), 3);
$line->SetInteriorColor(new ColorPt(0.0, 1.0, 1.0), 3);
$line->SetShowCaption(true);
$line->SetCaptionPosition(LineAnnot::e_Top);
$line->RefreshAppearance();
$page->AnnotPushBack($line);
$line = LineAnnot::Create($doc->GetSDFDoc(), new Rect(270.0, 270.0, 570.0, 433.0));
$line->SetStartPoint(new Point(300.0, 400.0));
$line->SetEndPoint(new Point(550.0, 300.0));
$line->SetStartStyle(LineAnnot::e_RClosedArrow);
$line->SetEndStyle(LineAnnot::e_ROpenArrow);
$line->SetContents("ROpen & RClosed arrows");
$line->SetColor(new ColorPt(0.0, 0.0, 1.0), 3);
$line->SetInteriorColor(new ColorPt(0.0, 1.0, 0.0), 3);
$line->SetShowCaption(true);
$line->SetCaptionPosition(LineAnnot::e_Top);
$line->RefreshAppearance();
$page->AnnotPushBack($line);
$line = LineAnnot::Create($doc->GetSDFDoc(), new Rect(195.0, 395.0, 205.0, 505.0));
$line->SetStartPoint(new Point(200.0, 400.0));
$line->SetEndPoint(new Point(200.0, 500.0));
$line->RefreshAppearance();
$page->AnnotPushBack($line);
$line = LineAnnot::Create($doc->GetSDFDoc(), new Rect(55.0, 299.0, 150.0, 301.0));
$line->SetStartPoint(new Point(55.0, 300.0));
$line->SetEndPoint(new Point(155.0, 300.0));
$line->SetStartStyle(LineAnnot::e_Circle);
$line->SetEndStyle(LineAnnot::e_Circle);
$line->SetContents("Caption that's longer than its line.");
$line->SetColor(new ColorPt(1.0, 0.0, 1.0), 3);
$line->SetInteriorColor(new ColorPt(0.0, 1.0, 0.0), 3);
$line->SetShowCaption(true);
$line->SetCaptionPosition(LineAnnot::e_Top);
$line->RefreshAppearance();
$page->AnnotPushBack($line);
$line = LineAnnot::Create($doc->GetSDFDoc(), new Rect(300.0, 200.0, 390.0, 234.0));
$line->SetStartPoint(new Point(310.0, 210.0));
$line->SetEndPoint(new Point(380.0, 220.0));
$line->SetColor(new ColorPt(0.0, 0.0, 0.0), 3);
$line->RefreshAppearance();
$page->AnnotPushBack($line);
$page3 = $doc->PageCreate(new Rect(0.0, 0.0, 600.0, 600.0));
$ew->Begin($page3);
// begin writing to the page
$ew->End();
// save changes to the current page
$doc->PagePushBack($page3);
$circle = Circle::Create($doc->GetSDFDoc(), new Rect(300.0, 300.0, 390.0, 350.0));
$circle->SetColor(new ColorPt(0.0, 0.0, 0.0), 3);
$circle->RefreshAppearance();
$page3->AnnotPushBack($circle);
$circle = Circle::Create($doc->GetSDFDoc(), new Rect(100.0, 100.0, 200.0, 200.0));
$circle->SetColor(new ColorPt(0.0, 1.0, 0.0), 3);
$circle->SetInteriorColor(new ColorPt(0.0, 0.0, 1.0), 3);
$circle->SetBorderStyle(new BorderStyle(BorderStyle::e_dashed, 3.0, 0.0, 0.0, array(2.0, 4.0)));
$circle->SetPadding(2.0);
$circle->RefreshAppearance();
$page3->AnnotPushBack($circle);
$sq = Square::Create($doc->GetSDFDoc(), new Rect(10.0, 200.0, 80.0, 300.0));
$sq->SetColor(new ColorPt(0.0, 0.0, 0.0), 3);
$sq->RefreshAppearance();
$page3->AnnotPushBack($sq);
$sq = Square::Create($doc->GetSDFDoc(), new Rect(500.0, 200.0, 580.0, 300.0));
$sq->SetColor(new ColorPt(1.0, 0.0, 0.0), 3);
$sq->SetInteriorColor(new ColorPt(0.0, 1.0, 1.0), 3);
$sq->SetBorderStyle(new BorderStyle(BorderStyle::e_dashed, 6.0, 0.0, 0.0, array(4.0, 2.0)));
$sq->SetPadding(4.0);
$sq->RefreshAppearance();
$page3->AnnotPushBack($sq);
$poly = Polygon::Create($doc->GetSDFDoc(), new Rect(5.0, 500.0, 125.0, 590.0));
$poly->SetColor(new ColorPt(1.0, 0.0, 0.0), 3);
$poly->SetInteriorColor(new ColorPt(1.0, 1.0, 0.0), 3);
$poly->SetVertex(0, new Point(12.0, 510.0));
$poly->SetVertex(1, new Point(100.0, 510.0));
$poly->SetVertex(2, new Point(100.0, 555.0));
$poly->SetVertex(3, new Point(35.0, 544.0));
$poly->SetBorderStyle(new BorderStyle(BorderStyle::e_solid, 4.0, 0.0, 0.0));
$poly->SetPadding(4.0);
$poly->RefreshAppearance();
$page3->AnnotPushBack($poly);
$poly = PolyLine::Create($doc->GetSDFDoc(), new Rect(400.0, 10.0, 500.0, 90.0));
$poly->SetColor(new ColorPt(1.0, 0.0, 0.0), 3);
$poly->SetInteriorColor(new ColorPt(0.0, 1.0, 0.0), 3);
$poly->SetVertex(0, new Point(405.0, 20.0));
$poly->SetVertex(1, new Point(440.0, 40.0));
$poly->SetVertex(2, new Point(410.0, 60.0));
$poly->SetVertex(3, new Point(470.0, 80.0));
$poly->SetBorderStyle(new BorderStyle(BorderStyle::e_solid, 2.0, 0.0, 0.0));
$poly->SetPadding(4.0);
$poly->SetStartStyle(LineAnnot::e_RClosedArrow);
$poly->SetEndStyle(LineAnnot::e_ClosedArrow);
$poly->RefreshAppearance();
$page3->AnnotPushBack($poly);
$lk = Link::Create($doc->GetSDFDoc(), new Rect(5.0, 5.0, 55.0, 24.0));
//$lk->SetColor( new ColorPt(0.0,1.0,0.0), 3.0 );
$lk->RefreshAppearance();
$page3->AnnotPushBack($lk);
$page4 = $doc->PageCreate(new Rect(0.0, 0.0, 600.0, 600.0));
$ew->Begin($page4);
// begin writing to the page
$ew->End();
// save changes to the current page
$doc->PagePushBack($page4);
$ew->Begin($page4);
$font = Font::Create($doc->GetSDFDoc(), Font::e_helvetica);
$element = $eb->CreateTextBegin($font, 16.0);
$element->SetPathFill(true);
$ew->WriteElement($element);
$element = $eb->CreateTextRun("Some random text on the page", $font, 16.0);
$element->SetTextMatrix(1.0, 0.0, 0.0, 1.0, 100.0, 500.0);
$ew->WriteElement($element);
$ew->WriteElement($eb->CreateTextEnd());
$ew->End();
$hl = HighlightAnnot::Create($doc->GetSDFDoc(), new Rect(100.0, 490.0, 150.0, 515.0));
$hl->SetColor(new ColorPt(0.0, 1.0, 0.0), 3);
$hl->RefreshAppearance();
$page4->AnnotPushBack($hl);
$sq = Squiggly::Create($doc->GetSDFDoc(), new Rect(100.0, 450.0, 250.0, 600.0));
//$sq->SetColor( new ColorPt(1.0,0.0,0.0), 3 );
$sq->SetQuadPoint(0, new QuadPoint(new Point(122.0, 455.0), new Point(240.0, 545.0), new Point(230.0, 595.0), new Point(101.0, 500.0)));
$sq->RefreshAppearance();
$page4->AnnotPushBack($sq);
$cr = Caret::Create($doc->GetSDFDoc(), new Rect(100.0, 40.0, 129.0, 69.0));
$cr->SetColor(new ColorPt(0.0, 0.0, 1.0), 3);
$cr->SetSymbol("P");
$cr->RefreshAppearance();
$page4->AnnotPushBack($cr);
$page5 = $doc->PageCreate(new Rect(0.0, 0.0, 600.0, 600.0));
$ew->Begin($page5);
// begin writing to the page
$ew->End();
// save changes to the current page
$doc->PagePushBack($page5);
global $input_path;
$fs = FileSpec::Create($doc->GetSDFDoc(), $input_path . "butterfly.png", false);
$page6 = $doc->PageCreate(new Rect(0.0, 0.0, 600.0, 600.0));
$ew->Begin($page6);
// begin writing to the page
$ew->End();
// save changes to the current page
$doc->PagePushBack($page6);
for ($ipage = 0; $ipage < 2; ++$ipage) {
for ($iann = 0; $iann < 100; $iann++) {
if (!($iann > FileAttachment::e_Tag)) {
$fa = FileAttachment::Create($doc->GetSDFDoc(), new Rect(50.0 + 50.0 * (double) $iann, 100.0, 70.0 + 50.0 * (double) $iann, 120.0), $fs, $iann);
if ($ipage) {
$fa->SetColor(new ColorPt(1.0, 1.0, 0.0));
}
$fa->RefreshAppearance();
if ($ipage == 0) {
$page5->AnnotPushBack($fa);
} else {
$page6->AnnotPushBack($fa);
}
}
if ($iann > Text::e_Note) {
break;
}
$txt = Text::Create($doc->GetSDFDoc(), new Rect(10.0 + (double) $iann * 50.0, 200.0, 30.0 + (double) $iann * 50.0, 220.0));
$txt->SetIcon($iann);
$txt->SetContents($txt->GetIconName());
if ($ipage) {
$txt->SetColor(new ColorPt(1.0, 1.0, 0.0));
}
$txt->RefreshAppearance();
if ($ipage == 0) {
$page5->AnnotPushBack($txt);
} else {
$page6->AnnotPushBack($txt);
}
}
}
$txt = Text::Create($doc->GetSDFDoc(), new Rect(10.0, 20.0, 30.0, 40.0));
$txt->SetIcon("UserIcon");
$txt->SetContents("User defined icon, unrecognized by appearance generator");
$txt->SetColor(new ColorPt(0.0, 1.0, 0.0));
$txt->RefreshAppearance();
$page6->AnnotPushBack($txt);
$ink = Ink::Create($doc->GetSDFDoc(), new Rect(100.0, 400.0, 200.0, 550.0));
$ink->SetColor(new ColorPt(0.0, 0.0, 1.0));
$ink->SetPoint(1, 3, new Point(220.0, 505.0));
$ink->SetPoint(1, 0, new Point(100.0, 490.0));
$ink->SetPoint(0, 1, new Point(120.0, 410.0));
$ink->SetPoint(0, 0, new Point(100.0, 400.0));
$ink->SetPoint(1, 2, new Point(180.0, 490.0));
$ink->SetPoint(1, 1, new Point(140.0, 440.0));
$ink->SetBorderStyle(new BorderStyle(BorderStyle::e_solid, 3.0, 0.0, 0.0));
$ink->RefreshAppearance();
$page6->AnnotPushBack($ink);
$page7 = $doc->PageCreate(new Rect(0.0, 0.0, 600.0, 600.0));
$ew->Begin($page7);
// begin writing to the page
$ew->End();
// save changes to the current page
$doc->PagePushBack($page7);
$snd = Sound::Create($doc->GetSDFDoc(), new Rect(100.0, 500.0, 120.0, 520.0));
$snd->SetColor(new ColorPt(1.0, 1.0, 0.0));
$snd->SetIcon(Sound::e_Speaker);
$snd->RefreshAppearance();
$page7->AnnotPushBack($snd);
$snd = Sound::Create($doc->GetSDFDoc(), new Rect(200.0, 500.0, 220.0, 520.0));
$snd->SetColor(new ColorPt(1.0, 1.0, 0.0));
$snd->SetIcon(Sound::e_Mic);
$snd->RefreshAppearance();
$page7->AnnotPushBack($snd);
$page8 = $doc->PageCreate(new Rect(0.0, 0.0, 600.0, 600.0));
$ew->Begin($page8);
// begin writing to the page
$ew->End();
// save changes to the current page
$doc->PagePushBack($page8);
for ($ipage = 0; $ipage < 2; ++$ipage) {
$px = 5;
$py = 520;
for ($istamp = RubberStamp::e_Approved; $istamp <= RubberStamp::e_Draft; $istamp = $istamp + 1) {
$st = RubberStamp::Create($doc->GetSDFDoc(), new Rect(1.0, 1.0, 100.0, 100.0));
$st->SetIcon($istamp);
$st->SetContents($st->GetIconName());
$st->SetRect(new Rect((double) $px, (double) $py, (double) $px + 100.0, (double) $py + 25.0));
$py -= 100;
if ($py < 0) {
$py = 520;
$px += 200;
}
if ($ipage == 0) {
//$page7->AnnotPushBack( $st );
} else {
$page8->AnnotPushBack($st);
$st->RefreshAppearance();
}
}
}
$st = RubberStamp::Create($doc->GetSDFDoc(), new Rect(400.0, 5.0, 550.0, 45.0));
$st->SetIcon("UserStamp");
$st->SetContents("User defined stamp");
$page8->AnnotPushBack($st);
$st->RefreshAppearance();
}
* License.
*
* All copies of the Covered Code must include on each user interface screen:
* (i) the "Powered by SugarCRM" logo and
* (ii) the SugarCRM copyright notice
* in the same form as they appear in the distribution. See full license for
* requirements.
*
* The Original Code is: SugarCRM Open Source
* The Initial Developer of the Original Code is SugarCRM, Inc.
* Portions created by SugarCRM are Copyright (C) 2004-2006 SugarCRM, Inc.;
* All Rights Reserved.
* Contributor(s): ______________________________________.
*/
require_once 'modules/Ink/Ink.php';
$sugarbean = new Ink();
// perform the delete if given a record to delete
if (empty($_REQUEST['record'])) {
$GLOBALS['log']->info('delete called without a record id specified');
} else {
$record = $_REQUEST['record'];
$sugarbean->retrieve($record);
if (!$sugarbean->ACLAccess('Delete')) {
ACLController::displayNoAccess(true);
sugar_cleanup(true);
}
$GLOBALS['log']->info("deleting record: {$record}");
$sugarbean->mark_deleted($record);
}
// handle the return location variables
$return_module = empty($_REQUEST['return_module']) ? 'Ink' : $_REQUEST['return_module'];