solenv/bin/modules/installer/windows/shortcut.pm

   1 #*************************************************************************
   2 #
   3 # DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 #
   5 # Copyright 2008 by Sun Microsystems, Inc.
   6 #
   7 # OpenOffice.org - a multi-platform office productivity suite
   8 #
   9 # $RCSfile: shortcut.pm,v $
  10 #
  11 # $Revision: 1.15 $
  12 #
  13 # This file is part of OpenOffice.org.
  14 #
  15 # OpenOffice.org is free software: you can redistribute it and/or modify
  16 # it under the terms of the GNU Lesser General Public License version 3
  17 # only, as published by the Free Software Foundation.
  18 #
  19 # OpenOffice.org is distributed in the hope that it will be useful,
  20 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  21 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  22 # GNU Lesser General Public License version 3 for more details
  23 # (a copy is included in the LICENSE file that accompanied this code).
  24 #
  25 # You should have received a copy of the GNU Lesser General Public License
  26 # version 3 along with OpenOffice.org.  If not, see
  27 # <http://www.openoffice.org/license.html>
  28 # for a copy of the LGPLv3 License.
  29 #
  30 #*************************************************************************
  31
  32 package installer::windows::shortcut;
  33
  34 use installer::existence;
  35 use installer::exiter;
  36 use installer::files;
  37 use installer::globals;
  38 use installer::windows::idtglobal;
  39
  40 ##############################################################
  41 # Returning the file object for the msiassembly table.
  42 ##############################################################
  43
  44 sub get_file_by_name
  45 {
  46     my ( $filesref, $filename ) = @_;
  47
  48     my $foundfile = 0;
  49     my $onefile;
  50
  51     for ( my $i = 0; $i <= $#{$filesref}; $i++ )
  52     {
  53         $onefile = ${$filesref}[$i];
  54         my $name = $onefile->{'Name'};
  55
  56         if ( $name eq $filename )
  57         {
  58             $foundfile = 1;
  59             last;
  60         }
  61     }
  62
  63     if (! $foundfile ) { $onefile  = ""; }
  64
  65     return $onefile;
  66 }
  67
  68 ##############################################################
  69 # Returning identifier for shortcut table.
  70 ##############################################################
  71
  72 sub get_shortcut_identifier
  73 {
  74     my ($shortcut) = @_;
  75
  76     my $identifier = $shortcut->{'gid'};
  77
  78     return $identifier;
  79 }
  80
  81 ##############################################################
  82 # Returning directory for shortcut table.
  83 ##############################################################
  84
  85 sub get_shortcut_directory
  86 {
  87     my ($shortcut, $dirref) = @_;
  88
  89     # For shortcuts it is easy to convert the gid_Dir_Abc into the unique name in
  90     # the directory table, for instance help_en_simpressidx.
  91     # For files (components) this is not so easy, because files can be included
  92     # in zip files with subdirectories that are not defined in scp.
  93
  94     my $onedir;
  95     my $shortcutdirectory = $shortcut->{'Dir'};
  96     my $directory = "";
  97     my $found = 0;
  98
  99     for ( my $i = 0; $i <= $#{$dirref}; $i++ )
 100     {
 101         $onedir = ${$dirref}[$i];
 102         my $directorygid = $onedir->{'Dir'};
 103
 104         if ( $directorygid eq $shortcutdirectory )
 105         {
 106             $found = 1;
 107             last;
 108         }
 109     }
 110
 111     if (!($found))
 112     {
 113         installer::exiter::exit_program("ERROR: Did not find DirectoryID $shortcutdirectory in directory collection for shortcut", "get_shortcut_directory");
 114     }
 115
 116     $directory = $onedir->{'uniquename'};
 117
 118     if ($directory eq "") { $directory = "OFFICEINSTALLLOCATION"; }             # Shortcuts in the root directory
 119
 120     return $directory;
 121 }
 122
 123 ##############################################################
 124 # Returning name for shortcut table.
 125 ##############################################################
 126
 127 sub get_shortcut_name
 128 {
 129     my ($shortcut, $shortnamesref, $onelanguage) = @_;
 130
 131     my $returnstring;
 132
 133     my $name = $shortcut->{'Name'};
 134
 135     my $shortstring = installer::windows::idtglobal::make_eight_three_conform($name, "shortcut", $shortnamesref);
 136     $shortstring =~ s/\s/\_/g;  # replacing white spaces with underline
 137
 138     if ( $shortstring eq $name ) { $returnstring = $name; }     # nothing changed
 139     else {$returnstring = $shortstring . "\|" . $name; }
 140
 141     return $returnstring;
 142 }
 143
 144 ##############################################################
 145 # Returning component for shortcut table.
 146 ##############################################################
 147
 148 sub get_shortcut_component
 149 {
 150     my ($shortcut, $filesref) = @_;
 151
 152     my $onefile;
 153     my $component = "";
 154     my $found = 0;
 155     my $shortcut_fileid = $shortcut->{'FileID'};
 156
 157     my $absolute_filename = 0;
 158     if ( $shortcut->{'Styles'} ) { $styles = $shortcut->{'Styles'}; }
 159     if ( $styles =~ /\bABSOLUTE_FILENAME\b/ ) { $absolute_filename = 1; }       # FileID contains an absolute filename
 160     if ( $styles =~ /\bUSE_HELPER_FILENAME\b/ ) { $absolute_filename = 1; }     # ComponentIDFile contains id of a helper file
 161
 162     # if the FileID contains an absolute filename, therefore the entry for "ComponentIDFile" has to be used.
 163     if ( $absolute_filename ) { $shortcut_fileid = $shortcut->{'ComponentIDFile'}; }
 164
 165     for ( my $i = 0; $i <= $#{$filesref}; $i++ )
 166     {
 167         $onefile = ${$filesref}[$i];
 168         my $filegid = $onefile->{'gid'};
 169
 170         if ( $filegid eq $shortcut_fileid )
 171         {
 172             $found = 1;
 173             last;
 174         }
 175     }
 176
 177     if (!($found))
 178     {
 179         installer::exiter::exit_program("ERROR: Did not find FileID $shortcut_fileid in file collection for shortcut", "get_shortcut_component");
 180     }
 181
 182     $component = $onefile->{'componentname'};
 183
 184     # finally saving the componentname in the folderitem collector
 185
 186     $shortcut->{'component'} = $component;
 187
 188     return $component;
 189 }
 190
 191 ##############################################################
 192 # Returning target for shortcut table.
 193 ##############################################################
 194
 195 sub get_shortcut_target
 196 {
 197     my ($shortcut, $filesref) = @_;
 198
 199     my $target = "";
 200     my $found = 0;
 201     my $shortcut_fileid = $shortcut->{'FileID'};
 202     my $onefile;
 203
 204     for ( my $i = 0; $i <= $#{$filesref}; $i++ )
 205     {
 206         $onefile = ${$filesref}[$i];
 207         my $filegid = $onefile->{'gid'};
 208
 209         if ( $filegid eq $shortcut_fileid )
 210         {
 211             $found = 1;
 212             last;
 213         }
 214     }
 215
 216     if (!($found))
 217     {
 218         installer::exiter::exit_program("ERROR: Did not find FileID $shortcut_fileid in file collection for shortcut", "get_shortcut_target");
 219     }
 220
 221     if ( $onefile->{'Name'} )
 222     {
 223         $target = $onefile->{'Name'};
 224     }
 225
 226     $target = "\[\#" . $target . "\]";  # format for Non-Advertised shortcuts
 227
 228     return $target;
 229 }
 230
 231 ##############################################################
 232 # Returning arguments for shortcut table.
 233 ##############################################################
 234
 235 sub get_shortcut_arguments
 236 {
 237     my ($shortcut) = @_;
 238
 239     return "";
 240 }
 241
 242 ##############################################################
 243 # Returning the localized description for shortcut table.
 244 ##############################################################
 245
 246 sub get_shortcut_description
 247 {
 248     my ($shortcut, $onelanguage) = @_;
 249
 250     my $description = "";
 251     if ( $shortcut->{'Tooltip'} ) { $description = $shortcut->{'Tooltip'}; }
 252
 253     return $description;
 254 }
 255
 256 ##############################################################
 257 # Returning hotkey for shortcut table.
 258 ##############################################################
 259
 260 sub get_shortcut_hotkey
 261 {
 262     my ($shortcut) = @_;
 263
 264     return "";
 265 }
 266
 267 ##############################################################
 268 # Returning icon for shortcut table.
 269 ##############################################################
 270
 271 sub get_shortcut_icon
 272 {
 273     my ($shortcut) = @_;
 274
 275     return "";
 276 }
 277
 278 ##############################################################
 279 # Returning iconindex for shortcut table.
 280 ##############################################################
 281
 282 sub get_shortcut_iconindex
 283 {
 284     my ($shortcut) = @_;
 285
 286     return "";
 287 }
 288
 289 ##############################################################
 290 # Returning show command for shortcut table.
 291 ##############################################################
 292
 293 sub get_shortcut_showcmd
 294 {
 295     my ($shortcut) = @_;
 296
 297     return "";
 298 }
 299
 300 ##############################################################
 301 # Returning working directory for shortcut table.
 302 ##############################################################
 303
 304 sub get_shortcut_wkdir
 305 {
 306     my ($shortcut) = @_;
 307
 308     return "";
 309 }
 310
 311 ####################################################################
 312 # Returning working directory for shortcut table for FolderItems.
 313 ####################################################################
 314
 315 sub get_folderitem_wkdir
 316 {
 317     my ($onelink, $dirref) = @_;
 318
 319     # For shortcuts it is easy to convert the gid_Dir_Abc into the unique name in
 320     # the directory table, for instance help_en_simpressidx.
 321
 322     my $onedir;
 323     my $workingdirectory = "";
 324     if ( $onelink->{'WkDir'} ) { $workingdirectory = $onelink->{'WkDir'}; }
 325     my $directory = "";
 326
 327     if ( $workingdirectory )
 328     {
 329         my $found = 0;
 330
 331         for ( my $i = 0; $i <= $#{$dirref}; $i++ )
 332         {
 333             $onedir = ${$dirref}[$i];
 334             my $directorygid = $onedir->{'Dir'};
 335
 336             if ( $directorygid eq $workingdirectory )
 337             {
 338                 $found = 1;
 339                 last;
 340             }
 341         }
 342
 343         if (!($found))
 344         {
 345             installer::exiter::exit_program("ERROR: Did not find DirectoryID $workingdirectory in directory collection for FolderItem", "get_folderitem_wkdir");
 346         }
 347
 348         $directory = $onedir->{'uniquename'};
 349
 350         if ($directory eq "") { $directory = "OFFICEINSTALLLOCATION"; }
 351     }
 352
 353     return $directory;
 354 }
 355
 356 ###################################################################
 357 # Returning the directory for a folderitem for shortcut table.
 358 ###################################################################
 359
 360 sub get_folderitem_directory
 361 {
 362     my ($shortcut) = @_;
 363
 364     # my $directory = "$installer::globals::programmenufolder";  # default
 365     my $directory = "$installer::globals::officemenufolder";     # default
 366
 367     # The value $installer::globals::programmenufolder is not correct for the
 368     # PREDEFINED folders, like PREDEFINED_AUTOSTART
 369
 370     if ( $shortcut->{'FolderID'} eq "PREDEFINED_AUTOSTART" )
 371     {
 372         $directory = $installer::globals::startupfolder;
 373     }
 374
 375     if ( $shortcut->{'FolderID'} eq "PREDEFINED_DESKTOP" )
 376     {
 377         $directory = $installer::globals::desktopfolder;
 378         $installer::globals::desktoplinkexists = 1;
 379     }
 380
 381     if ( $shortcut->{'FolderID'} eq "PREDEFINED_STARTMENU" )
 382     {
 383         $directory = $installer::globals::startmenufolder;
 384     }
 385
 386     # saving the directory in the folderitems collector
 387
 388     $shortcut->{'directory'} = $directory;
 389
 390     return $directory;
 391 }
 392
 393 ########################################################################
 394 # Returning the target (feature) for a folderitem for shortcut table.
 395 # For non-advertised shortcuts this is a formatted string.
 396 ########################################################################
 397
 398 sub get_folderitem_target
 399 {
 400     my ($shortcut, $filesref) = @_;
 401
 402     my $onefile;
 403     my $target = "";
 404     my $found = 0;
 405     my $shortcut_fileid = $shortcut->{'FileID'};
 406
 407     my $styles = "";
 408     my $nonadvertised = 0;
 409     my $absolute_filename = 0;
 410     if ( $shortcut->{'Styles'} ) { $styles = $shortcut->{'Styles'}; }
 411     if ( $styles =~ /\bNON_ADVERTISED\b/ ) { $nonadvertised = 1; }      # this is a non-advertised shortcut
 412     if ( $styles =~ /\bABSOLUTE_FILENAME\b/ ) { $absolute_filename = 1; }       # FileID contains an absolute filename
 413
 414     # if the FileID contains an absolute filename this can simply be returned as target for the shortcut table.
 415     if ( $absolute_filename )
 416     {
 417         $shortcut->{'target'} = $shortcut_fileid;
 418         return $shortcut_fileid;
 419     }
 420
 421     for ( my $i = 0; $i <= $#{$filesref}; $i++ )
 422     {
 423         $onefile = ${$filesref}[$i];
 424         my $filegid = $onefile->{'gid'};
 425
 426         if ( $filegid eq $shortcut_fileid )
 427         {
 428             $found = 1;
 429             last;
 430         }
 431     }
 432
 433     if (!($found))
 434     {
 435         installer::exiter::exit_program("ERROR: Did not find FileID $shortcut_fileid in file collection for folderitem", "get_folderitem_target");
 436     }
 437
 438     # Non advertised shortcuts do not return the feature, but the path to the file
 439     if ( $nonadvertised )
 440     {
 441         $target = "\[" . $onefile->{'uniquedirname'} . "\]" . "\\" . $onefile->{'Name'};
 442         $shortcut->{'target'} = $target;
 443         return $target;
 444     }
 445
 446     # the rest only for advertised shortcuts, which contain the feature in the shortcut table.
 447
 448     if ( $onefile->{'modules'} ) { $target = $onefile->{'modules'}; }
 449
 450     # If modules contains a list of modules, only taking the first one.
 451     # But this should never be needed
 452
 453     if ( $target =~ /^\s*(.*?)\,/ ) { $target = $1; }
 454
 455     # Attention: Maximum feature length is 38!
 456     installer::windows::idtglobal::shorten_feature_gid(\$target);
 457
 458     # and finally saving the target in the folderitems collector
 459
 460     $shortcut->{'target'} = $target;
 461
 462     return $target;
 463 }
 464
 465 ########################################################################
 466 # Returning the arguments for a folderitem for shortcut table.
 467 ########################################################################
 468
 469 sub get_folderitem_arguments
 470 {
 471     my ($shortcut) = @_;
 472
 473     my $parameter = "";
 474
 475     if ( $shortcut->{'Parameter'} ) { $parameter = $shortcut->{'Parameter'}; }
 476
 477     return $parameter;
 478 }
 479
 480 ########################################################################
 481 # Returning the icon for a folderitem for shortcut table.
 482 # The returned value has to be defined in the icon table.
 483 ########################################################################
 484
 485 sub get_folderitem_icon
 486 {
 487     my ($shortcut, $filesref, $iconfilecollector) = @_;
 488
 489     my $styles = "";
 490     if ( $shortcut->{'Styles'} ) { $styles = $shortcut->{'Styles'}; }
 491     if ( $styles =~ /\bNON_ADVERTISED\b/ ) { return ""; }       # no icon for non-advertised shortcuts
 492
 493     my $iconfilegid = "";
 494
 495     if ( $shortcut->{'IconFile'} ) { $iconfilegid = $shortcut->{'IconFile'}; }
 496     else { $iconfilegid = $shortcut->{'FileID'}; }
 497
 498     my $onefile;
 499     my $found = 0;
 500
 501     for ( my $i = 0; $i <= $#{$filesref}; $i++ )
 502     {
 503         $onefile = ${$filesref}[$i];
 504         my $filegid = $onefile->{'gid'};
 505
 506         if ( $filegid eq $iconfilegid )
 507         {
 508             $found = 1;
 509             last;
 510         }
 511     }
 512
 513     if (!($found))
 514     {
 515         installer::exiter::exit_program("ERROR: Did not find FileID $iconfilegid in file collection", "get_folderitem_icon");
 516     }
 517
 518     $iconfile = $onefile->{'Name'};
 519
 520     # collecting all icon files to copy them into the icon directory
 521
 522     my $sourcepath = $onefile->{'sourcepath'};
 523
 524     if (! installer::existence::exists_in_array($sourcepath, $iconfilecollector))
 525     {
 526         push(@{$iconfilecollector}, $sourcepath);
 527     }
 528
 529     return $iconfile;
 530 }
 531
 532 ########################################################################
 533 # Returning the iconindex for a folderitem for shortcut table.
 534 ########################################################################
 535
 536 sub get_folderitem_iconindex
 537 {
 538     my ($shortcut) = @_;
 539
 540     my $styles = "";
 541     if ( $shortcut->{'Styles'} ) { $styles = $shortcut->{'Styles'}; }
 542     if ( $styles =~ /\bNON_ADVERTISED\b/ ) { return ""; }       # no iconindex for non-advertised shortcuts
 543
 544     my $iconid = 0;
 545
 546     if ( $shortcut->{'IconID'} ) { $iconid = $shortcut->{'IconID'}; }
 547
 548     return $iconid;
 549 }
 550
 551 ########################################################################
 552 # Returning the show command for a folderitem for shortcut table.
 553 ########################################################################
 554
 555 sub get_folderitem_showcmd
 556 {
 557     my ($shortcut) = @_;
 558
 559     return "1";
 560 }
 561
 562 ###########################################################################################################
 563 # Creating the file Shortcut.idt dynamically
 564 # Content:
 565 # Shortcut Directory_ Name Component_ Target Arguments Description Hotkey Icon_ IconIndex ShowCmd WkDir
 566 ###########################################################################################################
 567
 568 sub create_shortcut_table
 569 {
 570     my ($filesref, $linksref, $folderref, $folderitemsref, $dirref, $basedir, $languagesarrayref, $includepatharrayref, $iconfilecollector) = @_;
 571
 572     for ( my $m = 0; $m <= $#{$languagesarrayref}; $m++ )
 573     {
 574         my $onelanguage = ${$languagesarrayref}[$m];
 575
 576         my @shortcuttable = ();
 577
 578         my @shortnames = ();    # to collect all short names
 579
 580         installer::windows::idtglobal::write_idt_header(\@shortcuttable, "shortcut");
 581
 582         # First the links, defined in scp as ShortCut
 583
 584         for ( my $i = 0; $i <= $#{$linksref}; $i++ )
 585         {
 586             my $onelink = ${$linksref}[$i];
 587
 588             # Controlling the language!
 589             # Only language independent folderitems or folderitems with the correct language
 590             # will be included into the table
 591
 592             if (! (!(( $onelink->{'ismultilingual'} )) || ( $onelink->{'specificlanguage'} eq $onelanguage )) )  { next; }
 593
 594             my %shortcut = ();
 595
 596             $shortcut{'Shortcut'} = get_shortcut_identifier($onelink);
 597             $shortcut{'Directory_'} = get_shortcut_directory($onelink, $dirref);
 598             $shortcut{'Name'} = get_shortcut_name($onelink, \@shortnames, $onelanguage);        # localized name
 599             $shortcut{'Component_'} = get_shortcut_component($onelink, $filesref);
 600             $shortcut{'Target'} = get_shortcut_target($onelink, $filesref);
 601             $shortcut{'Arguments'} = get_shortcut_arguments($onelink);
 602             $shortcut{'Description'} = get_shortcut_description($onelink, $onelanguage);        # localized description
 603             $shortcut{'Hotkey'} = get_shortcut_hotkey($onelink);
 604             $shortcut{'Icon_'} = get_shortcut_icon($onelink);
 605             $shortcut{'IconIndex'} = get_shortcut_iconindex($onelink);
 606             $shortcut{'ShowCmd'} = get_shortcut_showcmd($onelink);
 607             $shortcut{'WkDir'} = get_shortcut_wkdir($onelink);
 608
 609             my $oneline = $shortcut{'Shortcut'} . "\t" . $shortcut{'Directory_'} . "\t" . $shortcut{'Name'} . "\t"
 610                         . $shortcut{'Component_'} . "\t" . $shortcut{'Target'} . "\t" . $shortcut{'Arguments'} . "\t"
 611                         . $shortcut{'Description'} . "\t" . $shortcut{'Hotkey'} . "\t" . $shortcut{'Icon_'} . "\t"
 612                         . $shortcut{'IconIndex'} . "\t" . $shortcut{'ShowCmd'} . "\t" . $shortcut{'WkDir'} . "\n";
 613
 614             push(@shortcuttable, $oneline);
 615         }
 616
 617         # Second the entries into the start menu, defined in scp as Folder and Folderitem
 618         # These shortcuts will fill the icons table.
 619
 620         for ( my $i = 0; $i <= $#{$folderref}; $i++ )
 621         {
 622             my $foldergid = ${$folderref}[$i]->{'gid'};
 623
 624             # iterating over all folderitems for this folder
 625
 626             for ( my $j = 0; $j <= $#{$folderitemsref}; $j++ )
 627             {
 628                 my $onelink = ${$folderitemsref}[$j];
 629
 630                 # Controlling the language!
 631                 # Only language independent folderitems or folderitems with the correct language
 632                 # will be included into the table
 633
 634                 if (! (!(( $onelink->{'ismultilingual'} )) || ( $onelink->{'specificlanguage'} eq $onelanguage )) )  { next; }
 635
 636                 # controlling the folder
 637
 638                 my $localused = 0;
 639
 640                 if ( $onelink->{'used'} ) { $localused = $onelink->{'used'}; }
 641
 642                 if (!($localused == 1)) { $onelink->{'used'} = "0"; }           # no resetting
 643
 644                 if (!( $onelink->{'FolderID'} eq $foldergid )) { next; }
 645
 646                 $onelink->{'used'} = "1";
 647
 648                 my %shortcut = ();
 649
 650                 $shortcut{'Shortcut'} = get_shortcut_identifier($onelink);
 651                 $shortcut{'Directory_'} = get_folderitem_directory($onelink);
 652                 $shortcut{'Name'} = get_shortcut_name($onelink, \@shortnames, $onelanguage);    # localized name
 653                 $shortcut{'Component_'} = get_shortcut_component($onelink, $filesref);
 654                 $shortcut{'Target'} = get_folderitem_target($onelink, $filesref);
 655                 $shortcut{'Arguments'} = get_folderitem_arguments($onelink);
 656                 $shortcut{'Description'} = get_shortcut_description($onelink, $onelanguage);    # localized description
 657                 $shortcut{'Hotkey'} = get_shortcut_hotkey($onelink);
 658                 $shortcut{'Icon_'} = get_folderitem_icon($onelink, $filesref, $iconfilecollector);
 659                 $shortcut{'IconIndex'} = get_folderitem_iconindex($onelink);
 660                 $shortcut{'ShowCmd'} = get_folderitem_showcmd($onelink);
 661                 $shortcut{'WkDir'} = get_folderitem_wkdir($onelink, $dirref);
 662
 663                 my $oneline = $shortcut{'Shortcut'} . "\t" . $shortcut{'Directory_'} . "\t" . $shortcut{'Name'} . "\t"
 664                             . $shortcut{'Component_'} . "\t" . $shortcut{'Target'} . "\t" . $shortcut{'Arguments'} . "\t"
 665                             . $shortcut{'Description'} . "\t" . $shortcut{'Hotkey'} . "\t" . $shortcut{'Icon_'} . "\t"
 666                             . $shortcut{'IconIndex'} . "\t" . $shortcut{'ShowCmd'} . "\t" . $shortcut{'WkDir'} . "\n";
 667
 668                 push(@shortcuttable, $oneline);
 669             }
 670         }
 671
 672         # if it is part of the product, the soffice.exe has to be included into the icon table
 673         # as icon for the ARP applet
 674
 675         my $sofficefile = "soffice.exe";
 676         my $onefile = get_file_by_name($filesref, $sofficefile);
 677
 678         if ( $onefile ne "" )
 679         {
 680             my $sourcepath = $onefile->{'sourcepath'};
 681             if (! installer::existence::exists_in_array($sourcepath, $iconfilecollector))
 682             {
 683                 unshift(@{$iconfilecollector}, $sourcepath);
 684                 $installer::globals::sofficeiconadded = 1;
 685             }
 686         }
 687
 688         # For language packs and patches the soffice.exe has to be included, even if it is not part of the product.
 689         # Also as part of the ARP applet (no substitution needed for ProductName, because the file is not installed!)
 690
 691         if (( $onefile eq "" ) && (( $installer::globals::languagepack ) || ( $installer::globals::patch )))
 692         {
 693             my $sourcepathref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$sofficefile, $includepatharrayref, 1);
 694             if ($$sourcepathref eq "") { installer::exiter::exit_program("ERROR: Could not find $sofficefile as icon in language pack!", "create_shortcut_table"); }
 695
 696             if (! installer::existence::exists_in_array($$sourcepathref, $iconfilecollector))
 697             {
 698                 unshift(@{$iconfilecollector}, $$sourcepathref);
 699                 $installer::globals::sofficeiconadded = 1;
 700             }
 701
 702             my $localinfoline = "Added icon file $$sourcepathref for language pack into icon file collector.\n";
 703             push(@installer::globals::logfileinfo, $localinfoline);
 704         }
 705
 706         # Saving the file
 707
 708         my $shortcuttablename = $basedir . $installer::globals::separator . "Shortcut.idt" . "." . $onelanguage;
 709         installer::files::save_file($shortcuttablename ,\@shortcuttable);
 710         my $infoline = "Created idt file: $shortcuttablename\n";
 711         push(@installer::globals::logfileinfo, $infoline);
 712     }
 713 }
 714
 715
 716 1;