rectool.pl : implement mode=classify

diff --git a/rectool/rectool.pl b/rectool/rectool.pl
index ca661ee..d117091 100755 (executable)
--- a/rectool/rectool.pl
+++ b/rectool/rectool.pl
@@ -960,6 +960,15 @@ if ( $mode eq 'change' ) {
 
                goto end;
        }
 
                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};
 }
 
        $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' ) {
 ################ mode=help ################
 
 if ( $mode eq 'help' ) {