<?php

/**
 * Simple module to automaticaly subscribe new users to a particular newsletter.
 * 
 * Written by Pip and Mike of Computerminds- http://www.computerminds.co.uk 
 * Feb 2007    
 */ 

function simplenews_subscribe_help($section='') {
  $output = '';
  switch ($section) {
    case 'admin/modules#description':
      $output = t('Automatically subscribes users to newsletter at registration.');
      break;
  }
  return $output;
}

function simplenews_subscribe_user($op, &$edit, &$account, $category = NULL){
  if($op=='insert' && $edit['mail']!='' && variable_get('simplenews_subscribe_tid',0) ){
    db_query("INSERT INTO {sn_subscriptions} SET a_status=1, mail='%s', uid='%s'", $edit['mail'], $edit['uid']);
    db_query("INSERT INTO {sn_snid_tid} SET snid=(SELECT a.snid FROM {sn_subscriptions} a WHERE a.uid=%d), tid=%d", $edit['uid'],variable_get('simplenews_subscribe_tid',0));
  }
}

/**
 * Allow the admin to pick which subscription the user is signed up too ...
 */ 
function simplenews_subscribe_settings(){
  $result = db_query("SELECT t.tid, t.name FROM {vocabulary_node_types} vt JOIN {term_data} t ON vt.vid = t.vid WHERE vt.type='simplenews'");

  $options=array();
  while($row=db_fetch_object($result)){
    $options[$row->tid]=$row->name;
  }
  $form['simplenews_subscribe_tid']=array('#type'=>'select','#default_value'=>variable_get('simplenews_subscribe_tid',0),'#options'=>$options,'#title'=>'Newsletter to subscribe users to');
  return $form;
}


?>