diff options
| -rwxr-xr-x | bin/mozilla/admin.pl | 75 |
1 files changed, 0 insertions, 75 deletions
diff --git a/bin/mozilla/admin.pl b/bin/mozilla/admin.pl index c71b1377..e8d9a60b 100755 --- a/bin/mozilla/admin.pl +++ b/bin/mozilla/admin.pl @@ -1153,81 +1153,6 @@ sub continue { } -sub update_dataset { - - %needsupdate = User->dbneedsupdate(\%$form); - - $form->{title} = "LedgerSMB ".$locale->text('Accounting')." " - .$locale->text('Database Administration')." / " - .$locale->text('Update Dataset'); - $form->{login} = "root login"; - $form->header; - - print qq| - <body class="admin"> - <center> - <h2>$form->{title}</h2> - |; - - foreach $key (sort keys %needsupdate) { - - if ($needsupdate{$key} ne $form->{dbversion}) { - $upd .= qq|<input name="db$key" class="checkbox" type="checkbox" value="1" checked /> $key\n|; - $form->{dbupdate} .= "db$key "; - } - } - - chop $form->{dbupdate}; - - if ($form->{dbupdate}) { - - print qq| - <form method="post" action="$form->{script}" /> - <input type="hidden" name="dbdriver" value="$form->{dbdriver}" /> - <input type="hidden" name="dbhost" value="$form->{dbhost}" /> - <input type="hidden" name="dbport" value="$form->{dbport}" /> - <input type="hidden" name="dbuser" value="$form->{dbuser}" /> - <input type="hidden" name="dbpasswd" value="$form->{dbpasswd}" /> - <input type="hidden" name="dbdefault" value="$form->{dbdefault}" /> - <input name="dbupdate" type="hidden" value="$form->{dbupdate}" /> - <input name="callback" type="hidden" value="$form->{script}?action=list_users&path=$form->{path}&sessionid=$form->{sessionid}" /> - <input type="hidden" name="path" value="$form->{path}" /> - <input type="hidden" name="sessionid" value="$form->{sessionid}" /> - <input type="hidden" name="nextsub" value="dbupdate" /> - - <table width="100%"> - <tr class="listheading"> - <th>|.$locale->text('The following Datasets need to be updated').qq|</th> - </tr> - <tr> - <td> - $upd - </td> - </tr> - <tr> - <td> - <hr size="3" noshade /> - <br /> - <input type="submit" class="submit" name="action" value="|.$locale->text('Continue').qq|" /> - </td> - </tr> - </table> - </form> - |; - - } else { - - print $locale->text('DBA')." : $form->{dbuser} : " .$locale->text('All Datasets up to date!'); - } - - print qq| - </body> - </html> - |; - -} - - sub dbupdate { User->dbupdate(\%$form); |