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 9# with the License. You may obtain a copy of the License at 10# 11# http://www.apache.org/licenses/LICENSE-2.0 12# 13# Unless required by applicable law or agreed to in writing, 14# software distributed under the License is distributed on an 15# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 16# KIND, either express or implied. See the License for the 17# specific language governing permissions and limitations 18# under the License. 19# 20#************************************************************** 21 22 23 24 25package par2script::shortcut; 26 27use par2script::work; 28 29############################################################ 30# Writing shortcuts to files behind the correct files and 31# then shortcuts to shortcuts behind these shortcuts. 32############################################################ 33 34sub shift_shortcut_positions 35{ 36 my ($script) = @_; 37 38 my $allshortcutgids = par2script::work::get_all_gids_from_script($script, "Shortcut"); 39 40 # first all shortcuts that are assigned to files 41 42 for ( my $i = 0; $i <= $#{$allshortcutgids}; $i++ ) 43 { 44 my $codeblock = par2script::work::get_definitionblock_from_script($script, ${$allshortcutgids}[$i]); 45 46 my $filegid = par2script::work::get_value_from_definitionblock($codeblock, "FileID"); 47 48 if (!($filegid eq "")) 49 { 50 par2script::work::remove_definitionblock_from_script($script, ${$allshortcutgids}[$i]); 51 par2script::work::add_definitionblock_into_script($script, $codeblock, $filegid); 52 } 53 } 54 55 # secondly all shortcuts that are assigned to other shortcuts 56 57 for ( my $i = 0; $i <= $#{$allshortcutgids}; $i++ ) 58 { 59 my $codeblock = par2script::work::get_definitionblock_from_script($script, ${$allshortcutgids}[$i]); 60 my $shortcutgid = par2script::work::get_value_from_definitionblock($codeblock, "ShortcutID"); 61 62 if (!($shortcutgid eq "")) 63 { 64 par2script::work::remove_definitionblock_from_script($script, ${$allshortcutgids}[$i]); 65 par2script::work::add_definitionblock_into_script($script, $codeblock, $shortcutgid); 66 } 67 } 68} 69 70 711; 72