<?php
// Project: Web Reference Database (refbase) <http://www.refbase.net>
// Copyright: Matthias Steffens <mailto:refbase@extracts.de> and the file's
// original author(s).
//
// This code is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY. Please see the GNU General Public
// License for more details.
//
// File: ./import_csa.php
// Repository: $HeadURL: file:///svn/p/refbase/code/branches/bleeding-edge/import_csa.php $
// Author(s): Matthias Steffens <mailto:refbase@extracts.de>
//
// Created: 21-Nov-03, 22:05
// Modified: $Date: 2012-02-27 20:25:30 +0000 (Mon, 27 Feb 2012) $
// $Author: msteffens $
// $Revision: 1337 $
// Import form that offers to import records from the "Cambridge Scientific Abstracts" (CSA)
// Internet Database Service (<http://www.csa1.co.uk/csa/index.html>). This import form requires
// the "full record" format offered by the CSA Internet Database Service.
// Incorporate some include files:
include 'includes/header.inc.php'; // include header
include 'includes/footer.inc.php'; // include footer
include 'includes/include.inc.php'; // include common functions
include 'initialize/ini.inc.php'; // include common variables
// --------------------------------------------------------------------
// START A SESSION:
// call the 'start_session()' function (from 'include.inc.php') which will also read out available session variables:
start_session(true);
// Extract session variables:
if (isset($_SESSION['errors']))
{
$errors = $_SESSION['errors']; // read session variable (only necessary if register globals is OFF!)
// Note: though we clear the session variable, the current error message is still available to this script via '$errors':
deleteSessionVariable("errors"); // function 'deleteSessionVariable()' is defined in 'include.inc.php'
}
else
$errors = array(); // initialize the '$errors' variable in order to prevent 'Undefined variable...' messages
if (isset($_SESSION['formVars']))
{
$formVars = $_SESSION['formVars']; // read session variable (only necessary if register globals is OFF!)
// Remove slashes from parameter values if 'magic_quotes_gpc = On':
foreach($formVars as $varname => $value)
$formVars[$varname] = stripSlashesIfMagicQuotes($value); // function 'stripSlashesIfMagicQuotes()' is defined in 'include.inc.php'
// Note: though we clear the session variable, the current form variables are still available to this script via '$formVars':
deleteSessionVariable("formVars"); // function 'deleteSessionVariable()' is defined in 'include.inc.php'
}
else
$formVars = array();
// --------------------------------------------------------------------
// Initialize preferred display language:
// (note that 'locales.inc.php' has to be included *after* the call to the 'start_session()' function)
include 'includes/locales.inc.php'; // include the locales
// --------------------------------------------------------------------
// If there's no stored message available:
if (!isset($_SESSION['HeaderString']))
{
if (empty($errors)) // provide one of the default messages:
{
if (isset($_SESSION['user_permissions']) AND preg_match("/allow_batch_import/", $_SESSION['user_permissions'])) // if the 'user_permissions' session variable does contain 'allow_batch_import'...
$HeaderString = "Import records from Cambridge Scientific Abstracts:"; // Provide the default message
else
$HeaderString = "Import a record from Cambridge Scientific Abstracts:"; // Provide the default message
}
else // -> there were errors validating the user's data input
$HeaderString = "<b><span class=\"warning\">There were validation errors regarding the data you entered:</span></b>";
}
else // there is already a stored message available
{
$HeaderString = $_SESSION['HeaderString']; // extract 'HeaderString' session variable (only necessary if register globals is OFF!)
// Note: though we clear the session variable, the current message is still available to this script via '$HeaderString':
deleteSessionVariable("HeaderString"); // function 'deleteSessionVariable()' is defined in 'include.inc.php'
}
// Adopt the page title & some labels according to the user's permissions:
if (isset($_SESSION['user_permissions']) AND !preg_match("/allow_batch_import/", $_SESSION['user_permissions'])) // if the 'user_permissions' session variable does NOT contain 'allow_batch_import'...
{
$pageTitle = " -- Import CSA Record"; // adopt page title
$textEntryFormLabel = "Import CSA Full Record"; // adopt the label for the text entry form
$rowSpan = ""; // adopt table row span parameter
}
else
{
$pageTitle = " -- Import CSA Records";
$textEntryFormLabel = "Import CSA Full Records";
$rowSpan = " rowspan=\"2\"";
}
// Extract the view type requested by the user (either 'Mobile', 'Print', 'Web' or ''):
// ('' will produce the default 'Web' output style)
if (isset($_REQUEST['viewType']))
$viewType = $_REQUEST['viewType'];
else
$viewType = "";
// If there were some errors on submit -> Re-load the data that were submitted by the user:
if (!empty($errors))
{
if (isset($formVars['sourceText'])) // '$formVars['sourceText']' may be non-existent in the (unlikely but possible) event that a user calls 'import_csa_modify.php' directly
$sourceText = $formVars['sourceText'];
else
$sourceText = "";
// check if we need to set the checkbox in front of "Display original source data":
if (isset($formVars['showSource'])) // the user did mark the 'showSource' checkbox
$showSource = $formVars['showSource'];
else
$showSource = "";
if (isset($formVars['importRecordsRadio'])) // 'importRecordsRadio' is only set if user has 'batch_import' permission
$importRecordsRadio = $formVars['importRecordsRadio'];
else
$importRecordsRadio = "";
if (isset($formVars['importRecords'])) // 'importRecords' is only set if user has 'batch_import' permission
$importRecords = $formVars['importRecords'];
else
$importRecords = "";
// check whether the user marked the checkbox to skip records with unrecognized data format:
if (isset($formVars['skipBadRecords']))
$skipBadRecords = $formVars['skipBadRecords'];
else
$skipBadRecords = "";
}
else // display an empty form (i.e., set all variables to an empty string [""] or their default values, respectively):
{
$sourceText = "";
$showSource = "1";
$importRecordsRadio = "only";
$importRecords = "1";
$skipBadRecords = "";
}
// Show the login status:
showLogin(); // (function 'showLogin()' is defined in 'include.inc.php')
// (2a) Display header:
// call the 'displayHTMLhead()' and 'showPageHeader()' functions (which are defined in 'header.inc.php'):
displayHTMLhead(encodeHTML($officialDatabaseName) . $pageTitle, "index,follow", "Search the " . encodeHTML($officialDatabaseName), "", false, "", $viewType, array());
showPageHeader($HeaderString);
// (2b) Start <form> and <table> holding the form elements:
echo "\n<form action=\"import_csa_modify.php\" method=\"POST\">";
echo "\n<input type=\"hidden\" name=\"formType\" value=\"importCSA\">"
. "\n<input type=\"hidden\" name=\"submit\" value=\"Import\">" // provide a default value for the 'submit' form tag. Otherwise, some browsers may not recognize the correct output format when a user hits <enter> within a form field (instead of clicking the "Import" button)
. "\n<input type=\"hidden\" name=\"showLinks\" value=\"1\">"; // embed '$showLinks=1' so that links get displayed on any 'display details' page
if (isset($errors['badRecords']))
{
if ($errors['badRecords'] == "all") // none of the given records had a recognized format
{
if (!empty($errors['skipBadRecords']))
$skipBadRecordsInput = "<br>" . fieldError("skipBadRecords", $errors);
else
$skipBadRecordsInput = "";
}
elseif ($errors['badRecords'] == "some") // there were at least some records with recognized format but other records could NOT be recognized
{
if (!empty($skipBadRecords))
$skipBadRecordsCheckBoxIsChecked = " checked"; // mark the 'Skip records with unrecognized data format' checkbox
else
$skipBadRecordsCheckBoxIsChecked = "";
// display the 'Skip records with unrecognized data format' checkbox:
$skipBadRecordsInput = "<br><input type=\"checkbox\" name=\"skipBadRecords\" value=\"1\"$skipBadRecordsCheckBoxIsChecked title=\"mark this checkbox to omit records with unrecognized data format during import\"> " . fieldError("skipBadRecords", $errors);
}
}
else // all records did have a valid data format -> supress the 'Skip records with unrecognized data format' checkbox
{
$skipBadRecordsInput = "";
}
echo "\n<table align=\"center\" border=\"0\" cellpadding=\"0\" cellspacing=\"10\" width=\"95%\" summary=\"This table holds the CSA import form\">"
. "\n<tr>\n\t<td width=\"58\" valign=\"top\"><b>" . $textEntryFormLabel . ":</b></td>\n\t<td width=\"10\"> </td>"
. "\n\t<td colspan=\"3\">" . fieldError("sourceText", $errors) . $skipBadRecordsInput . "<textarea name=\"sourceText\" rows=\"6\" cols=\"60\" title=\"paste your CSA records here (requires 'full record' format!)\">$sourceText</textarea></td>"
. "\n</tr>";
if (!empty($showSource))
$showSourceCheckBoxIsChecked = " checked"; // mark the 'Display original source data' checkbox
else
$showSourceCheckBoxIsChecked = "";
echo "\n<tr>\n\t<td valign=\"top\"" . $rowSpan . "><b>Options:</b></td>\n\t<td" . $rowSpan . "> </td>"
. "\n\t<td width=\"215\" valign=\"top\"" . $rowSpan . "><input type=\"checkbox\" name=\"showSource\" value=\"1\"$showSourceCheckBoxIsChecked title=\"mark this checkbox if original source data shall be displayed alongside the parsed data for easy comparison\"> Display original source data</td>";
if (isset($_SESSION['user_permissions']) AND preg_match("/allow_batch_import/", $_SESSION['user_permissions'])) // if the 'user_permissions' session variable does contain 'allow_batch_import'...
{
if ($importRecordsRadio == "all")
{
$importRecordsRadioAllChecked = " checked"; // select the 'All' radio button
$importRecordsRadioOnlyChecked = "";
}
else // $importRecordsRadio == "only"
{
$importRecordsRadioAllChecked = "";
$importRecordsRadioOnlyChecked = " checked"; // select the 'Only' radio button
}
echo "\n\t<td width=\"98\" valign=\"top\"" . $rowSpan . ">Import records:</td>"
. "\n\t<td valign=\"top\"><input type=\"radio\" name=\"importRecordsRadio\" value=\"all\"$importRecordsRadioAllChecked title=\"choose 'All' if you want to import all pasted records at once\"> All</td>"
. "\n</tr>"
. "\n<tr>"
. "\n\t<td valign=\"top\">" . fieldError("importRecords", $errors) . "<input type=\"radio\" name=\"importRecordsRadio\" value=\"only\"$importRecordsRadioOnlyChecked title=\"choose 'Only' if you just want to import particular records from the pasted source data\"> Only: <input type=\"text\" name=\"importRecords\" value=\"$importRecords\" size=\"5\" title=\"enter the record number(s) here: e.g. enter '1-5' to import the first five records; or enter '1 3-5 7' to import records 1, 3, 4, 5 and 7\"></td>";
}
else
{
echo "\n\t<td colspan=\"2\"> </td>";
}
echo "\n</tr>";
echo "\n<tr>\n\t<td> </td>\n\t<td> </td>";
if (isset($_SESSION['user_permissions']) AND preg_match("/allow_import|allow_batch_import/", $_SESSION['user_permissions'])) // if the 'user_permissions' session variable contains either 'allow_import' or 'allow_batch_import'...
// adjust the title string for the import button
{
$importButtonLock = "";
$importTitle = "press this button to import the given source data";
}
else // Note, that disabling the submit button is just a cosmetic thing -- the user can still submit the form by pressing enter or by building the correct URL from scratch!
{
$importButtonLock = " disabled";
$importTitle = "not available since you have no permission to import any records";
}
echo "\n\t<td colspan=\"3\">\n\t\t<input type=\"submit\" name=\"submit\" value=\"Import\"$importButtonLock title=\"$importTitle\">\n\t</td>"
. "\n</tr>"
. "\n<tr>\n\t<td align=\"center\" colspan=\"5\"> </td>"
. "\n</tr>"
. "\n<tr>\n\t<td valign=\"top\"><b>Help:</b></td>\n\t<td> </td>"
. "\n\t<td valign=\"top\" colspan=\"3\">This form enables you to import records from the <a href=\"" . $importCSArecordsURL . "\" target=\"top\">" // '$importCSArecordsURL' is defined in 'ini.inc.php'
. "Cambridge Scientific Abstracts</a> (CSA) Internet Database Service. The form requires the 'full record' format offered by the CSA Internet Database Service. An example of a valid CSA 'full record' format is given below:</td>"
. "\n</tr>"
. "\n<tr>\n\t<td valign=\"top\"><b>Example:</b></td>\n\t<td> </td>"
. "\n\t<td valign=\"top\" colspan=\"3\"><pre>Record 1 of 52
DN: Database Name
ASFA: Aquatic Sciences and Fisheries Abstracts
TI: Title
Diet composition influences the growth of the pelagic mysid
shrimp, Mysis mixta (Mysidacea)
AU: Author
Lehtiniemi, M; Vitasalo, M; Kuosa, H
AF: Affiliation
Finnish Institute of Marine Research, P.O. Box 33, FIN-00931
Helsinki, Finland
SO: Source
Boreal Environment Research [Boreal Environ. Res.]. Vol. 7, no. 2,
pp. 121-128. 2002.
IS: ISSN
1239-6095
AB: Abstract
We studied the growth, feeding, and elemental composition of Mysis
mixta from June to September 1997 in the northern Baltic Sea. In
June the juvenile population had a unimodal size distribution
(mean length similar to 6 mm), but in July-August, the population
was divided into two cohorts. A stomach content analysis showed
that the mysids in the larger and faster growing cohort fed
significantly more on crustacean zooplankton and pelagic material
than the smaller one: the mean ratios of zooplankton:phytoplankton
and pelagic:benthic particles in July-August were respectively
0.27 and 0.11 for the small cohort, and 0.54 and 0.36 for the
large cohort. This suggests that food quality and its energy
content are important in influencing the growth of pelagic mysids
in the northern Baltic. The C:N ratio of the two cohorts did not
vary much, which shows that ingestion of food items with varying
elemental content is not necessarily reflected in the elemental
composition of consumers.
LA: Language
English
SL: Summary Language
English
PY: Publication Year
2002
PD: Publication Date
20020000
PT: Publication Type
Journal Article
DE: Descriptors
Growth; Feeding; Diets; Chemical composition; Seasonal variations;
Mysis mixta; ANE, Baltic Sea
TR: ASFA Input Center Number
CS0309883
CL: Classification
Q1 01424 Age and growth; O 1070 Ecology/Community Studies
UD: Update
200305
SF: Subfile
ASFA 1: Biological Sciences & Living Resources; Oceanic Abstracts
AN: Accession Number
5449614
F1: Fulltext Info
1239-6095,7,2,121-128,2002
A1: Alert Info
20030606
JN: Journal Name
Boreal Environment Research
JP: Journal Pages
121-128
JV: Journal Volume
7
JI: Journal Issue
2
DT: Document Type
J
BL: Bibliographic Level
AS
</pre></td>"
. "\n</tr>"
. "\n</table>"
. "\n</form>";
// --------------------------------------------------------------------
// SHOW ERROR IN RED:
function fieldError($fieldName, $errors)
{
if (isset($errors[$fieldName]))
return "<b><span class=\"warning2\">" . $errors[$fieldName] . "</span></b><br>";
}
// --------------------------------------------------------------------
// DISPLAY THE HTML FOOTER:
// call the 'showPageFooter()' and 'displayHTMLfoot()' functions (which are defined in 'footer.inc.php')
showPageFooter($HeaderString);
displayHTMLfoot();
// --------------------------------------------------------------------
?>