version 1.29, 2003/04/12 15:57:30
|
version 1.30, 2003/04/14 13:46:53
|
Line 51 sub dynamicmeta {
|
Line 51 sub dynamicmeta {
|
$regexp='___'.$regexp.'___'; |
$regexp='___'.$regexp.'___'; |
my %evaldata=&Apache::lonnet::dump('nohist_resevaldata',$adomain, |
my %evaldata=&Apache::lonnet::dump('nohist_resevaldata',$adomain, |
$aauthor,$regexp); |
$aauthor,$regexp); |
my %sum; |
my %sum=(); |
my %cnt; |
my %cnt=(); |
|
my %concat=(); |
my %listitems=('count' => 'add', |
my %listitems=('count' => 'add', |
'course' => 'add', |
'course' => 'add', |
'goto' => 'add', |
'goto' => 'add', |
Line 69 sub dynamicmeta {
|
Line 70 sub dynamicmeta {
|
'usage' => 'cnt' |
'usage' => 'cnt' |
); |
); |
foreach (keys %evaldata) { |
foreach (keys %evaldata) { |
$_=~/___(\w+)$/; |
my ($item,$purl,$cat)=split(/\_\_\_/,$_); |
if (defined($cnt{$1})) { $cnt{$1}++; } else { $cnt{$1}=1; } |
### print "\n".$_.' - '.$item.'<br />'; |
unless ($listitems{$1} eq 'app') { |
if (defined($cnt{$cat})) { $cnt{$cat}++; } else { $cnt{$cat}=1; } |
if (defined($sum{$1})) { |
unless ($listitems{$cat} eq 'app') { |
$sum{$1}+=$evaldata{$_}; |
if (defined($sum{$cat})) { |
|
$sum{$cat}+=$evaldata{$_}; |
|
$concat{$cat}.=','.$item; |
} else { |
} else { |
$sum{$1}=$evaldata{$_}; |
$sum{$cat}=$evaldata{$_}; |
|
$concat{$cat}=$item; |
} |
} |
} else { |
} else { |
if (defined($sum{$1})) { |
if (defined($sum{$cat})) { |
if ($evaldata{$_}) { |
if ($evaldata{$_}) { |
$sum{$1}.='<hr>'.$evaldata{$_}; |
$sum{$cat}.='<hr>'.$evaldata{$_}; |
} |
} |
} else { |
} else { |
$sum{$1}=''.$evaldata{$_}; |
$sum{$cat}=''.$evaldata{$_}; |
} |
} |
} |
} |
} |
} |
Line 96 sub dynamicmeta {
|
Line 100 sub dynamicmeta {
|
} else { |
} else { |
$returnhash{$_}=$sum{$_}; |
$returnhash{$_}=$sum{$_}; |
} |
} |
|
$returnhash{$_.'_list'}=$concat{$_}; |
|
### print "\n<hr />".$_.': '.$returnhash{$_}.'<br />'.$returnhash{$_.'_list'}; |
} |
} |
return %returnhash; |
return %returnhash; |
} |
} |
Line 293 ENDHEAD
|
Line 299 ENDHEAD
|
'count' => 'Network-wide number of accesses (hits)', |
'count' => 'Network-wide number of accesses (hits)', |
'course' => 'Network-wide number of courses using resource', |
'course' => 'Network-wide number of courses using resource', |
'usage' => 'Number of resources using or importing 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', |
'clear' => 'Material presented in clear way', |
'depth' => 'Material covered with sufficient depth', |
'depth' => 'Material covered with sufficient depth', |
'helpful' => 'Material is helpful', |
'helpful' => 'Material is helpful', |
Line 304 ENDHEAD
|
Line 312 ENDHEAD
|
my %dynmeta=&dynamicmeta($uri); |
my %dynmeta=&dynamicmeta($uri); |
$r->print( |
$r->print( |
'</table><h4>Access and Usage Statistics</h4><table cellspacing=2 border=0>'); |
'</table><h4>Access and Usage Statistics</h4><table cellspacing=2 border=0>'); |
foreach ('count','usage','course') { |
foreach ('count') { |
|
$r->print( |
|
'<tr><td bgcolor="#AAAAAA">'.$items{$_}.'</td><td bgcolor="#CCCCCC">'. |
|
$dynmeta{$_}." </td></tr>\n"); |
|
} |
|
foreach my $cat ('usage','comefrom','goto') { |
|
$r->print( |
|
'<tr><td bgcolor="#AAAAAA">'.$items{$cat}.'</td><td bgcolor="#CCCCCC">'. |
|
$dynmeta{$_}.'<br />'.join('<br /><font size="-1">', |
|
map { '<a href="'.&Apache::lonnet::clutter($_).'">'. |
|
&Apache::lonnet::gettitle($_).' <tt>['. |
|
$_.']</tt></a>' } |
|
split(/\,/,$dynmeta{$cat.'_list'}))."</font></td></tr>\n"); |
|
} |
|
foreach ('course') { |
$r->print( |
$r->print( |
'<tr><td bgcolor="#AAAAAA">'.$items{$_}.'</td><td bgcolor="#CCCCCC">'. |
'<tr><td bgcolor="#AAAAAA">'.$items{$_}.'</td><td bgcolor="#CCCCCC">'. |
$dynmeta{$_}." </td></tr>\n"); |
$dynmeta{$_}." </td></tr>\n"); |