# HG changeset patch
# User devi
# Date 1145714885 -10800
# Node ID 45196265d30edc03111a1ae09d65e53033805844
# Parent db51b62442acdde6602a33d031a01aa466601ea5
Написан прототип lm get
diff -r db51b62442ac -r 45196265d30e l3-frontend
--- a/l3-frontend Sat Apr 22 17:08:05 2006 +0300
+++ b/l3-frontend Sat Apr 22 17:08:05 2006 +0300
@@ -174,6 +174,7 @@
sub mywi_client
{
+ return "";
my $query = $_[0];
my $mywi;
@@ -1035,6 +1036,7 @@
my $cursor_position = 0;
$result = print_command_lines_txt;
+ my $title = ">Журнал лабораторных работ. Правка";
$result =
"<html>"
diff -r db51b62442ac -r 45196265d30e l3scripts
--- a/l3scripts Sat Apr 22 17:08:05 2006 +0300
+++ b/l3scripts Sat Apr 22 17:08:05 2006 +0300
@@ -45,6 +45,7 @@
personal=$course-$date-$email
mkdir -p $outpath/${common}/{Lablogs,Docs}
mkdir -p $outpath/${personal}/{Course,Files}
+mkdir -p $outpath/${personal}/Course/pdf
cd $outpath/${personal}
ln -s ../${common}/Lablogs .
ln -s ../${common}/Docs .
@@ -100,6 +101,14 @@
###send-logs
#cat >> /tmp/letters <<LETTER
mutt -a /tmp/lilalo-$course-$date.zip -s 'Журналы лабораторных работ' $email <<LETTER
+
++--------------------------------------------------+
+| |
+| В прошлом письме был неверно указаны фамилии |
+| слушателей. Не в том порядке. Сейчас всё ок. |
+| |
++--------------------------------------------------+
+
$firstname,
высылаю вам журналы лабораторных работ по курсу $course,
diff -r db51b62442ac -r 45196265d30e lm
--- a/lm Sat Apr 22 17:08:05 2006 +0300
+++ b/lm Sat Apr 22 17:08:05 2006 +0300
@@ -90,7 +90,6 @@
}
if ($ARGV[0] eq "get") {
- print "argv= ".$ARGV[0]."ZLO\n";
lm_get;
exit(0);
}