旅舍更新日志 卷十

预备升级 Apache 2 + mod_perl 2 。

1. 修正 Selima::DataVars 模组，加上 $IS_MP2 ，侦测 mod_perl 的版本是否为第二版。
2. 修正 Selima::HTTP 模组和 Selima::AuthDig 类别，原先由 Apache::Constants 汇入常数，改依 $IS_MP2 判断，由 Apache::Constants 或 Apache2::Const 汇入常数。
3. 修正 Selima::CallForm 模组、 Selima::DecForm 模组、 Selima::FormFunc 模组、 Selima::GeoIP 模组、 Selima::HTTP 模组、 Selima::Init 模组、 Selima::LogIn 模组、 Selima::LogOut 模组、 Selima::Logging 模组、 Selima::RemoHost 模组、 Selima::ReqURI 模组、 Selima::XHTML 模组、 Selima::Destroy 类别、 Selima::List 类别、 Selima::ListPref 类别、 Selima::Mail 类别、 Selima::Session 类别、 Selima::*::Processor::Public::Guestbook 类别和 Selima::imacat::Processor::Public::Garbage 类别，原先使用 Apache->request() 物件，改依 $IS_MP2 判断，使用 Apache->request() 或 Apache2::RequestUtil->request() 物件。
4. 修正 startup.pl 程式，只在 mod_perl 1 下载入 Selima::AuthDig 类别。我暂时找不到 mod_perl 2 下用的 Digest 登入模组，暂时回归使用密码档的旧方式。
5. 修正 Selima::GeoIP 模组、 Selima::HTTP 模组、 Selima::LogIn 模组、 Selima::Logging 模组、 Selima::RemoHost 模组、 Selima::Mail 类、 Selima::Session 类别及showenv.cgi 程式，若在 mod_perl 2 下，则载入 Apache2::Connection 类别。
6. 修正 Selima::DecForm 模组、 Selima::Init 模组、 Selima::LogOut 模组、 Selima::XHTML 模组及 Selima::ListPref 类别，原用 $r->header_in() 方法，改用 $r->headers_in()->get() 方法、 $r->headers_in()->add() 方法及 $r->headers_in()->set() 方法。
7. 修正 showenv.cgi 程式，加上在 mod_perl 2 下载入 Apache2::ServerRec 类别，并修正在 mod_perl 2 下时，显示的 $r->connection() 和 $r->server() 下的方法名称；显示方法名称时，显示的方法符号 -> 修正为 -> 。
8. 修正 Selima::RemoHost 模组，原用 $r->get_remote_host() 方法，修正为依 $IS_MP2 判断，使用 $r->connection()->get_remote_host() 方法或 $r->get_remote_host() 方法。

1. 修正 Selima::ReqURI 模组的 init_request_uri() 函式，计算 $REQUEST_URI 及 $REQUEST_PATH 碰到绝对网址时，移除通讯协定和主机名称。

1. Selima::MnglMail 模组改名为 Selima::MungAddr 模组；修正 Selima 模组、 Selima::A2HTML 模组、 Selima::List::Public::Guestbook 类别、 Selima::Checker::MailTo 类别及 Selima::*::HTML 模组，将 mangle_* 函数更名为 mung_* 函数，注解中的 mangle 更正为 mung 。

1. 修正 Selima::Init 模组，修正 checkspam_reqheads() 函式，加上新的规则；加上 checkspam_escurl() 函式。

1. 修正 Selima::Process 类别的 process() 方法，未确认表单时，原未传回任何值，改传回 {"preview"=>1} ，以使其后的表单得知可否预览；修正 Selima::Form 类别的 _html_preview_link() 方法，原检查 ${$self->{"status"}}{"error"} ，改检查 ${$self->{"status"}}{"preview"} ，以得知可否预览。
2. 修正 Selima::Form 类别的 _html_preview_link() 方法的注解， Bounce when not preview 改为 Bounce when preview is not available for this form 。

1. 修正 Selima::Preview 模组，加上 html_preview_mark() 函式，预览时显示预览标印；加上引用 Selima::HTTP 模组、 Selima::PageFunc 模组、 Selima::ReqURI 模组；修正 Selima::*::HTML 模组的 html_footer() 函式，加上呼叫 html_preview_mark() 函式；修正 common.css 样式表，加上 .previewmark 预览标印的样式。

1. 修正Selima::emandy::Processor::Legend 类别、 Selima::imacat::Processor::ChangeLog 类别、 Selima::imacat::Processor::Diary 类别、 Selima::imacat::Processor::LiteralEn 类别、 Selima::imacat::Processor::LiteralZh 类别、 Selima::wov::Processor::Newslet 类别 _rebuild_partial_pages() 方法的注解， Check if there are shown parts affected 修正为 Check if there is any shown part affected 。
2. 修正 Selima::Format 模组 fmtsize() 函式的注解， Bounce if there are less than 3 digits in the rounded result 修正为 Bounce if there are fewer than 3 digits in the rounded result 。
3. 修正 Selima::List 类别、 Selima::List::* 类别与 Selima::*::List::* 类别 liststat_message() 方法的注解， Result more than 1 page 修正为 More than one page ， Result less than 1 page 修正为 Fit in one page 。
4. 修正 Selima::imacat::HTML 模组与 Selima::wov::HTML 模组 html_*_pagebar() 函式的注解， No more than 1 page - no page bar is needed 修正为 Fit in one page - paging is not needed ， Less than 7 pages 修正为 Fewer than 7 pages ；修正 Selima::List 类别 html_pagebar() 方法的注解， Less than 1 page - no page bar is needed 修正为 Fit in one page - paging is not needed ， Less than 5 pages 修正为 Fewer than 5 pages ， Near the END 修正为 Near the end 。
5. 修正 Selima::imacat::Processor::LiteralEn 模组与 Selima::imacat::Processor::LiteralZh 模组 _rebuild_partial_pages() 函式的注解， We have 6 more to the first -- rebuild the previous 3 修正为 We have 6 more pages to the first - rebuild the previous 3 pages ， If less than 6, start from the first for page bar sliding 修正为 If fewer than 6 pages, start from the first for page bar sliding ， We have 6 more to the end -- rebuild the next 3 修正为 We have 6 more pages to the end - rebuild the next 3 pages ， If less than 6, build to the end for page bar sliding 修正为 If fewer than 6 pages, build to the end for page bar sliding 。

1. 修正 Selima::Links 模组、 Selima::UserName 模组、 Selima::Country 模组、 Selima::*::Items 模组的注解， Bounce if there is problem with … 修正为 Bounce if there is any problem with … 。
2. 修正 Selima::List 类别，将 colval() 方法移至可重载方法区。

1. 修正 Selima::*::List::Funds 类别，重写 html_search() 方法，加上进阶筛选条件栏位；修正 pre_filter() 方法，改传回进阶筛选条件栏位；修正 new() 方法， $self->{"pre_filter"} 改列预先定义的进阶筛选条件；修正 funds.cgi ，移除对 $LIST->{"pre_filter"} 的预先定义。

1. 修正 Selima::Checker::User 类别，加回之前暂时取消的 Crypt::Cracklib 密码检查，并根据 cracklib/fscist.c 中各种检查结果，回传适当的错误讯息，并加上中译。

1. 修正 funds_list* 检视， m*rank 及 y*rank 改显示排名/同类基金数；加上 _m*rank 、 _y*rank 显示原来的数字排名；修正 Selima::*::List::Funds 类别，加上覆写 sql_filter() 方法和 sql_orderby() 方法，将排名栏位前置 _ ，以数字排名为基准浏览资料；修正 new() 方法，加上 $self->{"COLS_NO_DISPLAY"} ，不显示数字排名，只显示排名/同类基金数。
2. 修正 funds 资料表，将 majcat 、 mincat 栏位改为 cat0 、 cat1 、 cat2 、 cat3 栏位；修正 Selima::*::List::Funds 类别的 new() 方法， col_labels 加上 cat0 、 cat1 、 cat2 、 cat3 栏位。

1. emily 加上 funds 资料表、 Selima::emily::List::Funds 类别与 funds.cgi 程式。
2. 修正 Selima::imacat::List::Funds 类别的注解，移除程式说明多余的旅舍两个字。

1. 修正 material 资料表、 Selima::emandy::List::Material 类别、Selima::emandy::Form::Material 类别、Selima::emandy::Checker::Material 类别、Selima::emandy::Processor::Material 类别及 material.cgi 程式，加上 author 栏位。

1. 修正 Selima::emandy::Form::Book 类别的 new() 方法，资料表名误植为 legend ，修正为 books 。
2. 修正许多程式的 fetch_curitem() 函式，移除没有用到的 $error 变数及 $count 变数。
3. 修正 legend.cgi 程式与 books.cgi 程式，移除未引用的 Encode::HanConvert 类别，及未使用的 zhsync 重导向检查。
4. 修正 Selima::emandy::Items 模组，所有的函式都是之前 htc 网站用，复制后未整理移除，移除之；加上 mtrltype_options() 函式。
5. 修正 Selima::Form::LinkCat 类别与 Selima::htc::Form::NLIndex 类别的 new() 方法，原用 $CURRENT{"*count"} ，改用 $self->{"cur"}->param("*count") ，取得项目数；移除不需要的引用 dataman 类变数。

1. 加上 mtrltype 资料表及 material 资料表。

1. 修正 Selima::Form 模组的 _html_coltmpl_call() 与 _html_coltmpl_call_null() 方法，修正显示删除钮的逻辑，将删除钮和选择钮接在一起。