Revision a27cd427
Von Niclas Zimmermann vor mehr als 11 Jahren hinzugefügt
| bin/mozilla/fu.pl | ||
|---|---|---|
| 10 | 10 |
sub _collect_links {
|
| 11 | 11 |
$main::lxdebug->enter_sub(); |
| 12 | 12 |
|
| 13 |
$main::auth->assert('productivity');
|
|
| 14 |
|
|
| 13 | 15 |
my $dest = shift; |
| 14 | 16 |
|
| 15 | 17 |
my $form = $main::form; |
| ... | ... | |
| 28 | 30 |
sub add {
|
| 29 | 31 |
$main::lxdebug->enter_sub(); |
| 30 | 32 |
|
| 33 |
$main::auth->assert('productivity');
|
|
| 34 |
|
|
| 31 | 35 |
my $form = $main::form; |
| 32 | 36 |
my %myconfig = %main::myconfig; |
| 33 | 37 |
my $locale = $main::locale; |
| ... | ... | |
| 57 | 61 |
sub edit {
|
| 58 | 62 |
$main::lxdebug->enter_sub(); |
| 59 | 63 |
|
| 64 |
$main::auth->assert('productivity');
|
|
| 65 |
|
|
| 60 | 66 |
my $form = $main::form; |
| 61 | 67 |
my $locale = $main::locale; |
| 62 | 68 |
|
| ... | ... | |
| 82 | 88 |
sub display_form {
|
| 83 | 89 |
$main::lxdebug->enter_sub(); |
| 84 | 90 |
|
| 91 |
$main::auth->assert('productivity');
|
|
| 92 |
|
|
| 85 | 93 |
my $form = $main::form; |
| 86 | 94 |
|
| 87 | 95 |
$form->get_lists("employees" => "EMPLOYEES");
|
| ... | ... | |
| 102 | 110 |
sub save_follow_up {
|
| 103 | 111 |
$main::lxdebug->enter_sub(); |
| 104 | 112 |
|
| 113 |
$main::auth->assert('productivity');
|
|
| 114 |
|
|
| 105 | 115 |
my $form = $main::form; |
| 106 | 116 |
my $locale = $main::locale; |
| 107 | 117 |
|
| ... | ... | |
| 139 | 149 |
sub finish {
|
| 140 | 150 |
$main::lxdebug->enter_sub(); |
| 141 | 151 |
|
| 152 |
$main::auth->assert('productivity');
|
|
| 153 |
|
|
| 142 | 154 |
my $form = $main::form; |
| 143 | 155 |
my $locale = $main::locale; |
| 144 | 156 |
|
| ... | ... | |
| 175 | 187 |
sub delete {
|
| 176 | 188 |
$main::lxdebug->enter_sub(); |
| 177 | 189 |
|
| 190 |
$main::auth->assert('productivity');
|
|
| 191 |
|
|
| 178 | 192 |
my $form = $main::form; |
| 179 | 193 |
my $locale = $main::locale; |
| 180 | 194 |
|
| ... | ... | |
| 211 | 225 |
sub search {
|
| 212 | 226 |
$main::lxdebug->enter_sub(); |
| 213 | 227 |
|
| 228 |
$main::auth->assert('productivity');
|
|
| 229 |
|
|
| 214 | 230 |
my $form = $main::form; |
| 215 | 231 |
my $locale = $main::locale; |
| 216 | 232 |
|
| ... | ... | |
| 228 | 244 |
sub report {
|
| 229 | 245 |
$main::lxdebug->enter_sub(); |
| 230 | 246 |
|
| 247 |
$main::auth->assert('productivity');
|
|
| 248 |
|
|
| 231 | 249 |
my $form = $main::form; |
| 232 | 250 |
my %myconfig = %main::myconfig; |
| 233 | 251 |
my $locale = $main::locale; |
| ... | ... | |
| 340 | 358 |
sub report_for_todo_list {
|
| 341 | 359 |
$main::lxdebug->enter_sub(); |
| 342 | 360 |
|
| 361 |
$main::auth->assert('productivity');
|
|
| 362 |
|
|
| 343 | 363 |
my $form = $main::form; |
| 344 | 364 |
|
| 345 | 365 |
my @report_params = qw(created_for subject body reference follow_up_date_from follow_up_date_to itime_from itime_to due_only all_users done not_done); |
| ... | ... | |
| 379 | 399 |
sub edit_access_rights {
|
| 380 | 400 |
$main::lxdebug->enter_sub(); |
| 381 | 401 |
|
| 402 |
$main::auth->assert('productivity');
|
|
| 403 |
|
|
| 382 | 404 |
my $form = $main::form; |
| 383 | 405 |
my $locale = $main::locale; |
| 384 | 406 |
|
| ... | ... | |
| 399 | 421 |
sub save_access_rights {
|
| 400 | 422 |
$main::lxdebug->enter_sub(); |
| 401 | 423 |
|
| 424 |
$main::auth->assert('productivity');
|
|
| 425 |
|
|
| 402 | 426 |
my $form = $main::form; |
| 403 | 427 |
my $locale = $main::locale; |
| 404 | 428 |
|
| ... | ... | |
| 427 | 451 |
} |
| 428 | 452 |
|
| 429 | 453 |
sub save {
|
| 454 |
$main::auth->assert('productivity');
|
|
| 455 |
|
|
| 430 | 456 |
if ($main::form->{save_nextsub}) {
|
| 431 | 457 |
call_sub($main::form->{save_nextsub});
|
| 432 | 458 |
} else {
|
Auch abrufbar als: Unified diff
Recht für Anzeige der Produktivität
Um die Produktivität einzusehen, ist jetzt ein Recht erforderlich.
Standardmäßig wird dieses Recht gegeben, um den gleichen Zustand
wie vor dem Commit zu garantieren.
Weiterhin gibt es nun auch das Recht für Anzeige des Administrationslinks
im Menü-Punkt Programme.
Das Upgrade-Script sorgt dafür, dass die Rechte weiterhin gelten,
weil sie vorher ja jeder User hatte.
Der Commit enthält auch den Changelog-Eintrag für diese Änderung.
Implementiert #2295.