[Envolution-devel] Referrer Block

[Arden W. <ar...@li...>]

Today some other hack.  I can't seem to find block that does this so I
try at least.  Yesterday was display image in download on select like
user avatar, no success.  Day before was upload pic on sign up.  If
anyone can help to get this block working it would be appreciated.  I
hope it comes out okay in the mail :)

<?php
/********************************************************/
/* openChat [openChat v1.0]                             */
/* Written by: eLGie                                    */
/* http://www.linuxguru.ca                              */
/*                                                      */
/********************************************************/

$blocks_modules['openReferrer'] = array(
    'func_display' => 'open_referrer_block',
    'text_type' => 'openReferrer',
    'text_type_long' => 'openReferrer [openReferrer 1.0]',
    'allow_multiple' => false,
    'allow_create' => false,
    'allow_delete' => false,
    'form_content' => false,
    'form_refresh' => false,
    'show_preview' => true,
);

// Security
pnSecAddSchema('openReferrer::', 'Block title::');
function open_referrer_block($row) {

    list($dbconn) = pnDBGetConn();
    $pntable = pnDBGetTables();

        if (!pnSecAuthAction(0, 'openReferrer::', "$row[title]::",
ACCESS_READ)) {
            return;
        }

        if (pnUserLoggedIn()) {

          echo "<center><b>"._WHOLINKS."</b></center><br /><br />"
    ."<table border=0 width=100%>
<tr><td>"._FREQUENCY."</td><td>"._URL."</td><td>"._PERCENT."</td></tr>";
    /**
     * fifers: grab the total count of referers for percentage
calculations
     */
    $column = &$pntable['referer_column'];
    $hresult = $dbconn->Execute("SELECT SUM($column[frequency]) FROM
$pntable[referer]");
    list($totalfreq) = $hresult->fields;
    $hresult = $dbconn->Execute("SELECT $column[url], $column[frequency]
FROM $pntable[referer] ORDER BY $column[frequency] DESC");
    //while(list($url, $freq) = $hresult->fields) {

     while (!$hresult->EOF) {
    list($url, $freq) = $hresult->fields;
        //$hresult->MoveNext();
       //while (!$hresult->EOF) {

        //$hresult->MoveNext();
    $content= "<tr>\n"
            ."<td>" . pnVarPrepForDisplay($freq) . "</td>\n"
            ."<td>".(($url == "bookmark")?(""):("<a target=_blank
href=$url>")).pnVarPrepForDisplay($url).(($url ==
"bookmark")?(""):("</a>"))."</td>\n"
            ."<td>".round(($freq / $totalfreq * 100), 2)." %</td>\n"
            ."</tr>\n";
            $hresult->MoveNext();
       //while (!$hresult->EOF) {
     //$hresult->MoveNext();

    echo "</table>"._TOTAL." " . pnVarPrepForDisplay($totalfreq) . " <br
/>";

    $hresult->MoveNext();
     CloseTable();
    }
    echo "</table>"._TOTAL." " . pnVarPrepForDisplay($totalfreq) . " <br
/>";
        if (empty($row['title'])) {
            $row['title'] = _CHAT;
        }

        $row[content] = $content;
        return themesideblock($row);
    }
}

?>