--- db/prgsrc/dumpin2out.pl	2001/10/31 03:00:10	1.1
+++ db/prgsrc/dumpin2out.pl	2001/10/31 03:07:27	1.2
@@ -1,62 +1,62 @@
-#!/usr/local/bin/perl -w
-
-=head1 NAME
-
-dumpin2out.pl - Скрипт для создания таблицы соответствий
-внутренних и независимых от заливки идентификаторов в базе 
-вопросов chgk
-
-=head1 SYNOPSIS
-
-dumpin2out.pl output
-
-dumpin2out.pl output RS
-
-=head1 DESCRIPTION
-
-Каждая строка создаваемой таблицы соответствий состоит из
-внутреннего и внешнего идентификатора, разделённых пробелами.
-Внешний идентификатор имеет вид имя_файла.номер_тура.номер_вопроса
-Например:
-
-1               dz97a.5.14
-
-
-=head1 AUTHOR
-
-Роман Семизаров
-
-
-=cut
-
-use dbchgk;
-use chgkfiles;
-
-
-
-if (!$ARGV[0])
-{
-   print "Usage: dumpin2out.pl output\n";
-   exit;
-}
-
-open IN2OUT, '>'.$ARGV[0] or die "Can not open ".$ARGV[0];
-
-
-my $condition=$ARGV[1] && ($ARGV[1] eq 'RS') ? "ProcessedBySearch=1" : '1';
-
-getquestions(QuestionId, $condition);
-
-while ($qid=getrow,$qid)
-{ 
-   print "$sch...\n" unless (++$sch%1000);
-   $i2o=in2out($qid);
-   write IN2OUT;
-}
-
-
-format IN2OUT =
-@<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
-$qid, $i2o
-.
-
+#!/usr/bin/perl -w
+
+=head1 NAME
+
+dumpin2out.pl - Скрипт для создания таблицы соответствий
+внутренних и независимых от заливки идентификаторов в базе 
+вопросов chgk
+
+=head1 SYNOPSIS
+
+dumpin2out.pl output
+
+dumpin2out.pl output RS
+
+=head1 DESCRIPTION
+
+Каждая строка создаваемой таблицы соответствий состоит из
+внутреннего и внешнего идентификатора, разделённых пробелами.
+Внешний идентификатор имеет вид имя_файла.номер_тура.номер_вопроса
+Например:
+
+1               dz97a.5.14
+
+
+=head1 AUTHOR
+
+Роман Семизаров
+
+
+=cut
+
+use dbchgk;
+use chgkfiles;
+
+
+
+if (!$ARGV[0])
+{
+   print "Usage: dumpin2out.pl output\n";
+   exit;
+}
+
+open IN2OUT, '>'.$ARGV[0] or die "Can not open ".$ARGV[0];
+
+
+my $condition=$ARGV[1] && ($ARGV[1] eq 'RS') ? "ProcessedBySearch=1" : '1';
+
+getquestions(QuestionId, $condition);
+
+while ($qid=getrow,$qid)
+{ 
+   print "$sch...\n" unless (++$sch%1000);
+   $i2o=in2out($qid);
+   write IN2OUT;
+}
+
+
+format IN2OUT =
+@<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+$qid, $i2o
+.
+