testing. warnings erros...

diff --git a/lib/Insipid/Main.pm b/lib/Insipid/Main.pm
index 12b0049b3389250e440536668b128a68ae61f3e7..b8dbfa7d1f74ec38a73f11b56b43d753797f956d 100755 (executable)
--- a/lib/Insipid/Main.pm
+++ b/lib/Insipid/Main.pm
@@ -944,7 +944,7 @@ sub show_toolbar {
 
 sub delete_bookmark {
     my ($id) = (@_);
-    my ($sql, $sth, $md5) = ("", "", "");
+    my ($sql, $sth) = ("", "", "");
 
     check_access();
 

diff --git a/lib/Insipid/Tags.pm b/lib/Insipid/Tags.pm
index 46e681b3609ccac895e1b61ab432a8c83b607f81..9e95daa59d5cfbb9427a28a5abedbb7d5a26470c 100755 (executable)
--- a/lib/Insipid/Tags.pm
+++ b/lib/Insipid/Tags.pm
@@ -154,14 +154,14 @@ sub show_tags {
        my ($mode) = shift;
        if(!defined($mode)) { $mode = 0; }
 
-       my ($sql, $sth);
+       my ($sql, $sth, $tagstring = '');
        if($mode eq 0) { print "<div id=\"leftside\">"; }
 
        my $tag = url_param('tag');
 
        #if()) {
                # find the tags which have been used with this tags too
-               my $tagstring = $tag;
+               $tagstring = $tag;
                chomp($tagstring);
                $tagstring =~ s/ /','/g;