projects
/
koha.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[followup](bug #4334) fix duplicate entries in sql
[koha.git]
/
catalogue
/
showmarc.pl
diff --git
a/catalogue/showmarc.pl
b/catalogue/showmarc.pl
index
18c1b45
..
06bf843
100755
(executable)
--- a/
catalogue/showmarc.pl
+++ b/
catalogue/showmarc.pl
@@
-39,8
+39,6
@@
use C4::ImportBatch;
use XML::LibXSLT;
use XML::LibXML;
use XML::LibXSLT;
use XML::LibXML;
-my $userid = $ENV{'REMOTE_USER'};
-
my $input = new CGI;
my $biblionumber = $input->param('id');
my $importid = $input->param('importid');
my $input = new CGI;
my $biblionumber = $input->param('id');
my $importid = $input->param('importid');
@@
-52,7
+50,7
@@
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
query => $input,
type => "intranet",
authnotrequired => 0,
query => $input,
type => "intranet",
authnotrequired => 0,
- flagsrequired => {
acquisition
=> 1 },
+ flagsrequired => {
catalogue
=> 1 },
debug => 1,
}
);
debug => 1,
}
);
@@
-70,7
+68,7
@@
if($importid) {
if($view eq 'card') {
$xmlrecord = GetXmlBiblio($biblionumber) unless $xmlrecord;
if($view eq 'card') {
$xmlrecord = GetXmlBiblio($biblionumber) unless $xmlrecord;
-my $xslfile = C4::Context->config('intra
netdir')."/koha-tmpl/intranet-tmpl
/prog/en/xslt/compact.xsl";
+my $xslfile = C4::Context->config('intra
htdocs')."
/prog/en/xslt/compact.xsl";
my $parser = XML::LibXML->new();
my $xslt = XML::LibXSLT->new();
my $source = $parser->parse_string($xmlrecord);
my $parser = XML::LibXML->new();
my $xslt = XML::LibXSLT->new();
my $source = $parser->parse_string($xmlrecord);