Fixed bug 10056: Misspelling english word "guesbooks"
[Packages/TYPO3.CMS.git] / typo3 / class.browse_links.php
1 <?php
2 /***************************************************************
3 * Copyright notice
4 *
5 * (c) 1999-2008 Kasper Skaarhoj (kasperYYYY@typo3.com)
6 * All rights reserved
7 *
8 * This script is part of the TYPO3 project. The TYPO3 project is
9 * free software; you can redistribute it and/or modify
10 * it under the terms of the GNU General Public License as published by
11 * the Free Software Foundation; either version 2 of the License, or
12 * (at your option) any later version.
13 *
14 * The GNU General Public License can be found at
15 * http://www.gnu.org/copyleft/gpl.html.
16 * A copy is found in the textfile GPL.txt and important notices to the license
17 * from the author is found in LICENSE.txt distributed with these scripts.
18 *
19 *
20 * This script is distributed in the hope that it will be useful,
21 * but WITHOUT ANY WARRANTY; without even the implied warranty of
22 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
23 * GNU General Public License for more details.
24 *
25 * This copyright notice MUST APPEAR in all copies of the script!
26 ***************************************************************/
27 /**
28 * Displays the page/file tree for browsing database records or files.
29 * Used from TCEFORMS an other elements
30 * In other words: This is the ELEMENT BROWSER!
31 *
32 * $Id$
33 * Revised for TYPO3 3.6 November/2003 by Kasper Skaarhoj
34 * XHTML compliant
35 *
36 * @author Kasper Skaarhoj <kasperYYYY@typo3.com>
37 */
38 /**
39 * [CLASS/FUNCTION INDEX of SCRIPT]
40 *
41 *
42 *
43 * 155: class TBE_browser_recordList extends localRecordList
44 * 163: function TBE_browser_recordList ()
45 * 175: function listURL($altId='',$table=-1,$exclList='')
46 * 194: function ext_addP()
47 * 211: function linkWrapItems($table,$uid,$code,$row)
48 * 244: function linkWrapTable($table,$code)
49 *
50 *
51 * 261: class localPageTree extends t3lib_browseTree
52 * 268: function localPageTree()
53 * 284: function wrapTitle($title,$v,$ext_pArrPages='')
54 * 299: function printTree($treeArr='')
55 * 350: function ext_isLinkable($doktype,$uid)
56 * 364: function PM_ATagWrap($icon,$cmd,$bMark='')
57 * 381: function wrapIcon($icon,$row)
58 *
59 *
60 * 400: class rtePageTree extends localPageTree
61 *
62 *
63 * 417: class TBE_PageTree extends localPageTree
64 * 426: function ext_isLinkable($doktype,$uid)
65 * 438: function wrapTitle($title,$v,$ext_pArrPages)
66 *
67 *
68 * 464: class localFolderTree extends t3lib_folderTree
69 * 473: function localFolderTree()
70 * 485: function wrapTitle($title,$v)
71 * 500: function ext_isLinkable($v)
72 * 517: function PM_ATagWrap($icon,$cmd,$bMark='')
73 * 532: function printTree($treeArr='')
74 *
75 *
76 * 599: class rteFolderTree extends localFolderTree
77 *
78 *
79 * 615: class TBE_FolderTree extends localFolderTree
80 * 624: function ext_isLinkable($v)
81 * 637: function wrapTitle($title,$v)
82 *
83 *
84 * 658: class browse_links
85 * 764: function init()
86 * 1034: function processSessionData($data)
87 *
88 * SECTION: Main functions
89 * 1077: function main_rte($wiz=0)
90 * 1379: function main_db()
91 * 1424: function main_file()
92 *
93 * SECTION: Record listing
94 * 1534: function expandPage()
95 * 1615: function TBE_expandPage($tables)
96 *
97 * SECTION: File listing
98 * 1708: function expandFolder($expandFolder=0,$extensionList='')
99 * 1778: function TBE_expandFolder($expandFolder=0,$extensionList='',$noThumbs=0)
100 * 1801: function fileList($files, $folderName='', $noThumbs=0)
101 * 1918: function TBE_dragNDrop($expandFolder=0,$extensionList='')
102 *
103 * SECTION: Miscellaneous functions
104 * 2046: function isWebFolder($folder)
105 * 2057: function checkFolder($folder)
106 * 2070: function barheader($str)
107 * 2087: function getMsgBox($in_msg,$icon='icon_note')
108 * 2111: function printCurrentUrl($str)
109 * 2131: function parseCurUrl($href,$siteUrl)
110 * 2193: function uploadForm($path)
111 * 2247: function createFolder($path)
112 *
113 * TOTAL FUNCTIONS: 39
114 * (This index is automatically created/updated by the extension "extdeveval")
115 *
116 */
117
118 require_once (PATH_t3lib.'class.t3lib_browsetree.php');
119 require_once (PATH_t3lib.'class.t3lib_foldertree.php');
120 require_once (PATH_t3lib.'class.t3lib_stdgraphic.php');
121 require_once (PATH_t3lib.'class.t3lib_basicfilefunc.php');
122
123
124 // Include classes
125 require_once (PATH_t3lib.'class.t3lib_page.php');
126 require_once (PATH_t3lib.'class.t3lib_recordlist.php');
127 require_once (PATH_typo3.'/class.db_list.inc');
128 require_once (PATH_typo3.'/class.db_list_extra.inc');
129 require_once (PATH_t3lib.'/class.t3lib_pagetree.php');
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149 /**
150 * Local version of the record list.
151 *
152 * @author Kasper Skaarhoj <kasperYYYY@typo3.com>
153 * @package TYPO3
154 * @subpackage core
155 */
156 class TBE_browser_recordList extends localRecordList {
157 var $thisScript = 'browse_links.php';
158
159 /**
160 * Initializes the script path
161 *
162 * @return void
163 */
164 function TBE_browser_recordList () {
165 $this->thisScript = t3lib_div::getIndpEnv('SCRIPT_NAME');
166 }
167
168 /**
169 * Creates the URL for links
170 *
171 * @param mixed If not blank string, this is used instead of $this->id as the id value.
172 * @param string If this is "-1" then $this->table is used, otherwise the value of the input variable.
173 * @param string Commalist of fields NOT to pass as parameters (currently "sortField" and "sortRev")
174 * @return string Query-string for URL
175 */
176 function listURL($altId='',$table=-1,$exclList='') {
177 return $this->thisScript.
178 '?id='.(strcmp($altId,'')?$altId:$this->id).
179 '&table='.rawurlencode($table==-1?$this->table:$table).
180 ($this->thumbs?'&imagemode='.$this->thumbs:'').
181 ($this->searchString?'&search_field='.rawurlencode($this->searchString):'').
182 ($this->searchLevels?'&search_levels='.rawurlencode($this->searchLevels):'').
183 ((!$exclList || !t3lib_div::inList($exclList,'sortField')) && $this->sortField?'&sortField='.rawurlencode($this->sortField):'').
184 ((!$exclList || !t3lib_div::inList($exclList,'sortRev')) && $this->sortRev?'&sortRev='.rawurlencode($this->sortRev):'').
185 // extra:
186 $this->ext_addP()
187 ;
188 }
189
190 /**
191 * Returns additional, local GET parameters to include in the links of the record list.
192 *
193 * @return string
194 */
195 function ext_addP() {
196 $str = '&act='.$GLOBALS['SOBE']->browser->act.
197 '&mode='.$GLOBALS['SOBE']->browser->mode.
198 '&expandPage='.$GLOBALS['SOBE']->browser->expandPage.
199 '&bparams='.rawurlencode($GLOBALS['SOBE']->browser->bparams);
200 return $str;
201 }
202
203 /**
204 * Returns the title (based on $code) of a record (from table $table) with the proper link around (that is for "pages"-records a link to the level of that record...)
205 *
206 * @param string Table name
207 * @param integer UID (not used here)
208 * @param string Title string
209 * @param array Records array (from table name)
210 * @return string
211 */
212 function linkWrapItems($table,$uid,$code,$row) {
213 global $TCA, $BACK_PATH;
214
215 if (!$code) {
216 $code = '<i>['.$GLOBALS['LANG']->sL('LLL:EXT:lang/locallang_core.php:labels.no_title',1).']</i>';
217 } else {
218 $code = htmlspecialchars(t3lib_div::fixed_lgd_cs($code,$this->fixedL));
219 }
220
221 $title = t3lib_BEfunc::getRecordTitle($table,$row,FALSE,TRUE);
222 $ficon = t3lib_iconWorks::getIcon($table,$row);
223 $aOnClick = "return insertElement('".$table."', '".$row['uid']."', 'db', ".t3lib_div::quoteJSvalue($title).", '', '', '".$ficon."');";
224 $ATag = '<a href="#" onclick="'.$aOnClick.'">';
225 $ATag_alt = substr($ATag,0,-4).',\'\',1);">';
226 $ATag_e = '</a>';
227
228 return $ATag.
229 '<img'.t3lib_iconWorks::skinImg($BACK_PATH,'gfx/plusbullet2.gif','width="18" height="16"').' title="'.$GLOBALS['LANG']->getLL('addToList',1).'" alt="" />'.
230 $ATag_e.
231 $ATag_alt.
232 $code.
233 $ATag_e;
234 }
235
236 /**
237 * Local version that sets allFields to true to support userFieldSelect
238 *
239 * @return void
240 * @see fieldSelectBox
241 */
242 function generateList() {
243 $this->allFields = true;
244 parent::generateList();
245 }
246 }
247
248
249
250
251
252
253 /**
254 * Class which generates the page tree
255 *
256 * @author Kasper Skaarhoj <kasperYYYY@typo3.com>
257 * @package TYPO3
258 * @subpackage core
259 */
260 class localPageTree extends t3lib_browseTree {
261
262 /**
263 * Constructor. Just calling init()
264 *
265 * @return void
266 */
267 function localPageTree() {
268 $this->thisScript = t3lib_div::getIndpEnv('SCRIPT_NAME');
269
270 $this->init();
271
272 $this->clause = ' AND doktype!=255'.$this->clause;
273 }
274
275 /**
276 * Wrapping the title in a link, if applicable.
277 *
278 * @param string Title, (must be ready for output, that means it must be htmlspecialchars()'ed).
279 * @param array The record
280 * @param boolean (Ignore)
281 * @return string Wrapping title string.
282 */
283 function wrapTitle($title,$v,$ext_pArrPages='') {
284 if ($this->ext_isLinkable($v['doktype'],$v['uid'])) {
285 $aOnClick = "return link_typo3Page('".$v['uid']."');";
286 return '<a href="#" onclick="'.htmlspecialchars($aOnClick).'">'.$title.'</a>';
287 } else {
288 return '<span style="color: #666666;">'.$title.'</span>';
289 }
290 }
291
292 /**
293 * Create the page navigation tree in HTML
294 *
295 * @param array Tree array
296 * @return string HTML output.
297 */
298 function printTree($treeArr='') {
299 global $BACK_PATH;
300 $titleLen=intval($GLOBALS['BE_USER']->uc['titleLen']);
301 if (!is_array($treeArr)) $treeArr=$this->tree;
302
303 $out='';
304 $c=0;
305
306 foreach($treeArr as $k => $v) {
307 $c++;
308 $bgColorClass = ($c+1)%2 ? 'bgColor' : 'bgColor-10';
309 if ($GLOBALS['SOBE']->browser->curUrlInfo['act']=='page' && $GLOBALS['SOBE']->browser->curUrlInfo['pageid']==$v['row']['uid'] && $GLOBALS['SOBE']->browser->curUrlInfo['pageid']) {
310 $arrCol='<td><img'.t3lib_iconWorks::skinImg($BACK_PATH,'gfx/blinkarrow_right.gif','width="5" height="9"').' class="c-blinkArrowR" alt="" /></td>';
311 $bgColorClass='bgColor4';
312 } else {
313 $arrCol='<td></td>';
314 }
315
316 $aOnClick = 'return jumpToUrl(\''.$this->thisScript.'?act='.$GLOBALS['SOBE']->browser->act.'&mode='.$GLOBALS['SOBE']->browser->mode.'&expandPage='.$v['row']['uid'].'\');';
317 $cEbullet = $this->ext_isLinkable($v['row']['doktype'],$v['row']['uid']) ?
318 '<a href="#" onclick="'.htmlspecialchars($aOnClick).'"><img'.t3lib_iconWorks::skinImg($BACK_PATH,'gfx/ol/arrowbullet.gif','width="18" height="16"').' alt="" /></a>' :
319 '';
320 $out.='
321 <tr class="'.$bgColorClass.'">
322 <td nowrap="nowrap"'.($v['row']['_CSSCLASS'] ? ' class="'.$v['row']['_CSSCLASS'].'"' : '').'>'.
323 $v['HTML'].
324 $this->wrapTitle($this->getTitleStr($v['row'],$titleLen),$v['row'],$this->ext_pArrPages).
325 '</td>'.
326 $arrCol.
327 '<td>'.$cEbullet.'</td>
328 </tr>';
329 }
330 $out='
331
332
333 <!--
334 Navigation Page Tree:
335 -->
336 <table border="0" cellpadding="0" cellspacing="0" id="typo3-tree">
337 '.$out.'
338 </table>';
339 return $out;
340 }
341
342 /**
343 * Returns true if a doktype can be linked.
344 *
345 * @param integer Doktype value to test
346 * @param integer uid to test.
347 * @return boolean
348 */
349 function ext_isLinkable($doktype,$uid) {
350 if ($uid && $doktype<199) {
351 return true;
352 }
353 }
354
355 /**
356 * Wrap the plus/minus icon in a link
357 *
358 * @param string HTML string to wrap, probably an image tag.
359 * @param string Command for 'PM' get var
360 * @param boolean If set, the link will have a anchor point (=$bMark) and a name attribute (=$bMark)
361 * @return string Link-wrapped input string
362 */
363 function PM_ATagWrap($icon,$cmd,$bMark='') {
364 if ($bMark) {
365 $anchor = '#'.$bMark;
366 $name=' name="'.$bMark.'"';
367 }
368 $aOnClick = "return jumpToUrl('".$this->thisScript.'?PM='.$cmd."','".$anchor."');";
369
370 return '<a href="#"'.$name.' onclick="'.htmlspecialchars($aOnClick).'">'.$icon.'</a>';
371 }
372
373 /**
374 * Wrapping the image tag, $icon, for the row, $row
375 *
376 * @param string The image tag for the icon
377 * @param array The row for the current element
378 * @return string The processed icon input value.
379 */
380 function wrapIcon($icon,$row) {
381 return $this->addTagAttributes($icon,' title="id='.$row['uid'].'"');
382 }
383 }
384
385
386
387
388
389
390
391
392 /**
393 * Page tree for the RTE - totally the same, no changes needed. (Just for the sake of beauty - or confusion... :-)
394 *
395 * @author Kasper Skaarhoj <kasperYYYY@typo3.com>
396 * @package TYPO3
397 * @subpackage core
398 */
399 class rtePageTree extends localPageTree {
400 }
401
402
403
404
405
406
407
408
409 /**
410 * For TBE record browser
411 *
412 * @author Kasper Skaarhoj <kasperYYYY@typo3.com>
413 * @package TYPO3
414 * @subpackage core
415 */
416 class TBE_PageTree extends localPageTree {
417
418 /**
419 * Returns true if a doktype can be linked (which is always the case here).
420 *
421 * @param integer Doktype value to test
422 * @param integer uid to test.
423 * @return boolean
424 */
425 function ext_isLinkable($doktype,$uid) {
426 return true;
427 }
428
429 /**
430 * Wrapping the title in a link, if applicable.
431 *
432 * @param string Title, ready for output.
433 * @param array The record
434 * @param boolean If set, pages clicked will return immediately, otherwise reload page.
435 * @return string Wrapping title string.
436 */
437 function wrapTitle($title,$v,$ext_pArrPages) {
438 if ($ext_pArrPages) {
439 $ficon=t3lib_iconWorks::getIcon('pages',$v);
440 $onClick = "return insertElement('pages', '".$v['uid']."', 'db', ".t3lib_div::quoteJSvalue($v['title']).", '', '', '".$ficon."','',1);";
441 } else {
442 $onClick = htmlspecialchars('return jumpToUrl(\''.$this->thisScript.'?act='.$GLOBALS['SOBE']->browser->act.'&mode='.$GLOBALS['SOBE']->browser->mode.'&expandPage='.$v['uid'].'\');');
443 }
444 return '<a href="#" onclick="'.$onClick.'">'.$title.'</a>';
445 }
446 }
447
448
449
450
451
452
453
454
455 /**
456 * Base extension class which generates the folder tree.
457 * Used directly by the RTE.
458 *
459 * @author Kasper Skaarhoj <kasperYYYY@typo3.com>
460 * @package TYPO3
461 * @subpackage core
462 */
463 class localFolderTree extends t3lib_folderTree {
464 var $ext_IconMode=1;
465
466
467 /**
468 * Initializes the script path
469 *
470 * @return void
471 */
472 function localFolderTree() {
473 $this->thisScript = t3lib_div::getIndpEnv('SCRIPT_NAME');
474 $this->t3lib_folderTree();
475 }
476
477 /**
478 * Wrapping the title in a link, if applicable.
479 *
480 * @param string Title, ready for output.
481 * @param array The "record"
482 * @return string Wrapping title string.
483 */
484 function wrapTitle($title,$v) {
485 if ($this->ext_isLinkable($v)) {
486 $aOnClick = 'return jumpToUrl(\''.$this->thisScript.'?act='.$GLOBALS['SOBE']->browser->act.'&mode='.$GLOBALS['SOBE']->browser->mode.'&expandFolder='.rawurlencode($v['path']).'\');';
487 return '<a href="#" onclick="'.htmlspecialchars($aOnClick).'">'.$title.'</a>';
488 } else {
489 return '<span class="typo3-dimmed">'.$title.'</span>';
490 }
491 }
492
493 /**
494 * Returns true if the input "record" contains a folder which can be linked.
495 *
496 * @param array Array with information about the folder element. Contains keys like title, uid, path, _title
497 * @return boolean True is returned if the path is found in the web-part of the server and is NOT a recycler or temp folder
498 */
499 function ext_isLinkable($v) {
500 $webpath=t3lib_BEfunc::getPathType_web_nonweb($v['path']); // Checking, if the input path is a web-path.
501 if (strstr($v['path'],'_recycler_') || strstr($v['path'],'_temp_') || $webpath!='web') {
502 return 0;
503 }
504 return 1;
505 }
506
507 /**
508 * Wrap the plus/minus icon in a link
509 *
510 * @param string HTML string to wrap, probably an image tag.
511 * @param string Command for 'PM' get var
512 * @param boolean If set, the link will have a anchor point (=$bMark) and a name attribute (=$bMark)
513 * @return string Link-wrapped input string
514 * @access private
515 */
516 function PM_ATagWrap($icon,$cmd,$bMark='') {
517 if ($bMark) {
518 $anchor = '#'.$bMark;
519 $name=' name="'.$bMark.'"';
520 }
521 $aOnClick = 'return jumpToUrl(\''.$this->thisScript.'?PM='.$cmd.'\',\''.$anchor.'\');';
522 return '<a href="#"'.$name.' onclick="'.htmlspecialchars($aOnClick).'">'.$icon.'</a>';
523 }
524
525 /**
526 * Create the folder navigation tree in HTML
527 *
528 * @param mixed Input tree array. If not array, then $this->tree is used.
529 * @return string HTML output of the tree.
530 */
531 function printTree($treeArr='') {
532 global $BACK_PATH;
533 $titleLen=intval($GLOBALS['BE_USER']->uc['titleLen']);
534
535 if (!is_array($treeArr)) $treeArr=$this->tree;
536
537 $out='';
538 $c=0;
539
540 // Preparing the current-path string (if found in the listing we will see a red blinking arrow).
541 if (!$GLOBALS['SOBE']->browser->curUrlInfo['value']) {
542 $cmpPath='';
543 } else if (substr(trim($GLOBALS['SOBE']->browser->curUrlInfo['info']),-1)!='/') {
544 $cmpPath=PATH_site.dirname($GLOBALS['SOBE']->browser->curUrlInfo['info']).'/';
545 } else {
546 $cmpPath=PATH_site.$GLOBALS['SOBE']->browser->curUrlInfo['info'];
547 }
548
549 // Traverse rows for the tree and print them into table rows:
550 foreach($treeArr as $k => $v) {
551 $c++;
552 $bgColorClass=($c+1)%2 ? 'bgColor' : 'bgColor-10';
553
554 // Creating blinking arrow, if applicable:
555 if (($GLOBALS['SOBE']->browser->curUrlInfo['act'] == 'file' || $GLOBALS['SOBE']->browser->curUrlInfo['act'] == 'folder') && $cmpPath == $v['row']['path']) {
556 $arrCol='<td><img'.t3lib_iconWorks::skinImg($BACK_PATH,'gfx/blinkarrow_right.gif','width="5" height="9"').' class="c-blinkArrowR" alt="" /></td>';
557 $bgColorClass='bgColor4';
558 } else {
559 $arrCol='<td></td>';
560 }
561 // Create arrow-bullet for file listing (if folder path is linkable):
562 $aOnClick = 'return jumpToUrl(\''.$this->thisScript.'?act='.$GLOBALS['SOBE']->browser->act.'&mode='.$GLOBALS['SOBE']->browser->mode.'&expandFolder='.rawurlencode($v['row']['path']).'\');';
563 $cEbullet = $this->ext_isLinkable($v['row']) ? '<a href="#" onclick="'.htmlspecialchars($aOnClick).'"><img'.t3lib_iconWorks::skinImg($BACK_PATH,'gfx/ol/arrowbullet.gif','width="18" height="16"').' alt="" /></a>' : '';
564
565 // Put table row with folder together:
566 $out.='
567 <tr class="'.$bgColorClass.'">
568 <td nowrap="nowrap">'.$v['HTML'].$this->wrapTitle(t3lib_div::fixed_lgd_cs($v['row']['title'],$titleLen),$v['row']).'</td>
569 '.$arrCol.'
570 <td>'.$cEbullet.'</td>
571 </tr>';
572 }
573
574 $out='
575
576 <!--
577 Folder tree:
578 -->
579 <table border="0" cellpadding="0" cellspacing="0" id="typo3-tree">
580 '.$out.'
581 </table>';
582 return $out;
583 }
584 }
585
586
587
588
589
590
591 /**
592 * Folder tree for the RTE - totally the same, no changes needed. (Just for the sake of beauty - or confusion... :-)
593 *
594 * @author Kasper Skaarhoj <kasperYYYY@typo3.com>
595 * @package TYPO3
596 * @subpackage core
597 */
598 class rteFolderTree extends localFolderTree {
599 }
600
601
602
603
604
605
606
607 /**
608 * For TBE File Browser
609 *
610 * @author Kasper Skaarhoj <kasperYYYY@typo3.com>
611 * @package TYPO3
612 * @subpackage core
613 */
614 class TBE_FolderTree extends localFolderTree {
615 var $ext_noTempRecyclerDirs=0; // If file-drag mode is set, temp and recycler folders are filtered out.
616
617 /**
618 * Returns true if the input "record" contains a folder which can be linked.
619 *
620 * @param array Array with information about the folder element. Contains keys like title, uid, path, _title
621 * @return boolean True is returned if the path is NOT a recycler or temp folder AND if ->ext_noTempRecyclerDirs is not set.
622 */
623 function ext_isLinkable($v) {
624 if ($this->ext_noTempRecyclerDirs && (substr($v['path'],-7)=='_temp_/' || substr($v['path'],-11)=='_recycler_/')) {
625 return 0;
626 } return 1;
627 }
628
629 /**
630 * Wrapping the title in a link, if applicable.
631 *
632 * @param string Title, ready for output.
633 * @param array The 'record'
634 * @return string Wrapping title string.
635 */
636 function wrapTitle($title,$v) {
637 if ($this->ext_isLinkable($v)) {
638 $aOnClick = 'return jumpToUrl(\''.$this->thisScript.'?act='.$GLOBALS['SOBE']->browser->act.'&mode='.$GLOBALS['SOBE']->browser->mode.'&expandFolder='.rawurlencode($v['path']).'\');';
639 return '<a href="#" onclick="'.htmlspecialchars($aOnClick).'">'.$title.'</a>';
640 } else {
641 return '<span class="typo3-dimmed">'.$title.'</span>';
642 }
643 }
644 }
645
646
647
648
649
650 /**
651 * class for the Element Browser window.
652 *
653 * @author Kasper Skaarhoj <kasperYYYY@typo3.com>
654 * @package TYPO3
655 * @subpackage core
656 */
657 class browse_links {
658
659 // Internal, static:
660 var $siteURL; // Current site URL (Frontend)
661 var $thisScript; // the script to link to
662 var $thisConfig; // RTE specific TSconfig
663 var $setTarget; // Target (RTE specific)
664 var $setClass; // CSS Class (RTE specific)
665 var $setTitle; // title (RTE specific)
666 var $doc; // Backend template object
667 var $elements = array(); // Holds information about files
668
669 // GPvars: (Input variables from outside)
670 /**
671 * The mode determines the main kind of output from the element browser.
672 * There are these options for values: rte, db, file, filedrag, wizard.
673 * "rte" will show the link selector for the Rich Text Editor (see main_rte())
674 * "db" will allow you to browse for pages or records in the page tree (for TCEforms, see main_db())
675 * "file"/"filedrag" will allow you to browse for files or folders in the folder mounts (for TCEforms, main_file())
676 * "wizard" will allow you to browse for links (like "rte") which are passed back to TCEforms (see main_rte(1))
677 *
678 * @see main()
679 */
680 var $mode;
681
682 /**
683 * Link selector action.
684 * page,file,url,mail,spec are allowed values.
685 * These are only important with the link selector function and in that case they switch between the various menu options.
686 */
687 var $act;
688
689 /**
690 * When you click a page title/expand icon to see the content of a certain page, this value will contain that value (the ID of the expanded page). If the value is NOT set, then it will be restored from the module session data (see main(), mode="db")
691 */
692 var $expandPage;
693
694 /**
695 * When you click a folder name/expand icon to see the content of a certain file folder, this value will contain that value (the path of the expanded file folder). If the value is NOT set, then it will be restored from the module session data (see main(), mode="file"/"filedrag"). Example value: "/www/htdocs/typo3/32/3dsplm/fileadmin/css/"
696 */
697 var $expandFolder;
698
699
700
701 /**
702 * TYPO3 Element Browser, wizard mode parameters. There is a heap of parameters there, better debug() them out if you need something... :-)
703 */
704 var $P;
705
706 /**
707 * Active with TYPO3 Element Browser: Contains the name of the form field for which this window opens - thus allows us to make references back to the main window in which the form is.
708 * Example value: "data[pages][39][bodytext]|||tt_content|" or "data[tt_content][NEW3fba56fde763d][image]|||gif,jpg,jpeg,tif,bmp,pcx,tga,png,pdf,ai|"
709 *
710 * Values:
711 * 0: form field name reference, eg. "data[tt_content][123][image]"
712 * 1: htlmArea RTE parameters: editorNo:contentTypo3Language:contentTypo3Charset
713 * 2: RTE config parameters: RTEtsConfigParams
714 * 3: allowed types. Eg. "tt_content" or "gif,jpg,jpeg,tif,bmp,pcx,tga,png,pdf,ai"
715 * 4: IRRE uniqueness: target level object-id to perform actions/checks on, eg. "data[79][tt_address][1][<field>][<foreign_table>]"
716 * 5: IRRE uniqueness: name of function in opener window that checks if element is already used, eg. "inline.checkUniqueElement"
717 * 6: IRRE uniqueness: name of function in opener window that performs some additional(!) action, eg. "inline.setUniqueElement"
718 * 7: IRRE uniqueness: name of function in opener window that performs action instead of using addElement/insertElement, eg. "inline.importElement"
719 *
720 * $pArr = explode('|',$this->bparams);
721 * $formFieldName = $pArr[0];
722 * $allowedTablesOrFileTypes = $pArr[3];
723 */
724 var $bparams;
725
726 /**
727 * Used with the Rich Text Editor.
728 * Example value: "tt_content:NEW3fba58c969f5c:bodytext:23:text:23:"
729 */
730 var $RTEtsConfigParams;
731
732
733
734
735 /**
736 * Plus/Minus icon value. Used by the tree class to open/close notes on the trees.
737 */
738 var $PM;
739
740 /**
741 * Pointer, used when browsing a long list of records etc.
742 */
743 var $pointer;
744
745
746
747
748 /**
749 * Used with the link selector: Contains the GET input information about the CURRENT link in the RTE/TCEform field. This consists of "href", "target" and "title" keys. This information is passed around in links.
750 */
751 var $curUrlArray;
752
753 /**
754 * Used with the link selector: Contains a processed version of the input values from curUrlInfo. This is splitted into pageid, content element id, label value etc. This is used for the internal processing of that information.
755 */
756 var $curUrlInfo;
757
758 /**
759 * array which holds hook objects (initialised in init() )
760 */
761 protected $hookObjects = array();
762
763
764 /**
765 * object for t3lib_basicFileFunctions
766 */
767 public $fileProcessor;
768
769
770 /**
771 * Constructor:
772 * Initializes a lot of variables, setting JavaScript functions in header etc.
773 *
774 * @return void
775 */
776 function init() {
777 global $BE_USER,$BACK_PATH;
778
779 // Main GPvars:
780 $this->pointer = t3lib_div::_GP('pointer');
781 $this->bparams = t3lib_div::_GP('bparams');
782 $this->P = t3lib_div::_GP('P');
783 $this->RTEtsConfigParams = t3lib_div::_GP('RTEtsConfigParams');
784 $this->expandPage = t3lib_div::_GP('expandPage');
785 $this->expandFolder = t3lib_div::_GP('expandFolder');
786 $this->PM = t3lib_div::_GP('PM');
787
788 // Find "mode"
789 $this->mode = t3lib_div::_GP('mode');
790 if (!$this->mode) {
791 $this->mode = 'rte';
792 }
793 // Creating backend template object:
794 $this->doc = t3lib_div::makeInstance('template');
795 $this->doc->backPath = $GLOBALS['BACK_PATH'];
796 // Load the Prototype library and browse_links.js
797 $this->doc->loadJavascriptLib('contrib/prototype/prototype.js');
798 $this->doc->loadJavascriptLib('js/browse_links.js');
799
800 // init hook objects:
801 $this->hookObjects = array();
802 if (is_array($GLOBALS['TYPO3_CONF_VARS']['SC_OPTIONS']['typo3/class.browse_links.php']['browseLinksHook'])) {
803 foreach($GLOBALS['TYPO3_CONF_VARS']['SC_OPTIONS']['typo3/class.browse_links.php']['browseLinksHook'] as $classData) {
804 $processObject = &t3lib_div::getUserObj($classData);
805
806 if(!($processObject instanceof t3lib_browseLinksHook)) {
807 throw new UnexpectedValueException('$processObject must implement interface t3lib_browseLinksHook', 1195039394);
808 }
809
810 $parameters = array();
811 $processObject->init($this, $parameters);
812 $this->hookObjects[] = $processObject;
813 }
814 }
815
816 // Site URL
817 $this->siteURL = t3lib_div::getIndpEnv('TYPO3_SITE_URL'); // Current site url
818
819 // the script to link to
820 $this->thisScript = t3lib_div::getIndpEnv('SCRIPT_NAME');
821
822 // init fileProcessor
823 $this->fileProcessor = t3lib_div::makeInstance('t3lib_basicFileFunctions');
824 $this->fileProcessor->init($GLOBALS['FILEMOUNTS'], $GLOBALS['TYPO3_CONF_VARS']['BE']['fileExtensions']);
825
826
827 // CurrentUrl - the current link url must be passed around if it exists
828 if ($this->mode == 'wizard') {
829 $currentLinkParts = t3lib_div::trimExplode(' ',$this->P['currentValue']);
830 $initialCurUrlArray = array (
831 'href' => $currentLinkParts[0],
832 'target' => $currentLinkParts[1],
833 'class' => $currentLinkParts[2],
834 'title' => $currentLinkParts[3],
835 );
836 $this->curUrlArray = (is_array(t3lib_div::_GP('curUrl'))) ?
837 array_merge($initialCurUrlArray, t3lib_div::_GP('curUrl')) :
838 $initialCurUrlArray;
839 $this->curUrlInfo = $this->parseCurUrl($this->siteURL.'?id='.$this->curUrlArray['href'], $this->siteURL);
840 if ($this->curUrlInfo['pageid'] == 0 && $this->curUrlArray['href']) { // pageid == 0 means that this is not an internal (page) link
841 if (file_exists(PATH_site.rawurldecode($this->curUrlArray['href']))) { // check if this is a link to a file
842 if (t3lib_div::isFirstPartOfStr($this->curUrlArray['href'], PATH_site)) {
843 $currentLinkParts[0] = substr($this->curUrlArray['href'], strlen(PATH_site));
844 }
845 $this->curUrlInfo = $this->parseCurUrl($this->siteURL.$this->curUrlArray['href'], $this->siteURL);
846 } elseif (strstr($this->curUrlArray['href'], '@')) { // check for email link
847 if (t3lib_div::isFirstPartOfStr($this->curUrlArray['href'], 'mailto:')) {
848 $currentLinkParts[0] = substr($this->curUrlArray['href'], 7);
849 }
850 $this->curUrlInfo = $this->parseCurUrl('mailto:'.$this->curUrlArray['href'], $this->siteURL);
851 } else { // nothing of the above. this is an external link
852 if(strpos($this->curUrlArray['href'], '://') === false) {
853 $currentLinkParts[0] = 'http://' . $this->curUrlArray['href'];
854 }
855 $this->curUrlInfo = $this->parseCurUrl($currentLinkParts[0], $this->siteURL);
856 }
857 } elseif (!$this->curUrlArray['href']) {
858 $this->curUrlInfo = array();
859 $this->act = 'page';
860 } else {
861 $this->curUrlInfo = $this->parseCurUrl($this->siteURL.'?id='.$this->curUrlArray['href'], $this->siteURL);
862 }
863 } else {
864 $this->curUrlArray = t3lib_div::_GP('curUrl');
865 if ($this->curUrlArray['all']) {
866 $this->curUrlArray=t3lib_div::get_tag_attributes($this->curUrlArray['all']);
867 }
868 $this->curUrlInfo=$this->parseCurUrl($this->curUrlArray['href'],$this->siteURL);
869 }
870
871 // Determine nature of current url:
872 $this->act=t3lib_div::_GP('act');
873 if (!$this->act) {
874 $this->act=$this->curUrlInfo['act'];
875 }
876
877 // Rich Text Editor specific configuration:
878 $addPassOnParams='';
879 if ((string)$this->mode == 'rte') {
880 $RTEtsConfigParts = explode(':',$this->RTEtsConfigParams);
881 $addPassOnParams.='&RTEtsConfigParams='.rawurlencode($this->RTEtsConfigParams);
882 $RTEsetup = $GLOBALS['BE_USER']->getTSConfig('RTE',t3lib_BEfunc::getPagesTSconfig($RTEtsConfigParts[5]));
883 $this->thisConfig = t3lib_BEfunc::RTEsetup($RTEsetup['properties'],$RTEtsConfigParts[0],$RTEtsConfigParts[2],$RTEtsConfigParts[4]);
884 }
885
886 // Initializing the target value (RTE)
887 $this->setTarget = ($this->curUrlArray['target'] != '-') ? $this->curUrlArray['target'] : '';
888 if ($this->thisConfig['defaultLinkTarget'] && !isset($this->curUrlArray['target'])) {
889 $this->setTarget=$this->thisConfig['defaultLinkTarget'];
890 }
891
892 // Initializing the class value (RTE)
893 $this->setClass = ($this->curUrlArray['class'] != '-') ? $this->curUrlArray['class'] : '';
894
895 // Initializing the title value (RTE)
896 $this->setTitle = ($this->curUrlArray['title'] != '-') ? $this->curUrlArray['title'] : '';
897
898 // BEGIN accumulation of header JavaScript:
899 $JScode = '
900 // This JavaScript is primarily for RTE/Link. jumpToUrl is used in the other cases as well...
901 var add_href="'.($this->curUrlArray['href']?'&curUrl[href]='.rawurlencode($this->curUrlArray['href']):'').'";
902 var add_target="'.($this->setTarget?'&curUrl[target]='.rawurlencode($this->setTarget):'').'";
903 var add_class="'.($this->setClass ? '&curUrl[class]='.rawurlencode($this->setClass) : '').'";
904 var add_title="'.($this->setTitle?'&curUrl[title]='.rawurlencode($this->setTitle):'').'";
905 var add_params="'.($this->bparams?'&bparams='.rawurlencode($this->bparams):'').'";
906
907 var cur_href="'.($this->curUrlArray['href']?$this->curUrlArray['href']:'').'";
908 var cur_target="'.($this->setTarget?$this->setTarget:'').'";
909 var cur_class = "'.($this->setClass ? $this->setClass : '-').'";
910 var cur_title="'.($this->setTitle?$this->setTitle:'').'";
911
912 function browse_links_setTarget(target) { //
913 cur_target=target;
914 add_target="&curUrl[target]="+escape(target);
915 }
916 function browse_links_setClass(cssClass) { //
917 cur_class = cssClass;
918 add_class = "&curUrl[class]=" + escape(cssClass);
919 }
920 function browse_links_setTitle(title) { //
921 cur_title=title;
922 add_title="&curUrl[title]="+escape(title);
923 }
924 function browse_links_setValue(value) { //
925 cur_href=value;
926 add_href="&curUrl[href]="+value;
927 }
928 ';
929
930 if ($this->mode == 'wizard') { // Functions used, if the link selector is in wizard mode (= TCEforms fields)
931 unset($this->P['fieldChangeFunc']['alert']);
932 reset($this->P['fieldChangeFunc']);
933 $update='';
934 while(list($k,$v)=each($this->P['fieldChangeFunc'])) {
935 $update.= '
936 window.opener.'.$v;
937 }
938
939 $P2=array();
940 $P2['itemName']=$this->P['itemName'];
941 $P2['formName']=$this->P['formName'];
942 $P2['fieldChangeFunc']=$this->P['fieldChangeFunc'];
943 $P2['params']['allowedExtensions']=$this->P['params']['allowedExtensions'];
944 $P2['params']['blindLinkOptions']=$this->P['params']['blindLinkOptions'];
945 $addPassOnParams.=t3lib_div::implodeArrayForUrl('P',$P2);
946
947 $JScode.='
948 function link_typo3Page(id,anchor) { //
949 updateValueInMainForm(id + (anchor ? anchor : ""));
950 close();
951 return false;
952 }
953 function link_folder(folder) { //
954 updateValueInMainForm(folder);
955 close();
956 return false;
957 }
958 function link_current() { //
959 if (cur_href!="http://" && cur_href!="mailto:") {
960 returnBeforeCleaned = cur_href;
961 if (returnBeforeCleaned.substr(0, 7) == "http://") {
962 returnToMainFormValue = returnBeforeCleaned.substr(7);
963 } else if (returnBeforeCleaned.substr(0, 7) == "mailto:") {
964 if (returnBeforeCleaned.substr(0, 14) == "mailto:mailto:") {
965 returnToMainFormValue = returnBeforeCleaned.substr(14);
966 } else {
967 returnToMainFormValue = returnBeforeCleaned.substr(7);
968 }
969 } else {
970 returnToMainFormValue = returnBeforeCleaned;
971 }
972 updateValueInMainForm(returnToMainFormValue);
973 close();
974 }
975 return false;
976 }
977 function checkReference() { //
978 if (window.opener && window.opener.document && window.opener.document.'.$this->P['formName'].' && window.opener.document.'.$this->P['formName'].'["'.$this->P['itemName'].'"] ) {
979 return window.opener.document.'.$this->P['formName'].'["'.$this->P['itemName'].'"];
980 } else {
981 close();
982 }
983 }
984 function updateValueInMainForm(input) { //
985 var field = checkReference();
986 if (field) {
987 if (cur_target == "" && (cur_title != "" || cur_class != "-")) {
988 cur_target = "-";
989 }
990 if (cur_title == "" && cur_class == "-") {
991 cur_class = "";
992 }
993 input = input + " " + cur_target + " " + cur_class + " " + cur_title;
994 field.value = input;
995 '.$update.'
996 }
997 }
998 ';
999 } else { // Functions used, if the link selector is in RTE mode:
1000 $JScode.='
1001 function link_typo3Page(id,anchor) { //
1002 var theLink = \''.$this->siteURL.'?id=\'+id+(anchor?anchor:"");
1003 self.parent.parent.renderPopup_addLink(theLink, cur_target, cur_class, cur_title);
1004 return false;
1005 }
1006 function link_folder(folder) { //
1007 var theLink = \''.$this->siteURL.'\'+folder;
1008 self.parent.parent.renderPopup_addLink(theLink, cur_target, cur_class, cur_title);
1009 return false;
1010 }
1011 function link_spec(theLink) { //
1012 self.parent.parent.renderPopup_addLink(theLink, cur_target, cur_class, cur_title);
1013 return false;
1014 }
1015 function link_current() { //
1016 if (cur_href!="http://" && cur_href!="mailto:") {
1017 self.parent.parent.renderPopup_addLink(cur_href, cur_target, cur_class, cur_title);
1018 }
1019 return false;
1020 }
1021 ';
1022 }
1023
1024 // General "jumpToUrl" function:
1025 $JScode.='
1026 function jumpToUrl(URL,anchor) { //
1027 var add_act = URL.indexOf("act=")==-1 ? "&act='.$this->act.'" : "";
1028 var add_mode = URL.indexOf("mode=")==-1 ? "&mode='.$this->mode.'" : "";
1029 var theLocation = URL + add_act + add_mode + add_href + add_target + add_class + add_title + add_params'.($addPassOnParams?'+"'.$addPassOnParams.'"':'').'+(anchor?anchor:"");
1030 window.location.href = theLocation;
1031 return false;
1032 }
1033 ';
1034
1035
1036 /**
1037 * Splits parts of $this->bparams
1038 * @see $bparams
1039 */
1040 $pArr = explode('|',$this->bparams);
1041
1042 // This is JavaScript especially for the TBE Element Browser!
1043 $formFieldName = 'data['.$pArr[0].']['.$pArr[1].']['.$pArr[2].']';
1044
1045 // insertElement - Call check function (e.g. for uniqueness handling):
1046 if ($pArr[4] && $pArr[5]) {
1047 $JScodeCheck = '
1048 // Call a check function in the opener window (e.g. for uniqueness handling):
1049 if (parent.window.opener) {
1050 var res = parent.window.opener.'.$pArr[5].'("'.addslashes($pArr[4]).'",table,uid,type);
1051 if (!res.passed) {
1052 if (res.message) alert(res.message);
1053 performAction = false;
1054 }
1055 } else {
1056 alert("Error - reference to main window is not set properly!");
1057 parent.close();
1058 }
1059 ';
1060 }
1061 // insertElement - Call helper function:
1062 if ($pArr[4] && $pArr[6]) {
1063 $JScodeHelper = '
1064 // Call helper function to manage data in the opener window:
1065 if (parent.window.opener) {
1066 parent.window.opener.'.$pArr[6].'("'.addslashes($pArr[4]).'",table,uid,type,"'.addslashes($pArr[0]).'");
1067 } else {
1068 alert("Error - reference to main window is not set properly!");
1069 parent.close();
1070 }
1071 ';
1072 }
1073 // insertElement - perform action commands:
1074 if ($pArr[4] && $pArr[7]) {
1075 // Call user defined action function:
1076 $JScodeAction = '
1077 if (parent.window.opener) {
1078 parent.window.opener.'.$pArr[7].'("'.addslashes($pArr[4]).'",table,uid,type);
1079 focusOpenerAndClose(close);
1080 } else {
1081 alert("Error - reference to main window is not set properly!");
1082 parent.close();
1083 }
1084 ';
1085 } else if ($pArr[0] && !$pArr[1] && !$pArr[2]) {
1086 $JScodeAction = '
1087 addElement(filename,table+"_"+uid,fp,close);
1088 ';
1089 } else {
1090 $JScodeAction = '
1091 if (setReferences()) {
1092 parent.window.opener.group_change("add","'.$pArr[0].'","'.$pArr[1].'","'.$pArr[2].'",elRef,targetDoc);
1093 } else {
1094 alert("Error - reference to main window is not set properly!");
1095 }
1096 focusOpenerAndClose(close);
1097 ';
1098 }
1099
1100 $JScode.='
1101 var elRef="";
1102 var targetDoc="";
1103
1104 function launchView(url) { //
1105 var thePreviewWindow="";
1106 thePreviewWindow = window.open("'.$BACK_PATH.'show_item.php?table="+url,"ShowItem","height=300,width=410,status=0,menubar=0,resizable=0,location=0,directories=0,scrollbars=1,toolbar=0");
1107 if (thePreviewWindow && thePreviewWindow.focus) {
1108 thePreviewWindow.focus();
1109 }
1110 }
1111 function setReferences() { //
1112 if (parent.window.opener && parent.window.opener.content && parent.window.opener.content.document.editform && parent.window.opener.content.document.editform["'.$formFieldName.'"]) {
1113 targetDoc = parent.window.opener.content.document;
1114 elRef = targetDoc.editform["'.$formFieldName.'"];
1115 return true;
1116 } else {
1117 return false;
1118 }
1119 }
1120 function insertElement(table, uid, type, filename,fp,filetype,imagefile,action, close) { //
1121 var performAction = true;
1122 '.$JScodeCheck.'
1123 // Call performing function and finish this action:
1124 if (performAction) {
1125 '.$JScodeHelper.$JScodeAction.'
1126 }
1127 return false;
1128 }
1129 function addElement(elName,elValue,altElValue,close) { //
1130 if (parent.window.opener && parent.window.opener.setFormValueFromBrowseWin) {
1131 parent.window.opener.setFormValueFromBrowseWin("'.$pArr[0].'",altElValue?altElValue:elValue,elName);
1132 focusOpenerAndClose(close);
1133 } else {
1134 alert("Error - reference to main window is not set properly!");
1135 parent.close();
1136 }
1137 }
1138 function focusOpenerAndClose(close) { //
1139 BrowseLinks.focusOpenerAndClose(close);
1140 }
1141 ';
1142
1143 // Finally, add the accumulated JavaScript to the template object:
1144 $this->doc->JScode.= $this->doc->wrapScriptTags($JScode);
1145
1146 // Debugging:
1147 if (FALSE) debug(array(
1148 'pointer' => $this->pointer,
1149 'act' => $this->act,
1150 'mode' => $this->mode,
1151 'curUrlInfo' => $this->curUrlInfo,
1152 'curUrlArray' => $this->curUrlArray,
1153 'P' => $this->P,
1154 'bparams' => $this->bparams,
1155 'RTEtsConfigParams' => $this->RTEtsConfigParams,
1156 'expandPage' => $this->expandPage,
1157 'expandFolder' => $this->expandFolder,
1158 'PM' => $this->PM,
1159 ),'Internal variables of Script Class:');
1160 }
1161
1162
1163 /**
1164 * Session data for this class can be set from outside with this method.
1165 * Call after init()
1166 *
1167 * @param array Session data array
1168 * @return array Session data and boolean which indicates that data needs to be stored in session because it's changed
1169 */
1170 function processSessionData($data) {
1171 $store = false;
1172
1173 switch((string)$this->mode) {
1174 case 'db':
1175 if (isset($this->expandPage)) {
1176 $data['expandPage']=$this->expandPage;
1177 $store = true;
1178 } else {
1179 $this->expandPage=$data['expandPage'];
1180 }
1181 break;
1182 case 'file':
1183 case 'filedrag':
1184 case 'folder':
1185 if (isset($this->expandFolder)) {
1186 $data['expandFolder']=$this->expandFolder;
1187 $store = true;
1188 } else {
1189 $this->expandFolder=$data['expandFolder'];
1190 }
1191 break;
1192 }
1193
1194 return array($data, $store);
1195 }
1196
1197
1198
1199
1200 /******************************************************************
1201 *
1202 * Main functions
1203 *
1204 ******************************************************************/
1205
1206 /**
1207 * Rich Text Editor (RTE) link selector (MAIN function)
1208 * Generates the link selector for the Rich Text Editor.
1209 * Can also be used to select links for the TCEforms (see $wiz)
1210 *
1211 * @param boolean If set, the "remove link" is not shown in the menu: Used for the "Select link" wizard which is used by the TCEforms
1212 * @return string Modified content variable.
1213 */
1214 function main_rte($wiz=0) {
1215 global $LANG, $BACK_PATH;
1216
1217 // Starting content:
1218 $content=$this->doc->startPage('RTE link');
1219
1220 // Initializing the action value, possibly removing blinded values etc:
1221 $allowedItems = array_diff(
1222 explode(',','page,file,folder,url,mail,spec'),
1223 t3lib_div::trimExplode(',',$this->thisConfig['blindLinkOptions'],1)
1224 );
1225 $allowedItems = array_diff(
1226 $allowedItems,
1227 t3lib_div::trimExplode(',',$this->P['params']['blindLinkOptions'])
1228 );
1229
1230 //call hook for extra options
1231 foreach($this->hookObjects as $hookObject) {
1232 $allowedItems = $hookObject->addAllowedItems($allowedItems);
1233 }
1234
1235 reset($allowedItems);
1236 if (!in_array($this->act,$allowedItems)) $this->act = current($allowedItems);
1237
1238 // Making menu in top:
1239 $menuDef = array();
1240 if (!$wiz) {
1241 $menuDef['removeLink']['isActive'] = $this->act=='removeLink';
1242 $menuDef['removeLink']['label'] = $LANG->getLL('removeLink',1);
1243 $menuDef['removeLink']['url'] = '#';
1244 $menuDef['removeLink']['addParams'] = 'onclick="self.parent.parent.renderPopup_unLink();return false;"';
1245 }
1246 if (in_array('page',$allowedItems)) {
1247 $menuDef['page']['isActive'] = $this->act=='page';
1248 $menuDef['page']['label'] = $LANG->getLL('page',1);
1249 $menuDef['page']['url'] = '#';
1250 $menuDef['page']['addParams'] = 'onclick="jumpToUrl(\'?act=page\');return false;"';
1251 }
1252 if (in_array('file',$allowedItems)){
1253 $menuDef['file']['isActive'] = $this->act=='file';
1254 $menuDef['file']['label'] = $LANG->getLL('file',1);
1255 $menuDef['file']['url'] = '#';
1256 $menuDef['file']['addParams'] = 'onclick="jumpToUrl(\'?act=file\');return false;"';
1257 }
1258 if (in_array('folder',$allowedItems)){
1259 $menuDef['folder']['isActive'] = $this->act == 'folder';
1260 $menuDef['folder']['label'] = $LANG->getLL('folder', 1);
1261 $menuDef['folder']['url'] = '#';
1262 $menuDef['folder']['addParams'] = 'onclick="jumpToUrl(\'?act=folder\');return false;"';
1263 }
1264 if (in_array('url',$allowedItems)) {
1265 $menuDef['url']['isActive'] = $this->act=='url';
1266 $menuDef['url']['label'] = $LANG->getLL('extUrl',1);
1267 $menuDef['url']['url'] = '#';
1268 $menuDef['url']['addParams'] = 'onclick="jumpToUrl(\'?act=url\');return false;"';
1269 }
1270 if (in_array('mail',$allowedItems)) {
1271 $menuDef['mail']['isActive'] = $this->act=='mail';
1272 $menuDef['mail']['label'] = $LANG->getLL('email',1);
1273 $menuDef['mail']['url'] = '#';
1274 $menuDef['mail']['addParams'] = 'onclick="jumpToUrl(\'?act=mail\');return false;"';
1275 }
1276 if (is_array($this->thisConfig['userLinks.']) && in_array('spec',$allowedItems)) {
1277 $menuDef['spec']['isActive'] = $this->act=='spec';
1278 $menuDef['spec']['label'] = $LANG->getLL('special',1);
1279 $menuDef['spec']['url'] = '#';
1280 $menuDef['spec']['addParams'] = 'onclick="jumpToUrl(\'?act=spec\');return false;"';
1281 }
1282
1283 // call hook for extra options
1284 foreach($this->hookObjects as $hookObject) {
1285 $menuDef = $hookObject->modifyMenuDefinition($menuDef);
1286 }
1287
1288 $content .= $this->doc->getTabMenuRaw($menuDef);
1289
1290 // Adding the menu and header to the top of page:
1291 $content.=$this->printCurrentUrl($this->curUrlInfo['info']).'<br />';
1292
1293 // Depending on the current action we will create the actual module content for selecting a link:
1294 switch($this->act) {
1295 case 'mail':
1296 $extUrl='
1297
1298 <!--
1299 Enter mail address:
1300 -->
1301 <form action="" name="lurlform" id="lurlform">
1302 <table border="0" cellpadding="2" cellspacing="1" id="typo3-linkMail">
1303 <tr>
1304 <td style="width: 96px;">' . $GLOBALS['LANG']->getLL('emailAddress', 1) . ':</td>
1305 <td><input type="text" name="lemail"'.$this->doc->formWidth(20).' value="'.htmlspecialchars($this->curUrlInfo['act']=='mail'?$this->curUrlInfo['info']:'').'" /> '.
1306 '<input type="submit" value="' . $GLOBALS['LANG']->getLL('setLink', 1) . '" onclick="browse_links_setTarget(\'\');browse_links_setValue(\'mailto:\'+document.lurlform.lemail.value); return link_current();" /></td>
1307 </tr>
1308 </table>
1309 </form>';
1310 $content.=$extUrl;
1311 break;
1312 case 'url':
1313 $extUrl='
1314
1315 <!--
1316 Enter External URL:
1317 -->
1318 <form action="" name="lurlform" id="lurlform">
1319 <table border="0" cellpadding="2" cellspacing="1" id="typo3-linkURL">
1320 <tr>
1321 <td style="width: 96px;">URL:</td>
1322 <td><input type="text" name="lurl"'.$this->doc->formWidth(30).' value="'.htmlspecialchars($this->curUrlInfo['act']=='url'?$this->curUrlInfo['info']:'http://').'" /> '.
1323 '<input type="submit" value="' . $GLOBALS['LANG']->getLL('setLink', 1) . '" onclick="browse_links_setValue(document.lurlform.lurl.value); return link_current();" /></td>
1324 </tr>
1325 </table>
1326 </form>';
1327 $content.=$extUrl;
1328 break;
1329 case 'file':
1330 case 'folder':
1331 $foldertree = t3lib_div::makeInstance('rteFolderTree');
1332 $foldertree->thisScript = $this->thisScript;
1333 $tree = $foldertree->getBrowsableTree();
1334
1335 if (!$this->curUrlInfo['value'] || $this->curUrlInfo['act'] != $this->act) {
1336 $cmpPath = '';
1337 } elseif (substr(trim($this->curUrlInfo['info']), -1) != '/') {
1338 $cmpPath = PATH_site.dirname($this->curUrlInfo['info']).'/';
1339 if (!isset($this->expandFolder)) {
1340 $this->expandFolder = $cmpPath;
1341 }
1342 } else {
1343 $cmpPath = PATH_site.$this->curUrlInfo['info'];
1344 if (!isset($this->expandFolder) && $this->curUrlInfo['act'] == 'folder') {
1345 $this->expandFolder = $cmpPath;
1346 }
1347 }
1348
1349 list(, , $specUid) = explode('_', $this->PM);
1350 $files = $this->expandFolder(
1351 $foldertree->specUIDmap[$specUid],
1352 $this->P['params']['allowedExtensions']
1353 );
1354 $content.= '
1355
1356 <!--
1357 Wrapper table for folder tree / file/folder list:
1358 -->
1359 <table border="0" cellpadding="0" cellspacing="0" id="typo3-linkFiles">
1360 <tr>
1361 <td class="c-wCell" valign="top">'.$this->barheader($GLOBALS['LANG']->getLL('folderTree').':').$tree.'</td>
1362 <td class="c-wCell" valign="top">'.$files.'</td>
1363 </tr>
1364 </table>
1365 ';
1366 break;
1367 case 'spec':
1368 if (is_array($this->thisConfig['userLinks.'])) {
1369 $subcats=array();
1370 $v=$this->thisConfig['userLinks.'];
1371 reset($v);
1372 while(list($k2)=each($v)) {
1373 $k2i = intval($k2);
1374 if (substr($k2,-1)=='.' && is_array($v[$k2i.'.'])) {
1375
1376 // Title:
1377 $title = trim($v[$k2i]);
1378 if (!$title) {
1379 $title=$v[$k2i.'.']['url'];
1380 } else {
1381 $title=$LANG->sL($title);
1382 }
1383 // Description:
1384 $description=$v[$k2i.'.']['description'] ? $LANG->sL($v[$k2i.'.']['description'],1).'<br />' : '';
1385
1386 // URL + onclick event:
1387 $onClickEvent='';
1388 if (isset($v[$k2i.'.']['target'])) $onClickEvent.="browse_links_setTarget('".$v[$k2i.'.']['target']."');";
1389 $v[$k2i.'.']['url'] = str_replace('###_URL###',$this->siteURL,$v[$k2i.'.']['url']);
1390 if (substr($v[$k2i.'.']['url'],0,7)=='http://' || substr($v[$k2i.'.']['url'],0,7)=='mailto:') {
1391 $onClickEvent.="cur_href=unescape('".rawurlencode($v[$k2i.'.']['url'])."');link_current();";
1392 } else {
1393 $onClickEvent.="link_spec(unescape('".$this->siteURL.rawurlencode($v[$k2i.'.']['url'])."'));";
1394 }
1395
1396 // Link:
1397 $A=array('<a href="#" onclick="'.htmlspecialchars($onClickEvent).'return false;">','</a>');
1398
1399 // Adding link to menu of user defined links:
1400 $subcats[$k2i]='
1401 <tr>
1402 <td class="bgColor4">'.$A[0].'<strong>'.htmlspecialchars($title).($this->curUrlInfo['info']==$v[$k2i.'.']['url']?'<img'.t3lib_iconWorks::skinImg($BACK_PATH,'gfx/blinkarrow_right.gif','width="5" height="9"').' class="c-blinkArrowR" alt="" />':'').'</strong><br />'.$description.$A[1].'</td>
1403 </tr>';
1404 }
1405 }
1406
1407 // Sort by keys:
1408 ksort($subcats);
1409
1410 // Add menu to content:
1411 $content.= '
1412
1413 <!--
1414 Special userdefined menu:
1415 -->
1416 <table border="0" cellpadding="1" cellspacing="1" id="typo3-linkSpecial">
1417 <tr>
1418 <td class="bgColor5" class="c-wCell" valign="top"><strong>'.$LANG->getLL('special',1).'</strong></td>
1419 </tr>
1420 '.implode('',$subcats).'
1421 </table>
1422 ';
1423 }
1424 break;
1425 case 'page':
1426 $pagetree = t3lib_div::makeInstance('rtePageTree');
1427 $pagetree->thisScript = $this->thisScript;
1428 $tree=$pagetree->getBrowsableTree();
1429 $cElements = $this->expandPage();
1430 $content.= '
1431
1432 <!--
1433 Wrapper table for page tree / record list:
1434 -->
1435 <table border="0" cellpadding="0" cellspacing="0" id="typo3-linkPages">
1436 <tr>
1437 <td class="c-wCell" valign="top">'.$this->barheader($GLOBALS['LANG']->getLL('pageTree').':').$tree.'</td>
1438 <td class="c-wCell" valign="top">'.$cElements.'</td>
1439 </tr>
1440 </table>
1441 ';
1442 break;
1443 default:
1444 //call hook
1445 foreach($this->hookObjects as $hookObject) {
1446 $content .= $hookObject->getTab($this->act);
1447 }
1448 break;
1449 }
1450
1451 $content .= '
1452
1453 <!--
1454 Selecting class for link:
1455 -->
1456 <form action="" name="lclassform" id="lclassform">
1457 <table border="0" cellpadding="2" cellspacing="1" id="typo3-linkClass">
1458 <tr>
1459 <td style="width: 96px;">' . $GLOBALS['LANG']->getLL('class', 1) . '</td>
1460 <td><input type="text" name="lclass" onchange="browse_links_setClass(this.value);" value="' . htmlspecialchars($this->setClass) . '"' . $this->doc->formWidth(10) . ' /></td>
1461 </tr>
1462 </table>
1463 </form>
1464
1465 <!--
1466 Selecting title for link:
1467 -->
1468 <form action="" name="ltitleform" id="ltitleform">
1469 <table border="0" cellpadding="2" cellspacing="1" id="typo3-linkTitle">
1470 <tr>
1471 <td style="width: 96px;">' . $GLOBALS['LANG']->getLL('title', 1) . '</td>
1472 <td><input type="text" name="ltitle" onchange="browse_links_setTitle(this.value);" value="' . htmlspecialchars($this->setTitle) . '"' . $this->doc->formWidth(10) . ' /></td>
1473 </tr>
1474 </table>
1475 </form>
1476 ';
1477
1478 // Target:
1479 if ($this->act!='mail') {
1480 $ltarget='
1481
1482
1483
1484 <!--
1485 Selecting target for link:
1486 -->
1487 <form action="" name="ltargetform" id="ltargetform">
1488 <table border="0" cellpadding="2" cellspacing="1" id="typo3-linkTarget">
1489 <tr>
1490 <td>'.$GLOBALS['LANG']->getLL('target',1).':</td>
1491 <td><input type="text" name="ltarget" onchange="browse_links_setTarget(this.value);" value="' . htmlspecialchars($this->setTarget) . '"' . $this->doc->formWidth(10) . ' /></td>
1492 <td>
1493 <select name="ltarget_type" onchange="browse_links_setTarget(this.options[this.selectedIndex].value);document.ltargetform.ltarget.value=this.options[this.selectedIndex].value;this.selectedIndex=0;">
1494 <option></option>
1495 <option value="_top">'.$GLOBALS['LANG']->getLL('top',1).'</option>
1496 <option value="_blank">'.$GLOBALS['LANG']->getLL('newWindow',1).'</option>
1497 </select>
1498 </td>
1499 <td>';
1500 if (($this->curUrlInfo['act'] == 'page' || $this->curUrlInfo['act'] == 'file' || $this->curUrlInfo['act'] == 'folder') && $this->curUrlArray['href'] && $this->curUrlInfo['act'] == $this->act) {
1501 $ltarget.='
1502 <input type="submit" value="'.$GLOBALS['LANG']->getLL('update',1).'" onclick="return link_current();" />';
1503 }
1504
1505 $selectJS = '
1506 if (document.ltargetform.popup_width.options[document.ltargetform.popup_width.selectedIndex].value>0 && document.ltargetform.popup_height.options[document.ltargetform.popup_height.selectedIndex].value>0) {
1507 document.ltargetform.ltarget.value = document.ltargetform.popup_width.options[document.ltargetform.popup_width.selectedIndex].value+"x"+document.ltargetform.popup_height.options[document.ltargetform.popup_height.selectedIndex].value;
1508 browse_links_setTarget(document.ltargetform.ltarget.value);
1509 browse_links_setClass(document.lclassform.lclass.value);
1510 browse_links_setTitle(document.ltitleform.ltitle.value);
1511 document.ltargetform.popup_width.selectedIndex=0;
1512 document.ltargetform.popup_height.selectedIndex=0;
1513 }
1514 ';
1515
1516 $ltarget.=' </td>
1517 </tr>
1518 <tr>
1519 <td>'.$GLOBALS['LANG']->getLL('target_popUpWindow',1).':</td>
1520 <td colspan="3">
1521 <select name="popup_width" onchange="'.htmlspecialchars($selectJS).'">
1522 <option value="0">'.$GLOBALS['LANG']->getLL('target_popUpWindow_width',1).'</option>
1523 <option value="300">300</option>
1524 <option value="400">400</option>
1525 <option value="500">500</option>
1526 <option value="600">600</option>
1527 <option value="700">700</option>
1528 <option value="800">800</option>
1529 </select>
1530 x
1531 <select name="popup_height" onchange="'.htmlspecialchars($selectJS).'">
1532 <option value="0">'.$GLOBALS['LANG']->getLL('target_popUpWindow_height',1).'</option>
1533 <option value="200">200</option>
1534 <option value="300">300</option>
1535 <option value="400">400</option>
1536 <option value="500">500</option>
1537 <option value="600">600</option>
1538 </select>
1539 </td>
1540 </tr>
1541 </table>
1542 </form>';
1543
1544 // Add "target selector" box to content:
1545 $content.=$ltarget;
1546
1547 // Add some space
1548 $content.='<br /><br />';
1549 }
1550
1551 // End page, return content:
1552 $content.= $this->doc->endPage();
1553 $content = $this->doc->insertStylesAndJS($content);
1554 return $content;
1555 }
1556
1557 /**
1558 * TYPO3 Element Browser: Showing a page tree and allows you to browse for records
1559 *
1560 * @return string HTML content for the module
1561 */
1562 function main_db() {
1563
1564 // Starting content:
1565 $content=$this->doc->startPage('TBE record selector');
1566
1567 // Init variable:
1568 $pArr = explode('|',$this->bparams);
1569
1570 // Making the browsable pagetree:
1571 $pagetree = t3lib_div::makeInstance('TBE_PageTree');
1572 $pagetree->thisScript=$this->thisScript;
1573 $pagetree->ext_pArrPages = !strcmp($pArr[3],'pages')?1:0;
1574 $pagetree->ext_showNavTitle = $GLOBALS['BE_USER']->getTSConfigVal('options.pageTree.showNavTitle');
1575 $pagetree->addField('nav_title');
1576 $tree=$pagetree->getBrowsableTree();
1577
1578 // Making the list of elements, if applicable:
1579 $cElements = $this->TBE_expandPage($pArr[3]);
1580
1581 // Putting the things together, side by side:
1582 $content.= '
1583
1584 <!--
1585 Wrapper table for page tree / record list:
1586 -->
1587 <table border="0" cellpadding="0" cellspacing="0" id="typo3-EBrecords">
1588 <tr>
1589 <td class="c-wCell" valign="top">'.$this->barheader($GLOBALS['LANG']->getLL('pageTree').':').$tree.'</td>
1590 <td class="c-wCell" valign="top">'.$cElements.'</td>
1591 </tr>
1592 </table>
1593 ';
1594
1595 // Add some space
1596 $content.='<br /><br />';
1597
1598 // End page, return content:
1599 $content.= $this->doc->endPage();
1600 $content = $this->doc->insertStylesAndJS($content);
1601 return $content;
1602 }
1603
1604 /**
1605 * TYPO3 Element Browser: Showing a folder tree, allowing you to browse for files.
1606 *
1607 * @return string HTML content for the module
1608 */
1609 function main_file() {
1610 global $BE_USER;
1611
1612 // Starting content:
1613 $content.=$this->doc->startPage('TBE file selector');
1614
1615 // Init variable:
1616 $pArr = explode('|',$this->bparams);
1617
1618 // Create upload/create folder forms, if a path is given:
1619 $path=$this->expandFolder;
1620 if (!$path || !@is_dir($path)) {
1621 // The closest TEMP-path is found
1622 $path = $this->fileProcessor->findTempFolder().'/';
1623 }
1624 if ($path!='/' && @is_dir($path)) {
1625 $uploadForm=$this->uploadForm($path);
1626 $createFolder=$this->createFolder($path);
1627 } else {
1628 $createFolder='';
1629 $uploadForm='';
1630 }
1631 if ($BE_USER->getTSConfigVal('options.uploadFieldsInTopOfEB')) $content.=$uploadForm;
1632
1633 // Getting flag for showing/not showing thumbnails:
1634 $noThumbs = $GLOBALS['BE_USER']->getTSConfigVal('options.noThumbsInEB');
1635
1636 if (!$noThumbs) {
1637 // MENU-ITEMS, fetching the setting for thumbnails from File>List module:
1638 $_MOD_MENU = array('displayThumbs' => '');
1639 $_MCONF['name']='file_list';
1640 $_MOD_SETTINGS = t3lib_BEfunc::getModuleData($_MOD_MENU, t3lib_div::_GP('SET'), $_MCONF['name']);
1641 $addParams = '&act='.$this->act.'&mode='.$this->mode.'&expandFolder='.rawurlencode($path).'&bparams='.rawurlencode($this->bparams);
1642 $thumbNailCheck = t3lib_BEfunc::getFuncCheck('','SET[displayThumbs]',$_MOD_SETTINGS['displayThumbs'],$this->thisScript,$addParams,'id="checkDisplayThumbs"').' <label for="checkDisplayThumbs">'.$GLOBALS['LANG']->sL('LLL:EXT:lang/locallang_mod_file_list.php:displayThumbs',1).'</label>';
1643 } else {
1644 $thumbNailCheck='';
1645 }
1646 $noThumbs = $noThumbs ? $noThumbs : !$_MOD_SETTINGS['displayThumbs'];
1647
1648 // Create folder tree:
1649 $foldertree = t3lib_div::makeInstance('TBE_FolderTree');
1650 $foldertree->thisScript=$this->thisScript;
1651 $foldertree->ext_noTempRecyclerDirs = ($this->mode == 'filedrag');
1652 $tree=$foldertree->getBrowsableTree();
1653
1654 list(,,$specUid) = explode('_',$this->PM);
1655
1656 if ($this->mode=='filedrag') {
1657 $files = $this->TBE_dragNDrop($foldertree->specUIDmap[$specUid],$pArr[3]);
1658 } else {
1659 $files = $this->TBE_expandFolder($foldertree->specUIDmap[$specUid],$pArr[3],$noThumbs);
1660 }
1661
1662 // Putting the parts together, side by side:
1663 $content.= '
1664
1665 <!--
1666 Wrapper table for folder tree / file list:
1667 -->
1668 <table border="0" cellpadding="0" cellspacing="0" id="typo3-EBfiles">
1669 <tr>
1670 <td class="c-wCell" valign="top">'.$this->barheader($GLOBALS['LANG']->getLL('folderTree').':').$tree.'</td>
1671 <td class="c-wCell" valign="top">'.$files.'</td>
1672 </tr>
1673 </table>
1674 ';
1675 $content.= $thumbNailCheck;
1676
1677 // Adding create folder + upload forms if applicable:
1678 if (!$BE_USER->getTSConfigVal('options.uploadFieldsInTopOfEB')) $content.=$uploadForm;
1679 if ($BE_USER->isAdmin() || $BE_USER->getTSConfigVal('options.createFoldersInEB')) $content.=$createFolder;
1680
1681 // Add some space
1682 $content.='<br /><br />';
1683
1684 // Setup indexed elements:
1685 $this->doc->JScode.= $this->doc->wrapScriptTags('BrowseLinks.addElements(' . json_encode($this->elements) . ');');
1686 // Ending page, returning content:
1687 $content.= $this->doc->endPage();
1688 $content = $this->doc->insertStylesAndJS($content);
1689
1690 return $content;
1691 }
1692
1693 /**
1694 * TYPO3 Element Browser: Showing a folder tree, allowing you to browse for folders.
1695 *
1696 * @return string HTML content for the module
1697 */
1698 function main_folder() {
1699 global $BE_USER;
1700
1701 // Starting content:
1702 $content = $this->doc->startPage('TBE folder selector');
1703
1704 // Init variable:
1705 $parameters = explode('|', $this->bparams);
1706
1707
1708 $path = $this->expandFolder;
1709 if (!$path || !@is_dir($path)) {
1710 // The closest TEMP-path is found
1711 $path = $this->fileProcessor->findTempFolder().'/';
1712 }
1713 if ($path != '/' && @is_dir($path)) {
1714 $createFolder = $this->createFolder($path);
1715 } else {
1716 $createFolder='';
1717 }
1718
1719 // Create folder tree:
1720 $foldertree = t3lib_div::makeInstance('TBE_FolderTree');
1721 $foldertree->thisScript = $this->thisScript;
1722 $foldertree->ext_noTempRecyclerDirs = ($this->mode == 'filedrag');
1723 $tree = $foldertree->getBrowsableTree(false);
1724
1725 list(, , $specUid) = explode('_', $this->PM);
1726
1727 if($this->mode == 'filedrag') {
1728 $folders = $this->TBE_dragNDrop(
1729 $foldertree->specUIDmap[$specUid],
1730 $parameters[3]
1731 );
1732 } else {
1733 $folders = $this->TBE_expandSubFolders($foldertree->specUIDmap[$specUid]);
1734 }
1735
1736 // Putting the parts together, side by side:
1737 $content.= '
1738
1739 <!--
1740 Wrapper table for folder tree / folder list:
1741 -->
1742 <table border="0" cellpadding="0" cellspacing="0" id="typo3-EBfiles">
1743 <tr>
1744 <td class="c-wCell" valign="top">'.$this->barheader($GLOBALS['LANG']->getLL('folderTree').':').$tree.'</td>
1745 <td class="c-wCell" valign="top">'.$folders.'</td>
1746 </tr>
1747 </table>
1748 ';
1749
1750 // Adding create folder if applicable:
1751 if($BE_USER->isAdmin() || $BE_USER->getTSConfigVal('options.createFoldersInEB')) {
1752 $content .= $createFolder;
1753 }
1754
1755 // Add some space
1756 $content .= '<br /><br />';
1757
1758 // Ending page, returning content:
1759 $content.= $this->doc->endPage();
1760 $content = $this->doc->insertStylesAndJS($content);
1761
1762 return $content;
1763 }
1764
1765
1766
1767
1768
1769
1770
1771
1772
1773
1774
1775
1776
1777
1778
1779
1780
1781 /******************************************************************
1782 *
1783 * Record listing
1784 *
1785 ******************************************************************/
1786 /**
1787 * For RTE: This displays all content elements on a page and lets you create a link to the element.
1788 *
1789 * @return string HTML output. Returns content only if the ->expandPage value is set (pointing to a page uid to show tt_content records from ...)
1790 */
1791 function expandPage() {
1792 global $BE_USER, $BACK_PATH;
1793
1794 $out='';
1795 $expPageId = $this->expandPage; // Set page id (if any) to expand
1796
1797 // If there is an anchor value (content element reference) in the element reference, then force an ID to expand:
1798 if (!$this->expandPage && $this->curUrlInfo['cElement']) {
1799 $expPageId = $this->curUrlInfo['pageid']; // Set to the current link page id.
1800 }
1801
1802 // Draw the record list IF there is a page id to expand:
1803 if ($expPageId && t3lib_div::testInt($expPageId) && $BE_USER->isInWebMount($expPageId)) {
1804
1805 // Set header:
1806 $out.=$this->barheader($GLOBALS['LANG']->getLL('contentElements').':');
1807
1808 // Create header for listing, showing the page title/icon:
1809 $titleLen=intval($GLOBALS['BE_USER']->uc['titleLen']);
1810 $mainPageRec = t3lib_BEfunc::getRecordWSOL('pages',$expPageId);
1811 $picon = t3lib_iconWorks::getIconImage('pages', $mainPageRec, $BACK_PATH, '');
1812 $picon.= htmlspecialchars(t3lib_div::fixed_lgd_cs($mainPageRec['title'],$titleLen));
1813 $out.=$picon.'<br />';
1814
1815 // Look up tt_content elements from the expanded page:
1816 $res = $GLOBALS['TYPO3_DB']->exec_SELECTquery(
1817 'uid,header,hidden,starttime,endtime,fe_group,CType,colpos,bodytext',
1818 'tt_content',
1819 'pid='.intval($expPageId).
1820 t3lib_BEfunc::deleteClause('tt_content').
1821 t3lib_BEfunc::versioningPlaceholderClause('tt_content'),
1822 '',
1823 'colpos,sorting'
1824 );
1825 $cc = $GLOBALS['TYPO3_DB']->sql_num_rows($res);
1826
1827 // Traverse list of records:
1828 $c=0;
1829 while($row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($res)) {
1830 $c++;
1831 $icon=t3lib_iconWorks::getIconImage('tt_content',$row,$BACK_PATH,'');
1832 if ($this->curUrlInfo['act']=='page' && $this->curUrlInfo['cElement']==$row['uid']) {
1833 $arrCol='<img'.t3lib_iconWorks::skinImg($BACK_PATH,'gfx/blinkarrow_left.gif','width="5" height="9"').' class="c-blinkArrowL" alt="" />';
1834 } else {
1835 $arrCol='';
1836 }
1837 // Putting list element HTML together:
1838 $out.='<img'.t3lib_iconWorks::skinImg($BACK_PATH,'gfx/ol/join'.($c==$cc?'bottom':'').'.gif','width="18" height="16"').' alt="" />'.
1839 $arrCol.
1840 '<a href="#" onclick="return link_typo3Page(\''.$expPageId.'\',\'#'.$row['uid'].'\');">'.
1841 $icon.
1842 htmlspecialchars(t3lib_div::fixed_lgd_cs($row['header'],$titleLen)).
1843 '</a><br />';
1844
1845 // Finding internal anchor points:
1846 if (t3lib_div::inList('text,textpic', $row['CType'])) {
1847 $split = preg_split('/(<a[^>]+name=[\'"]?([^"\'>[:space:]]+)[\'"]?[^>]*>)/i', $row['bodytext'], -1, PREG_SPLIT_DELIM_CAPTURE);
1848
1849 foreach($split as $skey => $sval) {
1850 if (($skey%3)==2) {
1851 // Putting list element HTML together:
1852 $sval = substr($sval,0,100);
1853 $out.='<img'.t3lib_iconWorks::skinImg($BACK_PATH,'gfx/ol/line.gif','width="18" height="16"').' alt="" />'.
1854 '<img'.t3lib_iconWorks::skinImg($BACK_PATH,'gfx/ol/join'.($skey+3>count($split)?'bottom':'').'.gif','width="18" height="16"').' alt="" />'.
1855 '<a href="#" onclick="return link_typo3Page(\''.$expPageId.'\',\'#'.rawurlencode($sval).'\');">'.
1856 htmlspecialchars(' <A> '.$sval).
1857 '</a><br />';
1858 }
1859 }
1860 }
1861 }
1862 }
1863 return $out;
1864 }
1865
1866 /**
1867 * For TYPO3 Element Browser: This lists all content elements from the given list of tables
1868 *
1869 * @param string Commalist of tables. Set to "*" if you want all tables.
1870 * @return string HTML output.
1871 */
1872 function TBE_expandPage($tables) {
1873 global $TCA,$BE_USER, $BACK_PATH;
1874
1875 $out='';
1876 if ($this->expandPage>=0 && t3lib_div::testInt($this->expandPage) && $BE_USER->isInWebMount($this->expandPage)) {
1877
1878 // Set array with table names to list:
1879 if (!strcmp(trim($tables),'*')) {
1880 $tablesArr = array_keys($TCA);
1881 } else {
1882 $tablesArr = t3lib_div::trimExplode(',',$tables,1);
1883 }
1884 reset($tablesArr);
1885
1886 // Headline for selecting records:
1887 $out.=$this->barheader($GLOBALS['LANG']->getLL('selectRecords').':');
1888
1889 // Create the header, showing the current page for which the listing is. Includes link to the page itself, if pages are amount allowed tables.
1890 $titleLen=intval($GLOBALS['BE_USER']->uc['titleLen']);
1891 $mainPageRec = t3lib_BEfunc::getRecordWSOL('pages',$this->expandPage);
1892 $ATag='';
1893 $ATag_e='';
1894 $ATag2='';
1895 if (in_array('pages',$tablesArr)) {
1896 $ficon=t3lib_iconWorks::getIcon('pages',$mainPageRec);
1897 $ATag="<a href=\"#\" onclick=\"return insertElement('pages', '".$mainPageRec['uid']."', 'db', ".t3lib_div::quoteJSvalue($mainPageRec['title']).", '', '', '".$ficon."','',1);\">";
1898 $ATag2="<a href=\"#\" onclick=\"return insertElement('pages', '".$mainPageRec['uid']."', 'db', ".t3lib_div::quoteJSvalue($mainPageRec['title']).", '', '', '".$ficon."','',0);\">";
1899 $ATag_alt=substr($ATag,0,-4).",'',1);\">";
1900 $ATag_e='</a>';
1901 }
1902 $picon=t3lib_iconWorks::getIconImage('pages',$mainPageRec,$BACK_PATH,'');
1903 $pBicon=$ATag2?'<img'.t3lib_iconWorks::skinImg($BACK_PATH,'gfx/plusbullet2.gif','width="18" height="16"').' alt="" />':'';
1904 $pText=htmlspecialchars(t3lib_div::fixed_lgd_cs($mainPageRec['title'],$titleLen));
1905 $out.=$picon.$ATag2.$pBicon.$ATag_e.$ATag.$pText.$ATag_e.'<br />';
1906
1907 // Initialize the record listing:
1908 $id = $this->expandPage;
1909 $pointer = t3lib_div::intInRange($this->pointer,0,100000);
1910 $perms_clause = $GLOBALS['BE_USER']->getPagePermsClause(1);
1911 $pageinfo = t3lib_BEfunc::readPageAccess($id,$perms_clause);
1912 $table='';
1913
1914 // Generate the record list:
1915 $dblist = t3lib_div::makeInstance('TBE_browser_recordList');
1916 $dblist->thisScript=$this->thisScript;
1917 $dblist->backPath = $GLOBALS['BACK_PATH'];
1918 $dblist->thumbs = 0;
1919 $dblist->calcPerms = $GLOBALS['BE_USER']->calcPerms($pageinfo);
1920 $dblist->noControlPanels=1;
1921 $dblist->clickMenuEnabled=0;
1922 $dblist->tableList=implode(',',$tablesArr);
1923
1924 $dblist->start($id,t3lib_div::_GP('table'),$pointer,
1925 t3lib_div::_GP('search_field'),
1926 t3lib_div::_GP('search_levels'),
1927 t3lib_div::_GP('showLimit')
1928 );
1929 $dblist->setDispFields();
1930 $dblist->generateList();
1931 $dblist->writeBottom();
1932
1933 // Add the HTML for the record list to output variable:
1934 $out.=$dblist->HTMLcode;
1935
1936 // Add support for fieldselectbox in singleTableMode
1937 if ($dblist->table) {
1938 $out.= $dblist->fieldSelectBox($dblist->table);
1939 }
1940
1941 $out.=$dblist->getSearchBox();
1942 }
1943
1944 // Return accumulated content:
1945 return $out;
1946 }
1947
1948
1949 /**
1950 * Render list of folders inside a folder.
1951 *
1952 * @param string string of the current folder
1953 * @return string HTML output
1954 */
1955 function TBE_expandSubFolders($expandFolder=0) {
1956 $content = '';
1957
1958 $expandFolder = $expandFolder ?
1959 $expandFolder :
1960 $this->expandFolder;
1961
1962 if($expandFolder && $this->checkFolder($expandFolder)) {
1963 if(t3lib_div::isFirstPartOfStr($expandFolder, PATH_site)) {
1964 $rootFolder = substr($expandFolder, strlen(PATH_site));
1965 }
1966
1967 $folders = array();
1968
1969 // Listing the folders:
1970 $folders = t3lib_div::get_dirs($expandFolder);
1971 if(count($folders) > 0) {
1972 foreach($folders as $index => $folder) {
1973 $folders[$index] = $rootFolder.$folder.'/';
1974 }
1975 }
1976 $content.= $this->folderList($rootFolder, $folders);
1977 }
1978
1979 // Return accumulated content for folderlisting:
1980 return $content;
1981 }
1982
1983
1984
1985
1986
1987
1988
1989
1990
1991
1992
1993 /******************************************************************
1994 *
1995 * File listing
1996 *
1997 ******************************************************************/
1998 /**
1999 * For RTE: This displays all files from folder. No thumbnails shown
2000 *
2001 * @param string The folder path to expand
2002 * @param string List of fileextensions to show
2003 * @return string HTML output
2004 */
2005 function expandFolder($expandFolder=0,$extensionList='') {
2006 global $BACK_PATH;
2007
2008 $expandFolder = $expandFolder ? $expandFolder : $this->expandFolder;
2009 $out='';
2010 if ($expandFolder && $this->checkFolder($expandFolder)) {
2011
2012 // Create header for filelisting:
2013 $out.=$this->barheader($GLOBALS['LANG']->getLL('files').':');
2014
2015 // Prepare current path value for comparison (showing red arrow)
2016 if (!$this->curUrlInfo['value']) {
2017 $cmpPath='';
2018 } else {
2019 $cmpPath=PATH_site.$this->curUrlInfo['info'];
2020 }
2021
2022
2023 // Create header element; The folder from which files are listed.
2024 $titleLen=intval($GLOBALS['BE_USER']->uc['titleLen']);
2025 $picon='<img'.t3lib_iconWorks::skinImg($BACK_PATH,'gfx/i/_icon_webfolders.gif','width="18" height="16"').' alt="" />';
2026 $picon.=htmlspecialchars(t3lib_div::fixed_lgd_cs(basename($expandFolder),$titleLen));
2027 $picon='<a href="#" onclick="return link_folder(\''.t3lib_div::rawUrlEncodeFP(substr($expandFolder,strlen(PATH_site))).'\');">'.$picon.'</a>';
2028 if ($this->curUrlInfo['act'] == 'folder' && $cmpPath == $expandFolder) {
2029 $out.= '<img'.t3lib_iconWorks::skinImg($BACK_PATH, 'gfx/blinkarrow_left.gif', 'width="5" height="9"') . ' class="c-blinkArrowL" alt="" />';
2030 }
2031 $out.=$picon.'<br />';
2032
2033 // Get files from the folder:
2034 if ($this->mode == 'wizard' && $this->act == 'folder') {
2035 $files = t3lib_div::get_dirs($expandFolder);
2036 } else {
2037 $files = t3lib_div::getFilesInDir($expandFolder, $extensionList, 1, 1); // $extensionList='', $prependPath=0, $order='')
2038 }
2039
2040 $c=0;
2041 $cc=count($files);
2042 if (is_array($files)) {
2043 foreach($files as $filepath) {
2044 $c++;
2045 $fI=pathinfo($filepath);
2046
2047 if ($this->mode == 'wizard' && $this->act == 'folder') {
2048 $filepath = $expandFolder.$filepath.'/';
2049 $icon = '<img' . t3lib_iconWorks::skinImg($BACK_PATH, 'gfx/i/_icon_webfolders.gif', 'width="18" height="16"') . ' alt="" />';
2050 } else {
2051 // File icon:
2052 $icon = t3lib_BEfunc::getFileIcon(strtolower($fI['extension']));
2053
2054 // Get size and icon:
2055 $size = ' (' . t3lib_div::formatSize(filesize($filepath)) . 'bytes)';
2056 $icon = '<img' . t3lib_iconWorks::skinImg($BACK_PATH, 'gfx/fileicons/' . $icon . '', 'width="18" height="16"') . ' title="' . htmlspecialchars($fI['basename'] . $size) . '" alt="" />';
2057 }
2058
2059 // If the listed file turns out to be the CURRENT file, then show blinking arrow:
2060 if (($this->curUrlInfo['act'] == 'file' || $this->curUrlInfo['act'] == 'folder') && $cmpPath == $filepath) {
2061 $arrCol='<img'.t3lib_iconWorks::skinImg($BACK_PATH,'gfx/blinkarrow_left.gif','width="5" height="9"').' class="c-blinkArrowL" alt="" />';
2062 } else {
2063 $arrCol='';
2064 }
2065
2066 // Put it all together for the file element:
2067 $out.='<img'.t3lib_iconWorks::skinImg($BACK_PATH,'gfx/ol/join'.($c==$cc?'bottom':'').'.gif','width="18" height="16"').' alt="" />'.
2068 $arrCol.
2069 '<a href="#" onclick="return link_folder(\''.t3lib_div::rawUrlEncodeFP(substr($filepath,strlen(PATH_site))).'\');">'.
2070 $icon.
2071 htmlspecialchars(t3lib_div::fixed_lgd_cs(basename($filepath),$titleLen)).
2072 '</a><br />';
2073 }
2074 }
2075 }
2076 return $out;
2077 }
2078
2079 /**
2080 * For TYPO3 Element Browser: Expand folder of files.
2081 *
2082 * @param string The folder path to expand
2083 * @param string List of fileextensions to show
2084 * @param boolean Whether to show thumbnails or not. If set, no thumbnails are shown.
2085 * @return string HTML output
2086 */
2087 function TBE_expandFolder($expandFolder=0,$extensionList='',$noThumbs=0) {
2088 global $LANG;
2089
2090 $expandFolder = $expandFolder ? $expandFolder : $this->expandFolder;
2091 $out='';
2092 if ($expandFolder && $this->checkFolder($expandFolder)) {
2093 // Listing the files:
2094 $files = t3lib_div::getFilesInDir($expandFolder,$extensionList,1,1); // $extensionList="",$prependPath=0,$order='')
2095 $out.= $this->fileList($files, $expandFolder, $noThumbs);
2096 }
2097
2098 // Return accumulated content for filelisting:
2099 return $out;
2100 }
2101
2102 /**
2103 * Render list of files.
2104 *
2105 * @param array List of files. See t3lib_div::getFilesInDir
2106 * @param string If set a header with a folder icon and folder name are shown
2107 * @param boolean Whether to show thumbnails or not. If set, no thumbnails are shown.
2108 * @return string HTML output
2109 */
2110 function fileList($files, $folderName='', $noThumbs=0) {
2111 global $LANG, $BACK_PATH;
2112
2113 $out='';
2114
2115 // Listing the files:
2116 if (is_array($files)) {
2117
2118 // Create headline (showing number of files):
2119 $filesCount = count($files);
2120 $out.=$this->barheader(sprintf($GLOBALS['LANG']->getLL('files').' (%s):', $filesCount));
2121 $out.=$this->getBulkSelector($filesCount);
2122
2123 $titleLen=intval($GLOBALS['BE_USER']->uc['titleLen']);
2124
2125 // Create the header of current folder:
2126 if($folderName) {
2127 $picon='<img'.t3lib_iconWorks::skinImg($BACK_PATH,'gfx/i/_icon_webfolders.gif','width="18" height="16"').' alt="" />';
2128 $picon.=htmlspecialchars(t3lib_div::fixed_lgd_cs(basename($folderName),$titleLen));
2129 $out.=$picon.'<br />';
2130 }
2131
2132 // Init graphic object for reading file dimensions:
2133 $imgObj = t3lib_div::makeInstance('t3lib_stdGraphic');
2134 $imgObj->init();
2135 $imgObj->mayScaleUp=0;
2136 $imgObj->tempPath=PATH_site.$imgObj->tempPath;
2137
2138 // Traverse the file list:
2139 $lines=array();
2140 foreach($files as $filepath) {
2141 $fI=pathinfo($filepath);
2142
2143 // Thumbnail/size generation:
2144 if (t3lib_div::inList(strtolower($GLOBALS['TYPO3_CONF_VARS']['GFX']['imagefile_ext']),strtolower($fI['extension'])) && !$noThumbs) {
2145 $imgInfo = $imgObj->getImageDimensions($filepath);
2146 $pDim = $imgInfo[0].'x'.$imgInfo[1].' pixels';
2147 $clickIcon = t3lib_BEfunc::getThumbNail($BACK_PATH.'thumbs.php',$filepath,'hspace="5" vspace="5" border="1"');
2148 } else {
2149 $clickIcon = '';
2150 $pDim = '';
2151 }
2152
2153 // Create file icon:
2154 $ficon = t3lib_BEfunc::getFileIcon(strtolower($fI['extension']));
2155 $size=' ('.t3lib_div::formatSize(filesize($filepath)).'bytes'.($pDim?', '.$pDim:'').')';
2156 $icon = '<img'.t3lib_iconWorks::skinImg($BACK_PATH,'gfx/fileicons/'.$ficon,'width="18" height="16"').' title="'.htmlspecialchars($fI['basename'].$size).'" class="absmiddle" alt="" />';
2157
2158 // Create links for adding the file:
2159 if (strstr($filepath,',') || strstr($filepath,'|')) { // In case an invalid character is in the filepath, display error message:
2160 $eMsg = $LANG->JScharCode(sprintf($LANG->getLL('invalidChar'),', |'));
2161 $ATag = $ATag_alt = "<a href=\"#\" onclick=\"alert(".$eMsg.");return false;\">";
2162 $bulkCheckBox = '';
2163 } else { // If filename is OK, just add it:
2164 $filesIndex = count($this->elements);
2165 $this->elements['file_'.$filesIndex] = array(
2166 'md5' => t3lib_div::shortMD5($filepath),
2167 'type' => 'file',
2168 'fileName' => $fI['basename'],
2169 'filePath' => $filepath,
2170 'fileExt' => $fI['extension'],
2171 'fileIcon' => $ficon,
2172 );
2173 $ATag = "<a href=\"#\" onclick=\"return BrowseLinks.File.insertElement('file_$filesIndex');\">";
2174 $ATag_alt = substr($ATag,0,-4).",1);\">";
2175 $bulkCheckBox = '<input type="checkbox" class="typo3-bulk-item" name="file_'.$filesIndex.'" value="0" /> ';
2176 }
2177 $ATag_e='</a>';
2178
2179 // Create link to showing details about the file in a window:
2180 $Ahref = $BACK_PATH.'show_item.php?table='.rawurlencode($filepath).'&returnUrl='.rawurlencode(t3lib_div::getIndpEnv('REQUEST_URI'));
2181 $ATag2='<a href="'.htmlspecialchars($Ahref).'">';
2182 $ATag2_e='</a>';
2183
2184 // Combine the stuff:
2185 $filenameAndIcon=$bulkCheckBox.$ATag_alt.$icon.htmlspecialchars(t3lib_div::fixed_lgd_cs(basename($filepath),$titleLen)).$ATag_e;
2186
2187 // Show element:
2188 if ($pDim) { // Image...
2189 $lines[]='
2190 <tr class="bgColor4">
2191 <td nowrap="nowrap">'.$filenameAndIcon.'&nbsp;</td>
2192 <td>'.$ATag.'<img'.t3lib_iconWorks::skinImg($BACK_PATH,'gfx/plusbullet2.gif','width="18" height="16"').' title="'.$LANG->getLL('addToList',1).'" alt="" />'.$ATag_e.'</td>
2193 <td nowrap="nowrap">'.($ATag2.'<img'.t3lib_iconWorks::skinImg($BACK_PATH,'gfx/zoom2.gif','width="12" height="12"').' title="'.$LANG->getLL('info',1).'" alt="" /> '.$LANG->getLL('info',1).$ATag2_e).'</td>
2194 <td nowrap="nowrap">&nbsp;'.$pDim.'</td>
2195 </tr>';
2196 $lines[]='
2197 <tr>
2198 <td colspan="4">'.$ATag_alt.$clickIcon.$ATag_e.'</td>
2199 </tr>';
2200 } else {
2201 $lines[]='
2202 <tr class="bgColor4">
2203 <td nowrap="nowrap">'.$filenameAndIcon.'&nbsp;</td>
2204 <td>'.$ATag.'<img'.t3lib_iconWorks::skinImg($BACK_PATH,'gfx/plusbullet2.gif','width="18" height="16"').' title="'.$LANG->getLL('addToList',1).'" alt="" />'.$ATag_e.'</td>
2205 <td nowrap="nowrap">'.($ATag2.'<img'.t3lib_iconWorks::skinImg($BACK_PATH,'gfx/zoom2.gif','width="12" height="12"').' title="'.$LANG->getLL('info',1).'" alt="" /> '.$LANG->getLL('info',1).$ATag2_e).'</td>
2206 <td>&nbsp;</td>
2207 </tr>';
2208 }
2209 $lines[]='
2210 <tr>
2211 <td colspan="3"><img src="clear.gif" width="1" height="3" alt="" /></td>
2212 </tr>';
2213 }
2214
2215 // Wrap all the rows in table tags:
2216 $out.='
2217
2218
2219
2220 <!--
2221 File listing
2222 -->
2223 <table border="0" cellpadding="0" cellspacing="1" id="typo3-fileList">
2224 '.implode('',$lines).'
2225 </table>';
2226 }
2227 // Return accumulated content for filelisting:
2228 return $out;
2229 }
2230
2231 /**
2232 * Render list of folders.
2233 *
2234 * @param array List of folders. See t3lib_div::get_dirs
2235 * @param string If set a header with a folder icon and folder name are shown
2236 * @return string HTML output
2237 */
2238 function folderList($baseFolder, $folders) {
2239 global $LANG, $BACK_PATH;
2240
2241 $content = '';
2242
2243 // Create headline (showing number of folders):
2244 $content.=$this->barheader(
2245 sprintf($GLOBALS['LANG']->getLL('folders').' (%s):',count($folders))
2246 );
2247
2248 $titleLength = intval($GLOBALS['BE_USER']->uc['titleLen']);
2249
2250 // Create the header of current folder:
2251 if($baseFolder) {
2252 if (strstr($baseFolder, ',') || strstr($baseFolder, '|')) {
2253 // In case an invalid character is in the filepath, display error message:
2254 $errorMessage = $LANG->JScharCode(sprintf($LANG->getLL('invalidChar'),', |'));
2255 $aTag = $aTag_alt = "<a href=\"#\" onclick=\"alert(".$errorMessage.");return false;\">";
2256 } else {
2257 // If foldername is OK, just add it:
2258 $aTag = "<a href=\"#\" onclick=\"return insertElement('','".rawurlencode($baseFolder)."', 'folder', '".rawurlencode($baseFolder)."', unescape('".rawurlencode($baseFolder)."'), '".$fI['extension']."', '".$ficon."');\">";
2259 $aTag_alt = substr($aTag,0,-4).",'',1);\">";
2260 }
2261 $aTag_e = '</a>';
2262
2263 // add the foder icon
2264 $folderIcon = $aTag_alt;
2265 $folderIcon.= '<img'.t3lib_iconWorks::skinImg(
2266 $BACK_PATH,
2267 'gfx/i/_icon_webfolders.gif','width="18" height="16"'
2268 ).' alt="" />';
2269 $folderIcon.= htmlspecialchars(
2270 t3lib_div::fixed_lgd_cs(basename($baseFolder),$titleLength)
2271 );
2272 $folderIcon.= $aTag_e;
2273
2274 $content.=$folderIcon.'<br />';
2275 }
2276
2277 // Listing the folders:
2278 if(is_array($folders)) {
2279 if(count($folders) > 0) {
2280 // Traverse the folder list:
2281 $lines = array();
2282 foreach($folders as $folderPath) {
2283 $pathInfo = pathinfo($folderPath);
2284
2285 // Create folder icon:
2286 $icon = '<img src="clear.gif" width="16" height="16" alt="" /><img'.t3lib_iconWorks::skinImg($BACK_PATH, 'gfx/i/_icon_webfolders.gif','width="16" height="16"').' title="'.htmlspecialchars($pathInfo['basename'].$size).'" class="absmiddle" alt="" />';
2287
2288 // Create links for adding the folder:
2289 if($this->P['itemName'] != '' && $this->P['formName'] != '') {
2290 $aTag = "<a href=\"#\" onclick=\"return set_folderpath(unescape('".rawurlencode($folderPath)."'));\">";
2291 } else {
2292 $aTag = "<a href=\"#\" onclick=\"return insertElement('','".rawurlencode($folderPath)."', 'folder', '".rawurlencode($folderPath)."', unescape('".rawurlencode($folderPath)."'), '".$pathInfo['extension']."', '".$ficon."');\">";
2293 }
2294
2295 if (strstr($folderPath,',') || strstr($folderPath,'|')) {
2296 // In case an invalid character is in the filepath, display error message:
2297 $errorMessage = $LANG->JScharCode(sprintf($LANG->getLL('invalidChar'),', |'));
2298 $aTag = $aTag_alt = "<a href=\"#\" onclick=\"alert(".$errorMessage.");return false;\">";
2299 } else {
2300 // If foldername is OK, just add it:
2301 $aTag_alt = substr($aTag,0,-4).",'',1);\">";
2302 }
2303 $aTag_e='</a>';
2304
2305 // Combine icon and folderpath:
2306 $foldernameAndIcon = $aTag_alt.$icon.htmlspecialchars(
2307 t3lib_div::fixed_lgd_cs(basename($folderPath),$titleLength)
2308 ).$aTag_e;
2309
2310 if($this->P['itemName'] != '') {
2311 $lines[] = '
2312 <tr class="bgColor4">
2313 <td nowrap="nowrap">'.$foldernameAndIcon.'&nbsp;</td>
2314 <td>&nbsp;</td>
2315 </tr>';
2316 } else {
2317 $lines[] = '
2318 <tr class="bgColor4">
2319 <td nowrap="nowrap">'.$foldernameAndIcon.'&nbsp;</td>
2320 <td>'.$aTag.'<img'.t3lib_iconWorks::skinImg($BACK_PATH,'gfx/plusbullet2.gif','width="18" height="16"').' title="'.$LANG->getLL('addToList',1).'" alt="" />'.$aTag_e.'</td>
2321 <td>&nbsp;</td>
2322 </tr>';
2323 }
2324
2325 $lines[] = '
2326 <tr>
2327 <td colspan="3"><img src="clear.gif" width="1" height="3" alt="" /></td>
2328 </tr>';
2329 }
2330 }
2331
2332 // Wrap all the rows in table tags:
2333 $content.='
2334
2335 <!--
2336 Folder listing
2337 -->
2338 <table border="0" cellpadding="0" cellspacing="1" id="typo3-folderList">
2339 '.implode('', $lines).'
2340 </table>';
2341 }
2342
2343 // Return accumulated content for folderlisting:
2344 return $content;
2345 }
2346
2347 /**
2348 * For RTE: This displays all IMAGES (gif,png,jpg) (from extensionList) from folder. Thumbnails are shown for images.
2349 * This listing is of images located in the web-accessible paths ONLY - the listing is for drag-n-drop use in the RTE
2350 *
2351 * @param string The folder path to expand
2352 * @param string List of fileextensions to show
2353 * @return string HTML output
2354 */
2355 function TBE_dragNDrop($expandFolder=0,$extensionList='') {
2356 global $BACK_PATH;
2357
2358 $expandFolder = $expandFolder ? $expandFolder : $this->expandFolder;
2359 $out='';
2360 if ($expandFolder && $this->checkFolder($expandFolder)) {
2361 if ($this->isWebFolder($expandFolder)) {
2362
2363 // Read files from directory:
2364 $files = t3lib_div::getFilesInDir($expandFolder,$extensionList,1,1); // $extensionList="",$prependPath=0,$order='')
2365 if (is_array($files)) {
2366 $out.=$this->barheader(sprintf($GLOBALS['LANG']->getLL('files').' (%s):',count($files)));
2367
2368 $titleLen=intval($GLOBALS['BE_USER']->uc['titleLen']);
2369 $picon='<img'.t3lib_iconWorks::skinImg($BACK_PATH,'gfx/i/_icon_webfolders.gif','width="18" height="16"').' alt="" />';
2370 $picon.=htmlspecialchars(t3lib_div::fixed_lgd_cs(basename($expandFolder),$titleLen));
2371 $out.=$picon.'<br />';
2372
2373 // Init row-array:
2374 $lines=array();
2375
2376 // Add "drag-n-drop" message:
2377 $lines[]='
2378 <tr>
2379 <td colspan="2">'.$this->getMsgBox($GLOBALS['LANG']->getLL('findDragDrop')).'</td>
2380 </tr>';
2381
2382 // Traverse files:
2383 while(list(,$filepath)=each($files)) {
2384 $fI = pathinfo($filepath);
2385
2386 // URL of image:
2387 $iurl = $this->siteURL.t3lib_div::rawurlencodeFP(substr($filepath,strlen(PATH_site)));
2388
2389 // Show only web-images
2390 if (t3lib_div::inList('gif,jpeg,jpg,png',strtolower($fI['extension']))) {
2391 $imgInfo = @getimagesize($filepath);
2392 $pDim = $imgInfo[0].'x'.$imgInfo[1].' pixels';
2393
2394 $ficon = t3lib_BEfunc::getFileIcon(strtolower($fI['extension']));
2395 $size=' ('.t3lib_div::formatSize(filesize($filepath)).'bytes'.($pDim?', '.$pDim:'').')';
2396 $icon = '<img'.t3lib_iconWorks::skinImg($BACK_PATH,'gfx/fileicons/'.$ficon,'width="18" height="16"').' class="absmiddle" title="'.htmlspecialchars($fI['basename'].$size).'" alt="" />';
2397 $filenameAndIcon=$icon.htmlspecialchars(t3lib_div::fixed_lgd_cs(basename($filepath),$titleLen));
2398
2399 if (t3lib_div::_GP('noLimit')) {
2400 $maxW=10000;
2401 $maxH=10000;
2402 } else {
2403 $maxW=380;
2404 $maxH=500;
2405 }
2406 $IW = $imgInfo[0];
2407 $IH = $imgInfo[1];
2408 if ($IW>$maxW) {
2409 $IH=ceil($IH/$IW*$maxW);
2410 $IW=$maxW;
2411 }
2412 if ($IH>$maxH) {
2413 $IW=ceil($IW/$IH*$maxH);
2414 $IH=$maxH;
2415 }
2416
2417 // Make row:
2418 $lines[]='
2419 <tr class="bgColor4">
2420 <td nowrap="nowrap">'.$filenameAndIcon.'&nbsp;</td>
2421 <td nowrap="nowrap">'.
2422 ($imgInfo[0]!=$IW ? '<a href="'.htmlspecialchars(t3lib_div::linkThisScript(array('noLimit'=>'1'))).'">'.
2423 '<img'.t3lib_iconWorks::skinImg($BACK_PATH,'gfx/icon_warning2.gif','width="18" height="16"').' title="'.$GLOBALS['LANG']->getLL('clickToRedrawFullSize',1).'" alt="" />'.
2424 '</a>':'').
2425 $pDim.'&nbsp;</td>
2426 </tr>';
2427
2428 $lines[]='
2429 <tr>
2430 <td colspan="2"><img src="'.$iurl.'" width="'.$IW.'" height="'.$IH.'" border="1" alt="" /></td>
2431 </tr>';
2432 $lines[]='
2433 <tr>
2434 <td colspan="2"><img src="clear.gif" width="1" height="3" alt="" /></td>
2435 </tr>';
2436 }
2437 }
2438
2439 // Finally, wrap all rows in a table tag:
2440 $out.='
2441
2442
2443 <!--
2444 File listing / Drag-n-drop
2445 -->
2446 <table border="0" cellpadding="0" cellspacing="1" id="typo3-dragBox">
2447 '.implode('',$lines).'
2448 </table>';
2449 }
2450 } else {
2451 // Print this warning if the folder is NOT a web folder:
2452 $out.=$this->barheader($GLOBALS['LANG']->getLL('files'));
2453 $out.=$this->getMsgBox($GLOBALS['LANG']->getLL('noWebFolder'),'icon_warning2');
2454 }
2455 }
2456 return $out;
2457 }
2458
2459
2460
2461
2462
2463
2464
2465
2466
2467
2468
2469
2470 /******************************************************************
2471 *
2472 * Miscellaneous functions
2473 *
2474 ******************************************************************/
2475
2476
2477 /**
2478 * Verifies that a path is a web-folder:
2479 *
2480 * @param string Absolute filepath
2481 * @return boolean If the input path is found in PATH_site then it returns true.
2482 */
2483 function isWebFolder($folder) {
2484 $folder = ereg_replace('\/$','',$folder).'/';
2485 return t3lib_div::isFirstPartOfStr($folder,PATH_site) ? TRUE : FALSE;
2486 }
2487
2488 /**
2489 * Checks, if a path is within the mountpoints of the backend user
2490 *
2491 * @param string Absolute filepath
2492 * @return boolean If the input path is found in the backend users filemounts, then return true.
2493 */
2494 function checkFolder($folder) {
2495 return $this->fileProcessor->checkPathAgainstMounts(ereg_replace('\/$', '', $folder) . '/') ? true : false;
2496 }
2497
2498 /**
2499 * Checks, if a path is within a read-only mountpoint of the backend user
2500 *
2501 * @param string Absolute filepath
2502 * @return boolean If the input path is found in the backend users filemounts and if the filemount is of type readonly, then return true.
2503 */
2504 function isReadOnlyFolder($folder) {
2505 return ($GLOBALS['FILEMOUNTS'][$this->fileProcessor->checkPathAgainstMounts(ereg_replace('\/$', '', $folder) . '/')]['type'] == 'readonly');
2506 }
2507
2508 /**
2509 * Prints a 'header' where string is in a tablecell
2510 *
2511 * @param string The string to print in the header. The value is htmlspecialchars()'ed before output.
2512 * @return string The header HTML (wrapped in a table)
2513 */
2514 function barheader($str) {
2515 return '
2516
2517 <!--
2518 Bar header:
2519 -->
2520 <h3 class="bgColor5">'.htmlspecialchars($str).'</h3>
2521 ';
2522 }
2523
2524 /**
2525 * Displays a message box with the input message
2526 *
2527 * @param string Input message to show (will be htmlspecialchars()'ed inside of this function)
2528 * @param string Icon filename body from gfx/ (default is "icon_note") - meant to allow change to warning type icons...
2529 * @return string HTML for the message (wrapped in a table).
2530 */
2531 function getMsgBox($in_msg,$icon='icon_note') {
2532 global $BACK_PATH;
2533
2534 $msg = '<img'.t3lib_iconWorks::skinImg($BACK_PATH,'gfx/'.$icon.'.gif','width="18" height="16"').' alt="" />'.htmlspecialchars($in_msg);
2535 $msg = '
2536
2537 <!--
2538 Message box:
2539 -->
2540 <table cellspacing="0" class="bgColor4" id="typo3-msgBox">
2541 <tr>
2542 <td>'.$msg.'</td>
2543 </tr>
2544 </table>
2545 ';
2546 return $msg;
2547 }
2548
2549 /**
2550 * For RTE/link: This prints the 'currentUrl'
2551 *
2552 * @param string URL value. The value is htmlspecialchars()'ed before output.
2553 * @return string HTML content, wrapped in a table.
2554 */
2555 function printCurrentUrl($str) {
2556 return '
2557
2558 <!--
2559 Print current URL
2560 -->
2561 <table border="0" cellpadding="0" cellspacing="0" class="bgColor5" id="typo3-curUrl">
2562 <tr>
2563 <td>'.$GLOBALS['LANG']->getLL('currentLink',1).': '.htmlspecialchars(rawurldecode($str)).'</td>
2564 </tr>
2565 </table>';
2566 }
2567
2568 /**
2569 * For RTE/link: Parses the incoming URL and determines if it's a page, file, external or mail address.
2570 *
2571 * @param string HREF value tp analyse
2572 * @param string The URL of the current website (frontend)
2573 * @return array Array with URL information stored in assoc. keys: value, act (page, file, spec, mail), pageid, cElement, info
2574 */
2575 function parseCurUrl($href,$siteUrl) {
2576 $href = trim($href);
2577 if ($href) {
2578 $info=array();
2579
2580 // Default is "url":
2581 $info['value']=$href;
2582 $info['act']='url';
2583
2584 $specialParts = explode('#_SPECIAL',$href);
2585 if (count($specialParts)==2) { // Special kind (Something RTE specific: User configurable links through: "userLinks." from ->thisConfig)
2586 $info['value']='#_SPECIAL'.$specialParts[1];
2587 $info['act']='spec';
2588 } elseif (t3lib_div::isFirstPartOfStr($href,$siteUrl)) { // If URL is on the current frontend website:
2589 $rel = substr($href,strlen($siteUrl));
2590 if (file_exists(PATH_site.rawurldecode($rel))) { // URL is a file, which exists:
2591 $info['value']=rawurldecode($rel);
2592 if (@is_dir(PATH_site . $info['value'])) {
2593 $info['act'] = 'folder';
2594 } else {
2595 $info['act'] = 'file';
2596 }
2597 } else { // URL is a page (id parameter)
2598 $uP=parse_url($rel);
2599 if (!trim($uP['path'])) {
2600 $pp = explode('id=',$uP['query']);
2601 $parameters = explode('&', $pp[1]);
2602 $id = array_shift($parameters);
2603 if ($id) {
2604 // Checking if the id-parameter is an alias.
2605 if (!t3lib_div::testInt($id)) {
2606 list($idPartR) = t3lib_BEfunc::getRecordsByField('pages','alias',$id);
2607 $id=intval($idPartR['uid']);
2608 }
2609
2610 $pageRow = t3lib_BEfunc::getRecordWSOL('pages',$id);
2611 $titleLen=intval($GLOBALS['BE_USER']->uc['titleLen']);
2612 $info['value']=$GLOBALS['LANG']->getLL('page',1)." '".htmlspecialchars(t3lib_div::fixed_lgd_cs($pageRow['title'],$titleLen))."' (ID:".$id.($uP['fragment']?', #'.$uP['fragment']:'').')';
2613 $info['pageid']=$id;
2614 $info['cElement']=$uP['fragment'];
2615 $info['act']='page';
2616 $info['query'] = $parameters[0]?'&'.implode('&', $parameters):'';
2617 }
2618 }
2619 }
2620 } else { // Email link:
2621 if (strtolower(substr($href,0,7))=='mailto:') {
2622 $info['value']=trim(substr($href,7));
2623 $info['act']='mail';
2624 }
2625 }
2626 $info['info'] = $info['value'];
2627 } else { // NO value inputted:
2628 $info=array();
2629 $info['info']=$GLOBALS['LANG']->getLL('none');
2630 $info['value']='';
2631 $info['act']='page';
2632 }
2633
2634 // let the hook have a look
2635 foreach($this->hookObjects as $hookObject) {
2636 $info = $hookObject->parseCurrentUrl($href, $siteUrl, $info);
2637 }
2638
2639 return $info;
2640 }
2641
2642 /**
2643 * For TBE: Makes an upload form for uploading files to the filemount the user is browsing.
2644 * The files are uploaded to the tce_file.php script in the core which will handle the upload.
2645 *
2646 * @param string Absolute filepath on server to which to upload.
2647 * @return string HTML for an upload form.
2648 */
2649 function uploadForm($path) {
2650 global $BACK_PATH;
2651
2652 if ($this->isReadOnlyFolder($path)) return '';
2653
2654 // Read configuration of upload field count
2655 $userSetting = $GLOBALS['BE_USER']->getTSConfigVal('options.folderTree.uploadFieldsInLinkBrowser');
2656 $count = isset($userSetting) ? $userSetting : 3;
2657 if ($count === '0') {
2658 return '';
2659 }
2660 $count = intval($count) == 0 ? 3 : intval($count);
2661
2662 // Create header, showing upload path:
2663 $header = t3lib_div::isFirstPartOfStr($path,PATH_site)?substr($path,strlen(PATH_site)):$path;
2664 $code=$this->barheader($GLOBALS['LANG']->getLL('uploadImage').':');
2665 $code.='
2666
2667 <!--
2668 Form, for uploading files:
2669 -->
2670 <form action="'.$BACK_PATH.'tce_file.php" method="post" name="editform" enctype="'.$GLOBALS['TYPO3_CONF_VARS']['SYS']['form_enctype'].'">
2671 <table border="0" cellpadding="0" cellspacing="3" id="typo3-uplFiles">
2672 <tr>
2673 <td><strong>'.$GLOBALS['LANG']->getLL('path',1).':</strong> '.htmlspecialchars($header).'</td>
2674 </tr>
2675 <tr>
2676 <td>';
2677
2678 // Traverse the number of upload fields (default is 3):
2679 for ($a=1;$a<=$count;$a++) {
2680 $code.='<input type="file" name="upload_'.$a.'"'.$this->doc->formWidth(35).' size="50" />
2681 <input type="hidden" name="file[upload]['.$a.'][target]" value="'.htmlspecialchars($path).'" />
2682 <input type="hidden" name="file[upload]['.$a.'][data]" value="'.$a.'" /><br />';
2683 }
2684
2685 // Make footer of upload form, including the submit button:
2686 $redirectValue = $this->thisScript.'?act='.$this->act.'&mode='.$this->mode.'&expandFolder='.rawurlencode($path).'&bparams='.rawurlencode($this->bparams);
2687 $code.='<input type="hidden" name="redirect" value="'.htmlspecialchars($redirectValue).'" />'.
2688 '<input type="submit" name="submit" value="'.$GLOBALS['LANG']->sL('LLL:EXT:lang/locallang_core.php:file_upload.php.submit',1).'" />';
2689
2690 $code.='
2691 <div id="c-override">
2692 <input type="checkbox" name="overwriteExistingFiles" id="overwriteExistingFiles" value="1" /> <label for="overwriteExistingFiles">'.$GLOBALS['LANG']->sL('LLL:EXT:lang/locallang_misc.xml:overwriteExistingFiles',1).'</label>
2693 </div>
2694 ';
2695
2696
2697 $code.='</td>
2698 </tr>
2699 </table>
2700 </form>';
2701
2702 return $code;
2703 }
2704
2705 /**
2706 * For TBE: Makes a form for creating new folders in the filemount the user is browsing.
2707 * The folder creation request is sent to the tce_file.php script in the core which will handle the creation.
2708 *
2709 * @param string Absolute filepath on server in which to create the new folder.
2710 * @return string HTML for the create folder form.
2711 */
2712 function createFolder($path) {
2713 global $BACK_PATH;
2714
2715 if ($this->isReadOnlyFolder($path)) return '';
2716
2717 // Don't show Folder-create form if it's denied
2718 if ($GLOBALS['BE_USER']->getTSConfigVal('options.folderTree.hideCreateFolder')) {
2719 return '';
2720 }
2721 // Create header, showing upload path:
2722 $header = t3lib_div::isFirstPartOfStr($path,PATH_site)?substr($path,strlen(PATH_site)):$path;
2723 $code=$this->barheader($GLOBALS['LANG']->sL('LLL:EXT:lang/locallang_core.php:file_newfolder.php.pagetitle').':');
2724 $code.='
2725
2726 <!--
2727 Form, for creating new folders:
2728 -->
2729 <form action="'.$BACK_PATH.'tce_file.php" method="post" name="editform2">
2730 <table border="0" cellpadding="0" cellspacing="3" id="typo3-crFolder">
2731 <tr>
2732 <td><strong>'.$GLOBALS['LANG']->getLL('path',1).':</strong> '.htmlspecialchars($header).'</td>
2733 </tr>
2734 <tr>
2735 <td>';
2736
2737 // Create the new-folder name field:
2738 $a=1;
2739 $code.='<input'.$this->doc->formWidth(20).' type="text" name="file[newfolder]['.$a.'][data]" />'.
2740 '<input type="hidden" name="file[newfolder]['.$a.'][target]" value="'.htmlspecialchars($path).'" />';
2741
2742 // Make footer of upload form, including the submit button:
2743 $redirectValue = $this->thisScript.'?act='.$this->act.'&mode='.$this->mode.'&expandFolder='.rawurlencode($path).'&bparams='.rawurlencode($this->bparams);
2744 $code.='<input type="hidden" name="redirect" value="'.htmlspecialchars($redirectValue).'" />'.
2745 '<input type="submit" name="submit" value="'.$GLOBALS['LANG']->sL('LLL:EXT:lang/locallang_core.php:file_newfolder.php.submit',1).'" />';
2746
2747 $code.='</td>
2748 </tr>
2749 </table>
2750 </form>';
2751
2752 return $code;
2753 }
2754
2755 /**
2756 * Get the HTML data required for a bulk selection of files of the TYPO3 Element Browser.
2757 *
2758 * @param integer $filesCount: Number of files currently displayed
2759 * @return string HTML data required for a bulk selection of files - if $filesCount is 0, nothing is returned
2760 */
2761 function getBulkSelector($filesCount) {
2762 if ($filesCount) {
2763 $labelToggleSelection = $GLOBALS['LANG']->sL('LLL:EXT:lang/locallang_browse_links.php:toggleSelection',1);
2764 $labelImportSelection = $GLOBALS['LANG']->sL('LLL:EXT:lang/locallang_browse_links.php:importSelection',1);
2765
2766 $out = $this->doc->spacer(15).'<div>' .
2767 '<a href="#" onclick="BrowseLinks.Selector.toggle()">' .
2768 '<img'.t3lib_iconWorks::skinImg($BACK_PATH,'gfx/clip_select.gif','width="12" height="12"').' title="'.$labelToggleSelection.'" alt="" /> ' .
2769 $labelToggleSelection.'</a>'.$this->doc->spacer(5) .
2770 '<a href="#" onclick="BrowseLinks.Selector.handle()">' .
2771 '<img'.t3lib_iconWorks::skinImg($BACK_PATH,'gfx/import.gif','width="12" height="12"').' title="'.$labelImportSelection.'" alt="" /> ' .
2772 $labelImportSelection.'</a>' .
2773 '</div>'.$this->doc->spacer(15);
2774 }
2775 return $out;
2776 }
2777 }
2778
2779
2780 if (defined('TYPO3_MODE') && $TYPO3_CONF_VARS[TYPO3_MODE]['XCLASS']['typo3/class.browse_links.php']) {
2781 include_once($TYPO3_CONF_VARS[TYPO3_MODE]['XCLASS']['typo3/class.browse_links.php']);
2782 }
2783
2784 ?>