'; /** * Allowed protocols - array of protocols that are safe to use in links and so on * @global string $ALLOWED_PROTOCOLS */ $ALLOWED_PROTOCOLS = array('http', 'https', 'ftp', 'news', 'mailto', 'rtsp', 'teamspeak', 'gopher', 'color'); /// Functions /** * Add quotes to HTML characters * * Returns $var with HTML characters (like "<", ">", etc.) properly quoted. * This function is very similar to {@link p()} * * @param string $var the string potentially containing HTML characters * @return string */ function s($var) { if (empty($var)) { return ''; } return htmlSpecialChars(stripslashes_safe($var)); } /** * Add quotes to HTML characters * * Prints $var with HTML characters (like "<", ">", etc.) properly quoted. * This function is very similar to {@link s()} * * @param string $var the string potentially containing HTML characters * @return string */ function p($var) { if (empty($var)) { echo ''; } echo htmlSpecialChars(stripslashes_safe($var)); } /** * Ensure that a variable is set * * Return $var if it is defined, otherwise return $default, * This function is very similar to {@link optional_variable()} * * @param mixed $var the variable which may be unset * @param mixed $default the value to return if $var is unset * @return mixed */ function nvl(&$var, $default='') { return isset($var) ? $var : $default; } /** * Remove query string from url * * Takes in a URL and returns it without the querystring portion * * @param string $url the url which may have a query string attached * @return string */ function strip_querystring($url) { if ($commapos = strpos($url, '?')) { return substr($url, 0, $commapos); } else { return $url; } } /** * Returns the URL of the HTTP_REFERER, less the querystring portion * @return string */ function get_referer() { return strip_querystring(nvl($_SERVER['HTTP_REFERER'])); } /** * Returns the name of the current script, WITH the querystring portion. * this function is necessary because PHP_SELF and REQUEST_URI and SCRIPT_NAME * return different things depending on a lot of things like your OS, Web * server, and the way PHP is compiled (ie. as a CGI, module, ISAPI, etc.) * NOTE: This function returns false if the global variables needed are not set. * * @return string */ function me() { if (!empty($_SERVER['REQUEST_URI'])) { return $_SERVER['REQUEST_URI']; } else if (!empty($_SERVER['PHP_SELF'])) { if (!empty($_SERVER['QUERY_STRING'])) { return $_SERVER['PHP_SELF'] .'?'. $_SERVER['QUERY_STRING']; } return $_SERVER['PHP_SELF']; } else if (!empty($_SERVER['SCRIPT_NAME'])) { if (!empty($_SERVER['QUERY_STRING'])) { return $_SERVER['SCRIPT_NAME'] .'?'. $_SERVER['QUERY_STRING']; } return $_SERVER['SCRIPT_NAME']; } else if (!empty($_SERVER['URL'])) { // May help IIS (not well tested) if (!empty($_SERVER['QUERY_STRING'])) { return $_SERVER['URL'] .'?'. $_SERVER['QUERY_STRING']; } return $_SERVER['URL']; } else { notify('Warning: Could not find any of these web server variables: $REQUEST_URI, $PHP_SELF, $SCRIPT_NAME or $URL'); return false; } } /** * Like {@link me()} but returns a full URL * @see me() * @return string */ function qualified_me() { if (!empty($_SERVER['SERVER_NAME'])) { $hostname = $_SERVER['SERVER_NAME']; } else if (!empty($_ENV['SERVER_NAME'])) { $hostname = $_ENV['SERVER_NAME']; } else if (!empty($_SERVER['HTTP_HOST'])) { $hostname = $_SERVER['HTTP_HOST']; } else if (!empty($_ENV['HTTP_HOST'])) { $hostname = $_ENV['HTTP_HOST']; } else { notify('Warning: could not find the name of this server!'); return false; } if (isset($_SERVER['HTTPS'])) { $protocol = ($_SERVER['HTTPS'] == 'on') ? 'https://' : 'http://'; } else if (isset($_SERVER['SERVER_PORT'])) { # Apache2 does not export $_SERVER['HTTPS'] $protocol = ($_SERVER['SERVER_PORT'] == '443') ? 'https://' : 'http://'; } else { $protocol = 'http://'; } $url_prefix = $protocol.$hostname; return $url_prefix . me(); } /** * Determine if a web referer is valid * * Returns true if the referer is the same as the goodreferer. If * the referer to test is not specified, use {@link qualified_me()}. * If the admin has not set secure forms ($CFG->secureforms) then * this function returns true regardless of a match. * * @uses $CFG * @param string $goodreferer the url to compare to referer * @return boolean */ function match_referer($goodreferer = '') { global $CFG; if (empty($CFG->secureforms)) { // Don't bother checking referer return true; } if ($goodreferer == 'nomatch') { // Don't bother checking referer return true; } if (empty($goodreferer)) { $goodreferer = qualified_me(); } $referer = get_referer(); return (($referer == $goodreferer) or ($referer == $CFG->wwwroot .'/')); } /** * Determine if there is data waiting to be processed from a form * * Used on most forms in Moodle to check for data * Returns the data as an object, if it's found. * This object can be used in foreach loops without * casting because it's cast to (array) automatically * * Checks that submitted POST data exists, and also * checks the referer against the given url (it uses * the current page if none was specified. * * @uses $CFG * @param string $url the url to compare to referer for secure forms * @return boolean */ function data_submitted($url='') { global $CFG; if (empty($_POST)) { return false; } else { if (match_referer($url)) { return (object)$_POST; } else { if ($CFG->debug > 10) { notice('The form did not come from this page! (referer = '. get_referer() .')'); } return false; } } } /** * Moodle replacement for php stripslashes() function * * The standard php stripslashes() removes ALL backslashes * even from strings - so C:\temp becomes C:temp - this isn't good. * This function should work as a fairly safe replacement * to be called on quoted AND unquoted strings (to be sure) * * @param string the string to remove unsafe slashes from * @return string */ function stripslashes_safe($string) { $string = str_replace("\\'", "'", $string); $string = str_replace('\\"', '"', $string); //$string = str_replace('\\\\', '\\', $string); // why? return $string; } /** * Recursive implementation of stripslashes() * * This function will allow you to strip the slashes from a variable. * If the variable is an array or object, slashes will be stripped * from the items (or properties) it contains, even if they are arrays * or objects themselves. * * @param mixed the variable to remove slashes from * @return mixed */ function stripslashes_recursive($var) { if(is_object($var)) { $properties = get_object_vars($var); foreach($properties as $property => $value) { $var->$property = stripslashes_recursive($value); } } else if(is_array($var)) { foreach($var as $property => $value) { $var[$property] = stripslashes_recursive($value); } } else if(is_string($var)) { $var = stripslashes($var); } return $var; } /** * Given some normal text this function will break up any * long words to a given size by inserting the given character * * @param string $string the string to be modified * @param int $maxsize maximum length of the string to be returned * @param string $cutchar the string used to represent word breaks * @return string */ function break_up_long_words($string, $maxsize=20, $cutchar=' ') { if (in_array(current_language(), array('ja', 'zh_cn', 'zh_tw', 'zh_tw_utf8'))) { // Multibyte languages return $string; } $output = ''; $length = strlen($string); $wordlength = 0; for ($i=0; $i<$length; $i++) { $char = $string[$i]; if ($char == ' ' or $char == "\t" or $char == "\n" or $char == "\r") { $wordlength = 0; } else { $wordlength++; if ($wordlength > $maxsize) { $output .= $cutchar; $wordlength = 0; } } $output .= $char; } return $output; } /** * This does a search and replace, ignoring case * This function is only used for versions of PHP older than version 5 * which do not have a native version of this function. * Taken from the PHP manual, by bradhuizenga @ softhome.net * * @param string $find the string to search for * @param string $replace the string to replace $find with * @param string $string the string to search through * return string */ if (!function_exists('str_ireplace')) { /// Only exists in PHP 5 function str_ireplace($find, $replace, $string) { if (!is_array($find)) { $find = array($find); } if(!is_array($replace)) { if (!is_array($find)) { $replace = array($replace); } else { // this will duplicate the string into an array the size of $find $c = count($find); $rString = $replace; unset($replace); for ($i = 0; $i < $c; $i++) { $replace[$i] = $rString; } } } foreach ($find as $fKey => $fItem) { $between = explode(strtolower($fItem),strtolower($string)); $pos = 0; foreach($between as $bKey => $bItem) { $between[$bKey] = substr($string,$pos,strlen($bItem)); $pos += strlen($bItem) + strlen($fItem); } $string = implode($replace[$fKey],$between); } return ($string); } } /** * Locate the position of a string in another string * * This function is only used for versions of PHP older than version 5 * which do not have a native version of this function. * Taken from the PHP manual, by dmarsh @ spscc.ctc.edu * * @param string $haystack The string to be searched * @param string $needle The string to search for * @param int $offset The position in $haystack where the search should begin. */ if (!function_exists('stripos')) { /// Only exists in PHP 5 function stripos($haystack, $needle, $offset=0) { return strpos(strtoupper($haystack), strtoupper($needle), $offset); } } /** * Load a template from file * * Returns a (big) string containing the contents of a template file with all * the variables interpolated. all the variables must be in the $var[] array or * object (whatever you decide to use). * * WARNING: do not use this on big files!! * * @param string $filename Location on the server's filesystem where template can be found. * @param mixed $var Passed in by reference. An array or object which will be loaded with data from the template file. */ function read_template($filename, &$var) { $temp = str_replace("\\", "\\\\", implode(file($filename), '')); $temp = str_replace('"', '\"', $temp); eval("\$template = \"$temp\";"); return $template; } /** * Set a variable's value depending on whether or not it already has a value. * * If variable is set, set it to the set_value otherwise set it to the * unset_value. used to handle checkboxes when you are expecting them from * a form * * @param mixed $var Passed in by reference. The variable to check. * @param mixed $set_value The value to set $var to if $var already has a value. * @param mixed $unset_value The value to set $var to if $var does not already have a value. */ function checked(&$var, $set_value = 1, $unset_value = 0) { if (empty($var)) { $var = $unset_value; } else { $var = $set_value; } } /** * Prints the word "checked" if a variable is true, otherwise prints nothing, * used for printing the word "checked" in a checkbox form element. * * @param boolean $var Variable to be checked for true value * @param string $true_value Value to be printed if $var is true * @param string $false_value Value to be printed if $var is false */ function frmchecked(&$var, $true_value = 'checked', $false_value = '') { if ($var) { echo $true_value; } else { echo $false_value; } } /** * This function will create a HTML link that will work on both * Javascript and non-javascript browsers. * Relies on the Javascript function openpopup in javascript.php * * $url must be relative to home page eg /mod/survey/stuff.php * @param string $url Web link relative to home page * @param string $name Name to be assigned to the popup window * @param string $linkname Text to be displayed as web link * @param int $height Height to assign to popup window * @param int $width Height to assign to popup window * @param string $title Text to be displayed as popup page title * @param string $options List of additional options for popup window * @todo Add code examples and list of some options that might be used. * @param boolean $return Should the link to the popup window be returned as a string (true) or printed immediately (false)? * @return string * @uses $CFG */ function link_to_popup_window ($url, $name='popup', $linkname='click here', $height=400, $width=500, $title='Popup window', $options='none', $return=false) { global $CFG; if ($options == 'none') { $options = 'menubar=0,location=0,scrollbars,resizable,width='. $width .',height='. $height; } $fullscreen = 0; if (!(strpos($url,$CFG->wwwroot) === false)) { // some log url entries contain _SERVER[HTTP_REFERRER] in which case wwwroot is already there. $url = substr($url, strlen($CFG->wwwroot)+1); } $link = '$linkname\n"; if ($return) { return $link; } else { echo $link; } } /** * This function will print a button submit form element * that will work on both Javascript and non-javascript browsers. * Relies on the Javascript function openpopup in javascript.php * * $url must be relative to home page eg /mod/survey/stuff.php * @param string $url Web link relative to home page * @param string $name Name to be assigned to the popup window * @param string $linkname Text to be displayed as web link * @param int $height Height to assign to popup window * @param int $width Height to assign to popup window * @param string $title Text to be displayed as popup page title * @param string $options List of additional options for popup window * @todo Add code examples and list of some options that might be used. * @return string * @uses $CFG */ function button_to_popup_window ($url, $name='popup', $linkname='click here', $height=400, $width=500, $title='Popup window', $options='none') { global $CFG; if ($options == 'none') { $options = 'menubar=0,location=0,scrollbars,resizable,width='. $width .',height='. $height; } $fullscreen = 0; echo '\n"; } /** * Prints a simple button to close a window */ function close_window_button() { echo '' . "\n"; echo '' . "\n"; echo '' . "\n"; print_string('closewindow'); echo '' . "\n"; echo '' . "\n"; } /** * Given an array of value, creates a popup menu to be part of a form * $options["value"]["label"] * * @param type description * @todo Finish documenting this function */ function choose_from_menu ($options, $name, $selected='', $nothing='choose', $script='', $nothingvalue='0', $return=false) { if ($nothing == 'choose') { $nothing = get_string('choose') .'...'; } if ($script) { $javascript = 'onchange="'. $script .'"'; } else { $javascript = ''; } $output = '' . "\n"; if ($nothing) { $output .= ' ' . "\n"; } if (!empty($options)) { foreach ($options as $value => $label) { $output .= ' ' . "\n"; } else { $output .= '>'. $label .'' . "\n"; } } } $output .= '' . "\n"; if ($return) { return $output; } else { echo $output; } } /** * Implements a complete little popup form * * @uses $CFG * @param string $common The URL up to the point of the variable that changes * @param array $options Alist of value-label pairs for the popup list * @param string $formname Name must be unique on the page * @param string $selected The option that is already selected * @param string $nothing The label for the "no choice" option * @param string $help The name of a help page if help is required * @param string $helptext The name of the label for the help button * @param boolean $return Indicates whether the function should return the text * as a string or echo it directly to the page being rendered * @param string $targetwindow The name of the target page to open the linked page in. * @return string If $return is true then the entire form is returned as a string. * @todo Finish documenting this function */ function popup_form($common, $options, $formname, $selected='', $nothing='choose', $help='', $helptext='', $return=false, $targetwindow='self') { global $CFG; static $go, $choose; /// Locally cached, in case there's lots on a page if (empty($options)) { return ''; } if (!isset($go)) { $go = get_string('go'); } if ($nothing == 'choose') { if (!isset($choose)) { $choose = get_string('choose'); } $nothing = $choose.'...'; } $startoutput = ''; $output = ''."\n"; if ($nothing != '') { $output .= " $nothing\n"; } $inoptgroup = false; foreach ($options as $value => $label) { if (substr($label,0,2) == '--') { /// we are starting a new optgroup /// Check to see if we already have a valid open optgroup /// XHTML demands that there be at least 1 option within an optgroup if ($inoptgroup and (count($optgr) > 1) ) { $output .= implode('', $optgr); $output .= ' '; } unset($optgr); $optgr = array(); $optgr[] = ' '; // Plain labels $inoptgroup = true; /// everything following will be in an optgroup continue; } else { $optstr = ' ' . "\n"; } else { $optstr .= '>'. $value .'' . "\n"; } if ($inoptgroup) { $optgr[] = $optstr; } else { $output .= $optstr; } } } /// catch the final group if not closed if ($inoptgroup and count($optgr) > 1) { $output .= implode('', $optgr); $output .= ' '; } $output .= ''; $output .= ''; $output .= ''; $output .= ''; $output .= '' . "\n"; if ($help) { $button = helpbutton($help, $helptext, 'moodle', true, false, '', true); } else { $button = ''; } if ($return) { return $startoutput.$button.$output; } else { echo $startoutput.$button.$output; } } /** * Prints some red text * * @param string $error The text to be displayed in red */ function formerr($error) { if (!empty($error)) { echo ''. $error .''; } } /** * Validates an email to make sure it makes sense. * * @param string $address The email address to validate. * @return boolean */ function validate_email($address) { return (ereg('^[-!#$%&\'*+\\./0-9=?A-Z^_`a-z{|}~]+'. '@'. '[-!#$%&\'*+\\/0-9=?A-Z^_`a-z{|}~]+\.'. '[-!#$%&\'*+\\./0-9=?A-Z^_`a-z{|}~]+$', $address)); } /** * Check for bad characters ? * * @param string $string ? * @param int $allowdots ? * @todo Finish documenting this function - more detail needed in description as well as details on arguments */ function detect_munged_arguments($string, $allowdots=1) { if (substr_count($string, '..') > $allowdots) { // Sometimes we allow dots in references return true; } if (ereg('[\|\`]', $string)) { // check for other bad characters return true; } if (empty($string) or $string == '/') { return true; } return false; } /** * Searches the current environment variables for some slash arguments * * @param string $file ? * @todo Finish documenting this function */ function get_slash_arguments($file='file.php') { if (!$string = me()) { return false; } $pathinfo = explode($file, $string); if (!empty($pathinfo[1])) { return $pathinfo[1]; } else { return false; } } /** * Extracts arguments from "/foo/bar/something" * eg http://mysite.com/script.php/foo/bar/something * * @param string $string ? * @param int $i ? * @return array|string * @todo Finish documenting this function */ function parse_slash_arguments($string, $i=0) { if (detect_munged_arguments($string)) { return false; } $args = explode('/', $string); if ($i) { // return just the required argument return $args[$i]; } else { // return the whole array array_shift($args); // get rid of the empty first one return $args; } } /** * Just returns an array of text formats suitable for a popup menu * * @uses FORMAT_MOODLE * @uses FORMAT_HTML * @uses FORMAT_PLAIN * @uses FORMAT_WIKI * @uses FORMAT_MARKDOWN * @return array */ function format_text_menu() { return array (FORMAT_MOODLE => get_string('formattext'), FORMAT_HTML => get_string('formathtml'), FORMAT_PLAIN => get_string('formatplain'), FORMAT_WIKI => get_string('formatwiki'), FORMAT_MARKDOWN => get_string('formatmarkdown')); } /** * Given text in a variety of format codings, this function returns * the text as safe HTML. * * @uses $CFG * @uses FORMAT_MOODLE * @uses FORMAT_HTML * @uses FORMAT_PLAIN * @uses FORMAT_WIKI * @uses FORMAT_MARKDOWN * @param string $text The text to be formatted. This is raw text originally from user input. * @param int $format Identifier of the text format to be used * (FORMAT_MOODLE, FORMAT_HTML, FORMAT_PLAIN, FORMAT_WIKI, FORMAT_MARKDOWN) * @param array $options ? * @param int $courseid ? * @return string * @todo Finish documenting this function */ function format_text($text, $format=FORMAT_MOODLE, $options=NULL, $courseid=NULL ) { global $CFG, $course; if (!empty($CFG->cachetext)) { $time = time() - $CFG->cachetext; $md5key = md5($text); if ($cacheitem = get_record_select('cache_text', "md5key = '$md5key' AND timemodified > '$time'")) { return $cacheitem->formattedtext; } } if (empty($courseid)) { if (!empty($course->id)) { // An ugly hack for better compatibility $courseid = $course->id; } } $CFG->currenttextiscacheable = true; // Default status - can be changed by any filter switch ($format) { case FORMAT_HTML: replace_smilies($text); if (!isset($options->noclean)) { $text = clean_text($text, $format); } $text = filter_text($text, $courseid); break; case FORMAT_PLAIN: $text = htmlentities($text); $text = rebuildnolinktag($text); $text = str_replace(' ', ' ', $text); $text = nl2br($text); break; case FORMAT_WIKI: $text = wiki_to_html($text,$courseid); $text = rebuildnolinktag($text); if (!isset($options->noclean)) { $text = clean_text($text, $format); } $text = filter_text($text, $courseid); break; case FORMAT_MARKDOWN: $text = markdown_to_html($text); if (!isset($options->noclean)) { $text = clean_text($text, $format); } replace_smilies($text); $text = filter_text($text, $courseid); break; default: // FORMAT_MOODLE or anything else if (!isset($options->smiley)) { $options->smiley=true; } if (!isset($options->para)) { $options->para=true; } if (!isset($options->newlines)) { $options->newlines=true; } $text = text_to_html($text, $options->smiley, $options->para, $options->newlines); if (!isset($options->noclean)) { $text = clean_text($text, $format); } $text = filter_text($text, $courseid); break; } if (!empty($CFG->cachetext) and $CFG->currenttextiscacheable) { $newrecord->md5key = $md5key; $newrecord->formattedtext = addslashes($text); $newrecord->timemodified = time(); @insert_record('cache_text', $newrecord); } return $text; } /** * Given text in a variety of format codings, this function returns * the text as plain text suitable for plain email. * * @uses FORMAT_MOODLE * @uses FORMAT_HTML * @uses FORMAT_PLAIN * @uses FORMAT_WIKI * @uses FORMAT_MARKDOWN * @param string $text The text to be formatted. This is raw text originally from user input. * @param int $format Identifier of the text format to be used * (FORMAT_MOODLE, FORMAT_HTML, FORMAT_PLAIN, FORMAT_WIKI, FORMAT_MARKDOWN) * @return string */ function format_text_email($text, $format) { switch ($format) { case FORMAT_PLAIN: return $text; break; case FORMAT_WIKI: $text = wiki_to_html($text); /// This expression turns links into something nice in a text format. (Russell Jungwirth) /// From: http://php.net/manual/en/function.eregi-replace.php and simplified $text = eregi_replace('(]*>([^<]*))','\\3 [ \\2 ]', $text); return strtr(strip_tags($text), array_flip(get_html_translation_table(HTML_ENTITIES))); break; case FORMAT_HTML: return html_to_text($text); break; case FORMAT_MOODLE: case FORMAT_MARKDOWN: default: $text = eregi_replace('(]*>([^<]*))','\\3 [ \\2 ]', $text); return strtr(strip_tags($text), array_flip(get_html_translation_table(HTML_ENTITIES))); break; } } /** * Given some text in HTML format, this function will pass it * through any filters that have been defined in $CFG->textfilterx * The variable defines a filepath to a file containing the * filter function. The file must contain a variable called * $textfilter_function which contains the name of the function * with $courseid and $text parameters * * @param string $text The text to be passed through format filters * @param int $courseid ? * @return string * @todo Finish documenting this function */ function filter_text($text, $courseid=NULL) { global $CFG; if (!empty($CFG->textfilters)) { $textfilters = explode(',', $CFG->textfilters); foreach ($textfilters as $textfilter) { if (is_readable($CFG->dirroot .'/'. $textfilter .'/filter.php')) { include_once($CFG->dirroot .'/'. $textfilter .'/filter.php'); $functionname = basename($textfilter).'_filter'; if (function_exists($functionname)) { $text = $functionname($courseid, $text); } } } } return $text; } /** * Given raw text (eg typed in by a user), this function cleans it up * and removes any nasty tags that could mess up Moodle pages. * * @uses FORMAT_MOODLE * @uses FORMAT_PLAIN * @uses ALLOWED_TAGS * @param string $text The text to be cleaned * @param int $format Identifier of the text format to be used * (FORMAT_MOODLE, FORMAT_HTML, FORMAT_PLAIN, FORMAT_WIKI, FORMAT_MARKDOWN) * @return string The cleaned up text */ function clean_text($text, $format=FORMAT_MOODLE) { global $ALLOWED_TAGS; switch ($format) { case FORMAT_PLAIN: return $text; default: /// Remove tags that are not allowed $text = strip_tags($text, $ALLOWED_TAGS); /// Remove script events $text = eregi_replace("([^a-z])language([[:space:]]*)=", "\\1Xlanguage=", $text); $text = eregi_replace("([^a-z])on([a-z]+)([[:space:]]*)=", "\\1Xon\\2=", $text); /// Clean up embedded scripts and , using kses $text = cleanAttributes($text); return $text; } } /** * This function takes a string and examines it for HTML tags. * If tags are detected it passes the string to a helper function {@link cleanAttributes2()} * which checks for attributes and filters them for malicious content * 17/08/2004 :: Eamon DOT Costello AT dcu DOT ie * * @param string $str The string to be examined for html tags * @return string */ function cleanAttributes($str){ $result = preg_replace( '%(<[^>]*(>|$)|>)%me', #search for html tags "cleanAttributes2('\\1')", $str ); return $result; } /** * This function takes a string with an html tag and strips out any unallowed * protocols e.g. javascript: * It calls ancillary functions in kses which are prefixed by kses * 17/08/2004 :: Eamon DOT Costello AT dcu DOT ie * * @param string $htmlTag An html tag to be examined * @return string */ function cleanAttributes2($htmlTag){ global $CFG, $ALLOWED_PROTOCOLS; require_once($CFG->libdir .'/kses.php'); $htmlTag = kses_stripslashes($htmlTag); if (substr($htmlTag, 0, 1) != '<') { return '>'; //a single character ">" detected } if (!preg_match('%^<\s*(/\s*)?([a-zA-Z0-9]+)([^>]*)>?$%', $htmlTag, $matches)) { return ''; // It's seriously malformed } $slash = trim($matches[1]); //trailing xhtml slash $elem = $matches[2]; //the element name $attrlist = $matches[3]; // the list of attributes as a string $attrArray = kses_hair($attrlist, $ALLOWED_PROTOCOLS); $attStr = ''; foreach ($attrArray as $arreach) { $attStr .= ' '.strtolower($arreach['name']).'="'.$arreach['value'].'" '; } $xhtml_slash = ''; if (preg_match('%/\s*$%', $attrlist)) { $xhtml_slash = ' /'; } return '<'. $slash . $elem . $attStr . $xhtml_slash .'>'; } /** * Replaces all known smileys in the text with image equivalents * * @uses $CFG * @param string $text Passed by reference. The string to search for smily strings. * @return string */ function replace_smilies(&$text) { /// global $CFG; /// this builds the mapping array only once static $runonce = false; static $e = array(); static $img = array(); static $emoticons = array( ':-)' => 'smiley', ':)' => 'smiley', ':-D' => 'biggrin', ';-)' => 'wink', ':-/' => 'mixed', 'V-.' => 'thoughtful', ':-P' => 'tongueout', 'B-)' => 'cool', '^-)' => 'approve', '8-)' => 'wideeyes', ':o)' => 'clown', ':-(' => 'sad', ':(' => 'sad', '8-.' => 'shy', ':-I' => 'blush', ':-X' => 'kiss', '8-o' => 'surprise', 'P-|' => 'blackeye', '8-[' => 'angry', 'xx-P' => 'dead', '|-.' => 'sleepy', '}-]' => 'evil', ); if ($runonce == false) { /// After the first time this is not run again foreach ($emoticons as $emoticon => $image){ $alttext = get_string($image, 'pix'); $e[] = $emoticon; $img[] = ''; } $runonce = true; } // Exclude from transformations all the code inside '."\n"; } else { echo ''."\n"; } echo ''."\n"; echo ''."\n"; echo ''."\n"; if ($rows < 10) { $rows = 10; } if ($cols < 65) { $cols = 65; } } echo ''; p($value); echo ''."\n"; } /** * Legacy function, provided for backward compatability. * This method now simply calls {@link use_html_editor()} * * @deprecated Use {@link use_html_editor()} instead. * @param string $name Form element to replace with HTMl editor by name * @todo Finish documenting this function */ function print_richedit_javascript($form, $name, $source='no') { use_html_editor($name); } /** * Sets up the HTML editor on textareas in the current page. * If a field name is provided, then it will only be * applied to that field - otherwise it will be used * on every textarea in the page. * * In most cases no arguments need to be supplied * * @param string $name Form element to replace with HTMl editor by name */ function use_html_editor($name='') { echo ''."\n"; } /** * Returns a turn edit on/off button for course in a self contained form. * Used to be an icon, but it's now a simple form button * * @uses $CFG * @uses $USER * @param int $courseid The course to update by id as found in 'course' table * @return string */ function update_course_icon($courseid) { global $CFG, $USER; if (isteacheredit($courseid)) { if (!empty($USER->editing)) { $string = get_string('turneditingoff'); $edit = 'off'; } else { $string = get_string('turneditingon'); $edit = 'on'; } return "framename\" method=\"get\" action=\"$CFG->wwwroot/course/view.php\">". "". "". ""; } } /** * Prints the editing button on a module "view" page * * @uses $CFG * @param type description * @todo Finish documenting this function */ function update_module_button($moduleid, $courseid, $string) { global $CFG, $USER; if (isteacheredit($courseid)) { $string = get_string('updatethis', '', $string); return "framename\" method=\"get\" action=\"$CFG->wwwroot/course/mod.php\">". "". "". "sesskey\" />". ""; } else { return ''; } } /** * Prints the editing button on a category page * * @uses $CFG * @uses $USER * @param int $categoryid ? * @return string * @todo Finish documenting this function */ function update_category_button($categoryid) { global $CFG, $USER; if (iscreator()) { if (!empty($USER->categoryediting)) { $string = get_string('turneditingoff'); $edit = 'off'; } else { $string = get_string('turneditingon'); $edit = 'on'; } return "framename\" method=\"get\" action=\"$CFG->wwwroot/course/category.php\">". "". "". "sesskey\" />". ""; } } /** * Prints the editing button on categories listing * * @uses $CFG * @uses $USER * @return string */ function update_categories_button() { global $CFG, $USER; if (isadmin()) { if (!empty($USER->categoriesediting)) { $string = get_string('turneditingoff'); $edit = 'off'; } else { $string = get_string('turneditingon'); $edit = 'on'; } return "framename\" method=\"get\" action=\"$CFG->wwwroot/course/index.php\">". ''. ''. ''; } } /** * Prints the editing button on group page * * @uses $CFG * @uses $USER * @param int $courseid The course group is associated with * @param int $groupid The group to update * @return string */ function update_group_button($courseid, $groupid) { global $CFG, $USER; if (isteacheredit($courseid)) { $string = get_string('editgroupprofile'); return "framename\" method=\"get\" action=\"$CFG->wwwroot/course/group.php\">". ''. ''. ''. ''; } } /** * Prints the editing button on groups page * * @uses $CFG * @uses $USER * @param int $courseid The id of the course to be edited * @return string * @todo Finish documenting this function */ function update_groups_button($courseid) { global $CFG, $USER; if (isteacheredit($courseid)) { if (!empty($USER->groupsediting)) { $string = get_string('turneditingoff'); $edit = 'off'; } else { $string = get_string('turneditingon'); $edit = 'on'; } return "framename\" method=\"get\" action=\"$CFG->wwwroot/course/groups.php\">". "". "". ""; } } /** * Prints an appropriate group selection menu * * @uses VISIBLEGROUPS * @param array $groups ? * @param int $groupmode ? * @param string $currentgroup ? * @param string $urlroot ? * @todo Finish documenting this function */ function print_group_menu($groups, $groupmode, $currentgroup, $urlroot) { /// Add an "All groups" to the start of the menu $groupsmenu[0] = get_string('allparticipants'); foreach ($groups as $key => $groupname) { $groupsmenu[$key] = $groupname; } echo ''; if ($groupmode == VISIBLEGROUPS) { print_string('groupsvisible'); } else { print_string('groupsseparate'); } echo ':'; echo ''; popup_form($urlroot.'&group=', $groupsmenu, 'selectgroup', $currentgroup, '', '', '', false, 'self'); echo ''; } /** * Given a course and a (current) coursemodule * This function returns a small popup menu with all the * course activity modules in it, as a navigation menu * The data is taken from the serialised array stored in * the course record * * @param course $course A {@link $COURSE} object. * @param course $cm A {@link $COURSE} object. * @param string $targetwindow ? * @return string * @todo Finish documenting this function */ function navmenu($course, $cm=NULL, $targetwindow='self') { global $CFG; if ($cm) { $cm = $cm->id; } if ($course->format == 'weeks') { $strsection = get_string('week'); } else { $strsection = get_string('topic'); } if (!$modinfo = unserialize($course->modinfo)) { return ''; } $isteacher = isteacher($course->id); $section = -1; $selected = ''; $url = ''; $previousmod = NULL; $backmod = NULL; $nextmod = NULL; $selectmod = NULL; $logslink = NULL; $flag = false; $menu = array(); $strjumpto = get_string('jumpto'); $sections = get_records('course_sections','course',$course->id,'section','section,visible,summary'); foreach ($modinfo as $mod) { if ($mod->mod == 'label') { continue; } if ($mod->section > 0 and $section <> $mod->section) { $thissection = $sections[$mod->section]; if ($thissection->visible or !$course->hiddensections or $isteacher) { $thissection->summary = strip_tags($thissection->summary); if ($course->format == 'weeks' or empty($thissection->summary)) { $menu[] = '-------------- '. $strsection ." ". $mod->section .' --------------'; } else { if (strlen($thissection->summary) < 47) { $menu[] = '-- '.$thissection->summary; } else { $menu[] = '-- '.substr($thissection->summary, 0, 50).'...'; } } } } $section = $mod->section; //Only add visible or teacher mods to jumpmenu if ($mod->visible or $isteacher) { $url = $mod->mod .'/view.php?id='. $mod->cm; if ($flag) { // the current mod is the "next" mod $nextmod = $mod; $flag = false; } if ($cm == $mod->cm) { $selected = $url; $selectmod = $mod; $backmod = $previousmod; $flag = true; // set flag so we know to use next mod for "next" $mod->name = $strjumpto; $strjumpto = ''; } else { $mod->name = strip_tags(urldecode($mod->name)); if (strlen($mod->name) > 55) { $mod->name = substr($mod->name, 0, 50).'...'; } if (!$mod->visible) { $mod->name = '('.$mod->name.')'; } } $menu[$url] = $mod->name; $previousmod = $mod; } } if ($selectmod and $isteacher) { $logslink = "framename\" href=". "\"$CFG->wwwroot/course/log.php?chooselog=1&user=0&date=0&id=$course->id&modid=$selectmod->cm\">". "pixpath/i/log.gif\" alt=\"\" />"; } if ($backmod) { $backmod = "wwwroot/mod/$backmod->mod/view.php\" target=\"$CFG->framename\">". "cm\" />". ""; } if ($nextmod) { $nextmod = "wwwroot/mod/$nextmod->mod/view.php\" target=\"$CFG->framename\">". "cm\" />". ""; } return ''.$logslink .''. $backmod .'' . popup_form($CFG->wwwroot .'/mod/', $menu, 'navmenu', $selected, $strjumpto, '', '', true, $targetwindow). ''. $nextmod .''; } /** * Prints form items with the names $day, $month and $year * * @param int $day ? * @param int $month ? * @param int $year ? * @param int $currenttime A default timestamp in GMT * @todo Finish documenting this function */ function print_date_selector($day, $month, $year, $currenttime=0) { if (!$currenttime) { $currenttime = time(); } $currentdate = usergetdate($currenttime); for ($i=1; $i<=31; $i++) { $days[$i] = $i; } for ($i=1; $i<=12; $i++) { $months[$i] = userdate(gmmktime(12,0,0,$i,1,2000), "%B"); } for ($i=2000; $i<=2010; $i++) { $years[$i] = $i; } choose_from_menu($days, $day, $currentdate['mday'], ''); choose_from_menu($months, $month, $currentdate['mon'], ''); choose_from_menu($years, $year, $currentdate['year'], ''); } /** *Prints form items with the names $hour and $minute * * @param ? $hour ? * @param ? $minute ? * @param $currenttime A default timestamp in GMT * @param int $step ? * @todo Finish documenting this function */ function print_time_selector($hour, $minute, $currenttime=0, $step=5) { if (!$currenttime) { $currenttime = time(); } $currentdate = usergetdate($currenttime); if ($step != 1) { $currentdate['minutes'] = ceil($currentdate['minutes']/$step)*$step; } for ($i=0; $i<=23; $i++) { $hours[$i] = sprintf("%02d",$i); } for ($i=0; $i<=59; $i+=$step) { $minutes[$i] = sprintf("%02d",$i); } choose_from_menu($hours, $hour, $currentdate['hours'], ''); choose_from_menu($minutes, $minute, $currentdate['minutes'], ''); } /** * Prints time limit value selector * * @uses $CFG * @param int $timelimit ? * @param string $unit ? * @todo Finish documenting this function */ function print_timer_selector($timelimit = 0, $unit = '') { global $CFG; if ($unit) { $unit = ' '.$unit; } // Max timelimit is sessiontimeout - 10 minutes. $maxvalue = ($CFG->sessiontimeout / 60) - 10; for ($i=1; $i<=$maxvalue; $i++) { $minutes[$i] = $i.$unit; } choose_from_menu($minutes, 'timelimit', $timelimit, get_string('none')); } /** * Prints a grade menu (as part of an existing form) with help * Showing all possible numerical grades and scales * * @uses $CFG * @param int $courseid ? * @param string $name ? * @param string $current ? * @param boolean $includenograde ? * @todo Finish documenting this function */ function print_grade_menu($courseid, $name, $current, $includenograde=true) { global $CFG; $strscale = get_string('scale'); $strscales = get_string('scales'); $scales = get_scales_menu($courseid); foreach ($scales as $i => $scalename) { $grades[-$i] = $strscale .': '. $scalename; } if ($includenograde) { $grades[0] = get_string('nograde'); } for ($i=100; $i>=1; $i--) { $grades[$i] = $i; } choose_from_menu($grades, $name, $current, ''); $helpicon = $CFG->pixpath .'/help.gif'; $linkobject = ""; link_to_popup_window ('/course/scales.php?id='. $courseid .'&list=true', 'ratingscales', $linkobject, 400, 500, $strscales); } /** * Prints a scale menu (as part of an existing form) including help button * Just like {@link print_grade_menu()} but without the numeric grades * * @param int $courseid ? * @param string $name ? * @param string $current ? * @todo Finish documenting this function */ function print_scale_menu($courseid, $name, $current) { global $CFG; $strscales = get_string('scales'); choose_from_menu(get_scales_menu($courseid), $name, $current, ''); $helpicon = $CFG->pixpath .'/help.gif'; $linkobject = ''; link_to_popup_window ('/course/scales.php?id='. $courseid .'&list=true', 'ratingscales', $linkobject, 400, 500, $strscales); } /** * Prints a help button about a scale * * @uses $CFG * @param id $courseid ? * @param object $scale ? * @todo Finish documenting this function */ function print_scale_menu_helpbutton($courseid, $scale) { global $CFG; $strscales = get_string('scales'); $helpicon = $CFG->pixpath .'/help.gif'; $linkobject = "name\" src=\"$helpicon\" />"; link_to_popup_window ('/course/scales.php?id='. $courseid .'&list=true&scale='. $scale->id, 'ratingscale', $linkobject, 400, 500, $scale->name); } /** * Print an error page displaying an error message. * * @uses $SESSION * @uses $CFG * @param string $message The message to display to the user about the error. * @param string $link The url where the user will be prompted to continue. If no url is provided the user will be directed to the site index page. */ function error ($message, $link='') { global $CFG, $SESSION; print_header(get_string('error')); echo ''; $message = clean_text($message); // In case nasties are in here print_simple_box($message, 'center', '', '#FFBBBB'); if (!$link) { if ( !empty($SESSION->fromurl) ) { $link = $SESSION->fromurl; unset($SESSION->fromurl); } else { $link = $CFG->wwwroot .'/'; } } print_continue($link); print_footer(); die; } /** * Print a help button. * * @uses $CFG * @uses $THEME * @param string $page The keyword that defines a help page * @param string $title The title of links, rollover tips, alt tags etc * @param string $module Which module is the page defined in * @param mixed $image Use a help image for the link? (true/false/"both") * @param string $text If defined then this text is used in the page, and * the $page variable is ignored. * @param boolean $return If true then the output is returned as a string, if false it is printed to the current page. * @return string * @todo Finish documenting this function */ function helpbutton ($page, $title='', $module='moodle', $image=true, $linktext=false, $text='', $return=false) { global $CFG, $THEME; if ($module == '') { $module = 'moodle'; } if ($image) { $icon = $CFG->pixpath .'/help.gif'; if ($linktext) { $linkobject = "$title"; } else { $linkobject = ""; } } else { $linkobject = ''. $title .''; } if ($text) { $url = '/help.php?module='. $module .'&text='. htmlentities(urlencode($text)); } else { $url = '/help.php?module='. $module .'&file='. $page .'.html'; } $link = link_to_popup_window ($url, 'popup', $linkobject, 400, 500, $title, 'none', true); if ($return) { return $link; } else { echo $link; } } /** * Print a help button. * * Prints a special help button that is a link to the "live" emoticon popup * @uses $CFG * @uses $SESSION * @param string $form ? * @param string $field ? * @todo Finish documenting this function */ function emoticonhelpbutton($form, $field) { global $CFG, $SESSION; $SESSION->inserttextform = $form; $SESSION->inserttextfield = $field; helpbutton('emoticons', get_string('helpemoticons'), 'moodle', false, true); echo ' '; link_to_popup_window ('/help.php?module=moodle&file=emoticons.html', 'popup', '', 400, 500, get_string('helpemoticons')); echo ''; } /** * Print a message and exit. * * @uses $CFG * @uses $THEME * @param string $message ? * @param string $link ? * @todo Finish documenting this function */ function notice ($message, $link='') { global $CFG, $THEME; $message = clean_text($message); $link = clean_text($link); if (!$link) { if (!empty($_SERVER['HTTP_REFERER'])) { $link = $_SERVER['HTTP_REFERER']; } else { $link = $CFG->wwwroot .'/'; } } echo ''; print_simple_box($message, 'center', '50%', $THEME->cellheading, '20', 'noticebox'); print_heading(''. get_string('continue') .''); print_footer(get_site()); die; } /** * Print a message along with "Yes" and "No" links for the user to continue. * * @uses $THEME * @param string $message The text to display * @param string $linkyes The link to take the user to if they choose "Yes" * @param string $linkno The link to take the user to if they choose "No" */ function notice_yesno ($message, $linkyes, $linkno) { global $THEME; $message = clean_text($message); $linkyes = clean_text($linkyes); $linkno = clean_text($linkno); print_simple_box_start('center', '60%', $THEME->cellheading); echo ''. $message .''; echo ''; echo ''. get_string('yes') .''; echo ' '; echo ''. get_string('no') .''; echo ''; print_simple_box_end(); } /** * Redirects the user to another page, after printing a notice * * @param string $url The url to take the user to * @param string $message The text message to display to the user about the redirect, if any * @param string $delay How long before refreshing to the new page at $url? * @todo '&' needs to be encoded into '&' for XHTML compliance, * however, this is not true for javascript. Therefore we * first decode all entities in $url (since we cannot rely on) * the correct input) and then encode for where it's needed * echo ""; */ function redirect($url, $message='', $delay='0') { $url = clean_text($url); $message = clean_text($message); $url = html_entity_decode($url); // for php < 4.3.0 this is defined in moodlelib.php $encodedurl = htmlentities($url); if (empty($message)) { echo ''; echo ''; // To cope with Mozilla bug } else { if (empty($delay)) { $delay = 3; // There's no point having a message with no delay } print_header('', '', '', '', ''); echo ''; echo ''. $message .''; echo '( '. get_string('continue') .' )'; echo ''; flush(); sleep($delay); echo ''; // To cope with Mozilla bug } die; } /** * Print a bold message in an optional color. * * @param string $message The message to print out * @param string $color Optional color to display message text in * @param string $align Paragraph alignment option */ function notify ($message, $color='red', $align='center') { $message = clean_text($message); echo ''. $message .'' . "\n"; } /** * Given an email address, this function will return an obfuscated version of it * * @param string $email The email address to obfuscate * @return string */ function obfuscate_email($email) { $i = 0; $length = strlen($email); $obfuscated = ''; while ($i < $length) { if (rand(0,2)) { $obfuscated.='%'.dechex(ord($email{$i})); } else { $obfuscated.=$email{$i}; } $i++; } return $obfuscated; } /** * This function takes some text and replaces about half of the characters * with HTML entity equivalents. Return string is obviously longer. * * @param string $plaintext The text to be obfuscated * @return string */ function obfuscate_text($plaintext) { $i=0; $length = strlen($plaintext); $obfuscated=''; $prev_obfuscated = false; while ($i < $length) { $c = ord($plaintext{$i}); $numerical = ($c >= ord('0')) && ($c <= ord('9')); if ($prev_obfuscated and $numerical ) { $obfuscated.='&#'.ord($plaintext{$i}).';'; } else if (rand(0,2)) { $obfuscated.='&#'.ord($plaintext{$i}).';'; $prev_obfuscated = true; } else { $obfuscated.=$plaintext{$i}; $prev_obfuscated = false; } $i++; } return $obfuscated; } /** * This function uses the {@link obfuscate_email()} and {@link obfuscate_text()} * to generate a fully obfuscated email link, ready to use. * * @param string $email The email address to display * @param string $label The text to dispalyed as hyperlink to $email * @param boolean $dimmed If true then use css class 'dimmed' for hyperlink * @return string */ function obfuscate_mailto($email, $label='', $dimmed=false) { if (empty($label)) { $label = $email; } if ($dimmed) { $title = get_string('emaildisable'); $dimmed = ' class="dimmed"'; } else { $title = ''; $dimmed = ''; } return sprintf("%s", obfuscate_text('mailto'), obfuscate_email($email), obfuscate_text($label)); } /** * Prints a single paging bar to provide access to other pages (usually in a search) * * @param int $totalcount ? * @param int $page ? * @param int $perpage ? * @param string $baseurl ? * @todo Finish documenting this function */ function print_paging_bar($totalcount, $page, $perpage, $baseurl) { $maxdisplay = 18; if ($totalcount > $perpage) { echo ''; echo ''.get_string('page').':'; if ($page > 0) { $pagenum=$page-1; echo ' ('. get_string('previous') .') '; } $lastpage = ceil($totalcount / $perpage); if ($page > 15) { $startpage = $page - 10; echo ' 1 ...'; } else { $startpage = 0; } $currpage = $startpage; $displaycount = 0; while ($displaycount < $maxdisplay and $currpage < $lastpage) { $displaypage = $currpage+1; if ($page == $currpage) { echo ' '. $displaypage; } else { echo ' '. $displaypage .''; } $displaycount++; $currpage++; } if ($currpage < $lastpage) { $lastpageactual = $lastpage - 1; echo ' ...'. $lastpage .' '; } $pagenum = $page + 1; if ($pagenum != $displaypage) { echo ' ('. get_string('next') .')'; } echo ''; echo ''; } } /** * This function is used to rebuild the tag because some formats (PLAIN and WIKI) * will transform it to html entities * * @param string $text Text to search for nolink tag in * @return string */ function rebuildnolinktag($text) { $text = preg_replace('/<(\/*nolink)>/i','<$1>',$text); return $text; } // ================================================ // THREE FUNCTIONS MOVED HERE FROM course/lib.php // ================================================ /** * Prints a nice side block with an optional header. The content can either * be a block of HTML or a list of text with optional icons. * * @uses $THEME * @param string $heading ? * @param string $content ? * @param array $list ? * @param array $icons ? * @param string $footer ? * @param array $attributes ? * @todo Finish documenting this function. Show example of various attributes, etc. */ function print_side_block($heading='', $content='', $list=NULL, $icons=NULL, $footer='', $attributes = array()) { global $THEME; print_side_block_start($heading, $attributes); if ($content) { echo $content; if ($footer) { echo ''. $footer .''; } } else { echo ''; if ($list) { foreach ($list as $key => $string) { echo ''; if ($icons) { echo ''. $icons[$key] .''; } echo ''. $string .''; echo ''; } } if ($footer) { echo ''; echo ''; echo ''. $footer .''; echo ''; } echo ''; } print_side_block_end(); } /** * Starts a nice side block with an optional header. * * @uses $THEME * @param string $heading ? * @param array $attributes ? * @todo Finish documenting this function */ function print_side_block_start($heading='', $attributes = array()) { global $THEME; // If there are no special attributes, give a default CSS class if(empty($attributes) || !is_array($attributes)) { $attributes = array('class' => 'sideblock'); } else if(!isset($attributes['class'])) { $attributes['class'] = 'sideblock'; } else if(!strpos($attributes['class'], 'sideblock')) { $attributes['class'] .= ' sideblock'; } // OK, the class is surely there and in addition to anything // else, it's tagged as a sideblock $attrtext = ''; foreach($attributes as $attr => $val) { $attrtext .= ' '.$attr.'="'.$val.'"'; } // [pj] UGLY UGLY UGLY! I hate myself for doing this! // When the Lord Moodle 2.0 cometh, his mercy shalt move all this mess // to CSS and banish the evil to the abyss from whence it came. echo ''; if ($heading) { echo ''.$heading.''; } echo ''; } /** * Print table ending tags for a side block box. */ function print_side_block_end() { echo ''; echo "\n"; } /** * Prints out the HTML editor config. * * @uses $CFG */ function print_editor_config() { global $CFG; // print new config echo 'var config = new HTMLArea.Config();'."\n"; echo "config.pageStyle = \"body {"; if(!(empty($CFG->editorbackgroundcolor))) { echo " background-color: $CFG->editorbackgroundcolor;"; } if(!(empty($CFG->editorfontfamily))) { echo " font-family: $CFG->editorfontfamily;"; } if(!(empty($CFG->editorfontsize))) { echo " font-size: $CFG->editorfontsize;"; } echo " }\";\n"; echo "config.killWordOnPaste = "; echo(empty($CFG->editorkillword)) ? "false":"true"; echo ';'."\n"; echo 'config.fontname = {'."\n"; $fontlist = isset($CFG->editorfontlist) ? explode(';', $CFG->editorfontlist) : array(); $i = 1; // Counter is used to get rid of the last comma. foreach($fontlist as $fontline) { if(!empty($fontline)) { if ($i > 1) { echo ','."\n"; } list($fontkey, $fontvalue) = split(':', $fontline); echo '"'. $fontkey ."\":\t'". $fontvalue ."'"; $i++; } } echo '};'; if (!empty($CFG->editorhidebuttons)) { echo "\nconfig.hideSomeButtons(\" ". $CFG->editorhidebuttons ." \");\n"; } if(!empty($CFG->editorspelling) && !empty($CFG->aspellpath)) { print_speller_code($usehtmleditor=true); } } /** * Prints out code needed for spellchecking. * Original idea by Ludo (Marc Alier). * * @uses $CFG * @param boolean $usehtmleditor ? * @todo Finish documenting this function */ function print_speller_code ($usehtmleditor=false) { global $CFG; if(!$usehtmleditor) { echo "\n".''."\n"; } else { echo "\nfunction spellClickHandler(editor, buttonId) {\n"; echo "\teditor._textArea.value = editor.getHTML();\n"; echo "\tvar speller = new spellChecker( editor._textArea );\n"; echo "\tspeller.popUpUrl = \"" . $CFG->wwwroot ."/lib/speller/spellchecker.html\";\n"; echo "\tspeller.spellCheckScript = \"". $CFG->wwwroot ."/lib/speller/server-scripts/spellchecker.php\";\n"; echo "\tspeller._moogle_edit=1;\n"; echo "\tspeller._editor=editor;\n"; echo "\tspeller.openChecker();\n"; echo '}'."\n"; } } /** * Print button for spellchecking when editor is disabled */ function print_speller_button () { echo ''."\n"; } function page_source_script($page) { global $CFG; switch($page->type) { case MOODLE_PAGE_COURSE: return $CFG->wwwroot.'/course/view.php?id='.$page->id; break; } } // vim:autoindent:expandtab:shiftwidth=4:tabstop=4:tw=140: ?>
'. $message .'
'; echo ''. get_string('yes') .''; echo ' '; echo ''. get_string('no') .''; echo '
( '. get_string('continue') .' )
'.get_string('page').':'; if ($page > 0) { $pagenum=$page-1; echo ' ('. get_string('previous') .') '; } $lastpage = ceil($totalcount / $perpage); if ($page > 15) { $startpage = $page - 10; echo ' 1 ...'; } else { $startpage = 0; } $currpage = $startpage; $displaycount = 0; while ($displaycount < $maxdisplay and $currpage < $lastpage) { $displaypage = $currpage+1; if ($page == $currpage) { echo ' '. $displaypage; } else { echo ' '. $displaypage .''; } $displaycount++; $currpage++; } if ($currpage < $lastpage) { $lastpageactual = $lastpage - 1; echo ' ...'. $lastpage .' '; } $pagenum = $page + 1; if ($pagenum != $displaypage) { echo ' ('. get_string('next') .')'; } echo '