From 8d13af81b7b87f95399dec327a18ba2006e08a85 Mon Sep 17 00:00:00 2001
From: Erik Moeller <erik@users.mediawiki.org>
Date: Fri, 23 May 2003 04:26:51 +0000
Subject: [PATCH] Deletion feature improved:

If an article with less than 500 characters is to be deleted, at most the
first 150 characters are automatically suggested as a deletion reason. This
should automate the frequent practice of pasting the text of nonsense
articles into the deletion reason.

If an article with a history is to be deleted, a warning is inserted,
linking to the article history (so as to avoid accidentally deleting a
vandalized page with a valid history).

If a blanked article with a history is to be deleted, and the next earlier
revision contains less than 500 characters, at most the first 150 characters
are automatically suggested as a deletion reason. Nonsense pages are often
blanked, just checking the current revision for nonsense is not good enough.

New texts in Language.php for this feature:
- excontent, exblank, exbeforeblank, historywarning
---
 includes/Article.php   | 67 ++++++++++++++++++++++++++++++++++++++----
 languages/Language.php |  4 +++
 2 files changed, 66 insertions(+), 5 deletions(-)

diff --git a/includes/Article.php b/includes/Article.php
index 4896d84905..0a29aa7f08 100644
--- a/includes/Article.php
+++ b/includes/Article.php
@@ -540,7 +540,6 @@ class Article {
 		$wgOut->addHTML( "
 <form id=\"editform\" name=\"editform\" method=\"post\" action=\"$action\"
 enctype=\"application/x-www-form-urlencoded\">
-<br clear=\"all\" />
 <textarea tabindex=1 name=\"wpTextbox1\" rows={$rows}
 cols={$cols}{$ew} wrap=\"virtual\">" .
 $wgLang->recodeForEdit( $wpTextbox1 ) .
@@ -1003,15 +1002,73 @@ name=\"wpSummary\" maxlength=200 size=60><br>
 				$wgOut->fatalError( wfMsg( "cannotdelete" ) );
 				return;
 			}
-			$sub = str_replace( "$1", $image, wfMsg( "deletesub" ) );
+			$sub = str_replace( "$1", $image, wfMsg( "deletesub" ) );			
 		} else {
+
 			if ( ( "" == trim( $wgTitle->getText() ) )
 			  or ( $wgTitle->getArticleId() == 0 ) ) {
 				$wgOut->fatalError( wfMsg( "cannotdelete" ) );
 				return;
 			}
 			$sub = str_replace( "$1", $wgTitle->getPrefixedText(),
-			  wfMsg( "deletesub" ) );
+			  wfMsg( "deletesub" ) );			
+
+			# determine whether this page has earlier revisions
+			# and insert a warning if it does
+			# we select the text because it might be useful below
+			$sql="SELECT old_text FROM old WHERE old_namespace=0 and old_title='" . wfStrencode($wgTitle->getPrefixedDBkey())."' ORDER BY inverse_timestamp LIMIT 1";
+			$res=wfQuery($sql,$fname);
+			if( $old=wfFetchObject($res)) {
+
+				$skin=new Skin();
+				$wgOut->addHTML("<B>".wfMsg("historywarning"));
+				$wgOut->addHTML( $skin->historyLink() ."</B><P>");
+			}
+
+			$sql="SELECT cur_text FROM cur WHERE cur_namespace=0 and cur_title='" . wfStrencode($wgTitle->getPrefixedDBkey())."'";
+			$res=wfQuery($sql,$fname);
+			if( ($s=wfFetchObject($res))) {
+
+				# if this is a mini-text, we can paste part of it into the deletion reason
+
+				#if this is empty, an earlier revision may contain "useful" text
+				if($s->cur_text!="") {
+					$text=$s->cur_text;
+				} else {
+					if($old) {
+						$text=$old->old_text;
+						$blanked=1;
+					}
+					
+				}
+				
+				$length=strlen($text);				
+				
+				# this should not happen, since it is not possible to store an empty, new
+				# page. Let's insert a standard text in case it does, though
+				if($length==0) { $wpreason=wfmsg("exblank");}
+				
+				
+				if($length < 500) {
+										
+					# comment field=255, let's grep the first 150 to have some user
+					# space left
+					$text=substr($text,0,150);
+					# let's strip out newlines and HTML tags
+					$text=preg_replace("/\"/","'",$text);
+					$text=preg_replace("/\</","&lt;",$text);
+					$text=preg_replace("/\>/","&gt;",$text);
+					$text=preg_replace("/[\n\r]/","",$text);
+					if(!$blanked) {
+						$wpReason=wfMsg("excontent"). " '".$text;
+					} else {
+						$wpReason=wfMsg("exbeforeblank") . " '".$text;
+					}
+					if($length>150) { $wpReason .= "..."; } # we've only pasted part of the text
+					$wpReason.="'"; 
+				}
+			}
+
 		}
 
 		# Likewise, deleting old images doesn't require confirmation
@@ -1043,7 +1100,7 @@ name=\"wpSummary\" maxlength=200 size=60><br>
 <form id=\"deleteconfirm\" method=\"post\" action=\"{$formaction}\">
 <table border=0><tr><td align=right>
 {$delcom}:</td><td align=left>
-<input type=text size=20 name=\"wpReason\" value=\"{$wpReason}\">
+<input type=text size=60 name=\"wpReason\" value=\"{$wpReason}\">
 </td></tr><tr><td>&nbsp;</td></tr>
 <tr><td align=right>
 <input type=checkbox name=\"wpConfirm\" value='1'>
@@ -1558,7 +1615,7 @@ name=\"wpSummary\" maxlength=200 size=60><br>
 		
         wfDebug(" saveToFileCache()\n");
 		$filename=$this->fileCacheName();
-		$mydir2=substr($filename,0,strrpos($filename,"/")); # subdirectory level 2
+                $mydir2=substr($filename,0,strrpos($filename,"/")); # subdirectory level 2
 		$mydir1=substr($mydir2,0,strrpos($mydir2,"/")); # subdirectory level 1
 		if(!file_exists($mydir1)) { mkdir($mydir1,0777); } # create if necessary
 		if(!file_exists($mydir2)) { mkdir($mydir2,0777); }			
diff --git a/languages/Language.php b/languages/Language.php
index dd00f17668..4cfc5d0e0c 100644
--- a/languages/Language.php
+++ b/languages/Language.php
@@ -888,8 +888,12 @@ make it easier to pick out.</p>
 #
 "deletepage"	=> "Delete page",
 "confirm"		=> "Confirm",
+"excontent" => "content was:",
+"exbeforeblank" => "content before blanking was:",
+"exblank" => "page was empty",
 "confirmdelete" => "Confirm delete",
 "deletesub"		=> "(Deleting \"$1\")",
+"historywarning" => "Warning: The page you are about to delete has a history: ",
 "confirmdeletetext" => "You are about to permanently delete a page
 or image along with all of its history from the database.
 Please confirm that you intend to do this, that you understand the
-- 
2.20.1