Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 0cd150d3

Von Sven Schöling vor mehr als 9 Jahren hinzugefügt

  • ID 0cd150d3a21c6d23b9fe0d9451562d15abdecf94
  • Vorgänger 63f95eee
  • Nachfolger 87c518f3

migrate script für menu

Unterschiede anzeigen:

scripts/migrate_icons.pl
'AP--Reports--Purchase Orders.png' => 'purchase_order_report.png',
'AP--Reports--RFQs.png' => 'rfq_report.png',
'AR--Add Credit Note.png' => 'credit_note_add.png',
'AR--Add Delivery Order.png' => undef, # symlink to MDI-Txt_editor
'AR--Add Delivery Order.png' => 'delivery_oder_add.png', # symlink to MDI-Txt_editor
'AR--Add Dunning.png' => 'dunning_add.png',
'AR--Add Quotation.png' => 'quotation_add.png',
'AR--Add Sales Invoice.png' => 'sales_invoice_add.png',
'AR--Add Sales Order.png' => 'sales_order_add.png',
'AR.png' => 'ar.png',
'AR--Reports--Delivery Orders.png' => undef, # symlink to MDI-Text_editor
'AR--Reports--Delivery Orders.png' => 'delivery_order_report.png', # symlink to MDI-Text_editor
'AR--Reports--Dunnings.png' => 'dunnings_report.png',
'AR--Reports--Invoices, Credit Notes & AR Transactions.png' => 'invoices_report.png',
'AR--Reports.png' => 'ar_report.png',
......
'Master Data--Reports--Vendors.png' => 'vendor_report.png',
'Master Data--Update Prices.png' => 'prices_update.png',
'Neues Fenster.png' => 'window_new.png',
# 'phone.png' => 'phone.png',
'phone.png' => 'phone.png',
'Program--Logout.png' => 'logout.png',
'Program.png' => 'program.png',
'Program--Preferences.png' => 'preferences.png',
......
'Warehouse.png' => 'warehouse.png',
'Warehouse--Produce Assembly.png' => 'assembly_produce.png',
'MDI-Text-Editor-16x16.png' => 'mdi_text_editor.png',
'Productivity' => 'productivity.png',
);
my %symlinks = (
......
}
}
checks();
make_icons();
sub translate_menu {
my ($menu_file) = @_;
my $new_file = $menu_file;
$new_file =~ s/\./_new\./;
open my $in, "<", $menu_file or die "error opening $menu_file: $!";
open my $out, ">", $new_file or die "error opening $new_file: $!";
while (<$in>) {
print $out $_;
if (/^\[(.*)\]$/) {
my $name = $1;
# look if we got this in %icons
if ($icons{ $name . '.png' }) {
my $new_name = $icons{ $name . '.png' };
$new_name =~ s/\.png$//;
print $out "ICON=$icons{ $name . '.png' }\n";
} else {
warn "don't know what '$name' is in $menu_file";
}
}
}
system("mv $new_file $menu_file");
}
# checks();
# make_icons();
translate_menu('menus/erp.ini');
translate_menu('menus/admin.ini');
translate_menu('menus/crm.ini');

Auch abrufbar als: Unified diff