msiglobal.pm (d62abd1a) msiglobal.pm (ba69edf5)
1#**************************************************************
2#
3# Licensed to the Apache Software Foundation (ASF) under one
4# or more contributor license agreements. See the NOTICE file
5# distributed with this work for additional information
6# regarding copyright ownership. The ASF licenses this file
7# to you under the Apache License, Version 2.0 (the
8# "License"); you may not use this file except in compliance

--- 1498 unchanged lines hidden (view full) ---

1507 Return product code and upgrade code from the source version.
1508 When no source version is defined then return undef for both.
1509
1510=cut
1511sub get_source_codes ($)
1512{
1513 my ($languagesref) = @_;
1514
1#**************************************************************
2#
3# Licensed to the Apache Software Foundation (ASF) under one
4# or more contributor license agreements. See the NOTICE file
5# distributed with this work for additional information
6# regarding copyright ownership. The ASF licenses this file
7# to you under the Apache License, Version 2.0 (the
8# "License"); you may not use this file except in compliance

--- 1498 unchanged lines hidden (view full) ---

1507 Return product code and upgrade code from the source version.
1508 When no source version is defined then return undef for both.
1509
1510=cut
1511sub get_source_codes ($)
1512{
1513 my ($languagesref) = @_;
1514
1515 if ( ! defined $installer::globals::source_version)
1515 if ( ! $installer::globals::is_release)
1516 {
1516 {
1517 return (undef, undef);
1518 }
1519 elsif ( ! defined $installer::globals::source_version)
1520 {
1517 $installer::logger::Lang->printf("no source version defined\n");
1518 return (undef, undef);
1519 }
1520
1521 my $onelanguage = installer::languages::get_key_language($languagesref);
1522
1523 my $release_data = installer::patch::ReleasesList::Instance()
1524 ->{$installer::globals::source_version}

--- 276 unchanged lines hidden --- 		1521 $installer::logger::Lang->printf("no source version defined\n");
1522 return (undef, undef);
1523 }
1524
1525 my $onelanguage = installer::languages::get_key_language($languagesref);
1526
1527 my $release_data = installer::patch::ReleasesList::Instance()
1528 ->{$installer::globals::source_version}

--- 276 unchanged lines hidden ---