+for (ReturnSequenceNbrs) {
+ my %rec = (
+ userid => $userid,
+ type => $type,
+ sequence => $_,
+ );
+
+ $rec{pattern} = param "pattern$_";
+ $rec{domain} = param "domain$_";
+ $rec{comment} = param "comment$_";
+ $rec{hit_count} = param "hit_count$_";
+ $rec{retention} = param "retention$_";
+
+ $rec{hit_count} = 0 unless $rec{hit_count};
+
+ my ($err, $msg) = UpdateList(%rec);
+
+ croak $msg if $err;
+