use m param for messages
authorAdrian Oldham <adriann@visualthought.com.au>
Fri, 6 Mar 2015 00:21:05 +0000 (11:21 +1100)
committerAdrian Oldham <adriann@visualthought.com.au>
Fri, 6 Mar 2015 00:21:05 +0000 (11:21 +1100)
site/cgi-bin/modules/BSE/UI/Formmail.pm
site/cgi-bin/modules/BSE/UI/Image.pm
site/cgi-bin/modules/BSE/UI/Page.pm
site/cgi-bin/modules/BSE/UI/Shop.pm
site/cgi-bin/modules/BSE/UserReg.pm

index 9131fbf..552e7c8 100644 (file)
@@ -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);
 }
 
index cc8beec..3174836 100644 (file)
@@ -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);
     }
   }
index a3c5b07..dbb7b81 100644 (file)
@@ -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);
     }
   }
index e8083bd..6a3f312 100644 (file)
@@ -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);
   
index d9f320a..6d3cd00 100644 (file)
@@ -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;
       }