function biblio_rtf_biblio_export in Bibliography Module 6.2

Same name and namespace in other branches

1. 7 modules/rtf/biblio_rtf.module \biblio_rtf_biblio_export()
2. 7.2 modules/rtf/biblio_rtf.module \biblio_rtf_biblio_export()

1 string reference to 'biblio_rtf_biblio_export'

biblio_rtf_menu in modules/rtf/biblio_rtf.module

File

modules/rtf/biblio_rtf.module, line 60

Code

function biblio_rtf_biblio_export($nid = null) {
  if ($nid === null && isset($_SESSION['last_biblio_query']) && !empty($_SESSION['last_biblio_query'])) {
    $query = $_SESSION['last_biblio_query'];
    $params = $_SESSION['last_biblio_query_terms'];
    $result = db_query($query, $params);
    while ($node = db_fetch_object($result)) {
      $nids[] = $node->nid;
    }
  }
  elseif (!empty($nid) && is_numeric($nid)) {
    $nids[] = $nid;
  }
  $count = 0;
  foreach ($nids as $nid) {
    $node = node_load($nid, FALSE, TRUE);
    if (variable_get('biblio_hide_bibtex_braces', 0)) {
      $node->title = biblio_remove_brace($node->title);
    }
    $count++;
    if ($count == 1) {
      $base = variable_get('biblio_base', 'biblio');
      $style = biblio_get_style();
      module_load_include('inc', 'biblio_rtf', "rtf_export");
      $rtf = new rtf();
      $rtf
        ->setPaperSize(5);
      $rtf
        ->setPaperOrientation(1);
      $rtf
        ->setDefaultFontFace(1);
      $rtf
        ->setDefaultFontSize(24);
      $rtf
        ->setAuthor("Biblio");
      $rtf
        ->setOperator("");
      $rtf
        ->setTitle("Biblio RTF Export");
      $rtf
        ->addColour("#000000");
    }
    $rtf
      ->addText(filter_xss(theme('biblio_style', $node, $base, $style) . '<br><br>', array(
      'i',
      'b',
      'br',
      'u',
      'p',
      'strong',
      'em',
      'sub',
      'sup',
      'ul',
      'li',
    )));
  }
  if ($count > 0) {
    $rtf
      ->getDocument();
  }
}