[Phpgroupware-cvs] old/wcm/inc/hook_config.inc.php, 1.1

[nomail]

Update of /old/wcm/inc
Added Files:
        Branch: 
          hook_config.inc.php

date: 2004/12/30 08:13:58;  author: skwashd;  state: Exp;

Log Message:
keep historic record for wcm
=====================================================================
<?php
  /**************************************************************************\
  * phpGroupWare                                                             *
  * http://www.phpgroupware.org                                              *
  * Written by Mark Peters <address@hidden>                        *
  * --------------------------------------------                             *
  *  This program is free software; you can redistribute it and/or modify it *
  *  under the terms of the GNU General Public License as published by the   *
  *  Free Software Foundation; either version 2 of the License, or (at your  *
  *  option) any later version.                                              *
  \**************************************************************************/

  /* $Id: hook_config.inc.php,v 1.1 2004/12/30 08:13:58 skwashd Exp $ */

        function website_account($config)
        {
                $accounts = $GLOBALS['phpgw']->accounts->get_list('accounts');

                while(list(,$value) = @each($accounts))
                {
                        if ($config['website_account'] == $value['account_id'])
                        {
                                $selected = ' selected';
                        }
                        else
                        {
                                $selected = '';
                        }

                        $out .= '<option value="' . $value['account_id'] . '"' 
. $selected . '>' . $value['account_lid'] . '</option>' . "\n";
                }
                return $out;
        }
?>