From: Long.inus <long.inus@hotmail.co.jp>
Date: Sat, 27 Apr 2013 15:48:55 +0000 (+0900)
Subject: rectool.pl : implement mode=classify
X-Git-Url: http://git.osdn.net/view?p=rec10%2Frec10-git.git;a=commitdiff_plain;h=6eb5a5352af93b64aeacf82e09ac62c862ea5457

rectool.pl : implement mode=classify
---

diff --git a/rectool/rectool.pl b/rectool/rectool.pl
index ca661ee..d117091 100755
--- a/rectool/rectool.pl
+++ b/rectool/rectool.pl
@@ -960,6 +960,15 @@ if ( $mode eq 'change' ) {
 
 		goto end;
 	}
+	if ( $mode_sub eq 'classify' )
+	{
+		if ( @id ) {
+			foreach my $id ( @id ) {
+				$dbh->do( "UPDATE auto_classify SET do = TRUE WHERE id = '$id'" );
+			}
+		}
+		goto end;
+	}
 
 }
 
@@ -1977,6 +1986,46 @@ if ( $mode eq 'log' ) {
 	$HTML .= qq {</table>\n};
 }
 
+################ mode=classify ################
+
+if ( $mode eq 'classify' ) {
+	my $movedest  = $cfg->param( 'path.ts_movepath' );
+
+	$HTML =~ s/%HTML_TITLE_OPT%/ - Classify/;
+
+	$HTML .= qq {<div>\n};
+	$HTML .= qq {<form method="get" action="rectool.pl">\n};
+	$HTML .= qq {<div>\n};
+	$HTML .= qq {<input type="hidden" name="mode" value="change">\n};
+	$HTML .= qq {<input type="hidden" name="mode_sub" value="classify">\n};
+
+	$HTML .= qq {<table summary="classifytable" border=1 cellspacing=0>\n<tr>\n};
+	$HTML .= qq {<th><br></th>\n};
+	$HTML .= qq {<th>ID</th>\n};
+	$HTML .= qq {<th>Result</th>\n};
+	$HTML .= qq {<th>Do?</th>\n};
+	$HTML .= qq {</tr>\n};
+	$ary_ref = $dbh->selectall_arrayref(
+		"SELECT id, topath, do 
+		FROM auto_classify "
+		, {Slice=>{}} 
+	);
+	foreach my $line ( @{$ary_ref} ) {
+		$line->{topath} =~ s|$movedest||;
+		my $checked = $line->{do} ? 'checked' : '';
+
+		$HTML .= qq {<tr>\n};
+		$HTML .= qq {<td><input type="checkbox" name="id" value="$line->{id}" $checked></td>\n};
+		$HTML .= qq {<td>$line->{id}</td>\n};
+		$HTML .= qq {<td>$line->{topath}</td>\n};
+		$HTML .= qq {<td>$line->{do}</td>\n};
+		$HTML .= qq {</tr>\n};
+	}
+	$HTML .= qq {</table>\n};
+	$HTML .= qq {</div>\n};
+	$HTML .= qq {<input type="submit" value="更新" accesskey="r">\n</div>\n</form>\n};
+}
+
 ################ mode=help ################
 
 if ( $mode eq 'help' ) {