WalWiki/カスタマイズ/do_adminedit()リファクタリング

差分表示

• 最後の更新で追加された行はこのように表示します。
• 最後の更新で削除された行はこのように表示します。

do_adminedit()のリファクタリング

* [refactoring adminedit]

do_edit()に機能を追加するとdo_adminedit()にも同じコードを追加しなければいけないので、
この２つの関数を統合します。

** do_edit()内の変更

 sub do_edit {
     my ($admin) = @_;                                                  # yakty add [refactoring adminedit]
     # Walrus add [edit admin only] start
     if ($edit_admin_only) {
         # yakty del [refactoring adminedit] start
         #&do_adminedit;
         #return;
         # yakty del [refactoring adminedit] end
         $admin = 1;    # yakty add [refactoring adminedit]
     }
     # Walrus add [edit admin only] end

     #} elsif (&is_frozen($page)) {                                     # yakty del [certified]
     #} elsif (&is_frozen($page) == $frozen_frozen) {                   # yakty add [certified] # yakty del [refactoring adminedit]
     } elsif (not $admin and &is_frozen($page) == $frozen_frozen) {     # yakty add [certified] # yakty add [refactoring adminedit]

↓数カ所ある下記部分を変更。

         #&print_editform($mymsg, &get_info($page, $info_LastModified), admin=>0);                       # yakty del [refactoring adminedit]
         &print_editform($mymsg, &get_info($page, $info_LastModified), admin=>$admin);                   # yakty add [refactoring adminedit]

** do_adminedit()内の変更

do_adminedit()内の処理を全て削除して、do_edit()に1を渡してコールする。

 sub do_adminedit {
     &do_edit(1);    # yakty add [refactoring adminedit]
 }

** print_editform()内の変更

do_adminedit()内で表示していたpasswordneededのメッセージをここで表示するように変更。

 sub print_editform {
     my ($mymsg, $lastmodified, %mode) = @_;
     my $frozen = &is_frozen($form{mypage});
 
     &print_message($resource{passwordneeded}) if($mode{admin});    # yakty add [refactoring adminedit]
 
     if ($form{mypreview}) {