# Custom Perl include file
# Add your Perl customizations here
package LAS::Server::Ferret;
use File::Basename;

sub preExecuteHook {
    my $self = shift;

    my $var = $self->{vars}->[0];
    my $url = new URI::URL($var->getURL);
    my $frag = $url->frag;
    $frag = "'$frag'";
    $frag = uc($frag);
    $url->frag(uc($frag));
    $var->setURL($url);
    $self->{props}->{variable_name} = $frag;
}

1;
