version 1.221, 2004/05/04 15:20:17
|
version 1.222, 2004/05/05 14:14:10
|
Line 790 ENDHEADER
|
Line 790 ENDHEADER
|
$scrout .= '<tr><td> </td><td align="center">'.&mt('Minimum').'</td>'. |
$scrout .= '<tr><td> </td><td align="center">'.&mt('Minimum').'</td>'. |
'<td align="center">'.&mt('Maximum').'</td></tr>'."\n"; |
'<td align="center">'.&mt('Maximum').'</td></tr>'."\n"; |
foreach my $statistic |
foreach my $statistic |
({ name=>'stdno', |
({ name=>'count', |
description=>'Number of Students',}, |
description=>'Network-wide number of accesses (hits)',}, |
|
{ name=>'stdno', |
|
description=> |
|
'Total number of students who have worked on this problem',}, |
{ name => 'avetries', |
{ name => 'avetries', |
description=>'Average tries to answer correctly',}, |
description=>'Average number of tries till solved',}, |
{ name => 'difficulty', |
{ name => 'difficulty', |
description=>'Degree of difficulty',}, |
description=>'Degree of difficulty',}, |
{ name => 'disc', |
{ name => 'disc', |
Line 1184 sub parse_advanced_search {
|
Line 1187 sub parse_advanced_search {
|
'notes','abstract','extension','owner', |
'notes','abstract','extension','owner', |
# 'custommetadata','customshow', |
# 'custommetadata','customshow', |
'modifyinguser','standards','mime'); |
'modifyinguser','standards','mime'); |
my @StatsFields = ('stdno','avetries','difficulty','disc'); |
my @StatsFields = &statfields(); |
my @EvalFields = ('clear','depth','helpful','correct','technical'); |
my @EvalFields = &evalfields(); |
my $fillflag=0; |
my $fillflag=0; |
my $pretty_search_string = "<br />\n"; |
my $pretty_search_string = "<br />\n"; |
# Clean up fields for safety |
# Clean up fields for safety |
Line 1210 sub parse_advanced_search {
|
Line 1213 sub parse_advanced_search {
|
ref($ENV{'form.category'})); |
ref($ENV{'form.category'})); |
# |
# |
# Check to see if enough information was filled in |
# Check to see if enough information was filled in |
for my $field (@BasicFields) { |
foreach my $field (@BasicFields) { |
if (&filled($ENV{'form.'.$field})) { |
if (&filled($ENV{'form.'.$field})) { |
$fillflag++; |
$fillflag++; |
} |
} |
} |
} |
|
foreach my $field (@StatsFields,@EvalFields) { |
|
if (&filled($ENV{'form.'.$field.'_max'})) { |
|
$fillflag++; |
|
} |
|
if (&filled($ENV{'form.'.$field.'_min'})) { |
|
$fillflag++; |
|
} |
|
} |
|
|
for my $field ('lowestgradelevel','highestgradelevel') { |
for my $field ('lowestgradelevel','highestgradelevel') { |
if ( $ENV{'form.'.$field} =~ /^\d+$/ && |
if ( $ENV{'form.'.$field} =~ /^\d+$/ && |
$ENV{'form.'.$field} > 0) { |
$ENV{'form.'.$field} > 0) { |
Line 2874 sub detailed_citation_view {
|
Line 2886 sub detailed_citation_view {
|
###################################################################### |
###################################################################### |
###################################################################### |
###################################################################### |
|
|
|
sub has_stat_data { |
|
my ($values) = @_; |
|
if ( (defined($values->{'count'}) && $values->{'count'} ne '') || |
|
(defined($values->{'stdno'}) && $values->{'stdno'} ne '') || |
|
(defined($values->{'disc'}) && $values->{'disc'} ne '') || |
|
(defined($values->{'avetries'}) && $values->{'avetries'} ne '') || |
|
(defined($values->{'difficulty'}) && $values->{'difficulty'} ne '')) { |
|
return 1; |
|
} |
|
return 0; |
|
} |
|
|
|
sub statfields { |
|
return ('count','stdno','disc','avetries','difficulty'); |
|
} |
|
|
|
sub has_eval_data { |
|
my ($values) = @_; |
|
if ( (defined($values->{'clear'}) && $values->{'clear'} ne '') || |
|
(defined($values->{'technical'}) && $values->{'technical'} ne '') || |
|
(defined($values->{'correct'}) && $values->{'correct'} ne '') || |
|
(defined($values->{'helpful'}) && $values->{'helpful'} ne '') || |
|
(defined($values->{'depth'}) && $values->{'depth'} ne '')) { |
|
return 1; |
|
} |
|
return 0; |
|
} |
|
|
|
sub evalfields { |
|
return ('clear','technical','correct','helpful','depth'); |
|
} |
|
|
|
###################################################################### |
|
###################################################################### |
|
|
=pod |
=pod |
|
|
=item &summary_view() |
=item &summary_view() |
Line 2934 END
|
Line 2981 END
|
sub fielded_format_view { |
sub fielded_format_view { |
my ($prefix,%values) = @_; |
my ($prefix,%values) = @_; |
my $icon=&Apache::loncommon::icon($values{'url'}); |
my $icon=&Apache::loncommon::icon($values{'url'}); |
|
my %Translated = &Apache::lonmeta::fieldnames(); |
my $result=<<END; |
my $result=<<END; |
$prefix <img src="$icon" /> |
$prefix <img src="$icon" /> |
<b>URL: </b> <a href="http://$ENV{'HTTP_HOST'}$values{'url'}" |
<dl> |
target='search_preview'>$values{'url'}</a> |
<dt>URL:</dt> |
<br /> |
<dd><a href="http://$ENV{'HTTP_HOST'}$values{'url'}" |
<b>Title:</b> $values{'title'}<br /> |
target='search_preview'>$values{'url'}</a></dd> |
<b>Author(s):</b> $values{'author'}<br /> |
|
<b>Subject:</b> $values{'subject'}<br /> |
|
<b>Keyword(s):</b> $values{'keywords'}<br /> |
|
<b>Notes:</b> $values{'notes'}<br /> |
|
<b>MIME Type:</b> $values{'mimetag'}<br /> |
|
<b>Language:</b> $values{'language'}<br /> |
|
<b>Creation Date:</b> $values{'creationdate'}<br /> |
|
<b>Last Revision Date:</b> $values{'lastrevisiondate'}<br /> |
|
<b>Publisher/Owner:</b> $values{'owner'}<br /> |
|
<b>Copyright/Distribution:</b> $values{'copyrighttag'}<br /> |
|
<b>Repository Location:</b> $values{'hostname'}<br /> |
|
<b>Abstract:</b> $values{'shortabstract'}<br /> |
|
$values{'extrashow'} |
|
</p> |
|
<hr align='left' width='200' noshade /> |
|
END |
END |
|
foreach my $field ('title','author','subject','keywords','notes', |
|
'mimetag','language','creationdate','lastrevisiondate', |
|
'owner','copyrighttag','hostname','abstract') { |
|
$result .= (' 'x4).'<dt>'.$Translated{$field}.'</dt>'."\n". |
|
(' 'x8).'<dd>'.$values{$field}.'</dd>'."\n"; |
|
} |
|
if (&has_stat_data(\%values)) { |
|
foreach my $field (&statfields()) { |
|
$result .= (' 'x4).'<dt>'.$Translated{$field}.'</dt>'."\n". |
|
(' 'x8).'<dd>'.$values{$field}.'</dd>'."\n"; |
|
} |
|
} |
|
if (&has_eval_data(\%values)) { |
|
foreach my $field (&evalfields()) { |
|
$result .= (' 'x4).'<dt>'.$Translated{$field}.'</dt>'."\n". |
|
(' 'x8).'<dd>'.$values{$field}.'</dd>'."\n"; |
|
} |
|
} |
|
$result .= "</dl>\n"; |
|
$result .= $values{'extrashow'}; |
|
$result .= '<hr align="left" width="200" noshade />'."\n"; |
return $result; |
return $result; |
} |
} |
|
|
Line 2974 END
|
Line 3028 END
|
###################################################################### |
###################################################################### |
sub xml_sgml_view { |
sub xml_sgml_view { |
my ($prefix,%values) = @_; |
my ($prefix,%values) = @_; |
my $xml = <<END; |
my $xml = '<LonCapaResource>'."\n"; |
<LonCapaResource> |
# The usual suspects |
<url>$values{'url'}</url> |
foreach my $field ('url','title','author','subject','keywords','notes') { |
<title>$values{'title'}</title> |
$xml .= qq{<$field>$values{$field}</$field>}."\n"; |
<author>$values{'author'}</author> |
} |
<subject>$values{'subject'}</subject> |
# |
<keywords>$values{'keywords'}</keywords> |
$xml .= "<mimeInfo>\n"; |
<notes>$values{'notes'}</notes> |
foreach my $field ('mime','mimetag') { |
<mimeInfo> |
$xml .= qq{<$field>$values{$field}</$field>}."\n"; |
<mime>$values{'mime'}</mime> |
} |
<mimetag>$values{'mimetag'}</mimetag> |
$xml .= "</mimeInfo>\n"; |
</mimeInfo> |
# |
<languageInfo> |
$xml .= "<languageInfo>\n"; |
<language>$values{'language'}</language> |
foreach my $field ('language','languagetag') { |
<languagetag>$values{'languagetag'}</languagetag> |
$xml .= qq{<$field>$values{$field}</$field>}."\n"; |
</languageInfo> |
} |
<creationdate>$values{'creationdate'}</creationdate> |
$xml .= "</languageInfo>\n"; |
<lastrevisiondate>$values{'lastrevisiondate'}</lastrevisiondate> |
# |
<owner>$values{'owner'}</owner> |
foreach my $field ('creationdate','lastrevisiondate','owner') { |
<copyrightInfo> |
$xml .= qq{<$field>$values{$field}</$field>}."\n"; |
<copyright>$values{'copyright'}</copyright> |
} |
<copyrighttag>$values{'copyrighttag'}</copyrighttag> |
# |
</copyrightInfo> |
$xml .= "<copyrightInfo>\n"; |
<repositoryLocation>$values{'hostname'}</repositoryLocation> |
foreach my $field ('copyright','copyrighttag') { |
<shortabstract>$values{'shortabstract'}</shortabstract> |
$xml .= qq{<$field>$values{$field}</$field>}."\n"; |
</LonCapaResource> |
} |
END |
$xml .= "</copyrightInfo>\n"; |
|
$xml .= qq{<repositoryLocation>$values{'hostname'}</repositoryLocation>}. |
|
"\n"; |
|
$xml .= qq{<shortabstract>$values{'shortabstract'}</shortabstract>}."\n"; |
|
# |
|
if (&has_stat_data(\%values)){ |
|
$xml .= "<problemstatistics>\n"; |
|
foreach my $field (&statfields()) { |
|
$xml .= qq{<$field>$values{$field}</$field>}."\n"; |
|
} |
|
$xml .= "</problemstatistics>\n"; |
|
} |
|
# |
|
if (&has_eval_data(\%values)) { |
|
$xml .= "<evaluation>\n"; |
|
foreach my $field (&evalfields) { |
|
$xml .= qq{<$field>$values{$field}</$field>}."\n"; |
|
} |
|
$xml .= "</evaluation>\n"; |
|
} |
|
# |
|
$xml .= "</LonCapaResource>\n"; |
$xml = &HTML::Entities::encode($xml,'<>&'); |
$xml = &HTML::Entities::encode($xml,'<>&'); |
my $result=<<END; |
my $result=<<END; |
$prefix |
$prefix |