图书音像目录

'.$screenname.'

'.
              &Apache::lontexconvert::msgtexconverted($content{'message'}).



From lon-capa-cvs@mail.lon-capa.org  Mon Dec 23 18:04:54 2002
From: lon-capa-cvs@mail.lon-capa.org (www)
Date: Mon, 23 Dec 2002 18:04:54 -0000
Subject: [LON-CAPA-cvs] cvs: loncom /interface loncreatecourse.pm
Message-ID: 

www		Mon Dec 23 13:04:54 2002 EDT

  Modified files:              
    /loncom/interface	loncreatecourse.pm 
  Log:
  Bug #502 - can now disable student discussion of resources at course
  creation time.
  
  
Index: loncom/interface/loncreatecourse.pm
diff -u loncom/interface/loncreatecourse.pm:1.15 loncom/interface/loncreatecourse.pm:1.16

--- loncom/interface/loncreatecourse.pm:1.15	Mon Dec  9 16:32:34 2002
+++ loncom/interface/loncreatecourse.pm	Mon Dec 23 13:04:54 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Create a course
 #
-# $Id: loncreatecourse.pm,v 1.15 2002/12/09 21:32:34 albertel Exp $
+# $Id: loncreatecourse.pm,v 1.16 2002/12/23 18:04:54 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -134,7 +134,11 @@
 Set content feedback to Course Coordinator: 
 
 
-
+Communication
+
+Disable student resource discussion: 
+
+
 Course Coordinator
 
 Username: 
@@ -221,6 +225,10 @@
            $envflag=1;
            $cenv{'question.email'}=$ccuname.':'.$ccdomain;
        }
+    }
+    if ($ENV{'form.disresdis'}) {
+	$envflag=1;
+        $cenv{'pch.roles.denied'}='st';
     }
     if ($envflag) {
        $r->print('Setting environment: '.                 



From lon-capa-cvs@mail.lon-capa.org  Mon Dec 23 19:11:33 2002
From: lon-capa-cvs@mail.lon-capa.org (albertel)
Date: Mon, 23 Dec 2002 19:11:33 -0000
Subject: [LON-CAPA-cvs] cvs: loncom /interface lonprintout.pm
Message-ID: 

albertel		Mon Dec 23 14:11:33 2002 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  Many small fixes
  - eliminated almost all uses of request.role
  - when using a file name as a regexp you probably want to do \Q \E ( I have
     a greate testing file called ).problem)
  - eliminated the http://servername part of the url that is sent in CSTR space
    (&Apache::lonnet::filelocation()  doesn't deal well with that)
  - &Apache::lonnet::dirlist of a CSTR space needs to be sent the username/domain
    of the owner of the CSTR space not the user requesting it
  - use the URL to decide if we are in CSTR space or dealing with resources in 
    a course
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.99 loncom/interface/lonprintout.pm:1.100
--- loncom/interface/lonprintout.pm:1.99	Wed Dec 11 17:06:55 2002
+++ loncom/interface/lonprintout.pm	Mon Dec 23 14:11:33 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.99 2002/12/11 22:06:55 albertel Exp $
+# $Id: lonprintout.pm,v 1.100 2002/12/23 19:11:33 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -66,11 +66,12 @@
 
 

 ENDHEADER
-    if ($ENV{'request.role'}=~m/^cc\./ or $ENV{'request.role'}=~m/^in\./ or $ENV{'request.role'}=~m/^ta\./) { 
-    $r->print(<print(<Path to current document: $ENV{'form.postdata'}
 ENDHEADER1
-}
+    }
 }
 
 
@@ -81,9 +82,10 @@
     if ($title_for_single_resource ne '') {$title_for_single_resource = '"'.$title_for_single_resource.'"';}
     if ($title_for_sequence ne '') {$title_for_sequence = '"'.$title_for_sequence.'"';}
     if ($title_for_main_map ne '') {$title_for_main_map = '"'.$title_for_main_map.'"';}
+    $ENV{'form.postdata'} =~ s|http://[^/]+||;
     my $subdir_to_print = $ENV{'form.postdata'};
     $subdir_to_print =~ m/\/([^\/]+)$/;
-    $subdir_to_print =~ s/$1//;
+    $subdir_to_print =~ s/\Q$1\E//;
     $r->print(<What do you want to print? Make a choice.

 
@@ -217,14 +219,13 @@
     my $subdirtoprint = &Apache::lonnet::filelocation("",$ENV{'form.url'});
     $subdirtoprint =~ s/\/[^\/]+$//;
     my @list_of_files = ();
-    if ($ENV{'request.role'}=~m/^au\./ or $ENV{'request.role'}=~m/^ca\./) {
-	$subdirtoprint =~ s/^[^~]*~(\w+)\//\/home\/$1\/public_html\//;
-    } else {
-	$subdirtoprint =~ s/.*(\/res\/)/$1/;
-    }
     my @content_directory = ();
-    if ($ENV{'request.role'}=~m/^au\./ or $ENV{'request.role'}=~m/^ca\./) {
-	@content_directory = &Apache::lonnet::dirlist($subdirtoprint,$ENV{'user.domain'}, $ENV{'user.name'},'');
+    if ($subdirtoprint =~ m|/home/([^/]+)/public_html|) {
+	#localmachine CSTR space
+	my $user=$1;
+	my $domain=$Apache::lonnet::perlvar{'lonDefDomain'};
+	@content_directory = &Apache::lonnet::dirlist($subdirtoprint,
+						      $domain, $user,'');
     } else {
 	@content_directory = &Apache::lonnet::dirlist($subdirtoprint);
     }
@@ -431,7 +432,8 @@
 	if ($ENV{'form.papersize'} eq '') {$papersize = 'Letter [8 1/2x11 in]';}
 	if ($ENV{'form.numberofcolumns'} eq '') {$numberofcolumns = 2;}
     }
-    if (($choice eq 'Standard LaTeX output for current document') && ($ENV{'request.role'}=~m/^au\./ or $ENV{'request.role'}=~m/^ca\./)) {
+    if (($choice eq 'Standard LaTeX output for current document') &&
+	($ENV{'form.url'}=~m|^/~|)) {
 	if ($ENV{'form.layout'} eq '') {$layout = 'CAPA';}
 	if ($ENV{'form.papersize'} eq '') {$papersize = 'Letter [8 1/2x11 in]';}
 	if ($ENV{'form.numberofcolumns'} eq '') {$numberofcolumns = 2;}
@@ -616,8 +618,8 @@
 		$moreenv{'form.grade_target'}='tex';
 		$moreenv{'form.textwidth'}=$LaTeXwidth;
 		&Apache::lonnet::appenv(%moreenv);
-		if ($ENV{'request.role'}=~m/^au\./ or $ENV{'request.role'}=~m/^ca\./) { 
-		    $urlp =~ s/\/home\/([^\/]*)\/public_html/\/~$1/; 
+		if ($urlp =~ m|/home/([^/]+)/public_html|) {
+		    $urlp =~ s|/home/([^/]*)/public_html|/~$1|;
 		}
 		my $texversion=&Apache::lonnet::ssi($urlp);
 		&Apache::lonnet::delenv('form.grade_target','form.textwidth');



From lon-capa-cvs@mail.lon-capa.org  Tue Dec 24 21:00:21 2002
From: lon-capa-cvs@mail.lon-capa.org (minaeibi)
Date: Tue, 24 Dec 2002 21:00:21 -0000
Subject: [LON-CAPA-cvs] cvs: loncom /interface/statistics lonstudentassessment.pm
Message-ID: 

minaeibi		Tue Dec 24 16:00:21 2002 EDT

  Modified files:              
    /loncom/interface/statistics	lonstudentassessment.pm 
  Log:
  Fixed bug #880
  lonstudentassessment.pm (chart) gives summary tables at the end of computing the course chart.
  Let me know any feedback.
  
  
  
Index: loncom/interface/statistics/lonstudentassessment.pm
diff -u loncom/interface/statistics/lonstudentassessment.pm:1.22 loncom/interface/statistics/lonstudentassessment.pm:1.23
--- loncom/interface/statistics/lonstudentassessment.pm:1.22	Wed Dec 18 15:02:34 2002
+++ loncom/interface/statistics/lonstudentassessment.pm	Tue Dec 24 16:00:21 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # (Publication Handler
 #
-# $Id: lonstudentassessment.pm,v 1.22 2002/12/18 20:02:34 minaeibi Exp $
+# $Id: lonstudentassessment.pm,v 1.23 2002/12/24 21:00:21 minaeibi Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -30,7 +30,7 @@
 # 11/1,11/4,11/16,12/14,12/16,12/18,12/20,12/31 Behrouz Minaei
 # YEAR=2002
 # 1/22,2/1,2/6,2/25,3/2,3/6,3/17,3/21,3/22,3/26,4/7,5/6 Behrouz Minaei
-# 5/12,5/14,5/15,5/19,5/26,7/16  Behrouz Minaei
+# 5/12,5/14,5/15,5/19,5/26,7/16,12/24  Behrouz Minaei
 #
 ###
 
@@ -165,10 +165,10 @@
         }
     }
 
-#    if(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) {
-#        $r->print(&StudentAverageTotal(\%cache, $students, $sequenceKeys));
-#        untie(%cache);
-#    }
+    if(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) {
+        $r->print(&StudentAverageTotal(\%cache, $students, $sequenceKeys));
+        untie(%cache);
+    }
     $r->print('

编号	课程名称	在线视听	介质	主讲人	原价/元	优惠价/元
	个人发展类（A）	在线视听		音像教程目录
1.	《现代企业员工职业化训练整体解决方案》	((((在线试听))))	VCD22盘	胡斌	2400	2040
2.	《企业员工全面激励训练整体解决方案》	((((在线试听)))	VCD11盘	张耀升	1200	1020
3.	《现代职业人士必备技能训练》	((((在线试听))))	VCD8盘	胡斌	900	765
4.	《高层经理人的八项修炼》	((((在线试听))))	VCD9盘	林正大	1200	1020
5.	《时间管理：高效职业人士必备技能》	((((在线试听))))	VCD10盘	刘敏兴	1200	1020
6.	《创新经营》	((((在线试听))))	VCD12盘	秦骏伦	1200	1020
7.	《有效沟通技巧》	((((在线试听))))	VCD5盘	柳青蓝天	500	425
线	综合类（B）	在线线视听视听
8.	《如何打造高绩效团队》	((((在线试听))))	VCD11盘	章义伍	1300	1105
9.	《采购管理与战略采购》	((((在线试听))))	VCD 12盘	谢勤龙	980	830
10.	《如何做一名出色主管》	((((在线试听))))	VCD 10盘	李德	880	750
	战略类（C）	线视听在	在	在	在	在
11.	《企业发展战略设计与实施要务》	((((在线试听))))	VCD12盘	李雪峰	1300	1105
12.	《如何创建学习型组织》	((((在线试听))))	VCD11盘	张声雄	1300	1105
13.	《企业如何培育提升核心竞争力》	((((在线试听))))	VCD10盘	史东明	1200	1020
在	人力资源类（D）	在	在	在	在	在
14.	《人力资源管理整体解决方案》	((((在线试听))))	VCD22盘	林正大张小彤	2400	2040
15.	《人力资源管理与实务全景案例课程》	((((在线试听))))	VCD 16盘	彭剑锋	1680	1430
16.	《如何选、育、用、留人才》	((((在线试听))))	VCD11盘	张晓彤	1200	1020
17.	《现代企业薪资福利设计与操作》	((((在线试听))))	VCD15盘	罗赢	1600	1360
18.	《绩效管理实务》	((((在线试听))))	VCD8盘	张晓彤	900	765
19.	《招聘与面试技巧》	((((在线试听))))	VCD6盘	张晓彤	800	680
20.	《目标管理》	((((在线试听))))	VCD11盘	郭伦德	1200	1020
在	财务类（E）	在	在	在	在	在
21.	《公司理财实务与热点问题》	((((在线试听))))	VCD19盘	邢　峥	1690	1440
22.	《赊销与风险控制》	((((在线试听))))	VCD12盘	刘宏程	1300	1105
在	生产类（F）	在	在	在	在	在
23.	《卓越的现场管理：5S推行实务》	((((在线试听))))	VCD12盘	刘敏兴	1300	1105
24.	《生产主管职业化训练教程》	((((在线试听))))	VCD 8盘	刘敏兴	900	765
25.	《企业供应链物流管理--海尔、沃尔玛成功模式》	((((在线试听))))	VCD12盘	胡松评	1300	1105
在	营销类（G）	在	在	在	在	在
26.	《超级影响力--N.L.P.致胜行销学》	((((在线试听))))	VCD12盘	尚致胜	1680	1430
27.	《市场营销战略、竞争优势与企业的可持续发展》	((((在线试听))))	VCD16盘	高建华	1500	1275
28.	《深度营销战略与实务全景案例教程》	((((在线试听))))	VCD16盘	包政程绍珊	1680	1430
29.	《销售人员专业技能训练整体解决方案》	((((在线试听))))	VCD13盘	刘敏兴	1500	1275
30.	《卓越的客户服务与管理》	((((在线试听))))	VCD13盘	陈巍	1500	1275
在	案例类（H）	在	在	在	在	在
31.	《海尔模式》	((((在线试听))))	VCD10盘	田娜	1200	1020
32.	《韦尔奇领导艺术与GE成功之道》	((((在线试听))))	VCD9盘	李雪峰	1200	1020

Students Count	'. + $StudentCount.'
Total Problems	'. + $TotalProblems.'
Average Correct	'. + $ProblemsSolved.'

Communication

Course Coordinator

Main Course Documents

Main Course Documents

Supplemental Course Documents

Supplemental Course Documents