<?php
// $Revision: 1.35.2.1.2.20 $
// ------------------------------------------------------------------------- //
//  XooNIps - Neuroinformatics Base Platform System                          //
//  Copyright (C) 2005-2008 RIKEN, Japan All rights reserved.                //
//  http://xoonips.sourceforge.jp/                                           //
// ------------------------------------------------------------------------- //
//  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.                                      //
//                                                                           //
//  You may not change or alter any portion of this comment or credits       //
//  of supporting developers from this source code or any supporting         //
//  source code which is considered copyrighted (c) material of the          //
//  original comment or credit authors.                                      //
//                                                                           //
//  This program is distributed in the hope that it will be useful,          //
//  but WITHOUT ANY WARRANTY; without even the implied warranty of           //
//  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the            //
//  GNU General Public License for more details.                             //
//                                                                           //
//  You should have received a copy of the GNU General Public License        //
//  along with this program; if not, write to the Free Software              //
//  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA //
// ------------------------------------------------------------------------- //
if ( ! defined( 'XOOPS_ROOT_PATH' ) ) {
  exit();
}

$itemtype_path = dirname( dirname( __FILE__ ) );
$itemtype_dirname = basename( $itemtype_path );
$xoonips_path = dirname( $itemtype_path ).'/xoonips';

$langman =& xoonips_getutility( 'languagemanager' );
$langman->read( 'main.php', $itemtype_dirname );

/**
 * retrieve Detail Information that specified by item_id
 */
function xnpurlGetDetailInformation( $item_id ) {
  global $xoopsDB;
  if ( empty( $item_id ) ) {
    return array( 'url' => '', 'url_count' => '' );
  }

  $sql = 'select * from '.$xoopsDB->prefix( 'xnpurl_item_detail' )." where url_id=$item_id";
  $result = $xoopsDB->query( $sql );
  if ( $result == FALSE ) {
    echo " $sql ".mysql_error();
    return false;
  }
  return $xoopsDB->fetchArray( $result );
}

function xnpurlGetMetaInformation( $item_id ) {
  $metainfo = xnpurlGetDetailInformation( $item_id );
  if ( $metainfo == false ) {
    return array();
  }
  return $metainfo;
}

function xnpurlGetListBlock( $item_basic ) {
  // get uid
  global $xoopsUser;
  $myuid = is_object( $xoopsUser ) ? $xoopsUser->getVar( 'uid', 'n' ) : UID_GUEST;

  // set to template
  global $xoopsTpl;

  $tpl = new XoopsTpl();
  // copy variables in $xoopsTpl to $tpl
  $tpl->assign( $xoopsTpl->get_template_vars() );

  $xnpurl_handler =& xoonips_getormcompohandler( 'xnpurl', 'item' );
  $tpl->assign( 'xoonips_item', $xnpurl_handler->getTemplateVar( XOONIPS_TEMPLATE_TYPE_ITEM_LIST, $item_basic['item_id'], $myuid ) );

  // return HTML content
  return $tpl->fetch( 'db:xnpurl_list_block.html' );
}

function xnpurlGetPrinterFriendlyListBlock( $item_basic ) {
  return xnpurlGetListBlock( $item_basic );
}

function xnpurlGetUrlBannerFileDetailBlock( $item_id, $url ) {

  // retrieve file information that specified by item_id
  $files = xnpGetFileInfo( 't_file.file_id, t_file.caption', 't_file_type.name=\'url_banner_file\' and sess_id is NULL ', $item_id );
  // generate html
  if ( count( $files ) != 0 ) {
    reset( $files );
    list( $dummy, list( $fileID, $caption ) ) = each( $files );
    $imageFileName = XOOPS_URL."/modules/xoonips/image.php?file_id=$fileID";
    $html = '<a href="'.$url.'"><img src="'.$imageFileName.'" alt="'.$url.'"/></a>';
    $hidden = xnpCreateHidden( 'url_banner_fileFileID', $fileID );
  } else {
    $html = '';
    $hidden = '';
  }

  return array( 'name' => 'Banner', 'value' => $html, 'hidden' => $hidden );
}

function xnpurlGetDetailBlock( $item_id ) {
  // get uid
  global $xoopsUser;
  $myuid = is_object( $xoopsUser ) ? $xoopsUser->getVar( 'uid', 'n' ) : UID_GUEST;

  global $xoopsTpl;

  // set to template
  $tpl = new XoopsTpl();
  // copy variables in $xoopsTpl to $tpl
  $tpl->assign( $xoopsTpl->get_template_vars() );

  $tpl->assign( 'editable', xnp_get_item_permission( $_SESSION['XNPSID'], $item_id, OP_MODIFY ) );
  $tpl->assign( 'basic', xnpGetBasicInformationDetailBlock( $item_id ) );
  $tpl->assign( 'index', xnpGetIndexDetailBlock( $item_id ) );
  $tpl->assign( 'url_banner_file', xnpGetAttachmentDetailBlock( $item_id, 'url_banner_file' ) );

  $xnpurl_handler =& xoonips_getormcompohandler( 'xnpurl', 'item' );
  $tpl->assign( 'xoonips_item', $xnpurl_handler->getTemplateVar( XOONIPS_TEMPLATE_TYPE_ITEM_DETAIL, $item_id, $myuid ) );

  // return as HTML
  return $tpl->fetch( 'db:xnpurl_detail_block.html' );
}

function xnpurlGetPrinterFriendlyDetailBlock( $item_id ) {
  // get uid
  global $xoopsUser;
  $myuid = is_object( $xoopsUser ) ? $xoopsUser->getVar( 'uid', 'n' ) : UID_GUEST;

  global $xoopsTpl;

  // set to template
  $tpl = new XoopsTpl();
  // copy variables in $xoopsTpl to $tpl
  $tpl->assign( $xoopsTpl->get_template_vars() );

  $tpl->assign( 'editable', xnp_get_item_permission( $_SESSION['XNPSID'], $item_id, OP_MODIFY ) );
  $tpl->assign( 'basic', xnpGetBasicInformationPrinterFriendlyBlock( $item_id ) );
  $tpl->assign( 'index', xnpGetIndexPrinterFriendlyBlock( $item_id ) );
  $tpl->assign( 'url_banner_file', xnpGetAttachmentPrinterFriendlyBlock( $item_id, 'url_banner_file' ) );

  $xnpurl_handler =& xoonips_getormcompohandler( 'xnpurl', 'item' );
  $tpl->assign( 'xoonips_item', $xnpurl_handler->getTemplateVar( XOONIPS_TEMPLATE_TYPE_ITEM_DETAIL, $item_id, $myuid ) );

  // return as HTML
  return $tpl->fetch( 'db:xnpurl_detail_block.html' );
}

function xnpurlGetRegisterBlock() {
  $textutil =& xoonips_getutility( 'text' );
  $formdata =& xoonips_getutility( 'formdata' );
  // get DetailInformation
  if ( $formdata->getValue( 'get', 'post_id', 's', false ) ) {
    $detail = array(
      'url' => $textutil->html_special_chars( $formdata->getValue( 'post', 'url', 's', true ) ),
    );
  } else {
    $detail = array(
      'url' => '',
    );
  }

  // retrieve blocks of BasicInformation / Preview / index block
  $basic = xnpGetBasicInformationRegisterBlock();
  $preview = xnpGetPreviewRegisterBlock();
  $index = xnpGetIndexRegisterBlock();
  $url_banner_file = xnpGetAttachmentRegisterBlock( 'url_banner_file' );

  // assign to template
  global $xoopsTpl;
  $tpl = new XoopsTpl();
  // variables assigned to xoopsTpl are copied to tpl
  $tpl->assign( $xoopsTpl->get_template_vars() );

  $tpl->assign( 'basic', $basic );
  $tpl->assign( 'preview', $preview );
  $tpl->assign( 'index', $index );
  $tpl->assign( 'url_banner_file', $url_banner_file );
  $tpl->assign( 'detail', $detail );
  // return HTML content
  return $tpl->fetch( 'db:xnpurl_register_block.html' );
}

function xnpurlGetEditBlock( $item_id ) {
  global $xoopsDB;
  $formdata =& xoonips_getutility( 'formdata' );

  // retrieve blocks of BasicInformation / Preview / index block
  $basic = xnpGetBasicInformationEditBlock( $item_id );
  $preview = xnpGetPreviewEditBlock( $item_id );
  $index = xnpGetIndexEditBlock( $item_id );
  $url_banner_file = xnpGetAttachmentEditBlock( $item_id, 'url_banner_file' );

  // retrieve detail information
  $url = $formdata->getValue( 'post', 'url', 's', false );
  if ( isset( $url ) ) {
    $detail = array(
      'url' => $url,
    );
  } else if ( ! empty( $item_id ) ) {
    $detail = xnpurlGetDetailInformation( $item_id );
  } else {
    $detail = array();
  }

  // assign to template
  global $xoopsTpl;
  $tpl = new XoopsTpl();
  // variables assigned to xoopsTpl are copied to tpl
  $tpl->assign( $xoopsTpl->get_template_vars() );
  $tpl->assign( 'basic', $basic );
  $tpl->assign( 'preview', $preview );
  $tpl->assign( 'index', $index );
  $tpl->assign( 'url_banner_file', $url_banner_file );
  $tpl->assign( 'detail', $detail );

  // return HTML content
  return $tpl->fetch( 'db:xnpurl_register_block.html' );
}

// see also xnpGetAttachmentConfirmBlock
function xnpurlGetUrlBannerFileConfirmBlock( $item_id ) {
  $formdata =& xoonips_getutility( 'formdata' );
  $name = 'url_banner_file';
  $url_banner_file = $formdata->getFile( $name, false );
  if ( ! empty( $url_banner_file['name'] ) ) {
    // file has been Uploaded
    list( $fileID, $errorMessage ) = xnpUploadFile( $name, false );
    if ( $fileID == false ) {
      $errorHTML = '<font color=\'#ff0000\'>'.htmlspecialchars( $errorMessage ).'</font><br />';
      return array( 'name' => 'Attachment', 'value' => $errorHTML );
    } else {
      $sql = "t_file.file_id = $fileID";
    }
  } else {
    $attachmentFileID = $formdata->getValue( 'post', $name.'FileID', 'i', false );
    if ( $attachmentFileID == 0 ) {
      // no files should be attached
      $sql = ' 0 ';
    } else {
      $sql = "t_file.file_id = $attachmentFileID";
    }
  }

  $files = xnpGetFileInfo( 't_file.file_id, t_file.original_file_name, t_file.file_size', "t_file_type.name='$name' and $sql ", $item_id );

  if ( count( $files ) == 0 ) {
    $html = "<input type='hidden' name='${name}FileID' value=''>";
  } else {
    // todo: to be downloadable
    list( list( $fileID, $fileName, $fileSize ) ) = $files;
    $imageFileName = XOOPS_URL."/modules/xoonips/image.php?file_id=$fileID";
    $html = "<input type='hidden' name='${name}FileID' value='$fileID'><img src='$imageFileName'>";
  }

  // generate html
  return array( 'name' => 'Attachment', 'value' => $html );
}

function xnpurlGetConfirmBlock( $item_id ) {
  $formdata =& xoonips_getutility( 'formdata' );
  // retrieve blocks of BasicInformation / Preview / index block
  $basic = xnpGetBasicInformationConfirmBlock( $item_id );
  $preview = xnpGetPreviewConfirmBlock( $item_id );
  $index = xnpGetIndexConfirmBlock( $item_id );
  $url_banner_file = xnpurlGetUrlBannerFileConfirmBlock( $item_id, 'url_banner_file' );
  // retrieve detail information
  $url = $formdata->getValue( 'post', 'url', 's', false );
  if ( isset( $url ) ) {
    $detail = array(
      'url' => array(
        'value' => $url,
      ),
    );
    xnpConfirmHtml( $detail, 'xnpurl_item_detail', array_keys( $detail ), _CHARSET );
  } else {
    $detail = array();
  }

  // trim strings
  if ( xnpHasWithout( $basic ) || xnpHasWithout( $preview ) || xnpHasWithout( $detail ) ) {
    global $system_message;
    $system_message = $system_message."\n<br /><font color='#ff0000'>"._MD_XOONIPS_ITEM_WARNING_FIELD_TRIM.'</font><br />';
  }

  // assign to template
  global $xoopsTpl;
  $tpl = new XoopsTpl();
  // variables assigned to xoopsTpl are copied to tpl
  $tpl->assign( $xoopsTpl->get_template_vars() );

  $tpl->assign( 'basic', $basic );
  $tpl->assign( 'preview', $preview );
  $tpl->assign( 'index', $index );
  $tpl->assign( 'url_banner_file', $url_banner_file );
  $tpl->assign( 'detail', $detail );
  // return HTML content
  return $tpl->fetch( 'db:xnpurl_confirm_block.html' );
}

/** make sure that enterd detail information is correctly or not.
 * called from register confirmation and edit confirmation
 */
function xnpurlCheckRegisterParameters( &$message ) {
  $formdata =& xoonips_getutility( 'formdata' );
  $messages = array();
  $url = $formdata->getValue( 'post', 'url', 's', false );
  if ( empty( $url ) ) {
    $messages[] = 'url required.';
  }
  if ( count( $messages ) == 0 ) {
    return true;
  }
  $message = "<br />\n".implode( "<br />\n", $messages );
  return false;
}

/**
 * make sure that enterd detail information is correctly or not.
 */
function xnpurlCheckEditParameters( &$message ) {
  return xnpurlCheckRegisterParameters( $message );
}

function xnpurlInsertItem( &$item_id ) {
  $formdata =& xoonips_getutility( 'formdata' );
  global $xoopsDB;
  $xnpsid = $_SESSION['XNPSID'];

  // retister BasicInformation, Index and Attachment
  $item_id = 0;
  $result = xnpInsertBasicInformation( $item_id );
  if ( $result ) {
    $result = xnpUpdateIndex( $item_id );
    if ( $result ) {
      $result = xnpUpdateAttachment( $item_id, 'url_banner_file' );
      if ( $result ) {
      }
    }
    if ( ! $result ) {
      xnpDeleteBasicInformation( $xnpsid, $item_id );
    }
  }
  if ( ! $result ) {
    return false;
  }

  // limit num of chracters
  $ar = array(
    'url' => preg_replace( '/javascript:/i', '', preg_replace( '/[\\x00-\\x20\\x22\\x27]/', '', $formdata->getValue( 'post', 'url', 's', false ) ) ),
  );
  xnpTrimColumn( $ar, 'xnpurl_item_detail', array_keys( $ar ), _CHARSET );

  // register detail information
  $sql = 'insert into '.$xoopsDB->prefix( 'xnpurl_item_detail' )." ( url_id, url ) values ( $item_id, '".addslashes( $ar['url'] ).'\' ) ';
  $result = $xoopsDB->queryF( $sql );
  if ( $result == false ) {
    echo 'cannot insert item_detail';
    return false;
  }

  return true;
}

function xnpurlUpdateItem( $item_id ) {
  $formdata =& xoonips_getutility( 'formdata' );
  global $xoopsDB;
  $xnpsid = $_SESSION['XNPSID'];

  // modify BasicInformation, Index, Preview and Attachment.
  $result = xnpUpdateBasicInformation( $item_id );
  if ( $result ) {
    $result = xnpUpdateIndex( $item_id );
    if ( $result ) {
      $result = xnpUpdateAttachment( $item_id, 'url_banner_file' );
      if ( $result ) {
        $result = xnp_insert_change_log( $xnpsid, $item_id, $formdata->getValue( 'post', 'change_log', 's', false ) );
        $result = ! $result;
        if ( ! $result ) {
          echo ' xnp_insert_change_log failed.';
        }
      } else {
        echo ' xnpUpdateAttachment failed.';
      }
    } else {
      echo ' xnpUpdateIndex failed.';
    }
  } else {
    echo ' xnpUpdateBasicInformation failed.';
  }
  if ( ! $result ) {
    return false;
  }

  // trim strings
  $ar = array(
    'url' => preg_replace( '/javascript:/i', '', preg_replace( '/[\\x00-\\x20\\x22\\x27]/', '', $formdata->getValue( 'post', 'url', 's', false, '' ) ) ),
  );
  xnpTrimColumn( $ar, 'xnpurl_item_detail', array_keys( $ar ), _CHARSET );

  // register detail information
  $sql = implode( ',', array( 'url'.'=\''.addslashes( $ar['url'] ).'\'' ) );
  $result = $xoopsDB->queryF( 'update '.$xoopsDB->prefix( 'xnpurl_item_detail' )." set $sql where url_id = $item_id " );
  if ( $result == false ) {
    return false;
  }

  return true;
}

function xnpurlGetDetailInformationQuickSearchQuery( &$wheres, &$join, $keywords ) {
  global $xoopsDB;
  $join = '';
  return true;
}

function xnpurlGetAdvancedSearchQuery( &$where, &$join ) {
  $formdata =& xoonips_getutility( 'formdata' );
  global $xoopsDB;
  $url_table = $xoopsDB->prefix( 'xnpurl_item_detail' );
  $file_table = $xoopsDB->prefix( 'xoonips_search_text' );

  $wheres = array();
  $w = xnpGetBasicInformationAdvancedSearchQuery( 'xnpurl' );
  if ( $w ) {
    $wheres[] = $w;
  }
  $w = xnpGetKeywordQuery( $url_table.'.url', 'xnpurl_url' );
  if ( $w ) {
    $wheres[] = $w;
  }
  $xnpurl_url_banner_file = $formdata->getValue( 'post', 'xnpurl_url_banner_file', 's', false );
  if ( ! empty( $xnpurl_url_banner_file ) ) {
    list( $pattern, $errorMessage ) = xnpKeywordsToFulltextSql( $xnpurl_url_banner_file );
    if ( ! $errorMessage ) {
      $wheres[] = "match ( $file_table.search_text ) against ( '$pattern' in boolean mode )";
    }
  }

  $where = implode( ' and ', $wheres );
  $join = '';
}

function xnpurlGetAdvancedSearchBlock( &$search_var ) {
  // retrieve blocks of BasicInformation / Preview / IndexKeywords
  $basic = xnpGetBasicInformationAdvancedSearchBlock( 'xnpurl', $search_var );
  $search_var[] = 'xnpurl_url';
  $search_var[] = 'xnpurl_url_banner_file';

  // assign to template
  global $xoopsTpl;
  $tpl = new XoopsTpl();
  // variables assigned to xoopsTpl are copied to tpl
  $tpl->assign( $xoopsTpl->get_template_vars() );
  $tpl->assign( 'basic', $basic );
  $tpl->assign( 'module_name', 'xnpurl' );
  $tpl->assign( 'module_display_name', xnpGetItemTypeDisplayNameByDirname( basename( dirname( dirname( __FILE__ ) ) ), 's' ) );

  // return HTML content
  return $tpl->fetch( 'db:xnpurl_search_block.html' );
}

function xnpurlGetDetailInformationTotalSize( $iids ) {
  return xnpGetTotalFileSize( $iids );
}

/**
 *
 * create XML for exporting detail information
 * see xnpExportItem for detail
 * @see xnpExportItem
 *
 * @param export_path folder that export file is written to.
 * @param fhdl file handle that items are exported to.
 * @param item_id item id that is exported
 * @param attachment true if attachment files are exported, else false.
 * @return true: success
 * @return false:error
 */
function xnpurlExportItem( $export_path, $fhdl, $item_id, $attachment ) {
  global $xoopsDB;

  if ( ! $fhdl ) {
    return false;
  }

  // retrieve detail information
  $result = $xoopsDB->query( 'select * from '.$xoopsDB->prefix( 'xnpurl_item_detail' )." where url_id=$item_id" );
  if ( ! $result ) {
    return false;
  }
  $detail = $xoopsDB->fetchArray( $result );
  if ( ! fwrite( $fhdl, "<detail id=\"${item_id}\">\n".'<url>'.htmlspecialchars( $detail['url'], ENT_QUOTES )."</url>\n" ) ) {
    return false;
  }
  if ( ! ( $attachment ? xnpExportFile( $export_path, $fhdl, $item_id ) : true ) ) {
    return false;
  }
  if ( ! fwrite( $fhdl, "</detail>\n" ) ) {
    return false;
  }

  return true;
}

function xnpurlGetModifiedFields( $item_id ) {
  $formdata =& xoonips_getutility( 'formdata' );
  $ret = array();
  $detail = xnpurlGetDetailInformation( $item_id );
  if ( $detail ) {
    foreach ( array( 'url' => _MD_XNPURL_URL_LABEL ) as $k => $v ) {
      $tmp = $formdata->getValue( 'post', $k, 's', false );
      if ( ! array_key_exists( $k, $detail ) || $tmp === NULL ) {
        continue;
      }
      if ( $detail[$k] != $tmp ) {
        array_push( $ret, $v );
      }
    }
    // is modified banner files ?
    if ( xnpIsAttachmentModified( 'url_banner_file', $item_id ) ) {
      array_push( $ret, _MD_XNPURL_URL_BANNER_FILE_LABEL );
    }
  }
  return $ret;
}

function xnpurlGetTopBlock( $itemtype ) {
  return xnpGetTopBlock( $itemtype['name'], $itemtype['display_name'], 'images/icon_url.gif', _MD_XNPURL_EXPLANATION, false, false );
}

function xnpurlSupportMetadataFormat( $metadataPrefix, $item_id ) {
  if ( $metadataPrefix == 'oai_dc' || $metadataPrefix == 'junii' || $metadataPrefix == 'junii2' ) {
    return true;
  }
  return false;
}

function xnpurlGetMetadata( $metadataPrefix, $item_id ) {
  $textutil =& xoonips_getutility( 'text' );
  $meta_basic = xnpGetBasicInformationMetadata( $metadataPrefix, $item_id );
  if ( $meta_basic ) {
    $basic = array();
    if ( xnp_get_item( $_SESSION['XNPSID'], $item_id, $basic ) != RES_OK ) {
      return false;
    }

    $lines = array();
    if ( $metadataPrefix == 'junii' ) {
      $lines[] = '<metadata>';
      $lines[] = '<meta xmlns="http://metasv.nii.ac.jp/oai/"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xsi:schemaLocation="http://metasv.nii.ac.jp/oai http://metasv.nii.ac.jp/oai/junii.xsd">';
      $lines[] = $meta_basic;
      $lines[] = "<type xsi:type=\"NII\">".$textutil->xml_special_chars( xnpGetMetadataJunii( 70 ) ).'</type>';
      $lines[] = '</meta>';
      $lines[] = '</metadata>';
    } else if ( $metadataPrefix == 'junii2' ) {
      $lines[] = '<metadata>';
      $lines[] = '<meta xmlns="http://metasv.nii.ac.jp/oai/"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xsi:schemaLocation="http://metasv.nii.ac.jp/oai http://metasv.nii.ac.jp/oai/junii2.xsd">';
      $lines[] = $meta_basic;
      // There is no corresponding NII type in JUNII2
      $lines[] = '</meta>';
      $lines[] = '</metadata>';
    } else if ( $metadataPrefix == 'oai_dc' ) {
      $detail = xnpurlGetDetailInformation( $item_id );
      $lines[] = '<metadata>';
      $lines[] = '<oai_dc:dc 
                 xmlns:oai_dc="http://www.openarchives.org/OAI/2.0/oai_dc/" 
                 xmlns:dc="http://purl.org/dc/elements/1.1/" 
                 xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" 
                 xsi:schemaLocation="http://www.openarchives.org/OAI/2.0/oai_dc/ 
                 http://www.openarchives.org/OAI/2.0/oai_dc.xsd">';
      $lines[] = $meta_basic;
      $lines[] = '<dc:identifier>'.htmlspecialchars( $detail['url'], ENT_QUOTES ).'</dc:identifier>';
      $lines[] = '</oai_dc:dc>';
      $lines[] = '</metadata>';
    }
    return implode( "\n", $lines )."\n";
  }
  return false;
}

?>
