envolution-devel Mailing List for Envolution (Page 26)

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

I've finished up this block -- If anyone's interested, contact eLGie

To see it in action, visit http://www.dimensionquest.net and click on
the Stats link.

-----Original Message-----
From: env...@li...
[mailto:env...@li...] On Behalf Of Arden
Wiebe
Sent: Tuesday, May 20, 2003 12:50 PM
To: env...@li...
Subject: [Envolution-devel] Referrer Block

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);
    }
}

?>

-------------------------------------------------------
This SF.net email is sponsored by: ObjectStore.
If flattening out C++ or Java code to make your application fit in a
relational database is painful, don't do it! Check out ObjectStore.
Now part of Progress Software. http://www.objectstore.net/sourceforge
_______________________________________________
Envolution-devel mailing list
Env...@li...
https://lists.sourceforge.net/lists/listinfo/envolution-devel

2002	Jan	Feb	Mar	Apr	May	Jun	Jul	Aug	Sep	Oct	Nov	Dec (2)
2003	Jan (2)	Feb (48)	Mar (17)	Apr (13)	May (102)	Jun (163)	Jul (203)	Aug (185)	Sep (16)	Oct (4)	Nov	Dec

envolution-devel Mailing List for Envolution (Page 26)

envolution-devel — Envolution Development List