[Koha-patches] [PATCH] Bugfix: Fixing hardcoded dir paths in C4::XSLT

[Chris Nighswonger]

Disregard this patch. Resubmit to follow.


On Thu, Jan 28, 2010 at 12:26 PM, Chris Nighswonger
<cnighswonger at foundations.edu> wrote:
> ---
>  C4/XSLT.pm |   13 +++++++------
>  1 files changed, 7 insertions(+), 6 deletions(-)
>
> diff --git a/C4/XSLT.pm b/C4/XSLT.pm
> index 8a67e04..10bcd51 100644
> --- a/C4/XSLT.pm
> +++ b/C4/XSLT.pm
> @@ -73,7 +73,7 @@ sub transformMARCXML4XSLT {
>                     $value = GetAuthorisedValueDesc( $tag, $letter, $value, '', $tagslib )
>                         if $av->{ $tag }->{ $letter };
>                     push( @new_subfields, $letter, $value );
> -                }
> +                }
>                 $field ->replace_with( MARC::Field->new(
>                     $tag,
>                     $field->indicator(1),
> @@ -118,6 +118,7 @@ sub getAuthorisedValues4MARCSubfields {
>  my $stylesheet;
>
>  sub XSLTParse4Display {
> +    use Data::Dumper; #XXX
>     my ( $biblionumber, $orig_record, $xsl_suffix, $interface ) = @_;
>     $interface = 'opac' unless $interface;
>     # grab the XML, run it through our stylesheet, push it out to the browser
> @@ -143,12 +144,12 @@ sub XSLTParse4Display {
>         my $xslt = XML::LibXSLT->new();
>         my $xslfile;
>         if ($interface eq 'intranet') {
> -            $xslfile = C4::Context->config('intrahtdocs') .
> +            $xslfile = C4::Context->config('intrahtdocs') .
>                       "/prog/en/xslt/" .
>                       C4::Context->preference('marcflavour') .
>                       "slim2intranet$xsl_suffix.xsl";
>         } else {
> -            $xslfile = C4::Context->config('opachtdocs') .
> +            $xslfile = C4::Context->config('opachtdocs') .
>                       "/prog/en/xslt/" .
>                       C4::Context->preference('marcflavour') .
>                       "slim2OPAC$xsl_suffix.xsl";
> @@ -176,7 +177,7 @@ sub buildKohaItemsNamespace {
>              (defined $transfertwhen && $transfertwhen ne '') || $item->{itemnotforloan} ) {
>             if ( $item->{notforloan} < 0) {
>                 $status = "On order";
> -            }
> +            }
>             if ( $item->{itemnotforloan} > 0 || $item->{notforloan} > 0 || $itemtypes->{ $item->{itype} }->{notforloan} == 1 ) {
>                 $status = "reference";
>             }
> @@ -190,7 +191,7 @@ sub buildKohaItemsNamespace {
>                 $status = "Lost";
>             }
>             if ($item->{damaged}) {
> -                $status = "Damaged";
> +                $status = "Damaged";
>             }
>             if (defined $transfertwhen && $transfertwhen ne '') {
>                 $status = 'In transit';
> @@ -201,7 +202,7 @@ sub buildKohaItemsNamespace {
>         my $homebranch = $branches->{$item->{homebranch}}->{'branchname'};
>         $xml.= "<item><homebranch>$homebranch</homebranch>".
>                "<status>$status</status>".
> -               (defined $item->{'itemcallnumber'} ? "<itemcallnumber>".$item->{'itemcallnumber'}."</itemcallnumber>"
> +               (defined $item->{'itemcallnumber'} ? "<itemcallnumber>".$item->{'itemcallnumber'}."</itemcallnumber>"
>                                            : "<itemcallnumber />")
>         . "</item>";
>
> --
> 1.6.0.4
>
>