use m param for messages

diff --git a/site/cgi-bin/modules/BSE/UI/Formmail.pm b/site/cgi-bin/modules/BSE/UI/Formmail.pm
index 9131fbf973dc75df73ec5c51b280b049cb5ea5a2..552e7c8bde1364f01d0279fe69cd32e1125c5334 100644 (file)
--- a/site/cgi-bin/modules/BSE/UI/Formmail.pm
+++ b/site/cgi-bin/modules/BSE/UI/Formmail.pm
@@ -7,7 +7,7 @@ use DevHelp::Validate qw(dh_validate dh_configure_fields);
 use BSE::Util::Iterate;
 use constant DISPLAY_TIMEOUT => 300;
 
-our $VERSION = "1.001";
+our $VERSION = "1.002";
 
 my %actions =
   (
@@ -761,7 +761,7 @@ sub _refresh_logon {
 
   my $r = $ENV{SCRIPT_NAME}."?form=".$form->{id};
   my $logon = "/cgi-bin/user.pl?show_logon=1&r=".escape_uri($r)
-    ."&message=".escape_uri($form->{logon_message});
+    ."&m=".escape_uri($form->{logon_message});
   return BSE::Template->get_refresh($logon, $req->cfg);
 }
 

diff --git a/site/cgi-bin/modules/BSE/UI/Image.pm b/site/cgi-bin/modules/BSE/UI/Image.pm
index cc8beecb47c8e1394022652b182cdce5c030c7f2..317483643e921228659766fad29a2c8b1ba5f6b3 100644 (file)
--- a/site/cgi-bin/modules/BSE/UI/Image.pm
+++ b/site/cgi-bin/modules/BSE/UI/Image.pm
@@ -5,7 +5,7 @@ use BSE::TB::Images;
 use BSE::Util::Tags qw(tag_hash);
 use BSE::Util::HTML qw(escape_uri);
 
-our $VERSION = "1.001";
+our $VERSION = "1.002";
 
 # we don't do anything fancy on dispatch yet, so don't use the 
 # dispatch classes
@@ -46,7 +46,7 @@ sub dispatch {
       my $cfg = $req->cfg;
       my $refresh = "/cgi-bin/image.pl?id=$article->{id}&imid=$image->{id}";
       my $logon =
-       $cfg->entry('site', 'url') . "/cgi-bin/user.pl?show_logon=1&r=".escape_uri($refresh)."&message=You+need+to+logon+to+view+this+image";
+       $cfg->entry('site', 'url') . "/cgi-bin/user.pl?show_logon=1&r=".escape_uri($refresh)."&m=You+need+to+logon+to+view+this+image";
       return BSE::Template->get_refresh($logon, $cfg);
     }
   }

diff --git a/site/cgi-bin/modules/BSE/UI/Page.pm b/site/cgi-bin/modules/BSE/UI/Page.pm
index a3c5b0711e6c787ce5540605ce7774c83ebae832..dbb7b81c6812ffac4508fc1d49fc9d79c8737e85 100644 (file)
--- a/site/cgi-bin/modules/BSE/UI/Page.pm
+++ b/site/cgi-bin/modules/BSE/UI/Page.pm
@@ -6,7 +6,7 @@ use BSE::UI::Dispatch;
 use BSE::Template;
 our @ISA = qw(BSE::UI::Dispatch);
 
-our $VERSION = "1.008";
+our $VERSION = "1.009";
 
 # we don't do anything fancy on dispatch yet, so don't use the 
 # dispatch classes
@@ -184,7 +184,7 @@ sub dispatch {
     else {
       my $refresh = $article->{link};
       my $logon =
-       $cfg->entry('site', 'url') . "/cgi-bin/user.pl?show_logon=1&r=".escape_uri($refresh)."&message=You+need+to+logon+to+view+this+article";
+       $cfg->entry('site', 'url') . "/cgi-bin/user.pl?show_logon=1&r=".escape_uri($refresh)."&m=You+need+to+logon+to+view+this+article";
       return BSE::Template->get_refresh($logon, $cfg);
     }
   }

diff --git a/site/cgi-bin/modules/BSE/UI/Shop.pm b/site/cgi-bin/modules/BSE/UI/Shop.pm
index e8083bda9e9bde6df44d0e53c5385021b246813c..6a3f3125247274bc08df283d54d465252376ea45 100644 (file)
--- a/site/cgi-bin/modules/BSE/UI/Shop.pm
+++ b/site/cgi-bin/modules/BSE/UI/Shop.pm
@@ -18,7 +18,7 @@ use BSE::Countries qw(bse_country_code);
 use BSE::Util::Secure qw(make_secret);
 use BSE::Template;
 
-our $VERSION = "1.046";
+our $VERSION = "1.047";
 
 =head1 NAME
 
@@ -1709,7 +1709,7 @@ sub _refresh_logon {
   if ($msgid) {
     $msg = $req->cfg->entry('messages', $msgid, $msg);
   }
-  $parms{message} = $msg if $msg;
+  $parms{m} = $msg if $msg;
   $parms{mid} = $msgid if $msgid;
   $url .= "?" . join("&", map "$_=".escape_uri($parms{$_}), keys %parms);
   

diff --git a/site/cgi-bin/modules/BSE/UserReg.pm b/site/cgi-bin/modules/BSE/UserReg.pm
index d9f320adf380e97aee9e7adcceff52fca210f5f6..6d3cd001f94480cfca159524dbec3322ee0025a8 100644 (file)
--- a/site/cgi-bin/modules/BSE/UserReg.pm
+++ b/site/cgi-bin/modules/BSE/UserReg.pm
@@ -18,7 +18,7 @@ use BSE::Util::Iterate;
 use base 'BSE::UI::UserCommon';
 use Carp qw(confess);
 
-our $VERSION = "1.036";
+our $VERSION = "1.037";
 
 use constant MAX_UNACKED_CONF_MSGS => 3;
 use constant MIN_UNACKED_CONF_GAP => 2 * 24 * 60 * 60;
@@ -87,7 +87,7 @@ sub _refresh_userpage ($$) {
 
   my $url = $cfg->entryErr('site', 'url') . "/cgi-bin/user.pl?userpage=1";
   if (defined $msg) {
-    $url .= '&message='.escape_uri($msg);
+    $url .= '&m='.escape_uri($msg);
   }
   refresh_to($url);
 }
@@ -1630,7 +1630,7 @@ sub _common_download {
        my $cfg = $req->cfg;
        my $refresh = "/cgi-bin/user.pl?file=" . $file->id;
        my $logon =
-         $cfg->entry('site', 'url') . "/cgi-bin/user.pl?show_logon=1&r=".escape_uri($refresh)."&message=You+need+to+logon+download+this+file";
+         $cfg->entry('site', 'url') . "/cgi-bin/user.pl?show_logon=1&r=".escape_uri($refresh)."&m=You+need+to+logon+download+this+file";
        return $req->get_refresh($logon);
        return;
       }