Bundle-PBib

 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');



( run in 1.904 second using v1.01-cache-2.11-cpan-5dc5da66d9d )