function generateICSCommands($forFile) { global $SelectedDoc; global $Page; global $PageNumber; global $Line1; global $Line2; $cdelim = ($forFile == true) ? "\n" : " "; $dquote = ($forFile == true) ? "\"" : """; if ($Page == "specify") { $pagespec = $PageNumber; } else { $pagespec = $Page; } $retval = ($forFile == true) ? "ICS\n" : ""; // Document if ($forFile == true) { $retval .= "ldoc " . $SelectedDoc . $cdelim; } // // The markup: // Set transparency on. $retval .= "onpage $pagespec markup attributes drawmode transparent" . $cdelim; // Create "yellow sticky note" $retval .= "onpage $pagespec markup attributes fgcolor rgb:ff/ff/88" . $cdelim; $retval .= "onpage $pagespec markup filledrectangle 0.25 0.25 4.75 1.20" . $cdelim; // Add "shadow" for a raised effect $retval .= "onpage $pagespec markup attributes fgcolor rgb:aa/aa/aa" . $cdelim; $retval .= "onpage $pagespec markup filledpolygon 0.30 1.20 4.75 1.20 4.75 0.30 4.80 0.30 4.80 1.25 0.30 1.25" . $cdelim; // Draw the text on the "yellow sticky note" $retval .= "onpage $pagespec markup attributes fgcolor rgb:00/00/99" . $cdelim; $retval .= "onpage $pagespec markup text font ".$dquote."face cour size 12 pitchcpi 8".$dquote . $cdelim; if (!empty($Line1)) { $retval .= "onpage $pagespec markup text rxloc 0.4 ryloc 0.70 string ".$dquote.$Line1.$dquote.$cdelim; } if (!empty($Line2)) { $retval .= "onpage $pagespec markup text rxloc 0.4 ryloc 1.00 string ".$dquote.$Line2.$dquote.$cdelim; } // Toolbar $retval .= "gui controls display rightbuttons" . $cdelim; // ViewPort $retval .= "draw widetop"; return $retval; } if ($PlainText == "no") { if ($IE == "no") { // Specify as application/vnd.SwiftView-ICS header("Content-Type: application/vnd.SwiftView-ICS"); echo generateICSCommands(true); } else { // Specify the content type to be ICS header("Content-Type: text/html"); echo "\n"; echo "
\n"; echo "\n"; echo "