Skip to main content.
home | support | download

Back to List Archive

Configuration of the example CGI (swish.cgi)

From: Tajoli Zeno <tajoli(at)not-real.cilea.it>
Date: Wed Mar 26 2003 - 17:33:37 GMT
Hi at all,

I'm working on the version 2.2.3 on Linux. I want to translate the CGI 
avaible in /example (swish.cgi).
Now I want to work on this results of standard interface, where it's 
possible to limit by date.
In swish.cgi I found that sub:

sub get_date_ranges {

     my $self = shift;

     my $q = $self->{q};
     my $conf = $self->{config};

     return '' unless $conf->{date_ranges};

     # pass parametes, and a hash to store the returned values.

     my %fields;

     DateRanges::DateRangeForm( $q, $conf->{date_ranges}, \%fields );


     # Set the layout:

     my $string = '<br>Limit to: '
                  . ( $fields{buttons} ? "$fields{buttons}<br>" : '' )
                  . ( $fields{date_range_button} || '' )
                  . ( $fields{date_range_low}
                      ? " $fields{date_range_low} through 
$fields{date_range_high}"
                      : '' );

     return $string;
}

If I change the two line
     my $string = '<br>Limit to: '
                  . ( $fields{buttons} ? "$fields{buttons}<br>" : '' )

with
     my $string = '<br> Limita ad: '
          . '<input type="radio" name="DateRanges_date_option" value="All" 
/>Non limitare'
          .'<input type="radio" name="DateRanges_date_option" value="Today" 
/>Oggi'
          .'<input type="radio" name="DateRanges_date_option" 
value="Yesterday" />Ieri'
          .'<input type="radio" name="DateRanges_date_option" value="This 
Week" />Questa settimana<br>'

I recive a good results (for my italian users).
But It's not the good way of modify code.
Instead where can I modify the code in a better way ?

Zeno Tajoli
tajoli@cilea.it
CILEA - Segrate (MI)
02 / 26995321
Received on Wed Mar 26 17:34:38 2003