From shenzhenmuwenshayan@sina.com Mon Apr 14 17:00:29 2003
From: shenzhenmuwenshayan@sina.com (shenzhenmuwenshayan@sina.com)
Date: Mon, 14 Apr 03 16:00:29 中国标准时间
Subject: [LON-CAPA-cvs] 非常好的建筑石材---木纹砂岩
Message-ID: <200304140803.h3E83kR22208@zaphod.lite.msu.edu>
------=_NextPart_000_000D_0D5E555A.281B000F
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_000E_0D5E555A.281B000F"
------=_NextPart_001_000E_0D5E555A.281B000F
Content-Type: text/plain; charset=gb2312
Content-Transfer-Encoding: quoted-printable
这是用超文本格式编写的邮件，请使用超文本方式浏览。
---------------------------
=C8=E7=B9=FB=D5=E2=B7=E2=D3=CA=BC=FE=B4=F2=C8=C5=C4=FA=C1=CB=A3=AC=B7=B3=C7=
=EB=CB=E6=CA=D6=C9=BE=B5=F4=A3=AC=B2=A2=C7=EB=BC=FB=C1=C2=A1=A3
=C8=F4=C4=FA=B2=BB=CF=A3=CD=FB=D4=D9=B4=CE=CA=D5=B5=BD=CE=D2=C3=C7=B5=C4=D3=
=CA=BC=FE=A3=AC=C7=EB=B5=E3=BB=F7=D5=E2=C0=EF=A1=A3
http://www.shangpala.com/unsub/unsubscribe.asp?id=3D2521&language=3Dgb2312=
?id=3D4768&language=3Dgb2312
------=_NextPart_001_000E_0D5E555A.281B000F
Content-Type: text/html; charset=gb2312
Content-Transfer-Encoding: quoted-printable
Untitled Document
=
=A1=A1=A1=A1=C9=EE=DB=DA=D2=E0=C5=F4=C4=BE=CE=
=C6=C9=B0=D1=D2=D3=D0=CF=DE=B9=AB=CB=BE=CA=C7=D2=BB=BC=D2=D7=A8=D2=B5=BF=
=AA=B7=A2=D6=D0=B9=FA=D4=C6=C4=CF=C4=BE=CE=C6=C9=B0=D1=D2=A3=AC=BC=AF=BB=C4=
=C1=CF=BF=AA=B2=C9=A3=AC=B0=E5=B2=C4=BC=D3=B9=A4=A3=AC=CA=D0=B3=A1=CF=FA=CA=
=DB=BC=B0=CA=A9=B9=A4=D1=F8=BB=A4=CE=AA=D2=BB=CC=E5=B5=C4=CA=AF=B2=C4=C6=F3=
=D2=B5=A1=A3=B9=AB=CB=BE=D4=DA=D6=D0=B9=FA=C4=BE=CE=C6=CA=AF=D6=AE=CF=E7=D4=
=C6=C4=CF=CE=E4=B6=A8=D3=B5=D3=D04=D7=F9=D3=C5=D6=CA=C9=B0=D1=D2=BF=F3=C9=BD=
=BF=AA=B2=C9=C8=A8=A1=A3=CF=C2=CF=BD=C0=F6=C9=BD=A3=AC=CF=EC=B5=D8=A3=AC=B2=
=E5=B5=E9=D3=F1=B7=E5=A3=AC=BA=CD=C9=D0=D7=AF=B4=F3=F3=E44=B8=F6=B2=C9=CA=AF=
=BB=F9=B5=D8=BA=CD=BE=FD=CD=FA=CA=AF=B2=C4=BC=D3=B9=A4=B3=A7=A1=A3=D7=CA=D4=
=B4=CE=C8=B6=A8=A3=AC=C6=B7=D6=D6=B7=E1=B8=BB=A1=A3=B1=BE=B9=AB=CB=BE=CF=D6=
=BF=C9=B3=D6=D0=F8=CE=C8=B6=A8=CC=E1=B9=A9=BB=C4=C1=CF=A1=A2=B4=F3=B0=E5=A1=
=A2=B9=A4=B3=CC=B9=E6=B8=F1=B0=E5=A3=AC=C7=D2=B0=E5=C3=E6=BF=C9=BD=F8=D0=D0=
=C4=A5=B9=E2=A1=A2=D7=D4=C8=BB=C3=E6=A1=A2=C0=F3=D6=A6=C3=E6=B5=C8=D4=D9=BC=
=D3=B9=A4=B4=A6=C0=ED=A1=A3
=A1=A1=A1=A1=C9=EE=DB=DA=D2=E0=C5=F4=C4=BE=CE=
=C6=C9=B0=D1=D2=D3=D0=CF=DE=B9=AB=CB=BE=B5=C4=CB=F9=D3=D0=B2=FA=C6=B7=BE=
=AD=B9=E3=B6=AB=CA=A1=D6=CA=C1=BF=BC=BC=CA=F5=BC=E0=B6=BD=BC=EC=D1=E9=BD=E1=
=B9=FB=B7=FB=BA=CF=A1=B62001=C4=EA=CC=EC=C8=BB=CA=AF=B2=C4=B2=FA=C6=B7=B7=C5=
=C9=E4=CE=EF=D6=CA=B9=E3=B6=AB=CA=A1=B6=A8=C6=DA=BC=E0=B6=BD=BC=EC=D1=E9=CF=
=B8=D4=F2=A1=B7A
=C0=E0=B2=FA=C6=B7=D2=AA=C7=F3=A3=AC=C6=E4=B2=FA=CF=FA=BA=CD=CA=B9=D3=C3=B7=
=B6=CE=A7=B2=BB=CA=DC=CF=DE=D6=C6=A1=A3
=A1=A1=A1=A1=D6=D0=B9=FA=C4=BE=CE=C6=CA=AF=D6=AE=CF=E7=D4=C6=C4=CF=D5=FE=
=B8=AE=BC=B0=B5=B1=B5=D8=C8=BA=D6=DA=B5=C4=B4=F3=C1=A6=D6=A7=B3=D6=BA=CD=B7=
=E1=B8=BB=CE=C8=B6=A8=B5=C4=D7=CA=D4=B4=CA=C7=B9=AB=CB=BE=BD=F8=D2=BB=B2=BD=
=B7=A2=D5=B9=B5=C4=D3=D0=C1=A6=B1=A3=D5=CF=A1=A3=CE=D2=C3=C7=D4=B8=D2=E2=BA=
=CD=B8=F7=BD=E7=CA=AF=B2=C4=CD=AC=D0=D0=D7=CA=D4=B4=B9=B2=CF=ED=A3=AC=B9=E3=
=B7=BA=BA=CF=D7=F7=A1=A3=BB=B6=D3=AD=CA=AF=B2=C4=C9=CC=BC=D2=A3=AC=B3=A7=BC=
=D2=C0=B4=B5=E7=C0=B4=C8=CB=C7=A2=CC=B8=D2=B5=CE=F1=A1=A3
*=C9=EE=DB=DA=D2=E0=C5=F4=C4=BE=CE=C6=C9=B0=D1=D2=D3=D0=CF=DE=B9=AB=CB=BE<=
br>
*=C1=AA=CF=B5=B5=E7=BB=B0=A3=BA0755-26383669=A3=AC25866526=A3=AC1304949329=
9
*=CD=BC=CE=C4=B4=AB=D5=E6=A3=BA0755-25866526
*=B5=E7=D7=D3=D3=CA=CF=E4=A3=BAygwok@163.=
com
*=B9=AB=CB=BE=CD=F8=D6=B7=A3=BAhttp://www.9=
9a.net
*=C9=EE=DB=DA=D7=DC=B2=BF=A3=BA=C9=EE=DB=DA=CA=D0=BA=EC=C1=EB=C4=CF=C2=B7=BA=
=EC=C1=EB=B4=F3=CF=C34=D7=F912E(518001)
------=_NextPart_001_000E_0D5E555A.281B000F--
------=_NextPart_000_000D_0D5E555A.281B000F--
From lon-capa-cvs@mail.lon-capa.org Mon Apr 14 14:46:53 2003
From: lon-capa-cvs@mail.lon-capa.org (www)
Date: Mon, 14 Apr 2003 13:46:53 -0000
Subject: [LON-CAPA-cvs] cvs: loncom /interface lonmeta.pm
Message-ID:
www Mon Apr 14 09:46:53 2003 EDT
Modified files:
/loncom/interface lonmeta.pm
Log:
Starts displaying new linking information
Index: loncom/interface/lonmeta.pm
diff -u loncom/interface/lonmeta.pm:1.29 loncom/interface/lonmeta.pm:1.30
--- loncom/interface/lonmeta.pm:1.29 Sat Apr 12 11:57:30 2003
+++ loncom/interface/lonmeta.pm Mon Apr 14 09:46:53 2003
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Metadata display handler
#
-# $Id: lonmeta.pm,v 1.29 2003/04/12 15:57:30 www Exp $
+# $Id: lonmeta.pm,v 1.30 2003/04/14 13:46:53 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -51,8 +51,9 @@
$regexp='___'.$regexp.'___';
my %evaldata=&Apache::lonnet::dump('nohist_resevaldata',$adomain,
$aauthor,$regexp);
- my %sum;
- my %cnt;
+ my %sum=();
+ my %cnt=();
+ my %concat=();
my %listitems=('count' => 'add',
'course' => 'add',
'goto' => 'add',
@@ -69,21 +70,24 @@
'usage' => 'cnt'
);
foreach (keys %evaldata) {
- $_=~/___(\w+)$/;
- if (defined($cnt{$1})) { $cnt{$1}++; } else { $cnt{$1}=1; }
- unless ($listitems{$1} eq 'app') {
- if (defined($sum{$1})) {
- $sum{$1}+=$evaldata{$_};
+ my ($item,$purl,$cat)=split(/\_\_\_/,$_);
+### print "\n".$_.' - '.$item.'
';
+ if (defined($cnt{$cat})) { $cnt{$cat}++; } else { $cnt{$cat}=1; }
+ unless ($listitems{$cat} eq 'app') {
+ if (defined($sum{$cat})) {
+ $sum{$cat}+=$evaldata{$_};
+ $concat{$cat}.=','.$item;
} else {
- $sum{$1}=$evaldata{$_};
+ $sum{$cat}=$evaldata{$_};
+ $concat{$cat}=$item;
}
} else {
- if (defined($sum{$1})) {
+ if (defined($sum{$cat})) {
if ($evaldata{$_}) {
- $sum{$1}.='
'.$evaldata{$_};
+ $sum{$cat}.='
'.$evaldata{$_};
}
} else {
- $sum{$1}=''.$evaldata{$_};
+ $sum{$cat}=''.$evaldata{$_};
}
}
}
@@ -96,6 +100,8 @@
} else {
$returnhash{$_}=$sum{$_};
}
+ $returnhash{$_.'_list'}=$concat{$_};
+### print "\n
".$_.': '.$returnhash{$_}.'
'.$returnhash{$_.'_list'};
}
return %returnhash;
}
@@ -293,6 +299,8 @@
'count' => 'Network-wide number of accesses (hits)',
'course' => 'Network-wide number of courses using resource',
'usage' => 'Number of resources using or importing resource',
+ 'goto' => 'Number of resources that follow this resource in maps',
+ 'comefrom' => 'Number of resources that lead up to this resource in maps',
'clear' => 'Material presented in clear way',
'depth' => 'Material covered with sufficient depth',
'helpful' => 'Material is helpful',
@@ -304,7 +312,21 @@
my %dynmeta=&dynamicmeta($uri);
$r->print(
'Access and Usage Statistics
');
- foreach ('count','usage','course') {
+ foreach ('count') {
+ $r->print(
+'| '.$items{$_}.' | '.
+$dynmeta{$_}." |
\n");
+ }
+ foreach my $cat ('usage','comefrom','goto') {
+ $r->print(
+'| '.$items{$cat}.' | '.
+$dynmeta{$_}.'
'.join('
',
+ map { ''.
+ &Apache::lonnet::gettitle($_).' ['.
+ $_.']' }
+ split(/\,/,$dynmeta{$cat.'_list'}))." |
\n");
+ }
+ foreach ('course') {
$r->print(
'| '.$items{$_}.' | '.
$dynmeta{$_}." |
\n");
From shenzhenmuwenshayan@sina.com Tue Apr 15 02:30:19 2003
From: shenzhenmuwenshayan@sina.com (shenzhenmuwenshayan@sina.com)
Date: Tue, 15 Apr 03 01:30:19 中国标准时间
Subject: [LON-CAPA-cvs] 非常好的建筑石材---木纹砂岩
Message-ID: <200304141733.h3EHXGR24275@zaphod.lite.msu.edu>
------=_NextPart_000_001F_246A5555.6D3F0001
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_0020_246A5555.6D3F0001"
------=_NextPart_001_0020_246A5555.6D3F0001
Content-Type: text/plain; charset=gb2312
Content-Transfer-Encoding: quoted-printable
这是用超文本格式编写的邮件，请使用超文本方式浏览。
---------------------------
=C8=E7=B9=FB=D5=E2=B7=E2=D3=CA=BC=FE=B4=F2=C8=C5=C4=FA=C1=CB=A3=AC=B7=B3=C7=
=EB=CB=E6=CA=D6=C9=BE=B5=F4=A3=AC=B2=A2=C7=EB=BC=FB=C1=C2=A1=A3
=C8=F4=C4=FA=B2=BB=CF=A3=CD=FB=D4=D9=B4=CE=CA=D5=B5=BD=CE=D2=C3=C7=B5=C4=D3=
=CA=BC=FE=A3=AC=C7=EB=B5=E3=BB=F7=D5=E2=C0=EF=A1=A3
http://www.shangpala.com/unsub/unsubscribe.asp?id=3D2521&language=3Dgb2312=
?id=3D4768&language=3Dgb2312
------=_NextPart_001_0020_246A5555.6D3F0001
Content-Type: text/html; charset=gb2312
Content-Transfer-Encoding: quoted-printable
Untitled Document
=
=A1=A1=A1=A1=C9=EE=DB=DA=D2=E0=C5=F4=C4=BE=CE=
=C6=C9=B0=D1=D2=D3=D0=CF=DE=B9=AB=CB=BE=CA=C7=D2=BB=BC=D2=D7=A8=D2=B5=BF=
=AA=B7=A2=D6=D0=B9=FA=D4=C6=C4=CF=C4=BE=CE=C6=C9=B0=D1=D2=A3=AC=BC=AF=BB=C4=
=C1=CF=BF=AA=B2=C9=A3=AC=B0=E5=B2=C4=BC=D3=B9=A4=A3=AC=CA=D0=B3=A1=CF=FA=CA=
=DB=BC=B0=CA=A9=B9=A4=D1=F8=BB=A4=CE=AA=D2=BB=CC=E5=B5=C4=CA=AF=B2=C4=C6=F3=
=D2=B5=A1=A3=B9=AB=CB=BE=D4=DA=D6=D0=B9=FA=C4=BE=CE=C6=CA=AF=D6=AE=CF=E7=D4=
=C6=C4=CF=CE=E4=B6=A8=D3=B5=D3=D04=D7=F9=D3=C5=D6=CA=C9=B0=D1=D2=BF=F3=C9=BD=
=BF=AA=B2=C9=C8=A8=A1=A3=CF=C2=CF=BD=C0=F6=C9=BD=A3=AC=CF=EC=B5=D8=A3=AC=B2=
=E5=B5=E9=D3=F1=B7=E5=A3=AC=BA=CD=C9=D0=D7=AF=B4=F3=F3=E44=B8=F6=B2=C9=CA=AF=
=BB=F9=B5=D8=BA=CD=BE=FD=CD=FA=CA=AF=B2=C4=BC=D3=B9=A4=B3=A7=A1=A3=D7=CA=D4=
=B4=CE=C8=B6=A8=A3=AC=C6=B7=D6=D6=B7=E1=B8=BB=A1=A3=B1=BE=B9=AB=CB=BE=CF=D6=
=BF=C9=B3=D6=D0=F8=CE=C8=B6=A8=CC=E1=B9=A9=BB=C4=C1=CF=A1=A2=B4=F3=B0=E5=A1=
=A2=B9=A4=B3=CC=B9=E6=B8=F1=B0=E5=A3=AC=C7=D2=B0=E5=C3=E6=BF=C9=BD=F8=D0=D0=
=C4=A5=B9=E2=A1=A2=D7=D4=C8=BB=C3=E6=A1=A2=C0=F3=D6=A6=C3=E6=B5=C8=D4=D9=BC=
=D3=B9=A4=B4=A6=C0=ED=A1=A3
=A1=A1=A1=A1=C9=EE=DB=DA=D2=E0=C5=F4=C4=BE=CE=
=C6=C9=B0=D1=D2=D3=D0=CF=DE=B9=AB=CB=BE=B5=C4=CB=F9=D3=D0=B2=FA=C6=B7=BE=
=AD=B9=E3=B6=AB=CA=A1=D6=CA=C1=BF=BC=BC=CA=F5=BC=E0=B6=BD=BC=EC=D1=E9=BD=E1=
=B9=FB=B7=FB=BA=CF=A1=B62001=C4=EA=CC=EC=C8=BB=CA=AF=B2=C4=B2=FA=C6=B7=B7=C5=
=C9=E4=CE=EF=D6=CA=B9=E3=B6=AB=CA=A1=B6=A8=C6=DA=BC=E0=B6=BD=BC=EC=D1=E9=CF=
=B8=D4=F2=A1=B7A
=C0=E0=B2=FA=C6=B7=D2=AA=C7=F3=A3=AC=C6=E4=B2=FA=CF=FA=BA=CD=CA=B9=D3=C3=B7=
=B6=CE=A7=B2=BB=CA=DC=CF=DE=D6=C6=A1=A3
=A1=A1=A1=A1=D6=D0=B9=FA=C4=BE=CE=C6=CA=AF=D6=AE=CF=E7=D4=C6=C4=CF=D5=FE=
=B8=AE=BC=B0=B5=B1=B5=D8=C8=BA=D6=DA=B5=C4=B4=F3=C1=A6=D6=A7=B3=D6=BA=CD=B7=
=E1=B8=BB=CE=C8=B6=A8=B5=C4=D7=CA=D4=B4=CA=C7=B9=AB=CB=BE=BD=F8=D2=BB=B2=BD=
=B7=A2=D5=B9=B5=C4=D3=D0=C1=A6=B1=A3=D5=CF=A1=A3=CE=D2=C3=C7=D4=B8=D2=E2=BA=
=CD=B8=F7=BD=E7=CA=AF=B2=C4=CD=AC=D0=D0=D7=CA=D4=B4=B9=B2=CF=ED=A3=AC=B9=E3=
=B7=BA=BA=CF=D7=F7=A1=A3=BB=B6=D3=AD=CA=AF=B2=C4=C9=CC=BC=D2=A3=AC=B3=A7=BC=
=D2=C0=B4=B5=E7=C0=B4=C8=CB=C7=A2=CC=B8=D2=B5=CE=F1=A1=A3
*=C9=EE=DB=DA=D2=E0=C5=F4=C4=BE=CE=C6=C9=B0=D1=D2=D3=D0=CF=DE=B9=AB=CB=BE<=
br>
*=C1=AA=CF=B5=B5=E7=BB=B0=A3=BA0755-26383669=A3=AC25866526=A3=AC1304949329=
9
*=CD=BC=CE=C4=B4=AB=D5=E6=A3=BA0755-25866526
*=B5=E7=D7=D3=D3=CA=CF=E4=A3=BAygwok@163.=
com
*=B9=AB=CB=BE=CD=F8=D6=B7=A3=BAhttp://www.9=
9a.net
*=C9=EE=DB=DA=D7=DC=B2=BF=A3=BA=C9=EE=DB=DA=CA=D0=BA=EC=C1=EB=C4=CF=C2=B7=BA=
=EC=C1=EB=B4=F3=CF=C34=D7=F912E(518001)
------=_NextPart_001_0020_246A5555.6D3F0001--
------=_NextPart_000_001F_246A5555.6D3F0001--
From lon-capa-cvs@mail.lon-capa.org Tue Apr 15 01:53:04 2003
From: lon-capa-cvs@mail.lon-capa.org (www)
Date: Tue, 15 Apr 2003 00:53:04 -0000
Subject: [LON-CAPA-cvs] cvs: loncom /interface lonmeta.pm
Message-ID:
www Mon Apr 14 20:53:04 2003 EDT
Modified files:
/loncom/interface lonmeta.pm
Log:
Output of link and course data
Index: loncom/interface/lonmeta.pm
diff -u loncom/interface/lonmeta.pm:1.30 loncom/interface/lonmeta.pm:1.31
--- loncom/interface/lonmeta.pm:1.30 Mon Apr 14 09:46:53 2003
+++ loncom/interface/lonmeta.pm Mon Apr 14 20:53:04 2003
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Metadata display handler
#
-# $Id: lonmeta.pm,v 1.30 2003/04/14 13:46:53 www Exp $
+# $Id: lonmeta.pm,v 1.31 2003/04/15 00:53:04 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -320,16 +320,22 @@
foreach my $cat ('usage','comefrom','goto') {
$r->print(
'| '.$items{$cat}.' | '.
-$dynmeta{$_}.'
'.join('
',
- map { ''.
- &Apache::lonnet::gettitle($_).' ['.
- $_.']' }
- split(/\,/,$dynmeta{$cat.'_list'}))." |
\n");
+$dynmeta{$cat}.'\n");
}
- foreach ('course') {
+ foreach my $cat ('course') {
$r->print(
-'| '.$items{$_}.' | '.
-$dynmeta{$_}." |
\n");
+'| '.$items{$cat}.' | '.
+$dynmeta{$cat}.' |
\n");
}
$r->print('
');
if ($uri=~/\.(problem|exam|quiz|assess|survey|form)\.meta$/) {
From shenzhenmuwenshayan@sina.com Tue Apr 15 12:00:00 2003
From: shenzhenmuwenshayan@sina.com (shenzhenmuwenshayan@sina.com)
Date: Tue, 15 Apr 03 11:00:00 中国标准时间
Subject: [LON-CAPA-cvs] 非常好的建筑石材---木纹砂岩
Message-ID: <200304150303.h3F33GR29527@zaphod.lite.msu.edu>
------=_NextPart_000_001F_246A5555.6D3F0001
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_0020_246A5555.6D3F0001"
------=_NextPart_001_0020_246A5555.6D3F0001
Content-Type: text/plain; charset=gb2312
Content-Transfer-Encoding: quoted-printable
这是用超文本格式编写的邮件，请使用超文本方式浏览。
---------------------------
=C8=E7=B9=FB=D5=E2=B7=E2=D3=CA=BC=FE=B4=F2=C8=C5=C4=FA=C1=CB=A3=AC=B7=B3=C7=
=EB=CB=E6=CA=D6=C9=BE=B5=F4=A3=AC=B2=A2=C7=EB=BC=FB=C1=C2=A1=A3
=C8=F4=C4=FA=B2=BB=CF=A3=CD=FB=D4=D9=B4=CE=CA=D5=B5=BD=CE=D2=C3=C7=B5=C4=D3=
=CA=BC=FE=A3=AC=C7=EB=B5=E3=BB=F7=D5=E2=C0=EF=A1=A3
http://www.shangpala.com/unsub/unsubscribe.asp?id=3D2521&language=3Dgb2312=
?id=3D4768&language=3Dgb2312
------=_NextPart_001_0020_246A5555.6D3F0001
Content-Type: text/html; charset=gb2312
Content-Transfer-Encoding: quoted-printable
Untitled Document
=
=A1=A1=A1=A1=C9=EE=DB=DA=D2=E0=C5=F4=C4=BE=CE=
=C6=C9=B0=D1=D2=D3=D0=CF=DE=B9=AB=CB=BE=CA=C7=D2=BB=BC=D2=D7=A8=D2=B5=BF=
=AA=B7=A2=D6=D0=B9=FA=D4=C6=C4=CF=C4=BE=CE=C6=C9=B0=D1=D2=A3=AC=BC=AF=BB=C4=
=C1=CF=BF=AA=B2=C9=A3=AC=B0=E5=B2=C4=BC=D3=B9=A4=A3=AC=CA=D0=B3=A1=CF=FA=CA=
=DB=BC=B0=CA=A9=B9=A4=D1=F8=BB=A4=CE=AA=D2=BB=CC=E5=B5=C4=CA=AF=B2=C4=C6=F3=
=D2=B5=A1=A3=B9=AB=CB=BE=D4=DA=D6=D0=B9=FA=C4=BE=CE=C6=CA=AF=D6=AE=CF=E7=D4=
=C6=C4=CF=CE=E4=B6=A8=D3=B5=D3=D04=D7=F9=D3=C5=D6=CA=C9=B0=D1=D2=BF=F3=C9=BD=
=BF=AA=B2=C9=C8=A8=A1=A3=CF=C2=CF=BD=C0=F6=C9=BD=A3=AC=CF=EC=B5=D8=A3=AC=B2=
=E5=B5=E9=D3=F1=B7=E5=A3=AC=BA=CD=C9=D0=D7=AF=B4=F3=F3=E44=B8=F6=B2=C9=CA=AF=
=BB=F9=B5=D8=BA=CD=BE=FD=CD=FA=CA=AF=B2=C4=BC=D3=B9=A4=B3=A7=A1=A3=D7=CA=D4=
=B4=CE=C8=B6=A8=A3=AC=C6=B7=D6=D6=B7=E1=B8=BB=A1=A3=B1=BE=B9=AB=CB=BE=CF=D6=
=BF=C9=B3=D6=D0=F8=CE=C8=B6=A8=CC=E1=B9=A9=BB=C4=C1=CF=A1=A2=B4=F3=B0=E5=A1=
=A2=B9=A4=B3=CC=B9=E6=B8=F1=B0=E5=A3=AC=C7=D2=B0=E5=C3=E6=BF=C9=BD=F8=D0=D0=
=C4=A5=B9=E2=A1=A2=D7=D4=C8=BB=C3=E6=A1=A2=C0=F3=D6=A6=C3=E6=B5=C8=D4=D9=BC=
=D3=B9=A4=B4=A6=C0=ED=A1=A3
=A1=A1=A1=A1=C9=EE=DB=DA=D2=E0=C5=F4=C4=BE=CE=
=C6=C9=B0=D1=D2=D3=D0=CF=DE=B9=AB=CB=BE=B5=C4=CB=F9=D3=D0=B2=FA=C6=B7=BE=
=AD=B9=E3=B6=AB=CA=A1=D6=CA=C1=BF=BC=BC=CA=F5=BC=E0=B6=BD=BC=EC=D1=E9=BD=E1=
=B9=FB=B7=FB=BA=CF=A1=B62001=C4=EA=CC=EC=C8=BB=CA=AF=B2=C4=B2=FA=C6=B7=B7=C5=
=C9=E4=CE=EF=D6=CA=B9=E3=B6=AB=CA=A1=B6=A8=C6=DA=BC=E0=B6=BD=BC=EC=D1=E9=CF=
=B8=D4=F2=A1=B7A
=C0=E0=B2=FA=C6=B7=D2=AA=C7=F3=A3=AC=C6=E4=B2=FA=CF=FA=BA=CD=CA=B9=D3=C3=B7=
=B6=CE=A7=B2=BB=CA=DC=CF=DE=D6=C6=A1=A3
=A1=A1=A1=A1=D6=D0=B9=FA=C4=BE=CE=C6=CA=AF=D6=AE=CF=E7=D4=C6=C4=CF=D5=FE=
=B8=AE=BC=B0=B5=B1=B5=D8=C8=BA=D6=DA=B5=C4=B4=F3=C1=A6=D6=A7=B3=D6=BA=CD=B7=
=E1=B8=BB=CE=C8=B6=A8=B5=C4=D7=CA=D4=B4=CA=C7=B9=AB=CB=BE=BD=F8=D2=BB=B2=BD=
=B7=A2=D5=B9=B5=C4=D3=D0=C1=A6=B1=A3=D5=CF=A1=A3=CE=D2=C3=C7=D4=B8=D2=E2=BA=
=CD=B8=F7=BD=E7=CA=AF=B2=C4=CD=AC=D0=D0=D7=CA=D4=B4=B9=B2=CF=ED=A3=AC=B9=E3=
=B7=BA=BA=CF=D7=F7=A1=A3=BB=B6=D3=AD=CA=AF=B2=C4=C9=CC=BC=D2=A3=AC=B3=A7=BC=
=D2=C0=B4=B5=E7=C0=B4=C8=CB=C7=A2=CC=B8=D2=B5=CE=F1=A1=A3
*=C9=EE=DB=DA=D2=E0=C5=F4=C4=BE=CE=C6=C9=B0=D1=D2=D3=D0=CF=DE=B9=AB=CB=BE<=
br>
*=C1=AA=CF=B5=B5=E7=BB=B0=A3=BA0755-26383669=A3=AC25866526=A3=AC1304949329=
9
*=CD=BC=CE=C4=B4=AB=D5=E6=A3=BA0755-25866526
*=B5=E7=D7=D3=D3=CA=CF=E4=A3=BAygwok@163.=
com
*=B9=AB=CB=BE=CD=F8=D6=B7=A3=BAhttp://www.9=
9a.net
*=C9=EE=DB=DA=D7=DC=B2=BF=A3=BA=C9=EE=DB=DA=CA=D0=BA=EC=C1=EB=C4=CF=C2=B7=BA=
=EC=C1=EB=B4=F3=CF=C34=D7=F912E(518001)
------=_NextPart_001_0020_246A5555.6D3F0001--
------=_NextPart_000_001F_246A5555.6D3F0001--
From lon-capa-cvs@mail.lon-capa.org Tue Apr 15 04:53:03 2003
From: lon-capa-cvs@mail.lon-capa.org (www)
Date: Tue, 15 Apr 2003 03:53:03 -0000
Subject: [LON-CAPA-cvs] cvs: rat / lonwrapper.pm
Message-ID:
www Mon Apr 14 23:53:03 2003 EDT
Modified files:
/rat lonwrapper.pm
Log:
Attempt to do the inline remote for "wrapped" pages without doing ssi.
Index: rat/lonwrapper.pm
diff -u rat/lonwrapper.pm:1.11 rat/lonwrapper.pm:1.12
--- rat/lonwrapper.pm:1.11 Fri Feb 28 22:06:37 2003
+++ rat/lonwrapper.pm Mon Apr 14 23:53:03 2003
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Wrapper for external and binary files as standalone resources
#
-# $Id: lonwrapper.pm,v 1.11 2003/03/01 03:06:37 www Exp $
+# $Id: lonwrapper.pm,v 1.12 2003/04/15 03:53:03 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -50,21 +50,59 @@
return OK if $r->header_only;
- my $url=$r->uri;
+ &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
+ ['wrapperdisplay']);
+ my $orgurl=$r->uri;
+ my $url=$orgurl;
$url=~s/^\/adm\/wrapper//;
$url=~s/^\/ext\//http\:\/\//;
- if ($url=~/^\/uploaded\//) {
- $url=&Apache::lonnet::tokenwrapper($url);
- }
- $url.=(($url=~/\?/)?'&':'?').$ENV{'QUERY_STRING'}; #reappend the query arguments
- my $events='onLoad="'.&Apache::lonmenu::loadevents.
- '" onUnload="'.&Apache::lonmenu::unloadevents.'"';
- my $script=&Apache::lonmenu::registerurl(1,undef);
- unless ($ENV{'browser.interface'} eq 'textual') {
+ if ($ENV{'form.wrapperdisplay'} eq 'menu') {
+#
+# Producing the menu buttons
+#
+ $r->print(''.
+ &Apache::lonmenu::menubuttons(1,'web',1).'');
+ } else {
+#
+# Actual URL
+#
+ if ($url=~/^\/uploaded\//) {
+ $url=&Apache::lonnet::tokenwrapper($url);
+ }
+ $url.=(($url=~/\?/)?'&':'?').$ENV{'QUERY_STRING'}; #reappend the query arguments
+ my $events='onLoad="'.&Apache::lonmenu::loadevents.
+ '" onUnload="'.&Apache::lonmenu::unloadevents.'"';
+ my $script=&Apache::lonmenu::registerurl(1,undef);
+
+ if ($ENV{'browser.interface'} eq 'textual') {
+#
+# ssi-based rendering for text-based interface
+#
+ $r->print(''.
+ &Apache::lonmenu::registerurl(1).
+ ''.
+ &Apache::lonmenu::menubuttons(1).
+ &Apache::lonnet::ssi_body($url).'');
+ } elsif ($ENV{'environment.remote'} eq 'off') {
+#
+# This is inline remote
+#
+ $r->print(<
+
+$script
+
+
+