gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

MT 2050, Follow-up, Fast Cataloging 

Adds granular permissions for cataloging
Also adds a link from the circulation home to fast cataloging when fast cataloging is active
This commit is contained in:
Matthias Meusburger 2009-11-23 14:44:51 +01:00 committed by Henri-Damien LAURENT
parent ce3adab2ee
commit 9f41fe64be
89 changed files with 130 additions and 91 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
acqui/fetch_sort_dropbox.pl
View File

@ -40,7 +40,7 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => 'edit_catalogue'},
debug => 0,
}
);

2
authorities/blinddetail-biblio-search.pl
View File

@ -67,7 +67,7 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
query => $query,
type => "intranet",
authnotrequired => 0,
flagsrequired => { editcatalogue => 1 },
flagsrequired => { editcatalogue => 'edit_catalogue' },
}
);

2
catalogue/suggest.pl
View File

@ -48,7 +48,7 @@ my ($template, $loggedinuser, $cookie)
query => $query,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => 'edit_catalogue'},
debug => 1,
});
$template->param("loop" => \@loop_suggests,

4
cataloguing/addbiblio.pl
View File

@ -830,6 +830,8 @@ my $mode = $input->param('mode');
my $frameworkcode = $input->param('frameworkcode');
my $dbh = C4::Context->dbh;
my $userflags = ($frameworkcode eq 'FA') ? "fast_cataloging" : "edit_catalogue";
$frameworkcode = &GetFrameworkCode($biblionumber)
if ( $biblionumber and not($frameworkcode) );
@ -840,7 +842,7 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => { editcatalogue => 1 },
flagsrequired => { editcatalogue => $userflags },
}
);

2
cataloguing/addbooks.pl
View File

@ -49,7 +49,7 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => { editcatalogue => 1 },
flagsrequired => { editcatalogue => 'edit_catalogue' },
debug => 1,
}
);

15
cataloguing/additem.pl
View File

@ -75,16 +75,27 @@ my $biblionumber = $input->param('biblionumber');
my $itemnumber = $input->param('itemnumber');
my $op = $input->param('op');
my $frameworkcode = &GetFrameworkCode($biblionumber);
# Defining which userflag is needing according to the framework currently used
my $userflags;
if (defined $input->param('frameworkcode')) {
$userflags = ($input->param('frameworkcode') eq 'FA') ? "fast_cataloging" : "edit_catalogue";
}
if (not defined $userflags) {
$userflags = ($frameworkcode eq 'FA') ? "fast_cataloging" : "edit_catalogue";
}
my ($template, $loggedinuser, $cookie)
= get_template_and_user({template_name => "cataloguing/additem.tmpl",
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => $userflags},
debug => 1,
});
my $frameworkcode = &GetFrameworkCode($biblionumber);
my $today_iso = C4::Dates->today('iso');
$template->param(today_iso => $today_iso);

2
cataloguing/merge.pl
View File

@ -39,7 +39,7 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => { editcatalogue => 1 },
flagsrequired => { editcatalogue => 'edit_catalogue' },
}
);

2
cataloguing/moveitem.pl
View File

@ -47,7 +47,7 @@ my ($template, $loggedinuser, $cookie)
query => $query,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => 'edit_catalogue'},
debug => 1,
});

2
cataloguing/value_builder/macles.pl
View File

@ -176,7 +176,7 @@ my ($input) = @_;
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
$template->param(BIGLOOP=>\@BIGLOOP);

2
cataloguing/value_builder/marc21_field_006.pl
View File

@ -75,7 +75,7 @@ sub plugin {
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => { editcatalogue => 1 },
flagsrequired => { editcatalogue => '*' },
debug => 1,
}
);

2
cataloguing/value_builder/marc21_field_007.pl
View File

@ -76,7 +76,7 @@ my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
$result = "ta" unless $result;

2
cataloguing/value_builder/marc21_field_008.pl
View File

@ -88,7 +88,7 @@ sub plugin {
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => { editcatalogue => 1 },
flagsrequired => { editcatalogue => '*' },
debug => 1,
}
);

2
cataloguing/value_builder/marc21_field_008_authorities.pl
View File

@ -84,7 +84,7 @@ sub plugin {
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
$result = "$dateentered".'|| aca||aabn | a|a d' unless $result;

2
cataloguing/value_builder/marc21_leader.pl
View File

@ -78,7 +78,7 @@ my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
$result = " nam a22 7a 4500" unless $result;

2
cataloguing/value_builder/marc21_leader_authorities.pl
View File

@ -78,7 +78,7 @@ my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
$result = " nz a22 n 4500" unless $result;

2
cataloguing/value_builder/marc21_leader_book.pl
View File

@ -75,7 +75,7 @@ my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
$result = " nam 7a " unless $result;

2
cataloguing/value_builder/marc21_leader_computerfile.pl
View File

@ -75,7 +75,7 @@ my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
$result = " nmm 7a " unless $result;

2
cataloguing/value_builder/marc21_leader_video.pl
View File

@ -75,7 +75,7 @@ my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
$result = " ngm 7a " unless $result;

2
cataloguing/value_builder/unimarc_field_010.pl
View File

@ -82,7 +82,7 @@ sub plugin {
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});

2
cataloguing/value_builder/unimarc_field_100.pl
View File

@ -77,7 +77,7 @@ sub plugin {
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => { editcatalogue => 1 },
flagsrequired => { editcatalogue => '*' },
debug => 1,
}
);

2
cataloguing/value_builder/unimarc_field_105.pl
View File

@ -72,7 +72,7 @@ sub plugin {
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
my $f1 = substr($result,0,1);

2
cataloguing/value_builder/unimarc_field_106.pl
View File

@ -70,7 +70,7 @@ my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
my $f1 = substr($result,0,1);

2
cataloguing/value_builder/unimarc_field_110.pl
View File

@ -70,7 +70,7 @@ my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
my $f1 = substr($result,0,1);

2
cataloguing/value_builder/unimarc_field_115a.pl
View File

@ -79,7 +79,7 @@ sub plugin {
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => { editcatalogue => 1 },
flagsrequired => { editcatalogue => '*' },
debug => 1,
}
);

2
cataloguing/value_builder/unimarc_field_115b.pl
View File

@ -73,7 +73,7 @@ sub plugin {
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => { editcatalogue => 1 },
flagsrequired => { editcatalogue => '*' },
debug => 1,
}
);

2
cataloguing/value_builder/unimarc_field_116.pl
View File

@ -72,7 +72,7 @@ sub plugin {
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => { editcatalogue => 1 },
flagsrequired => { editcatalogue => '*' },
debug => 1,
}
);

2
cataloguing/value_builder/unimarc_field_117.pl
View File

@ -69,7 +69,7 @@ my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
my $f1 = substr($result,0,2);

2
cataloguing/value_builder/unimarc_field_120.pl
View File

@ -72,7 +72,7 @@ my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
my $f1 = substr($result,0,1);

2
cataloguing/value_builder/unimarc_field_121a.pl
View File

@ -72,7 +72,7 @@ my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
my $f1 = substr($result,0,1);

2
cataloguing/value_builder/unimarc_field_121b.pl
View File

@ -72,7 +72,7 @@ my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
my $f1 = substr($result,0,1);

2
cataloguing/value_builder/unimarc_field_122.pl
View File

@ -73,7 +73,7 @@ my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
my $f1 = substr($result,0,1);

2
cataloguing/value_builder/unimarc_field_123a.pl
View File

@ -72,7 +72,7 @@ my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
my $f1 = substr($result,0,1);

2
cataloguing/value_builder/unimarc_field_123d.pl
View File

@ -72,7 +72,7 @@ my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
my $f1 = substr($result,0,1);

2
cataloguing/value_builder/unimarc_field_123e.pl
View File

@ -72,7 +72,7 @@ my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
my $f1 = substr($result,0,1);

2
cataloguing/value_builder/unimarc_field_123f.pl
View File

@ -73,7 +73,7 @@ my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
my $f1 = substr($result,0,1);

2
cataloguing/value_builder/unimarc_field_123g.pl
View File

@ -72,7 +72,7 @@ my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
my $f1 = substr($result,0,1);

2
cataloguing/value_builder/unimarc_field_123i.pl
View File

@ -72,7 +72,7 @@ my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
my $f1 = substr($result,0,1);

2
cataloguing/value_builder/unimarc_field_123j.pl
View File

@ -76,7 +76,7 @@ sub plugin {
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
}
);

2
cataloguing/value_builder/unimarc_field_124.pl
View File

@ -72,7 +72,7 @@ my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
my $f1 = substr($result,0,8);

2
cataloguing/value_builder/unimarc_field_124a.pl
View File

@ -72,7 +72,7 @@ my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
my $f1 = substr($result,0,1);

2
cataloguing/value_builder/unimarc_field_124b.pl
View File

@ -72,7 +72,7 @@ my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
my $f1 = substr($result,0,1);

2
cataloguing/value_builder/unimarc_field_124c.pl
View File

@ -73,7 +73,7 @@ my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
my $f1 = substr($result,0,1);

2
cataloguing/value_builder/unimarc_field_124d.pl
View File

@ -72,7 +72,7 @@ my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
my $f1 = substr($result,0,1);

2
cataloguing/value_builder/unimarc_field_124e.pl
View File

@ -72,7 +72,7 @@ my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
my $f1 = substr($result,0,1);

2
cataloguing/value_builder/unimarc_field_124f.pl
View File

@ -72,7 +72,7 @@ my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
my $f1 = substr($result,0,2);

2
cataloguing/value_builder/unimarc_field_124g.pl
View File

@ -72,7 +72,7 @@ my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
my $f1 = substr($result,0,2);

2
cataloguing/value_builder/unimarc_field_125.pl
View File

@ -72,7 +72,7 @@ my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
my $f1 = substr($result,0,8);

2
cataloguing/value_builder/unimarc_field_125a.pl
View File

@ -72,7 +72,7 @@ my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
my $f1 = substr($result,0,1);

2
cataloguing/value_builder/unimarc_field_125b.pl
View File

@ -72,7 +72,7 @@ my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
my $f1 = substr($result,0,1);

2
cataloguing/value_builder/unimarc_field_126.pl
View File

@ -72,7 +72,7 @@ my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
my $f1 = substr($result,0,8);

2
cataloguing/value_builder/unimarc_field_126a.pl
View File

@ -72,7 +72,7 @@ my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
my $f1 = substr($result,0,1);

2
cataloguing/value_builder/unimarc_field_126b.pl
View File

@ -72,7 +72,7 @@ my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
my $f1 = substr($result,0,1);

2
cataloguing/value_builder/unimarc_field_127.pl
View File

@ -72,7 +72,7 @@ my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
my $f1 = substr($result,0,2);

2
cataloguing/value_builder/unimarc_field_128a.pl
View File

@ -72,7 +72,7 @@ my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
my $f1 = substr($result,0,2);

2
cataloguing/value_builder/unimarc_field_128b.pl
View File

@ -72,7 +72,7 @@ my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
my $f1 = substr($result,0,2);

2
cataloguing/value_builder/unimarc_field_128c.pl
View File

@ -73,7 +73,7 @@ my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
my $f1 = substr($result,0,2);

2
cataloguing/value_builder/unimarc_field_130.pl
View File

@ -73,7 +73,7 @@ my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
my $f1 = substr($result,0,1);

2
cataloguing/value_builder/unimarc_field_135a.pl
View File

@ -72,7 +72,7 @@ my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
my $f1 = substr($result,0,1);

2
cataloguing/value_builder/unimarc_field_140.pl
View File

@ -72,7 +72,7 @@ my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
my $f1 = substr($result,0,1);

2
cataloguing/value_builder/unimarc_field_141.pl
View File

@ -72,7 +72,7 @@ my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
my $f1 = substr($result,0,1);

4
cataloguing/value_builder/unimarc_field_210c.pl
View File

@ -140,7 +140,7 @@ my ($input) = @_;
query => $query,
type => 'intranet',
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
@ -202,7 +202,7 @@ my ($input) = @_;
query => $query,
type => 'intranet',
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});

2
cataloguing/value_builder/unimarc_field_225a.pl
View File

@ -116,7 +116,7 @@ sub plugin {
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => { editcatalogue => 1 },
flagsrequired => { editcatalogue => '*' },
debug => 1,
}
);

2
cataloguing/value_builder/unimarc_field_4XX.pl
View File

@ -95,7 +95,7 @@ sub plugin {
query => $query,
type => "intranet",
authnotrequired => 0,
flagsrequired => { editcatalogue => 1 },
flagsrequired => { editcatalogue => '*' },
debug => 1,
}
);

2
cataloguing/value_builder/unimarc_field_686a.pl
View File

@ -79,7 +79,7 @@ my ($input) = @_;
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
$template->param(index => $index,

2
cataloguing/value_builder/unimarc_field_700-4.pl
View File

@ -87,7 +87,7 @@ my ($input) = @_;
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {editcatalogue => 1},
flagsrequired => {editcatalogue => '*'},
debug => 1,
});
$template->param(index => $index,

2
cataloguing/value_builder/unimarc_leader.pl
View File

@ -77,7 +77,7 @@ sub plugin {
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => { editcatalogue => 1 },
flagsrequired => { editcatalogue => '*' },
debug => 1,
}
);

7
circ/circulation-home.pl
View File

@ -21,7 +21,7 @@ use CGI;
use C4::Auth;
use C4::Output;
use C4::Context;
use C4::Koha;
my $query = new CGI;
my ($template, $loggedinuser, $cookie)
@ -32,4 +32,9 @@ my ($template, $loggedinuser, $cookie)
flagsrequired => {circulate => "circulate_remaining_permissions"},
});
# Checking if there is a Fast Cataloging Framework
my $fa = getframeworkinfo('FA');
$template->param({ fast_cataloging => 1 }) if (defined $fa);
output_html_with_http_headers $query, $cookie, $template->output;

2
installer/data/mysql/en/mandatory/userpermissions.sql
View File

@ -1,6 +1,8 @@
INSERT INTO permissions (module_bit, code, description) VALUES
( 1, 'circulate_remaining_permissions', 'Remaining circulation permissions'),
( 1, 'override_renewals', 'Override blocked renewals'),
( 9, 'edit_catalogue', 'Edit catalogue'),
( 9, 'fast_cataloging', 'Fast cataloging'),
(11, 'vendors_manage', 'Manage vendors'),
(11, 'contracts_manage', 'Manage contracts'),
(11, 'period_manage', 'Manage periods'),

2
installer/data/mysql/fr-FR/1-Obligatoire/userpermissions.sql
View File

@ -1,6 +1,8 @@
INSERT INTO permissions (module_bit, code, description) VALUES
( 1, 'circulate_remaining_permissions', 'Remaining circulation permissions'),
( 1, 'override_renewals', 'Override blocked renewals'),
( 9, 'edit_catalogue', 'Editer le catalogue'),
( 9, 'fast_cataloging', 'Catalogage rapide'),
(13, 'edit_news', 'Write news for the OPAC and staff interfaces'),
(13, 'label_creator', 'Create printable labels and barcodes from catalog and patron data'),
(13, 'edit_calendar', 'Define days when the library is closed'),

12
installer/data/mysql/updatedatabase.pl
View File

@ -3291,6 +3291,18 @@ if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
SetVersion ($DBversion);
}
$DBversion = "3.01.00.128";
if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
$dbh->do(qq{
INSERT INTO `permissions` (`module_bit`, `code`, `description`) VALUES
(9, 'edit_catalogue', 'Edit catalogue'),
(9, 'fast_cataloging', 'Fast cataloging')
});
print "Upgrade to $DBversion done (granular permissions for cataloging added)\n";
SetVersion ($DBversion);
}
=item DropAllForeignKeys($table)
Drop all foreign keys of the table $table

6
koha-tmpl/intranet-tmpl/prog/en/includes/cat-toolbar.inc
View File

@ -2,7 +2,7 @@
<script type="text/javascript">
//<![CDATA[
<!-- TMPL_IF NAME="CAN_user_editcatalogue" -->
<!-- TMPL_IF NAME="CAN_user_editcatalogue_edit_catalogue" -->
/* this function open a popup to search on z3950 server. */
function PopupZ3950() {
var strQuery = GetZ3950Terms();
@ -156,7 +156,7 @@ function confirm_items_deletion() {
<form method="post" name="f" id="f" action="/cgi-bin/koha/cataloguing/addbiblio.pl" onsubmit="return Check();">
<ul class="toolbar">
<!-- TMPL_IF NAME="CAN_user_editcatalogue" -->
<!-- TMPL_IF NAME="CAN_user_editcatalogue_edit_catalogue" -->
<li id="newmenuc"><a id="newbiblio" href="/cgi-bin/koha/cataloguing/addbiblio.pl">New Record</a></li>
<li><a id="newitem" href="/cgi-bin/koha/cataloguing/additem.pl?biblionumber=<!-- TMPL_VAR NAME="biblionumber" -->">New Item</a></li>
<li><a id="newsub" href="/cgi-bin/koha/serials/subscription-add.pl?biblionumber_for_new_subscription=<!-- TMPL_VAR NAME="biblionumber" -->">New Subscription</a></li>
@ -171,7 +171,7 @@ function confirm_items_deletion() {
<!-- TMPL_UNLESS name="bi_notforloan" -->
<!-- TMPL_UNLESS NAME="norequests" --><li><a id="placehold" href="/cgi-bin/koha/reserve/request.pl?biblionumber=<!-- TMPL_VAR NAME="biblionumber" -->">Place Hold</a></li><!-- /TMPL_UNLESS --><!-- /TMPL_UNLESS -->
<!-- /TMPL_IF -->
<!-- TMPL_IF NAME="CAN_user_editcatalogue" --><li id="z3950searchc"><input type="button" id="z3950search" value="z39.50 Search" onclick="PopupZ3950(); return false;" /></li><!-- /TMPL_IF -->
<!-- TMPL_IF NAME="CAN_user_editcatalogue_edit_catalogue" --><li id="z3950searchc"><input type="button" id="z3950search" value="z39.50 Search" onclick="PopupZ3950(); return false;" /></li><!-- /TMPL_IF -->
</ul>
</form>
</div>

2
koha-tmpl/intranet-tmpl/prog/en/includes/header.inc
View File

@ -13,7 +13,7 @@
<div class="bd">
<ul>
<li><a href="/cgi-bin/koha/virtualshelves/shelves.pl">Lists</a></li>
<!-- TMPL_IF NAME="CAN_user_editcatalogue" -->
<!-- TMPL_IF NAME="CAN_user_editcatalogue_edit_catalogue" -->
<li><a href="/cgi-bin/koha/cataloguing/addbooks.pl">Cataloging</a></li>
<!-- /TMPL_IF -->
<!-- TMPL_IF NAME="CAN_user_acquisition" -->

2
koha-tmpl/intranet-tmpl/prog/en/includes/mainmenu.inc
View File

@ -43,7 +43,7 @@
</ul></li>
<!-- /TMPL_IF -->
<!-- TMPL_IF NAME="CAN_user_editcatalogue" -->
<!-- TMPL_IF NAME="CAN_user_editcatalogue_edit_catalogue" -->
<li><a href="/cgi-bin/koha/cataloguing/addbooks.pl">Cataloging</a><ul>
<li><a href="/cgi-bin/koha/cataloguing/addbiblio.pl">Add MARC Record</a></li>
<li><a href="/cgi-bin/koha/authorities/authorities-home.pl">Authorities</a></li>

4
koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/moredetail.tmpl
View File

@ -42,7 +42,7 @@
<!-- TMPL_LOOP NAME="ITEM_DATA" -->
<div class="yui-g">
<h3 id="item<!-- TMPL_VAR NAME="itemnumber" -->">Barcode <!-- TMPL_VAR NAME="barcode" --> <!-- TMPL_IF name="notforloantext" --><!-- TMPL_VAR name="notforloantext" --> <!-- /TMPL_IF --></h3>
<div class="listgroup"><h4>Item Information <!-- TMPL_IF NAME="CAN_user_editcatalogue" --><!-- TMPL_UNLESS name="nomod" --><a href="/cgi-bin/koha/cataloguing/additem.pl?op=edititem&amp;biblionumber=<!-- TMPL_VAR NAME="biblionumber"-->&amp;itemnumber=<!-- TMPL_VAR NAME="itemnumber" -->">[Edit Items]</a><!-- /TMPL_IF --><!-- /TMPL_UNLESS --></h4>
<div class="listgroup"><h4>Item Information <!-- TMPL_IF NAME="CAN_user_editcatalogue_edit_catalogue" --><!-- TMPL_UNLESS name="nomod" --><a href="/cgi-bin/koha/cataloguing/additem.pl?op=edititem&amp;biblionumber=<!-- TMPL_VAR NAME="biblionumber"-->&amp;itemnumber=<!-- TMPL_VAR NAME="itemnumber" -->">[Edit Items]</a><!-- /TMPL_IF --><!-- /TMPL_UNLESS --></h4>
<ol class="bibliodetails">
<li><span class="label">Home Library:</span> <!-- TMPL_VAR NAME="homebranchname" -->&nbsp;</li>
<!-- TMPL_IF NAME="item-level_itypes" -->
@ -140,7 +140,7 @@
<ol class="bibliodetails">
<li><span class="label">
<!-- TMPL_IF NAME="CAN_user_editcatalogue" -->
<!-- TMPL_IF NAME="CAN_user_editcatalogue_edit_catalogue" -->
Accession Date:</span> <a href="/cgi-bin/koha/acqui/basket.pl?basketno=<!-- TMPL_VAR NAME="basketno" -->"><!-- TMPL_VAR NAME="dateaccessioned" --></a>
<!-- TMPL_ELSE -->
<!-- TMPL_VAR NAME="dateaccessioned" -->

2
koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/results.tmpl
View File

@ -236,7 +236,7 @@ function GetZ3950Terms(){
<!-- /TMPL_IF -->
<span class="addto"></span>
<!-- TMPL_IF NAME="CAN_user_editcatalogue" --><input type="button" onclick="PopupZ3950(); return false;" value="z39.50 Search"/><!-- /TMPL_IF -->
<!-- TMPL_IF NAME="CAN_user_editcatalogue_edit_catalogue" --><input type="button" onclick="PopupZ3950(); return false;" value="z39.50 Search"/><!-- /TMPL_IF -->
</div>
</div>
<!-- TMPL_IF NAME="stopwords_removed" --><div><p class="tip">Ignored the following common words: "<!-- TMPL_VAR NAME="stopwords_removed" -->"<p></div><!-- /TMPL_IF -->

4
koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/addbooks.tmpl
View File

@ -98,7 +98,7 @@
</td>
<td> <a href="/cgi-bin/koha/catalogue/showmarc.pl?id=<!-- TMPL_VAR NAME="biblionumber" -->" title="MARC" rel="gb_page_center[600,500]">MARC</a> | <a href="/cgi-bin/koha/catalogue/showmarc.pl?viewas=card&amp;id=<!-- TMPL_VAR NAME="biblionumber" -->" title="MARC" rel="gb_page_center[600,500]">Card</a>
</td>
<td><!-- TMPL_IF NAME="CAN_user_editcatalogue"--><a href="/cgi-bin/koha/cataloguing/addbiblio.pl?biblionumber=<!-- TMPL_VAR NAME="biblionumber" -->">Edit biblio</a>
<td><!-- TMPL_IF NAME="CAN_user_editcatalogue_edit_catalogue"--><a href="/cgi-bin/koha/cataloguing/addbiblio.pl?biblionumber=<!-- TMPL_VAR NAME="biblionumber" -->">Edit biblio</a>
<!-- TMPL_ELSE --><a href="/cgi-bin/koha/cataloguing/addbiblio.pl?biblionumber=<!-- TMPL_VAR NAME="biblionumber" -->" class="disabled" onclick="return false;">Edit biblio</a>
<!-- /TMPL_IF -->
@ -149,7 +149,7 @@
</td>
<td><!-- TMPL_IF NAME="NOTMARC" -->
<!-- TMPL_ELSE -->
<a href="/cgi-bin/koha/cataloguing/addbiblio.pl?breedingid=<!-- TMPL_VAR NAME="id" -->" <!-- TMPL_UNLESS NAME="CAN_user_editcatalogue" --> class="disabled" onclick="return false;"<!-- /TMPL_UNLESS -->>Add biblio</a>
<a href="/cgi-bin/koha/cataloguing/addbiblio.pl?breedingid=<!-- TMPL_VAR NAME="id" -->" <!-- TMPL_UNLESS NAME="CAN_user_editcatalogue_edit_catalogue" --> class="disabled" onclick="return false;"<!-- /TMPL_UNLESS -->>Add biblio</a>
<!-- /TMPL_IF --></td>
</tr>
<!-- /TMPL_LOOP -->

5
koha-tmpl/intranet-tmpl/prog/en/modules/circ/circulation-home.tmpl
View File

@ -21,6 +21,11 @@
<li><a href="/cgi-bin/koha/circ/returns.pl">Check In</a></li>
<li><a href="/cgi-bin/koha/circ/branchtransfers.pl">Transfer</a></li>
<!-- TMPL_IF NAME="AutoLocation" --><!-- TMPL_ELSE --><!-- TMPL_IF NAME="IndependantBranches" --><!-- TMPL_ELSE --><li><a href="/cgi-bin/koha/circ/selectbranchprinter.pl">Set library</a></li><!-- /TMPL_IF --><!-- /TMPL_IF -->
<!-- TMPL_IF NAME="fast_cataloging" -->
<!-- TMPL_IF NAME="CAN_user_editcatalogue_fast_cataloging" -->
<li><a href="/cgi-bin/koha/cataloguing/addbiblio.pl?frameworkcode=FA">Fast cataloging</a></li>
<!-- /TMPL_IF -->
<!-- /TMPL_IF -->
</ul>
</div>

2
koha-tmpl/intranet-tmpl/prog/en/modules/errors/400.tmpl
View File

@ -70,7 +70,7 @@
<div class="yui-u">
<!-- TMPL_IF NAME="CAN_user_editcatalogue" -->
<!-- TMPL_IF NAME="CAN_user_editcatalogue_edit_catalogue" -->
<h3><a href="/cgi-bin/koha/cataloguing/addbooks.pl">Cataloging</a></h3>
<ul style="margin-bottom: 1em; padding-bottom: 1em; border-bottom: 1px solid #CCC;">
<li><a href="/cgi-bin/koha/cataloguing/addbiblio.pl">Add MARC Record</a></li>

2
koha-tmpl/intranet-tmpl/prog/en/modules/errors/401.tmpl
View File

@ -70,7 +70,7 @@
<div class="yui-u">
<!-- TMPL_IF NAME="CAN_user_editcatalogue" -->
<!-- TMPL_IF NAME="CAN_user_editcatalogue_edit_catalogue" -->
<h3><a href="/cgi-bin/koha/cataloguing/addbooks.pl">Cataloging</a></h3>
<ul style="margin-bottom: 1em; padding-bottom: 1em; border-bottom: 1px solid #CCC;">
<li><a href="/cgi-bin/koha/cataloguing/addbiblio.pl">Add MARC Record</a></li>

2
koha-tmpl/intranet-tmpl/prog/en/modules/errors/402.tmpl
View File

@ -70,7 +70,7 @@
<div class="yui-u">
<!-- TMPL_IF NAME="CAN_user_editcatalogue" -->
<!-- TMPL_IF NAME="CAN_user_editcatalogue_edit_catalogue" -->
<h3><a href="/cgi-bin/koha/cataloguing/addbooks.pl">Cataloging</a></h3>
<ul style="margin-bottom: 1em; padding-bottom: 1em; border-bottom: 1px solid #CCC;">
<li><a href="/cgi-bin/koha/cataloguing/addbiblio.pl">Add MARC Record</a></li>

2
koha-tmpl/intranet-tmpl/prog/en/modules/errors/403.tmpl
View File

@ -70,7 +70,7 @@
<div class="yui-u">
<!-- TMPL_IF NAME="CAN_user_editcatalogue" -->
<!-- TMPL_IF NAME="CAN_user_editcatalogue_edit_catalogue" -->
<h3><a href="/cgi-bin/koha/cataloguing/addbooks.pl">Cataloging</a></h3>
<ul style="margin-bottom: 1em; padding-bottom: 1em; border-bottom: 1px solid #CCC;">
<li><a href="/cgi-bin/koha/cataloguing/addbiblio.pl">Add MARC Record</a></li>

2
koha-tmpl/intranet-tmpl/prog/en/modules/errors/404.tmpl
View File

@ -70,7 +70,7 @@
<div class="yui-u">
<!-- TMPL_IF NAME="CAN_user_editcatalogue" -->
<!-- TMPL_IF NAME="CAN_user_editcatalogue_edit_catalogue" -->
<h3><a href="/cgi-bin/koha/cataloguing/addbooks.pl">Cataloging</a></h3>
<ul style="margin-bottom: 1em; padding-bottom: 1em; border-bottom: 1px solid #CCC;">
<li><a href="/cgi-bin/koha/cataloguing/addbiblio.pl">Add MARC Record</a></li>

2
koha-tmpl/intranet-tmpl/prog/en/modules/errors/405.tmpl
View File

@ -70,7 +70,7 @@
<div class="yui-u">
<!-- TMPL_IF NAME="CAN_user_editcatalogue" -->
<!-- TMPL_IF NAME="CAN_user_editcatalogue_edit_catalogue" -->
<h3><a href="/cgi-bin/koha/cataloguing/addbooks.pl">Cataloging</a></h3>
<ul style="margin-bottom: 1em; padding-bottom: 1em; border-bottom: 1px solid #CCC;">
<li><a href="/cgi-bin/koha/cataloguing/addbiblio.pl">Add MARC Record</a></li>

2
koha-tmpl/intranet-tmpl/prog/en/modules/errors/500.tmpl
View File

@ -70,7 +70,7 @@
<div class="yui-u">
<!-- TMPL_IF NAME="CAN_user_editcatalogue" -->
<!-- TMPL_IF NAME="CAN_user_editcatalogue_edit_catalogue" -->
<h3><a href="/cgi-bin/koha/cataloguing/addbooks.pl">Cataloging</a></h3>
<ul style="margin-bottom: 1em; padding-bottom: 1em; border-bottom: 1px solid #CCC;">
<li><a href="/cgi-bin/koha/cataloguing/addbiblio.pl">Add MARC Record</a></li>

2
koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tmpl
View File

@ -54,7 +54,7 @@
</div>
<div class="yui-u">
<!-- TMPL_IF NAME="CAN_user_editcatalogue" -->
<!-- TMPL_IF NAME="CAN_user_editcatalogue_edit_catalogue" -->
<h3><a href="/cgi-bin/koha/cataloguing/addbooks.pl">Cataloging</a></h3>
<ul>
<li><a href="/cgi-bin/koha/cataloguing/addbiblio.pl">Add MARC Record</a></li>

2
svc/authentication
View File

@ -43,7 +43,7 @@ my $query = new CGI;
# web browser, but instead should be stored and submitted by biblios.
my ($status, $cookie, $sessionID) = check_api_auth($query, { editcatalogue => 1} );
my ($status, $cookie, $sessionID) = check_api_auth($query, { editcatalogue => 'edit_catalogue'} );
if ($status eq "ok") {
print $query->header(-type => 'text/xml', cookie => $cookie);

2
svc/bib
View File

@ -29,7 +29,7 @@ use XML::Simple;
my $query = new CGI;
binmode STDOUT, ":utf8";
my ($status, $cookie, $sessionID) = check_api_auth($query, { editcatalogue => 1} );
my ($status, $cookie, $sessionID) = check_api_auth($query, { editcatalogue => 'edit_catalogue'} );
unless ($status eq "ok") {
print $query->header(-type => 'text/xml', -status => '403 Forbidden');
print XMLout({ auth_status => $status }, NoAttr => 1, RootName => 'response', XMLDecl => 1);

2
svc/bib_profile
View File

@ -29,7 +29,7 @@ use XML::Simple;
my $query = new CGI;
my ($status, $cookie, $sessionID) = check_api_auth($query, { editcatalogue => 1} );
my ($status, $cookie, $sessionID) = check_api_auth($query, { editcatalogue => 'edit_catalogue'} );
if ($status eq "ok") {
print $query->header(-type => 'text/xml', cookie => $cookie);

2
svc/new_bib
View File

@ -30,7 +30,7 @@ use C4::Charset;
my $query = new CGI;
binmode STDOUT, ":utf8";
my ($status, $cookie, $sessionID) = check_api_auth($query, { editcatalogue => 1} );
my ($status, $cookie, $sessionID) = check_api_auth($query, { editcatalogue => 'edit_catalogue'} );
unless ($status eq "ok") {
print $query->header(-type => 'text/xml', -status => '403 Forbidden');
print XMLout({ auth_status => $status }, NoAttr => 1, RootName => 'response', XMLDecl => 1);