scip/note
1
0
Fork 0
mirror of https://codeberg.org/scip/note.git synced 2025-12-17 12:41:10 +01:00
Code Issues Packages Projects Releases Wiki Activity

fixed major bug in NOTEDB::general

Browse Source
This commit is contained in:
TLINDEN
2012-07-19 09:51:39 +02:00
parent 5e99b88562
commit c124859f97
6 changed files with 17 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
NOTEDB/general.pm
View File

@@ -4,7 +4,7 @@
package NOTEDB::general;
$NOTEDB::general::VERSION = "1.02";
$NOTEDB::general::VERSION = "1.03";
use strict;
#use Data::Dumper;
@@ -136,12 +136,15 @@ sub get_nextnum {
foreach (keys %{$this->{cache}}) {
$num++;
}
return $num;
return $num;
}
my %data = $this->get_all();
my $size = scalar keys %data;
$num = $size + 1;
my @numbers = sort { $a <=> $b } keys %data;
$num = pop @numbers;
$num++;
return $num;
return $num;
}

6
NOTEDB/text.pm
View File

@@ -124,10 +124,6 @@ sub get_nextnum {
my @numbers = sort { $a <=> $b } keys %{$this->{cache}};
$num = pop @numbers;
$num++;
#$num = 1;
#foreach (keys %{$this->{cache}}) {
# $num++;
#}
return $num;
}
@@ -135,8 +131,6 @@ sub get_nextnum {
my @numbers = sort { $a <=> $b } keys %data;
$num = pop @numbers;
$num++;
#my $size = scalar keys %data;
#$num = $size + 1;
return $num;
}