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;
+ }
}
$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' ) {