Changeset 9961

Timestamp:

2005-05-25T17:34:18+12:00 (19 years ago)

Author:

davidb

Message:

Minor refinement made to print statements (warnings) generated by BasPlug.

File:

• trunk/gsdl/perllib/plugins/BasPlug.pm (modified) (5 diffs)

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -682 +682 @@
 
     if ($smart_block || $smart_block_BN) {
+    
     if (defined $self->{'file_blocks'}->{$filename} && $self->{'file_blocks'}->{$filename} == 1){
         $self->{'num_blocked'} ++;
@@ -955 +956 @@
 
     if ($self->{'input_encoding'} ne 'auto') {
-        if ($self->{'extract_language'} && $self->{'verbosity'}) {
+        if ($self->{'extract_language'} && ($self->{'verbosity'}>2)) {
         gsprintf($outhandle,
              "BasPlug: {BasPlug.could_not_extract_language}\n",
@@ -963 +964 @@
 
     } else {
-        if ($self->{'verbosity'}) {
+        if ($self->{'verbosity'}>2) {
         gsprintf($outhandle,
              "BasPlug: {BasPlug.could_not_extract_language}\n",
@@ -975 +976 @@
     my ($language, $encoding) = $results->[0] =~ /^([^-]*)(?:-(.*))?$/;
     if (!defined $language) {
-    if ($self->{'verbosity'}) {
+    if ($self->{'verbosity'}>2) {
         gsprintf($outhandle,
              "BasPlug: {BasPlug.could_not_extract_language}\n",
@@ -983 +984 @@
     }
     if (!defined $encoding) {
-    if ($self->{'verbosity'}) {
+    if ($self->{'verbosity'}>2) {
         gsprintf($outhandle,
              "BasPlug: {BasPlug.could_not_extract_encoding}\n",