From: miker Date: Fri, 1 May 2009 01:24:49 +0000 (+0000) Subject: removing namspace prefixes on holdings extentions X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=bded23b70830cf3626efa6a2c59009c57730ee83;p=evergreen%2Fmasslnc.git removing namspace prefixes on holdings extentions git-svn-id: svn://svn.open-ils.org/ILS/trunk@13027 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- diff --git a/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm b/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm index 34cea01bbd..1344432e04 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm @@ -683,7 +683,7 @@ sub new_record_holdings { $year += 1900; $month += 1; - $client->respond(""); + $client->respond(""); for my $cn (@{$tree->call_numbers}) { next unless ( $cn->deleted eq 'f' || $cn->deleted == 0 ); @@ -705,7 +705,7 @@ sub new_record_holdings { my $cn_label = $cn->label; - my $xml = ""; + my $xml = ""; for my $cp (@{$cn->copies}) { @@ -721,34 +721,34 @@ sub new_record_holdings { my $cp_lib = escape($cp->circ_lib->shortname); my $cp_bc = escape($cp->barcode); - $xml .= "$cp_stat". - "$cp_loc$cp_lib"; + $xml .= "$cp_stat". + "$cp_loc$cp_lib"; if ($cp->notes) { for my $note ( @{$cp->notes} ) { next unless ( $note->pub eq 't' ); - $xml .= sprintf('%s',$note->create_date, escape($note->title), escape($note->value)); + $xml .= sprintf('%s',$note->create_date, escape($note->title), escape($note->value)); } } - $xml .= ""; + $xml .= ""; if ($cp->stat_cat_entries) { for my $sce ( @{$cp->stat_cat_entries} ) { next unless ( $sce->stat_cat->opac_visible eq 't' ); - $xml .= sprintf('%s',escape($sce->stat_cat->name) ,escape($sce->value)); + $xml .= sprintf('%s',escape($sce->stat_cat->name) ,escape($sce->value)); } } - $xml .= ""; + $xml .= ""; } - $xml .= ""; + $xml .= ""; $client->respond($xml) } - return ""; + return ""; } __PACKAGE__->register_method( method => 'new_record_holdings', diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm b/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm index 9e6ee71856..23232385d7 100644 --- a/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm +++ b/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm @@ -42,7 +42,7 @@ $browse_types{call_number}{xml} = sub { my $year = (gmtime())[5] + 1900; my $content = ''; - $content .= ""; + $content .= ""; for my $cn (@$tree) { (my $cn_class = $cn->class_name) =~ s/::/-/gso; @@ -69,17 +69,17 @@ $browse_types{call_number}{xml} = sub { my $rec_tag = "tag:open-ils.org,$year:$rec_class/".$cn->record->id.'/'.$cn->owning_lib->shortname; - $content .= ""; - $content .= ""; + $content .= ""; + $content .= ""; my $r_doc = $parser->parse_string($cn->record->marc); $r_doc->documentElement->setAttribute( id => $rec_tag ); $content .= $U->entityize($r_doc->documentElement->toString); - $content .= ""; + $content .= ""; } - $content .= ''; + $content .= ''; return ("Content-type: application/xml\n\n",$content); };