kpcli/kpcli-3.1/kpcli

2283     my $tmp_ent = clone($ent); # Clone the entity and back it up
2284     delete $tmp_ent->{id};
2286     $tmp_ent->{title} = $tmp_ent->{title} . " (". $tmp_ent->{modified} .")";
2287     $tmp_ent->{group} = $bugrp_id;
2288     $tmp_ent->{modified} = $state->{kdb}->now;
2289     my $add_result = $state->{kdb}->add_entry($tmp_ent);
2414   my $tmp_ent = clone($ent); # Clone the entity
2417     if (defined($tmp_ent->{strings}) && ref($tmp_ent->{strings}) eq 'HASH') {
2418       @strings_keys = sort keys %{$tmp_ent->{strings}};
2424       $t .= show_helper_files_strings($tmp_ent,{f=>1,v=>1},'strings');
2435         return $tmp_ent->{strings};
2437         if (defined($tmp_ent->{strings}) &&
2438 					ref($tmp_ent->{strings}) eq 'HASH') {
2440             %{$tmp_ent->{strings}} = ();
2447               delete($tmp_ent->{strings}->{$strings_keys[$choice-1]});
2465           my $val_being_edited = $tmp_ent->{strings}->{$fld_being_edited};
2475           if (!(defined($tmp_ent->{strings})) &&
2476 					ref($tmp_ent->{strings}) eq 'HASH') {
2477             $tmp_ent->{strings} = {};
2479           if (defined($tmp_ent->{strings}->{$fld}) &&
2483             $tmp_ent->{strings}->{$fld}=$val;
2485               delete($tmp_ent->{strings}->{$fld_being_edited});
3583       my $tmp_ent = $k->find_entry({id=>$state->{all_ent_paths_fwd}->{$norm_path}});
3584       push @ent_matches, $tmp_ent;
3587       foreach my $tmp_ent (@tmp_ents) {
3588         if (defined($state->{all_ent_paths_fwd}->{$tmp_ent})) {
3589           my $entry_id = $state->{all_ent_paths_fwd}->{$tmp_ent};
3592         } elsif (defined($state->{all_grp_paths_fwd}->{$tmp_ent})) {
3593           push @grp_paths, '/'.humanize_path($tmp_ent);
3716   my $tmp_ent = clone($ent); # Clone the entity
3720     if (defined($tmp_ent->{binary}) && ref($tmp_ent->{binary}) eq 'HASH') {
3721       @strings_keys = sort keys %{$tmp_ent->{binary}};
3727       $t .= show_helper_files_strings($tmp_ent,{f=>1,v=>1},'binary');
3741         $ent->{binary} = $tmp_ent->{binary};
3754         if (defined($tmp_ent->{binary}) && ref($tmp_ent->{binary}) eq 'HASH') {
3756             %{$tmp_ent->{binary}} = ();
3764               delete($tmp_ent->{binary}->{$strings_keys[$choice-1]});
3773         if (defined($tmp_ent->{binary}) && ref($tmp_ent->{binary}) eq 'HASH') {
3789         if (defined($to_export) && defined($tmp_ent->{binary}->{$to_export})) {
3813           print $fh $tmp_ent->{binary}->{$to_export};
3828         my $errmsg = do_attach_file($tmp_ent, $filename);