# Copyright 2001-2005 The Apache Software Foundation
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
#     http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.
#

# $Id$

package Apache::AxKit::StyleChooser::QueryString;

use strict;
use Apache::Constants qw(OK);

sub handler {
    my $r = shift;
    
    my %in = $r->args();
    my $key = $r->dir_config('AxStyleChooserQueryStringKey') || 'style';
    
    if ($in{$key}) {
        $r->notes('preferred_style', $in{$key});
    }
    return OK;
}

1;
__END__

=head1 NAME

Apache::AxKit::StyleChooser::QueryString - Choose stylesheet using querystring

=head1 SYNOPSIS

  AxAddPlugin Apache::AxKit::StyleChooser::QueryString

=head1 DESCRIPTION

This module lets you pick a stylesheet based on the querystring. 
To use it, simply add this module as an AxKit plugin that 
will be run before main AxKit processing is done.

  AxAddPlugin Apache::AxKit::StyleChooser::QueryString

By default, the key name of the name/value pair is 'style'.
This can be changed by setting the variable AxStyleChooserQueryStringKey
in your httpd.conf:

  PerlSetVar AxStyleChooserQueryStringKey mystyle

Then simply by referencing your xml files as follows:

  http://xml.server.com/myfile.xml?style=printable
  
or

  http://xml.server.com/myfile.xml?mystyle=printable

respectively - you will recieve the alternate stylesheets with title
"printable". See the HTML 4.0 specification for more details on
stylesheet choice.

See the B<AxStyleName> AxKit configuration directive
for more information on how to setup named styles.

=head1 SEE ALSO

AxKit

=cut