Changeset 19 for trunk/dns.cgi

Timestamp:

10/09/09 17:49:14 (15 years ago)

Author:

Kris Deugau

Message:

/trunk

checkpoint

File:

• trunk/dns.cgi (modified) (5 diffs)

trunk/dns.cgi

@@ -49 +49 @@
 }
 
-my $logingroup = $session->param('logingroup');
-my $curgroup = ($session->param('curgroup') ? $session->param('curgroup') : $session->param('logingroup'));
+my $logingroup = ($session->param('logingroup') ? $session->param('logingroup') : 1);
+my $curgroup = ($session->param('curgroup') ? $session->param('curgroup') : $logingroup);
 my $group = ($webvar{group} ? $webvar{group} : 1);
 
@@ -403 +403 @@
     $page->param(errmsg => $msg);
     $page->param(newgroup => $webvar{newgroup});
+     fill_grplist('pargroup',$webvar{pargroup});
+  } else {
+#    $page->param
+     fill_grplist('pargroup',$curgroup);
+
   }
 }
@@ -416 +421 @@
   $page->param(grp => $group);
   $page->param(grpname => grpName($dbh,$group));
-  fill_grplist();
+  fill_grplist("grplist");
 }
 
@@ -634 +639 @@
 
 sub fill_grplist {
+  my $template_var = shift;
+  my $cur = shift || $curgroup;
   # weesa gonna discard parent_group_id for now
   my $sth = $dbh->prepare("SELECT group_id,parent_group_id,group_name FROM groups ORDER BY group_id");
-push @debugbits, "grp list sth err: ".$sth->errstr."<br>\n";
   $sth->execute;
   my @grplist;
@@ -645 +651 @@
 ##fixme: need magic
 #    $row{defgrp} = '';
-    $row{grpactive} = 1 if $grpid eq $curgroup;
+    $row{grpactive} = 1 if $grpid == $cur;
     push @grplist, \%row;
   }
 
-  $page->param(grplist => \@grplist);
-
-}
+  $page->param("$template_var" => \@grplist);
+
+}