view release on metacpan or  search on metacpan

lib/Biblio/Database.pm  view on Meta::CPAN

	#  Organization	Organizat
	#  Institution	Institutn
	#  Authors	Author
	#  Editors	Editor
	#  ReportType	RepType
	#  SuperTitle	Booktitle
	#  Source	URL
	#  Location	Address
	#  Howpublished	Howpublish
	#  );
sub quoteField($$;$) {
	my ($self, $field, $ignoreCase) = @_;
	my $mapping = $self->{'column-mapping'} || {};
	$field = $mapping->{$field} if exists($mapping->{$field});
	$field = "\"$field\"" if $self->{'quote-column-name'};
	$field = "lower($field)" if $ignoreCase 
			&& $self->{'supports-lower'};
	return $field;
}

sub quoteValue ($$$) {

lib/PBib/Document/MSWord.pm  view on Meta::CPAN

  print STDERR $msg;
}


#
#
# debugging class methods
#
#

sub type($) {
  my $Object = shift;
  return Win32::OLE->QueryObjectType($Object)
}

sub props($) {
  my $o = shift;
  return keys(%{$o})
}

sub printProps($) {
  my $o = shift;
  if( not defined($o) ) {
    print "printProps(undef) -- maybe there was an error?\n";
	my $err = Win32::OLE::LastError();
	print "(last error = $err)\n";
  }
  my $p;
  print $o, " [", type($o), "]: ";
  foreach $p (props($o)) {
    print "$p ";