Satellite のチャンネルをクローンにすると、Web UI に "500 - Internal Server Error" が表示され、"ORA-12899: value too large for column "RHNSAT"."RHNERRATAFILETMP"."FILENAME" (actual: ***, maximum: 128)" であることを示すトレースバックメールを受け取ります

Issue

• 子チャンネルをクローンにすると、Satellite WebUI で "500 - Internal Server Error" を受け取ります。
• [RHEL Satellite サーバー]、[チャンネル]、[ソフトウェアチャンネルの管理]、[チャンネルのクローン] の順に選択します。 チャンネルと、チャンネル (すべてのエラータ) で現在選択できるラジオボタンを選択し、[チャンネルの作成] を選択します。"Error 500 internal server error..." が発生します。
• 以下は、Web TraceBack から受け取ったメールになります。

Error message:
  RHN::Exception:DBD::Oracle::st execute failed:ORA-12899: value too large for column "RHNSAT"."RHNERRATAFILETMP"."FILENAME" (actual:131, maximum:128) (DBD ERROR: error possibly near <*> indicator at char 176 in 'INSERT
  INTO rhnErrataFileTmp
       (id, errata_id, type, checksum_id, filename)
       (SELECT sequence_nextval('rhn_erratafile_id_seq'), :new_eid, EF.type, EF.checksum_id, <*>EF.filename
          FROM rhnErrataFile EF
         WHERE EF.errata_id = :old_eid)
') [for Statement "INSERT
  INTO rhnErrataFileTmp
       (id, errata_id, type, checksum_id, filename)
       (SELECT sequence_nextval('rhn_erratafile_id_seq'), :new_eid, EF.type, EF.checksum_id, EF.filename
          FROM rhnErrataFile EF
         WHERE EF.errata_id = :old_eid)
" with ParamValues::new_eid="2058", :old_eid="963"]
  RHN::DB /usr/share/perl5/vendor_perl/RHN/DB.pm 117 RHN::Exception::DB::throw
  RHN::DB::st /usr/share/perl5/vendor_perl/RHN/DB.pm 452 RHN::DB::handle_error
  RHN::DB::ErrataEditor /usr/share/perl5/vendor_perl/RHN/DB/ErrataEditor.pm 247 RHN::DB::st::execute_h
  RHN::DB::ChannelEditor /usr/share/perl5/vendor_perl/RHN/DB/ChannelEditor.pm 500 RHN::DB::ErrataEditor::clone_into_org
  RHN::DB::ChannelEditor /usr/share/perl5/vendor_perl/RHN/DB/ChannelEditor.pm 426 RHN::DB::ChannelEditor::clone_errata_into_channel
  Sniglets::ChannelEditor /usr/share/perl5/vendor_perl/Sniglets/ChannelEditor.pm 261 RHN::DB::ChannelEditor::clone_all_errata
  Sniglets::ChannelEditor /usr/share/perl5/vendor_perl/Sniglets/ChannelEditor.pm 227 (eval)
  PXT::ApacheHandler /usr/share/perl5/vendor_perl/PXT/ApacheHandler.pm 482 Sniglets::ChannelEditor::channel_edit_cb
  PXT::Request /usr/share/perl5/vendor_perl/PXT/Request.pm 561 PXT::ApacheHandler::pxt_parse_data
  PXT::Handlers /usr/share/perl5/vendor_perl/PXT/Handlers.pm 115 PXT::Request::include
  PXT::Parser /usr/share/perl5/vendor_perl/PXT/Parser.pm 141 PXT::Handlers::pxt_include_handler
  PXT::Parser /usr/share/perl5/vendor_perl/PXT/Parser.pm 72 PXT::Parser::expand_tag
  PXT::ApacheHandler /usr/share/perl5/vendor_perl/PXT/ApacheHandler.pm 456 PXT::Parser::expand_tags
  PXT::ApacheHandler /usr/share/perl5/vendor_perl/PXT/ApacheHandler.pm 103 PXT::ApacheHandler::pxt_parse_data
  PXT::ApacheHandler /usr/share/perl5/vendor_perl/PXT/ApacheHandler.pm 103 (eval)
  main -e 0 PXT::ApacheHandler::handler
  main -e 0 (eval)

Offending Query:INSERT
  INTO rhnErrataFileTmp
       (id, errata_id, type, checksum_id, filename)
       (SELECT sequence_nextval('rhn_erratafile_id_seq'), :new_eid, EF.type, EF.checksum_id, EF.filename
          FROM rhnErrataFile EF
         WHERE EF.errata_id = :old_eid)