[Refdb-cvs] CVS: makestyle refdb-ms.pl,1.3,1.4

[David N. <dav...@us...>]

Update of /cvsroot/refdb/makestyle
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23776

Modified Files:
	refdb-ms.pl 
Log Message:
Now compliant with version 1.3 of citestylex dtd.


Index: refdb-ms.pl
===================================================================
RCS file: /cvsroot/refdb/makestyle/refdb-ms.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -U2 -r1.3 -r1.4
--- refdb-ms.pl	30 Sep 2004 14:36:32 -0000	1.3
+++ refdb-ms.pl	19 Feb 2005 11:46:31 -0000	1.4
@@ -218,5 +218,5 @@
 			. " If no default editor is specified, vi(m) is used.\n" 
 			. " To exit this screen, exit the editor as you normally would" 
-			. " - 'ZZ' for vi(m).]" 
+			. " - 'ZQ' for vi(m).]" 
 			. "\n\n" 
 			. $body;
@@ -597,4 +597,18 @@
 	}
 
+package AlternateStyle;
+	use base qw/ _Attribute /;
+
+	sub new {
+		my $proto = shift;
+		my $class = ref($proto) || $proto;
+		my $self = $class->SUPER::new(@_);
+		$self->set_name       ( "ALTERNATESTYLE" );
+		$self->add_enumeration( qw/ ABOLD ABOLDITALIC ABOLDITULINE ABOLDULINE AITALIC AITULINE ASUB ASUPER AULINE NONE / );
+		$self->set_default    ( "NONE" );
+		$self->set_prompt     ( "Warning: Not currently implemented.\nSome author-date bibliographic styles use title instead of author when there is no author specified.  This attribute determines the style of the title when it is used this way.  Options -- ABOLD = bold, ABOLDITALIC = bold italic, ABOLDITULINE = bold italic underlined, ABOLDULINE = bold underlined, AITALIC = italic, AITULINE = italic underlined, ASUB = subscript, ASUPER = superscript, AULINE = underlined and ANONE = no special formatting." );
+		return $self;
+	}
+
 package Role_AuthorList;
 	use base qw/ _Attribute /;
@@ -986,5 +1000,19 @@
 	}
 
-package AlternateText;
+package AlternateText_AuthorList;
+	use base qw/ _Attribute /;
+
+	sub new {
+		my $proto = shift;
+		my $class = ref($proto) || $proto;
+		my $self = $class->SUPER::new(@_);
+		$self->set_name       ( "ALTERNATETEXT" );
+		$self->add_enumeration( qw/ AEMPTY NONE TITLEPRIMARY TITLESECONDARY TITLETERTIARY / );
+		$self->set_default    ( "AEMPTY" );
+		$self->set_prompt     ( "Warning: Not currently implemented.\nDefault = \"AEMPTY\".\nSome author-year styles use title instead of author when the author is not specified.  This attribute determines what value to use instead of author when there is no author.  Options -- AEMPTY = use value specified by element AEMPTY, NONE = author left blank, TITLEPRIMARY = use primary title, TITLESECONDARY = use secondary title and TITLETERTIARY = use tertiary title." );
+		return $self;
+	}
+
+package AlternateText_JournalName;
 	use base qw/ _Attribute /;
 
@@ -1060,5 +1088,5 @@
 		$self->set_name       ( "BIBLIOSEQUENCE" );
 		$self->add_enumeration( qw/ BASIS BAUTHORDATE BDATEASC BDATEDESC / );
-		$self->set_default    ( "BAUTHORDAT" );
+		$self->set_default    ( "BAUTHORDATE" );
 		$self->set_prompt     ( "Default = \"BAUTHORDATE\".\nDetermines the order of references in bibliography.  The options are: BASIS = same order as citations appear in document, BAUTHORDATE = sort on author then date, BDATEASC = sort on date ascending and BDATEDESC = sort on date descending." );
 		return $self;
@@ -3959,5 +3987,5 @@
 						$self->{attributes}->{selected}[$_]->get_value()
 					);
-					}
+				}
 			} else {
 				$output .= "<i>No styling changes specified</i></div>\n<div>";
@@ -4360,5 +4388,5 @@
 		$self->set_attributes( {
 			mandatory => [ "Role_AuthorList" ] ,
-			optional  => [ "Style" ] ,
+			optional  => [ "AlternateStyle" , "AlternateText_AuthorList" , "Style" ] ,
 		} );
 		$self->set_order( [
@@ -4761,5 +4789,5 @@
 		$self->set_attributes( {
 			mandatory => undef ,
-			optional  => [ "AlternateText" , "DefaultText" , "DefaultText" , "Punctuation" , "Case" , "Style" ] ,
+			optional  => [ "AlternateText_JournalName" , "DefaultText" , "DefaultText" , "Punctuation" , "Case" , "Style" ] ,
 		} );
 		$self->set_order( [
@@ -5207,5 +5235,5 @@
 		$self->set_attributes( {
 			mandatory => undef ,
-			optional  => [ "BiblioFirstIndent" , "BiblioSequence" , "BiblioBlockIndent" , "FontSize" ] ,
+			optional  => [ "BiblioSequence" , "BiblioFirstIndent" , "BiblioBlockIndent" , "FontSize" ] ,
 		} );
 		$self->set_order( [