Changeset 245 for trunk/dns.cgi

Timestamp:

02/27/12 16:08:34 (13 years ago)

Author:

Kris Deugau

Message:

/trunk

Pass revrec on group change. See #26.

Nitpick cleanup on redirection via changepage(); sort the URL
parameters so we've got some chance of tracking where we've
been with browser history.

File:

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

trunk/dns.cgi

@@ -280 +280 @@
 ##fixme: probably need to handle webvar{revrec}=='y' too
     if ($webvar{page} eq 'reclist' && $webvar{defrec} eq 'y') {
-      my %args = (page => $webvar{page}, id => $curgroup, defrec => $webvar{defrec});
+      my %args = (page => $webvar{page}, id => $curgroup, defrec => $webvar{defrec}, revrec => $webvar{revrec});
       $args{errmsg} = $errmsg if $errmsg;
       changepage(%args);
@@ -1733 +1733 @@
   # handle user check
   my $newurl = "http://$ENV{HTTP_HOST}$ENV{SCRIPT_NAME}?sid=$sid";
-  foreach (keys %params) {
+  foreach (sort keys %params) {
     $newurl .= "&$_=".$q->url_encode($params{$_});
   }