Issue #1123786: remove print links from RSS feeds.
[project/print.git] / print.module
index 968f108..f95d3c8 100644 (file)
@@ -1,5 +1,30 @@
 <?php
-// $Id$
+
+/**
+ * @defgroup print Printer, e-mail and PDF versions
+ *
+ * Welcome to the print module developer's documentation. The interesting
+ * functions for themers are those that start with 'theme_'.
+ *
+ * - Printer-friendly pages
+ *   - @link print.module Module main file @endlink
+ *   - @link print.admin.inc Settings form @endlink
+ *   - @link print.pages.inc HTML generation @endlink
+ *   - @link print.install (Un)Install routines @endlink
+ *   - @link print.tpl.php Page generation template @endlink
+ * - Send by e-mail
+ *   - @link print_mail.module Module main file @endlink
+ *   - @link print_mail.admin.inc Settings form @endlink
+ *   - @link print_mail.inc Mail form and send mail routine @endlink
+ *   - @link print_mail.install (Un)Install routines @endlink
+ * - PDF version
+ *   - @link print_pdf.module Module main file @endlink
+ *   - @link print_pdf.admin.inc Settings form @endlink
+ *   - @link print_pdf.pages.inc PDF generation @endlink
+ *   - @link print_pdf.class.inc Auxiliary PHP5 class @endlink
+ *   - @link print_pdf.class_php4.inc Auxiliary PHP4 class @endlink
+ *   - @link print_pdf.install (Un)Install routines @endlink
+ */
 
 /**
  * @file
  *
  * This is the core module of the PF package, with the Drupal hooks
  * and other administrative functions.
+ *
+ * @ingroup print
  */
 
 define('PRINT_PATH', 'print');
 
+define('PRINT_HTML_FORMAT', 'html');
+define('PRINT_MAIL_FORMAT', 'mail');
+define('PRINT_PDF_FORMAT', 'pdf');
 define('PRINT_LOGO_OPTIONS_DEFAULT', 1);
 define('PRINT_LOGO_URL_DEFAULT', '');
+define('PRINT_FOOTER_OPTIONS_DEFAULT', 1);
+define('PRINT_FOOTER_USER_DEFAULT', '');
 define('PRINT_CSS_DEFAULT', '');
 define('PRINT_URLS_DEFAULT', 1);
+define('PRINT_URLS_ANCHORS_DEFAULT', 0);
 define('PRINT_COMMENTS_DEFAULT', 0);
 define('PRINT_NEWWINDOW_DEFAULT', 1);
 
 define('PRINT_HTML_LINK_POS_DEFAULT', 'link');
+define('PRINT_HTML_LINK_TEASER_DEFAULT', 0);
 define('PRINT_HTML_SHOW_LINK_DEFAULT', 1);
 define('PRINT_HTML_NODE_LINK_VISIBILITY_DEFAULT', 0);
 define('PRINT_HTML_NODE_LINK_PAGES_DEFAULT', '');
 define('PRINT_HTML_LINK_CLASS_DEFAULT', 'print-page');
 define('PRINT_HTML_SYS_LINK_VISIBILITY_DEFAULT', 1);
-define('PRINT_HTML_SYS_LINK_PAGES_DEFAULT', '<front>');
+define('PRINT_HTML_SYS_LINK_PAGES_DEFAULT', '');
+define('PRINT_HTML_LINK_USE_ALIAS_DEFAULT', 0);
 define('PRINT_HTML_BOOK_LINK_DEFAULT', 1);
 define('PRINT_HTML_NEW_WINDOW_DEFAULT', 0);
 define('PRINT_HTML_SENDTOPRINTER_DEFAULT', 0);
+define('PRINT_HTML_WINDOWCLOSE_DEFAULT', 1);
 
 define('PRINT_SOURCEURL_ENABLED_DEFAULT', 1);
 define('PRINT_SOURCEURL_DATE_DEFAULT', 0);
@@ -39,33 +75,90 @@ define('PRINT_ROBOTS_NOARCHIVE_DEFAULT', 0);
 
 define('PRINT_TYPE_SHOW_LINK_DEFAULT', 1);
 define('PRINT_TYPE_COMMENT_LINK_DEFAULT', 0);
+define('PRINT_TYPE_URLLIST_DEFAULT', 1);
 
 define('PRINT_ALLOW_NORMAL_LINK', 1);
 define('PRINT_ALLOW_BOOK_LINK', 2);
+define('PRINT_TYPE_FIELDS_WEIGHT', 30);
 
 /**
- * Implementation of hook_perm().
+ * Implements hook_permission().
  */
-function print_perm() {
-  return array('access print', 'administer print');
+function print_permission() {
+  return array(
+    'administer print' => array(
+      'title' => t('Administer the module'),
+      'description' => t('Perform maintenance tasks for the print module.'),
+    ),
+    'node-specific print configuration' => array(
+      'title' => t('Node-specific configuration'),
+      'description' => t('Enable access to the per-node settings.'),
+    ),
+    'access print' => array(
+      'title' => t('Access the printer-friendly page'),
+      'description' => t('View the printer-friendly pages and the links to them in the original pages.'),
+    ),
+  );
 }
 
 /**
- * Implementation of hook_theme().
+ * Implements hook_theme().
  */
 function print_theme() {
   return array(
     'print_format_link' => array(
-      'arguments' => array(),
+      'variables' => array(),
+    ),
+    'print_node' => array(
+      'variables' => array('node' => NULL, 'teaser' => FALSE, 'page' => FALSE, 'type' => PRINT_HTML_FORMAT),
+      'render element' => 'elements',
+      'template' => 'print_node',
     ),
-    'print_text' => array(
-      'arguments' => array(),
+    'print' => array(
+      'variables' => array('print' => array(), 'type' => PRINT_HTML_FORMAT, 'node' => NULL),
+      'render element' => 'page',
+      'template' => 'print',
     ),
   );
 }
 
 /**
- * Implementation of hook_menu().
+ * Implements hook_preprocess_HOOK().
+ */
+function print_preprocess_print_node(&$variables) {
+  $variables['node'] = $variables['elements']['#node'];
+  $type = $variables['node']->type;
+//  $format = $variables['type'];
+  template_preprocess_node($variables);
+  $variables['theme_hook_suggestions'][] = "node";
+  $variables['theme_hook_suggestions'][] = "node__{$type}";
+  $variables['theme_hook_suggestions'][] = "print_node";
+//  $variables['theme_hook_suggestions'][] = "print_node_{$format}";
+//  $variables['theme_hook_suggestions'][] = "print_node_{$format}.node__{$type}";
+}
+
+/**
+ * Implements hook_preprocess_HOOK().
+ */
+function print_preprocess_print(&$variables) {
+  $format = $variables['type'];
+  if (isset($variables['node']->type)) {
+    $type = $variables['node']->type;
+    $variables['show_blocks'] = FALSE;
+    $variables['page']['#show_messages'] = FALSE;
+    template_preprocess_page($variables);
+  }
+  else {
+    $type = '';
+  }
+  $variables['theme_hook_suggestions'][] = "print";
+  $variables['theme_hook_suggestions'][] = "print__node__{$type}";
+  $variables['theme_hook_suggestions'][] = "print__{$format}";
+  $variables['theme_hook_suggestions'][] = "print__{$format}__node__{$type}";
+}
+
+/**
+ * Implements hook_menu().
  */
 function print_menu() {
   $items = array();
@@ -77,20 +170,37 @@ function print_menu() {
     'type' => MENU_CALLBACK,
     'file' => 'print.pages.inc',
   );
-  $items['admin/settings/print'] = array(
-    'title' => 'Printer-friendly pages',
+  $items[PRINT_PATH . '/' . PRINT_PATH] = array(
+    'access callback' => FALSE,
+  );
+  $items['admin/config/user-interface/print'] = array(
+    'title' => 'Printer, e-mail and PDF versions',
     'description' => 'Adds a printer-friendly version link to content and administrative pages.',
     'page callback' => 'drupal_get_form',
     'page arguments' => array('print_html_settings'),
     'access arguments'  => array('administer print'),
     'file' => 'print.admin.inc',
   );
-  $items['admin/settings/print/html'] = array(
+  $items['admin/config/user-interface/print/html'] = array(
     'title' => 'Web page',
     'weight' => 1,
     'type' => MENU_DEFAULT_LOCAL_TASK,
   );
-  $items['admin/settings/print/common'] = array(
+  $items['admin/config/user-interface/print/html/options'] = array(
+    'title' => 'Options',
+    'weight' => 1,
+    'type' => MENU_DEFAULT_LOCAL_TASK,
+  );
+  $items['admin/config/user-interface/print/html/strings'] = array(
+    'title' => 'Text strings',
+    'page callback' => 'drupal_get_form',
+    'page arguments' => array('print_html_strings_settings'),
+    'access arguments'  => array('administer print'),
+    'weight' => 2,
+    'type' => MENU_LOCAL_TASK,
+    'file' => 'print.admin.inc',
+  );
+  $items['admin/config/user-interface/print/common'] = array(
     'title' => 'Settings',
     'page callback' => 'drupal_get_form',
     'page arguments' => array('print_main_settings'),
@@ -99,137 +209,380 @@ function print_menu() {
     'type' => MENU_LOCAL_TASK,
     'file' => 'print.admin.inc',
   );
+  $items['admin/config/user-interface/print/common/options'] = array(
+    'title' => 'Options',
+    'weight' => 1,
+    'type' => MENU_DEFAULT_LOCAL_TASK,
+  );
+  $items['admin/config/user-interface/print/common/strings'] = array(
+    'title' => 'Text strings',
+    'page callback' => 'drupal_get_form',
+    'page arguments' => array('print_main_strings_settings'),
+    'access arguments'  => array('administer print'),
+    'weight' => 2,
+    'type' => MENU_LOCAL_TASK,
+    'file' => 'print.admin.inc',
+  );
 
   return $items;
 }
 
 /**
- * Implementation of hook_link().
+ * Implements hook_block_info().
  */
-function print_link($type, $node = NULL, $teaser = FALSE) {
-  $print_html_link_pos = variable_get('print_html_link_pos', array(PRINT_HTML_LINK_POS_DEFAULT => PRINT_HTML_LINK_POS_DEFAULT));
-  $allowed_type = print_link_allowed(array('type' => $type, 'node' => $node, 'teaser' => $teaser));
-  if (($allowed_type === PRINT_ALLOW_NORMAL_LINK) && !empty($print_html_link_pos['link'])) {
-    drupal_add_css(drupal_get_path('module', 'print') .'/css/printlinks.css');
-    $links = array();
-    $format = theme('print_format_link');
-
-    $query_arr = $_GET;
-    if ($type == 'comment') {
-      $query_arr['comment'] = $node->cid;
-    }
-    $query = print_query_string_encode($query_arr, array('q'));
-    if (empty($query)) $query = NULL;
-
-    $links['print'] = array('href' => PRINT_PATH .'/'. $node->nid,
-                            'title' => $format['text'],
-                            'attributes' => $format['attributes'],
-                            'html' => $format['html'],
-                            'query' => $query,
-                      );
+function print_block_info() {
+      $block['print-links']['info'] = t('Printer, e-mail and PDF versions');
+      $block['print-links']['cache'] = DRUPAL_CACHE_PER_PAGE;
+      $block['print-top']['info'] = t('Most printed');
+      $block['print-top']['cache'] = DRUPAL_CACHE_GLOBAL;
+      return $block;
+}
 
-    return $links;
-  }
-  else {
-    return;
-  }
+/**
+ * Implements hook_block_view().
+ */
+function print_block_view($delta = '') {
+      switch ($delta) {
+      case 'print-links':
+      $nid = preg_replace('!^node/!', '', $_GET['q']);
+      if (ctype_digit($nid)) {
+        $node = node_load($nid);
+      }
+      else {
+        $node = NULL;
+      }
+      $funcs = get_defined_functions();
+      $block['content'] = '';
+      foreach ($funcs['user'] as $func) {
+        if (preg_match('!^print.*?_insert_link$!', $func)) {
+          $link = $func(NULL, $node);
+          if (!empty($link)) {
+            $block['content'] .= $link;
+          }
+        }
+      }
+        break;
+      case 'print-top':
+        $block['subject'] = t('Most printed');
+        $result = db_query_range("SELECT path FROM {print_page_counter} ORDER BY totalcount DESC", 0, 3)
+                    ->fetchAll();
+        if (count($result)) {
+          $block['content'] = '<div class="item-list"><ul>';
+          foreach ($result as $obj) {
+            $block['content'] .= '<li>' . l(_print_get_title($obj->path), $obj->path) . '</li>';
+          }
+          $block['content'] .= '</ul></div>';
+        }
+        break;
+      }
+      return $block;
 }
 
 /**
- * Implementation of hook_link_alter().
+ * Implements hook_link_alter().
  */
-function print_link_alter(&$links, $node) {
+function print_link_alter(array &$links, $node) {
   foreach ($links as $module => $link) {
     if (strpos($module, 'book_printer') !== FALSE) {
       $print_html_book_link = variable_get('print_html_book_link', PRINT_HTML_BOOK_LINK_DEFAULT);
 
       if ($print_html_book_link) {
+        $print_html_link_pos = variable_get('print_html_link_pos', array(PRINT_HTML_LINK_POS_DEFAULT => PRINT_HTML_LINK_POS_DEFAULT));
+
+        if (!empty($print_html_link_pos['link'])) {
         $format = theme('print_format_link');
-        $format['attributes']['title'] = $link['attributes']['title'];
 
-        $links[$module]['href'] = PRINT_PATH .'/'. $link['href'];
-        $links[$module]['attributes'] = $format['attributes'];
+        switch ($print_html_book_link) {
+          case 1:
+            $path = $link['href'];
+            break;
+          case 2:
+            $print_html_link_use_alias = variable_get('print_html_link_use_alias', PRINT_HTML_LINK_USE_ALIAS_DEFAULT);
+            $path = ($print_html_link_use_alias && isset($node->path)) ? $node->path : $node->nid;
+            break;
+        }
+
+        $links[$module] = array(
+          'href' => PRINT_PATH . '/' . $path,
+          'title' => $format['text'],
+          'attributes' => $format['attributes'],
+          'html' => $format['html'],
+        );
+        }
+        else {
+          unset($links[$module]);
+        }
       }
     }
   }
 }
 
 /**
- * Implementation of hook_help().
+ * Implements hook_help().
  */
 function print_help($path, $arg) {
   switch ($path) {
     case 'admin/help#print':
       // Return a line-break version of the module README
-      return filter_filter('process', 1, NULL, file_get_contents(drupal_get_path('module', 'print') .'/README.txt') );
+      return _filter_autop(file_get_contents(drupal_get_path('module', 'print') . '/README.txt'));
   }
 
   $print_html_link_pos = variable_get('print_html_link_pos', array(PRINT_HTML_LINK_POS_DEFAULT => PRINT_HTML_LINK_POS_DEFAULT));
-  if (print_link_allowed(array('path' => $path)) && (preg_match('!^node/!i', $path) == 0) &&
-      !(empty($print_html_link_pos['link']) && empty($print_html_link_pos['corner']))) {
+  if (($path !== 'node/%') && !(empty($print_html_link_pos['link']) && empty($print_html_link_pos['corner']))) {
     static $output = FALSE;
 
     if ($output === FALSE) {
-      drupal_add_css(drupal_get_path('module', 'print') .'/css/printlinks.css');
       $output = TRUE;
 
-      return '<span class="print-syslink">'. print_insert_link() .'</span>';
+      $link = print_insert_link();
+      if ($link) {
+        return "<span class='print-syslink'>$link</span>";
+      }
     }
   }
 }
 
 /**
- * Implementation of hook_nodeapi().
+ * Implements hook_node_view().
  */
-function print_nodeapi(&$node, $op = 'view', $teaser, $page) {
-  switch ($op) {
-    case 'view':
-      $print_html_link_pos = variable_get('print_html_link_pos', array(PRINT_HTML_LINK_POS_DEFAULT => PRINT_HTML_LINK_POS_DEFAULT));
-      $allowed_type = print_link_allowed(array('node' => $node, 'teaser' => $teaser));
-      if (($allowed_type != FALSE) && !empty($print_html_link_pos['corner']) &&
-          (preg_match('!^print!i', $_GET['q']) == 0)) {
-        drupal_add_css(drupal_get_path('module', 'print') .'/css/printlinks.css');
-        if ($allowed_type === PRINT_ALLOW_BOOK_LINK) {
-          $path = PRINT_PATH .'/book/export/html/'. $node->nid;
-        }
-        $link = print_insert_link($path);
-        $node->content['print_link'] = array(
-          '#value' => "<span class='print-link'>$link</span>",
-          '#weight' => -1,
-        );
+function print_node_view($node, $view_mode) {
+  $print_html_link_pos = variable_get('print_html_link_pos', array(PRINT_HTML_LINK_POS_DEFAULT => PRINT_HTML_LINK_POS_DEFAULT));
+  $print_html_link_use_alias = variable_get('print_html_link_use_alias', PRINT_HTML_LINK_USE_ALIAS_DEFAULT);
+  $allowed_type = print_link_allowed(array('type' => 'node', 'node' => $node, 'view_mode' => $view_mode));
+  if (($allowed_type === PRINT_ALLOW_NORMAL_LINK) && !isset($node->book) && !empty($print_html_link_pos['link'])) {
+    drupal_add_css(drupal_get_path('module', 'print') . '/css/printlinks.css');
+    $links = array();
+    $format = theme('print_format_link');
+
+    $query_arr = $_GET;
+    if ('node' == 'comment') {
+      $query_arr['comment'] = $node->cid;
+    }
+    $query = print_query_string_encode($query_arr, array('q'));
+    if (empty($query)) $query = NULL;
+
+    if ($print_html_link_use_alias) {
+      $path = drupal_get_path_alias('node/' . $node->nid);
+    }
+    else {
+      $path = $node->nid;
+    }
+
+    $links['print_html'] = array(
+      'href' => PRINT_PATH . '/' . $path,
+      'title' => $format['text'],
+      'attributes' => $format['attributes'],
+      'html' => $format['html'],
+      'query' => $query,
+    );
+
+    $node->content['links']['print_html'] = array(
+      '#theme' => 'links',
+      '#links' => $links,
+      '#attributes' => array('class' => array('links', 'inline')),
+    );
+  }
+
+  if ($view_mode == 'full') {
+      // Insert content corner links
+      $node->content['print_links'] = array(
+        '#prefix' => '<span class="print-link">',
+        '#markup' => '',
+        '#suffix' => '</span>',
+        '#weight' => -101,
+      );
+      if (!empty($print_html_link_pos['corner'])) {
+        $node->content['print_links']['#markup'] .= print_insert_link(NULL, $node);
       }
   }
 }
 
 /**
- * Implementation of hook_form_alter().
+ * Implements hook_node_load().
+ */
+function print_node_load($nodes, $types) {
+  foreach ($nodes as $node) {
+    _print_set_node_fields($node);
+  }
+}
+
+/**
+ * Implements hook_node_insert().
  */
-function print_form_alter(&$form, $form_state, $form_id) {
+function print_node_insert($node) {
+  if (user_access('administer print') || user_access('node-specific print configuration')) {
+    if ($node->print_display === NULL) $node->print_display = variable_get('print_display_' . $node->type, PRINT_TYPE_SHOW_LINK_DEFAULT);
+    if ($node->print_display_comment === NULL) $node->print_display_comment = variable_get('print_display_comment_' . $node->type, PRINT_TYPE_COMMENT_LINK_DEFAULT);
+    if ($node->print_display_urllist === NULL) $node->print_display_urllist = variable_get('print_display_urllist_' . $node->type, PRINT_TYPE_URLLIST_DEFAULT);
+
+    _print_node_conf_modify($node->nid, $node->print_display, $node->print_display_comment, $node->print_display_urllist);
+  }
+}
+
+/**
+ * Implements hook_node_update().
+ */
+function print_node_update($node) {
+  if (user_access('administer print') || user_access('node-specific print configuration')) {
+    if ($node->print_display === NULL) $node->print_display = variable_get('print_display_' . $node->type, PRINT_TYPE_SHOW_LINK_DEFAULT);
+    if ($node->print_display_comment === NULL) $node->print_display_comment = variable_get('print_display_comment_' . $node->type, PRINT_TYPE_COMMENT_LINK_DEFAULT);
+    if ($node->print_display_urllist === NULL) $node->print_display_urllist = variable_get('print_display_urllist_' . $node->type, PRINT_TYPE_URLLIST_DEFAULT);
+
+    _print_node_conf_modify($node->nid, $node->print_display, $node->print_display_comment, $node->print_display_urllist);
+  }
+}
+
+/**
+ * Implements hook_node_delete().
+ */
+function print_node_delete($node) {
+  db_delete('print_node_conf')
+    ->condition('nid', $node->nid)
+    ->execute();
+  db_delete('print_page_counter')
+    ->condition('path', 'node/' . $node->nid)
+    ->execute();
+}
+
+/**
+ * Implements hook_form_alter().
+ */
+function print_form_alter(&$form, &$form_state, $form_id) {
   // Add the node-type settings option to activate the printer-friendly version link
-  if ($form_id == 'node_type_form') {
+  if ((user_access('administer print') || user_access('node-specific print configuration')) &&
+      (($form_id == 'node_type_form') || !empty($form['#node_edit_form']))) {
     $form['print'] = array(
       '#type' => 'fieldset',
       '#title' => t('Printer, e-mail and PDF versions'),
       '#collapsible' => TRUE,
       '#collapsed' => TRUE,
+      '#weight' => (function_exists('cck_extra_field_weight') && isset($form['type'])) ? cck_extra_field_weight($form['type']['#value'], 'print') : PRINT_TYPE_FIELDS_WEIGHT,
+      '#group' => 'additional_settings',
+    );
+
+    $form['print']['label'] = array(
+      '#type' => 'markup',
+      '#markup' => '<p><strong>' . t('Printer-friendly version') . '</strong></p>',
     );
 
     $form['print']['print_display'] = array(
       '#type' => 'checkbox',
-      '#title' => t('Show printer-friendly version link'),
-      '#default_value' => variable_get('print_display_'. $form['#node_type']->type, PRINT_TYPE_SHOW_LINK_DEFAULT),
-      '#description' => t('Displays the link to a printer-friendly version of the content. Further configuration is available on the !settings.', array('!settings' => l(t('settings page'), 'admin/settings/print' ))),
+      '#title' => t('Show link'),
     );
     $form['print']['print_display_comment'] = array(
       '#type' => 'checkbox',
-      '#title' => t('Show printer-friendly version link in individual comments'),
-      '#default_value' => variable_get('print_display_comment_'. $form['#node_type']->type, PRINT_TYPE_COMMENT_LINK_DEFAULT),
-      '#description' => t('Displays the link to a printer-friendly version of the comment. Further configuration is available on the !settings.', array('!settings' => l(t('settings page'), 'admin/settings/print' ))),
+      '#title' => t('Show link in individual comments'),
     );
+    $form['print']['print_display_urllist'] = array(
+      '#type' => 'checkbox',
+      '#title' => t('Show Printer-friendly URLs list'),
+    );
+
+    if ($form_id == 'node_type_form') {
+      $form['print']['print_display']['#default_value'] = variable_get('print_display_' . $form['#node_type']->type, PRINT_TYPE_SHOW_LINK_DEFAULT);
+      $form['print']['print_display_comment']['#default_value'] = variable_get('print_display_comment_' . $form['#node_type']->type, PRINT_TYPE_COMMENT_LINK_DEFAULT);
+      $form['print']['print_display_urllist']['#default_value'] = variable_get('print_display_urllist_' . $form['#node_type']->type, PRINT_TYPE_URLLIST_DEFAULT);
+    }
+    else {
+      $node = $form['#node'];
+      $form['print']['print_display']['#default_value'] = isset($node->print_display) ? $node->print_display : variable_get('print_display_' . $node->type, PRINT_TYPE_SHOW_LINK_DEFAULT);
+      $form['print']['print_display_comment']['#default_value'] = isset($node->print_display_comment) ? $node->print_display_comment : variable_get('print_display_comment_' . $node->type, PRINT_TYPE_COMMENT_LINK_DEFAULT);
+      $form['print']['print_display_urllist']['#default_value'] = isset($node->print_display_urllist) ? $node->print_display_urllist : variable_get('print_display_urllist_' . $node->type, PRINT_TYPE_URLLIST_DEFAULT);
+    }
   }
 }
 
 /**
+ * Implements hook_cck_extra_fields().
+ */
+function print_cck_extra_fields($type_name) {
+  $fields['print'] = array(
+    'label' => t('Printer, e-mail and PDF versions'),
+    'description' => t('Print module form.'),
+    'weight' => PRINT_TYPE_FIELDS_WEIGHT,
+  );
+  return $fields;
+}
+
+/**
+ * Implements hook_entity_info_alter().
+ */
+function print_entity_info_alter(&$info) {
+  // Add the 'Print' view mode for nodes.
+  $info['node']['view modes'] += array(
+    'print' => array(
+      'label' => t('Print'),
+      'custom settings' => FALSE,
+    ),
+  );
+}
+
+/**
+ * Auxiliary function to assign the per-node settings to the node object fields
+ *
+ * @param $node
+ *   node to be modified
+ */
+function _print_set_node_fields(&$node) {
+  if (isset($node->nid)) {
+    $res = db_query("SELECT link, comments, url_list FROM {print_node_conf} WHERE nid = :nid", array(':nid' => $node->nid))
+              ->fetch();
+  }
+  else {
+    $res = FALSE;
+  }
+  $node->print_display = $res ? intval($res->link) : variable_get('print_display_' . $node->type, PRINT_TYPE_SHOW_LINK_DEFAULT);
+  $node->print_display_comment = $res ? intval($res->comments) : variable_get('print_display_comment_' . $node->type, PRINT_TYPE_COMMENT_LINK_DEFAULT);
+  $node->print_display_urllist = $res ? intval($res->url_list) : variable_get('print_display_urllist_' . $node->type, PRINT_TYPE_URLLIST_DEFAULT);
+}
+
+/**
+ * Auxiliary function to discover a given page's title
+ *
+ * @param $path
+ *   path of the page being identified
+ * @return
+ *   string with the page's title
+ */
+function _print_get_title($path) {
+  $path = drupal_get_normal_path($path);
+  $nid = preg_replace('!^node/!', '', $path);
+  if (ctype_digit($nid)) {
+    $res = db_query("SELECT title FROM {node} WHERE nid = :nid", array(':nid' => $nid))
+              ->fetchField();
+  }
+  else {
+    $res = db_query("SELECT link_title FROM {menu_links} WHERE link_path = :link_path", array(':link_path' => $path))
+              ->fetchField();
+  }
+  return $res;
+}
+
+/**
+ * Update the print_node_conf table to reflect the given attributes
+ * If updating to the default values, delete the record.
+ *
+ * @param $nid
+ *   value of the nid field (primary key)
+ * @param $link
+ *   value of the link field (0 or 1)
+ * @param $comments
+ *   value of the comments field (0 or 1)
+ * @param $url_list
+ *   value of the url_list field (0 or 1)
+ */
+function _print_node_conf_modify($nid, $link, $comments, $url_list) {
+    db_merge('print_node_conf')
+      ->key(array('nid' => $nid))
+      ->fields(array(
+        'link' => $link,
+        'comments' => $comments,
+        'url_list' => $url_list,
+      ))
+      ->execute();
+}
+
+/**
  * Auxiliary function to fill the Printer-friendly link attributes
  *
  * @param $title
@@ -248,7 +601,7 @@ function print_fill_attributes($title = '', $class = '', $new_window = FALSE) {
   $attributes = array();
   $attributes['title'] = $title;
   if (!empty($class)) {
-    $attributes['class'] = $class;
+    $attributes['class'] = array($class);
   }
 
   if ($new_window) {
@@ -285,10 +638,10 @@ function _print_format_link_aux($type = 0, $text = '', $img = '') {
     $html = TRUE;
     switch ($type) {
     case 2:
-      $text = theme('image', $img, $text, '', array('class' => 'print-icon'));
+      $text = theme('image', array('path' => $img, 'alt' => $text, 'title' => $text, 'attributes' => array('class' => array('print-icon'))));
       break;
     case 3:
-      $text = theme('image', $img, $text, '', array('class' => 'print-icon print-icon-margin')) . $text;
+      $text = theme('image', array('path' => $img, 'alt' => $text, 'title' => $text, 'attributes' => array('class' => array('print-icon', 'print-icon-margin')))) . $text;
       break;
     }
   }
@@ -312,13 +665,13 @@ function theme_print_format_link() {
   $print_html_link_class = variable_get('print_html_link_class', PRINT_HTML_LINK_CLASS_DEFAULT);
   $print_html_new_window = variable_get('print_html_new_window', PRINT_HTML_NEW_WINDOW_DEFAULT);
   $print_html_show_link = variable_get('print_html_show_link', PRINT_HTML_SHOW_LINK_DEFAULT);
+  $print_html_link_text = filter_xss(variable_get('print_html_link_text', t('Printer-friendly version')));
 
-  $text = t('Printer-friendly version');
-  $img = drupal_get_path('module', 'print') .'/icons/print_icon.gif';
+  $img = drupal_get_path('module', 'print') . '/icons/print_icon.gif';
   $title = t('Display a printer-friendly version of this page.');
   $class = strip_tags($print_html_link_class);
   $new_window = $print_html_new_window;
-  $format = _print_format_link_aux($print_html_show_link, $text, $img);
+  $format = _print_format_link_aux($print_html_show_link, $print_html_link_text, $img);
 
   return array('text' => $format['text'],
                'html' => $format['html'],
@@ -327,23 +680,6 @@ function theme_print_format_link() {
 }
 
 /**
- * Define the strings displayed by the module in the printer-friendly template
- *
- * @return
- *   array with the used text strings
- * @ingroup themeable
- */
-function theme_print_text() {
-  return array('retrieved' => '',
-               'sourceURL' => '',
-               'published' => '',
-               'by' => '',
-               'created' => '',
-               'links' => '',
-              );
-}
-
-/**
  * Auxiliary function to display a formatted Printer-friendly link
  *
  * Function made available so that developers may call this function from
@@ -352,25 +688,62 @@ function theme_print_text() {
  * @param $path
  *   path of the original page (optional). If not specified, the current URL
  *   is used
+ * @param $node
+ *   an optional node object, to be used in defining the path, if used, the
+ *   path argument is irrelevant
  * @return
  *   string with the HTML link to the printer-friendly page
  */
-function print_insert_link($path = NULL) {
-  if (user_access('access print')) {
+function print_insert_link($path = NULL, $node = NULL) {
+  if ($node !== NULL) {
+    $nid = $node->nid;
+    $path = 'node/' . $nid;
+    $allowed_type = print_link_allowed(array('node' => $node));
+  }
+  else {
     if ($path === NULL) {
-      $path = PRINT_PATH .'/'. preg_replace('!^node/!', '', $_GET['q']);
+      $nid = preg_replace('!^node/!', '', $_GET['q']);
+      $path = $_GET['q'];
+    }
+    else {
+      $nid = NULL;
+    }
+    $allowed_type = print_link_allowed(array('path' => $path));
+  }
+
+  if ($allowed_type) {
+    if ($nid !== NULL) {
+      if ($allowed_type === PRINT_ALLOW_BOOK_LINK) {
+        $path = 'book/export/html/' . $nid;
+      }
+      else {
+        if (variable_get('print_html_link_use_alias', PRINT_HTML_LINK_USE_ALIAS_DEFAULT)) {
+          $path = drupal_get_path_alias($path);
+        }
+        else {
+          $path = $nid;
+        }
+      }
+      $path = PRINT_PATH . '/' . $path;
       $query = print_query_string_encode($_GET, array('q'));
       if (empty($query)) {
         $query = NULL;
       }
     }
+    else {
+      $query = NULL;
+    }
+    drupal_add_css(drupal_get_path('module', 'print') . '/css/printlinks.css');
     $format = theme('print_format_link');
-    return '<span class="print">'. l($format['text'], $path, array('attributes' => $format['attributes'], 'query' => $query, 'absolute' => TRUE, 'html' => $format['html'])) .'</span>';
+    return '<span class="print_html">' . l($format['text'], $path, array('attributes' => $format['attributes'], 'query' => $query, 'absolute' => TRUE, 'html' => $format['html'])) . '</span>';
+  }
+  else {
+    return FALSE;
   }
 }
 
 /**
- * Determine if the current page is enabled according to the visibility settings
+ * Determine if the provided page is enabled according to the visibility settings
  *
  * @param $visibility
  *   current visibility settings:
@@ -381,12 +754,20 @@ function print_insert_link($path = NULL) {
  * @return
  *   TRUE if it is enabled, FALSE otherwise
  */
-function _print_page_match($visibility, $pages) {
+function _print_page_match($visibility, $path, $pages) {
   if ($pages) {
-    $path = drupal_get_path_alias($_GET['q']);
+    if ($visibility == 2) {
+      if (module_exists('php')) {
+        return php_eval($pages);
+      }
+      else {
+        return FALSE;
+      }
+    }
+    $alias = drupal_get_path_alias($path);
     $page_match = drupal_match_path($path, $pages);
-    if ($path != $_GET['q']) {
-      $page_match = $page_match || drupal_match_path($_GET['q'], $pages);
+    if ($alias != $path) {
+      $page_match = $page_match || drupal_match_path($alias, $pages);
     }
 
     return !($visibility xor $page_match);
@@ -408,47 +789,63 @@ function _print_page_match($visibility, $pages) {
  *   PRINT_ALLOW_BOOK_LINK if a link is allowed in a book node
  */
 function print_link_allowed($args) {
-  if (!empty($args['teaser']) || !user_access('access print')) {
-    // If showing only the teaser or the user is not allowed or link is disabled
+  $view_mode = isset($args['view_mode']) ? $args['view_mode'] : '';
+  if ((($view_mode == 'teaser') && !variable_get('print_html_link_teaser', PRINT_HTML_LINK_TEASER_DEFAULT))
+      || !in_array($view_mode, array('full', 'teaser')) || !user_access('access print')) {
+    // If the teaser link is disabled or the user is not allowed
     return FALSE;
   }
+  if (!empty($args['path'])) {
+    $nid = preg_replace('!^node/!', '', drupal_get_normal_path($args['path']));
+    if (ctype_digit($nid)) {
+      $args['node'] = node_load($nid);
+    }
+  }
   if (!empty($args['node'])) {
-    static $node_type = FALSE;
-    if (($node_type === FALSE) && isset($node->type)) {
+    static $node_type = '';
+
+    $node = $args['node'];
+    if (isset($node->type)) {
       $node_type = $node->type;
     }
-    else {
-      $node_type = '';
-    }
     // Node
     $print_html_node_link_visibility = variable_get('print_html_node_link_visibility', PRINT_HTML_NODE_LINK_VISIBILITY_DEFAULT);
     $print_html_node_link_pages = variable_get('print_html_node_link_pages', PRINT_HTML_NODE_LINK_PAGES_DEFAULT);
 
-    if (!empty($node->printing) ||
-        !_print_page_match($print_html_node_link_visibility, $print_html_node_link_pages)) {
-      // Page not in visibility list or we are working!
+    if (!_print_page_match($print_html_node_link_visibility, "node/" . $node->nid, $print_html_node_link_pages)) {
+      // Page not in visibility list
       return FALSE;
     }
     elseif (isset($args['type']) && ($args['type'] == 'comment') && isset($node_type)) {
       // Link is for a comment, return the configured setting
-      return variable_get('print_display_comment_'. $node_type, PRINT_TYPE_COMMENT_LINK_DEFAULT);
+      // Cache this statically to avoid duplicate queries for every comment.
+      static $res = array();
+      if (!isset($res[$node->nid])) {
+        $res[$node->nid] = db_query("SELECT comments FROM {print_node_conf} WHERE nid = :nid", array(':nid' => $node->nid))
+                                    ->fetch();
+      }
+      $print_display_comment = $res ? intval($res[$node->nid]->comments) : variable_get('print_display_comment_' . $node_type, PRINT_TYPE_COMMENT_LINK_DEFAULT);
+      if ($print_display_comment) {
+        return PRINT_ALLOW_NORMAL_LINK;
+      }
     }
     else {
       // Node link
-      if (isset($node_type) &&
-          !variable_get('print_display_'. $node_type, PRINT_TYPE_SHOW_LINK_DEFAULT)) {
-        // Link for this node type is disabled
+      if (!$node->print_display) {
+        // Link for this node is disabled
         return FALSE;
       }
-      elseif (($node_type == 'book') || isset($node->book)) {
+      elseif (isset($node->book)) {
         // Node is a book;
         $print_html_book_link = variable_get('print_html_book_link', PRINT_HTML_BOOK_LINK_DEFAULT);
-        if (!$print_html_book_link || !user_access('access printer-friendly version')) {
-          // Book link is disabled
-          return FALSE;
-        }
-        else {
-          return PRINT_ALLOW_BOOK_LINK;
+        switch ($print_html_book_link) {
+          case 1:
+            if (user_access('access printer-friendly version')) {
+              return PRINT_ALLOW_BOOK_LINK;
+            }
+            break;
+          case 2:
+            return PRINT_ALLOW_NORMAL_LINK;
         }
       }
       else {
@@ -461,8 +858,9 @@ function print_link_allowed($args) {
     $print_html_sys_link_visibility = variable_get('print_html_sys_link_visibility', PRINT_HTML_SYS_LINK_VISIBILITY_DEFAULT);
     $print_html_sys_link_pages = variable_get('print_html_sys_link_pages', PRINT_HTML_SYS_LINK_PAGES_DEFAULT);
 
-    return _print_page_match($print_html_sys_link_visibility, $print_html_sys_link_pages);
+    return _print_page_match($print_html_sys_link_visibility, $_GET['q'], $print_html_sys_link_pages);
   }
+  return FALSE;
 }
 
 /**
@@ -477,13 +875,24 @@ function print_link_allowed($args) {
  * @return
  *   urlencoded string which can be appended to/as the URL query string
  */
-function print_query_string_encode($query, $exclude = array()) {
+function print_query_string_encode($query, $exclude = array(), $parent = '') {
   $params = array();
   foreach ($query as $key => $value) {
+    if ($parent) {
+      $key = $parent . '[' . $key . ']';
+    }
+
     if (in_array($key, $exclude)) {
       continue;
     }
-    $params[] = $key .'='. rawurlencode($value);
+
+    if (is_array($value)) {
+      $params[] = print_query_string_encode($value, $exclude, $key);
+    }
+    else {
+      $params[] = $key . '=' . rawurlencode($value);
+    }
   }
-  return implode('&', $params);
+
+  return $params;
 }