[Po4a-devel][CVS] po4a/lib/Locale/Po4a Po.pm,1.22,1.23

[Jordi Vilalta]

Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory haydn:/tmp/cvs-serv19624

Modified Files:
	Po.pm 
Log Message:
- Stop debugging encodings (this part is simple enough to work well)
- After gettextize() every po has a valid encoding (ascii instead of CHARSET)
- Remove bolds in doc to use the same style as in the rest of po4a


Index: Po.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Po.pm,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -d -r1.22 -r1.23
--- Po.pm	8 Aug 2004 19:58:48 -0000	1.22
+++ Po.pm	8 Aug 2004 21:51:06 -0000	1.23
@@ -81,14 +81,14 @@
 my %debug=('canonize'	=> 0,
            'quote'	=> 0,
            'escape'	=> 0,
-           'encoding'   => 1,
+           'encoding'   => 0,
            'filter'     => 1);
 
 =head1 Functions about whole message catalogs
 
 =over 4
 
-=item B<new()>
+=item new()
 
 Creates a new message catalog. If an argument is provided, it's the name of
 a po file we should load.
@@ -134,7 +134,7 @@
     $self->stats_clear();
 }
 
-=item B<read()>
+=item read()
 
 Reads a po file (which name is given as argument).  Previously existing
 entries in self are not removed, the new one are added to the end of the
@@ -207,7 +207,7 @@
     }
 }
 
-=item B<write()>
+=item write()
 
 Writes the current catalog to the given file.
 
@@ -307,7 +307,11 @@
 	$potrans->to_utf;
 	$pores->set_charset("utf-8");
     } else {
-	$pores->set_charset($potrans->get_charset);
+	if ($potrans->get_text eq "CHARSET") {
+	    $pores->set_charset("ascii");
+	} else {
+	    $pores->set_charset($potrans->get_charset);
+	}
     }
     print "Po character sets:\n".
 	"  original=".$poorig->get_charset."\n".
@@ -597,7 +601,7 @@
 
 =over 4
 
-=item B<gettext($%)>
+=item gettext($%)
 
 Request the translation of the string given as argument in the current catalog.
 The function returns the empty string if the string was not found.
@@ -663,7 +667,7 @@
     return $res;
 }
 
-=item B<stats_get()>
+=item stats_get()
 
 Returns stats about the hit ratio of gettext since the last time that
 stats_clear() were called. Please note that it's not the same
@@ -689,7 +693,7 @@
     return ( $p,$h,$q );
 }
 
-=item B<stats_clear()>
+=item stats_clear()
 
 Clears the stats about gettext hits.
 
@@ -707,7 +711,7 @@
 
 =over 4
 
-=item B<push()>
+=item push()
 
 Push a new entry at the end of the current catalog. The arguments should
 form an hash table. The valid keys are :