view release on metacpan or search on metacpan
docs/doi.html view on Meta::CPAN
<tr>
<td><img src="logo.gif" alt="ScienceDirect" width="166" height="30"></td>
</tr>
</table>
<hr>
<h1>Creating a Digital Object Identifier Link</h1>
<p>The digital object identifier (DOI) may be used to cite and link to electronic documents. The DOI consists of a unique alpha-numeric character string which is assigned to a document by the publisher upon the initial electronic publication. The DOI...
<p>The correct format for citing a DOI is shown as follows:</p>
<p><span class="code">doi:10.1016/j.physletb.2003.10.071</span></p>
<p>When you use the DOI to create URL hyperlinks to documents on the web, they are guaranteed never to change.</p>
<p><span class="bold">Complete the following steps to resolve a DOI:</span></p>
<ol>
<li>Open the following DOI site with your browser:
<p>http://dx.doi.org</p></li>
<li>Enter the entire DOI citation in the text box provided, and then click Go.
<p>The article that matches the DOI citation appears in your browser window.</p></li>
</ol>
<p>The DOI scheme is administered by the <a href="http://www.doi.org" target="_blank" title="International DOI Foundation (opens new window)">International DOI Foundation</a>. Many of the world's leading learned publishers have come together to buil...
<hr>
<h2>Related Topics</h2>
<p><a href="browse_open_doc.htm">Browsing Open Documents</a></p>
lib/Biblio/bp/lib/old/bp-p-output.pl view on Meta::CPAN
local($chars, %rec) = @_;
local(@names, $names);
local($cpp, $cpgw, $date);
local($out);
$out = '';
# We need to determine what our emphasis characters are.
# XXX Is this a reasonable way to handle this? It might just
# grow and grow. Also, is this generic enough to handle
# all sorts of output?
local($emb, $eme, $boldb, $bolde, $blockb, $blocke)
= split(/$bib'cs_sep/, $chars);
($cpp, $cpgw) = &output_pages($rec{'Pages'}, $rec{'PagesWhole'});
$date = &output_date($rec{'Month'}, $rec{'Year'});
if ($rec{'CiteType'} eq 'article') {
if (defined $rec{'Authors'}) {
$names = &bp_util'canon_to_name($rec{'Authors'}, 'plain');
$out .= "$names, ";
}
lib/Biblio/bp/lib/old/bp-p-output.pl view on Meta::CPAN
$out .= $rec{'Organization'} . ', ' if defined $rec{'Organization'};
$out .= $date . ', ' if defined $date;
#added Pierre van de Laar
} else {
$out = &bp_util'out_minimal($chars, %rec);
}
$out =~ s/, $/./;
if (defined $rec{'Abstract'}) {
$out .= "\n${blockb} ${boldb}Abstract: ${bolde}\n";
$out .= $rec{'Abstract'};
$out .= "${blocke}\n";
}
if (defined $rec{'Keywords'}) {
$out .= "\n${blockb} ${boldb}Keywords: ${bolde}\n";
$out .= $rec{'Keywords'};
$out .= "${blocke}\n";
}
if (defined $rec{'Annotation'}) {
$out .= "\n${blockb} ${boldb}Annotation: ${bolde}\n";
$out .= $rec{'Annotation'};
$out .= "${blocke}\n";
}
# XXXXX Check to see if this is acceptable. Without this, the
# output looks horrid in formats that don't squeeze spaces.
# I'm just worried that we might lose information, although
# I can't think offhand where we would.
$out =~ s/\s+/ /g;
lib/PBib/BibItemStyle.pm view on Meta::CPAN
}
#
#
# formating shorthand methods
#
#
sub italic { my $self = shift; return $self->outDoc()->italic(@_); }
sub bold { my $self = shift; return $self->outDoc()->bold(@_); }
sub underlined { my $self = shift; return $self->outDoc()->underlined(@_); }
sub spaceConnect { my $self = shift; return $self->outDoc()->spaceConnect(@_); }
sub tieConnect { my $self = shift; return $self->outDoc()->tieConnect(@_); }
sub tieOrSpaceConnect { my $self = shift; return $self->outDoc()->tieOrSpaceConnect(@_); }
#
#
# methods
lib/PBib/Document.pm view on Meta::CPAN
# return $text enclosed in double quotes
return "\"$text\"";
}
# text styles
sub italic { my ($self, $text) = @_;
# return $text as italic
return $text;
}
sub bold { my ($self, $text) = @_;
# return $text as bold
return $text;
}
sub underline { my ($self, $text) = @_;
# return $text as underlined
return $text;
}
sub highlight { my ($self, $text) = @_;
# return $text highlighted, whatever this means.
# It could be bold + italic, or colored etc.
return $self->bold($self->italic($text));
}
# fonts
sub tt { my ($self, $text) = @_;
# return text in typewriter (Courier) font
return $text;
}
# fields
lib/PBib/Document.pm view on Meta::CPAN
}
sub hyperlink {
# return $text marked as a hyperlink to $url
my ($self, $text, $url) = @_;
$url = $text unless( $url );
return $text eq $url ? $text : "$text ($url)";
}
sub comment { my ($self, $text) = @_;
return $self->bold($self->italic($text));
}
#
#
# bibliography formating methods
#
#
sub bibitems_start { my ($self) = @_; return ""; }
lib/PBib/Document/OpenOffice.pm view on Meta::CPAN
sub block_separator { my ($self) = @_; return " "; }
sub block_end { my ($self) = @_; return "\n"; }
sub tieConnect { my $self = shift;
# use non-breaking-space
return join($NB_SPACE, @_);
}
sub comment { my ($self, $text) = @_;
return $self->bold($self->italic($text));
}
#
#
# interactive editing methods
#
#
sub openInEditor { my ($self, $filename) = @_;
# $self->PBib::Document::MSWord::openInEditor($filename);
lib/PBib/Document/OpenOfficeSXW.pm view on Meta::CPAN
'fo:font-style' => "italic",
'style:font-style-asian' => "italic",
}),
)
);
push @$styles, mkXML('style:style', {
'style:name' => "PBibTextBold",
'style:family' => "text",
}, (
mkXML('style:properties', {
'fo:font-style' => "bold",
'style:font-style-asian' => "bold",
}),
)
);
push @$styles, mkXML('style:style', {
'style:name' => "PBibTextUL",
'style:family' => "text",
}, (
mkXML('style:properties', {
'style:text-underline' => "single",
'style:text-underline-color' => "font-color",
lib/PBib/Document/OpenOfficeSXW.pm view on Meta::CPAN
=cut
# text styles
sub italic {
my ($self, $text) = @_;
return "<text:span text:style-name=\"PBibTextItalic\">$text</text:span>";
}
sub bold {
# return $text as bold
my ($self, $text) = @_;
return "<text:span text:style-name=\"PBibTextBold\">$text</text:span>";
}
sub underlined {
# return $text as underlined
my ($self, $text) = @_;
return "<text:span text:style-name=\"PBibTextUL\">$text</text:span>";
}
# fonts
lib/PBib/Document/PBib.pm view on Meta::CPAN
# return $text;
}
# text styles
sub italic {
my ($self, $text) = @_;
$self->xtags()->{"i"} ++;
return $text ? "[+i+]$text\[-i-]" : '';
}
sub bold {
# return $text as bold
my ($self, $text) = @_;
$self->xtags()->{"b"} ++;
return $text ? "[+b+]$text\[-b-]" : '';
}
sub underlined {
# return $text as underlined
my ($self, $text) = @_;
$self->xtags()->{"u"} ++;
return $text ? "[+u+]$text\[-u-]" : '';
}
lib/PBib/Document/RTF.pm view on Meta::CPAN
# return $text enclosed in double quotes
return "\\ldblquote $text\\rdblquote ";
}
# text styles
sub italic {
my ($self, $text) = @_;
return "{\\i $text}";
}
sub bold {
# return $text as bold
my ($self, $text) = @_;
return "{\\b $text}";
}
sub underlined {
# return $text as underlined
my ($self, $text) = @_;
return "{\\u $text}";
}
# fonts
lib/PBib/Document/XHTML.pm view on Meta::CPAN
# return $text enclosed in double quotes
return "\"$text\"";
}
# text styles
sub italic { my ($self, $text) = @_;
# return $text as italic
return "<i>$text</i>";
}
sub bold { my ($self, $text) = @_;
# return $text as bold
return "<b>$text</b>";
}
sub underline { my ($self, $text) = @_;
# return $text as underlined
return "<u>$text</u>";
}
sub highlight { my ($self, $text) = @_;
# return $text highlighted, whatever this means.
# It could be bold + italic, or colored etc.
return $self->bold($self->italic($text));
}
# fonts
sub tt { my ($self, $text) = @_;
# return text in typewriter (Courier) font
return "<tt>$text</tt>";
}
# fields
lib/PBib/Document/XHTML.pm view on Meta::CPAN
}
sub hyperlink {
# return $text marked as a hyperlink to $url
my ($self, $text, $url) = @_;
$url = $text unless( $url );
return "<a href=\"$url\">$text</a>"
}
sub comment { my ($self, $text) = @_;
return $self->bold($self->italic($text));
}
#
#
# bibliography formating methods
#
#
sub bibitems_start { my ($self) = @_; return "<ol>\n<li>"; }
lib/PBibTk/Main.pm view on Meta::CPAN
my $self = shift;
my $win = $self->{'window'};
return $win if defined($win);
if( defined($rootWindow) ) {
# open second window
$win = $rootWindow->Toplevel();
} else {
$win = $rootWindow = MainWindow->new();
# $fileselect = $win->FileSelect(-directory => $ENV{'DISSDIR'});
$win->fontCreate(qw/T_bold -family times -size 9 -weight bold/);
$win->fontCreate(qw/H_bold -family helvetica -size 9 -weight bold/);
$win->fontCreate(qw/H_big_bold -family helvetica -size 11 -weight bold/);
}
$win->configure(
-title => "PBib",
);
$self->{'window'} = $win;
$self->initWidgets($win);
$self->initDropSite($win);
#myline zur beschleunigung wird der converter nur bei fensteraktualisierung erstellt
$self->{'conv'} = $self->make_converter();
return $win;
lib/PBibTk/RefDialog.pm view on Meta::CPAN
$list->tag(qw/configure list
-lmargin1 20m
-lmargin2 20m
-spacing1 1p
/);
$list->tag(qw/configure field
-tabs 20m
-spacing1 3p
-spacing2 0p
-spacing3 0p
-font T_bold
/);
$list->tag(qw/configure head
-font H_big_bold
/);
}
sub initMenu {
my ($self, $mf, $win) = @_;
my $cmd;
# ref menu
# my $mbr = $mf->Menubutton(-text => 'References');
# $mbr->grid(-row => 0, -column => 0, -sticky => 'w');