version 1.229, 2004/06/03 20:32:33
|
version 1.230, 2004/06/28 15:55:09
|
Line 781 ENDHEADER
|
Line 781 ENDHEADER
|
$scrout.='<tr><td align="right" valign="top">'. |
$scrout.='<tr><td align="right" valign="top">'. |
&titlefield(&mt('Copyright/Distribution')).'</td><td colspan="2">'. |
&titlefield(&mt('Copyright/Distribution')).'</td><td colspan="2">'. |
&Apache::lonmeta::selectbox('copyright', |
&Apache::lonmeta::selectbox('copyright', |
'',, |
$ENV{'form.copyright'}, |
\&Apache::loncommon::copyrightdescription, |
\&Apache::loncommon::copyrightdescription, |
( undef, |
( undef, |
&Apache::loncommon::copyrightids) |
&Apache::loncommon::copyrightids) |
Line 789 ENDHEADER
|
Line 789 ENDHEADER
|
$scrout.='<tr><td align="right" valign="top">'. |
$scrout.='<tr><td align="right" valign="top">'. |
&titlefield(&mt('Language')).'</td><td colspan="2">'. |
&titlefield(&mt('Language')).'</td><td colspan="2">'. |
&Apache::lonmeta::selectbox('language', |
&Apache::lonmeta::selectbox('language', |
'notset',, |
$ENV{'form.language'}, |
\&Apache::loncommon::languagedescription, |
\&Apache::loncommon::languagedescription, |
('any',&Apache::loncommon::languageids) |
('any',&Apache::loncommon::languageids) |
).'</td></tr>'; |
).'</td></tr>'; |
Line 1201 sub parse_advanced_search {
|
Line 1201 sub parse_advanced_search {
|
my @StatsFields = &statfields(); |
my @StatsFields = &statfields(); |
my @EvalFields = &evalfields(); |
my @EvalFields = &evalfields(); |
my $fillflag=0; |
my $fillflag=0; |
my $pretty_search_string = "<br />\n"; |
my $pretty_search_string = ""; |
# Clean up fields for safety |
# Clean up fields for safety |
for my $field (@BasicFields, |
for my $field (@BasicFields, |
'creationdatestart_month','creationdatestart_day', |
'creationdatestart_month','creationdatestart_day', |
Line 1327 sub parse_advanced_search {
|
Line 1327 sub parse_advanced_search {
|
push @queries,"(copyright like \"$ENV{'form.copyright'}\")"; |
push @queries,"(copyright like \"$ENV{'form.copyright'}\")"; |
$pretty_search_string.=$font."copyright</font> = ". |
$pretty_search_string.=$font."copyright</font> = ". |
&Apache::loncommon::copyrightdescription($ENV{'form.copyright'}). |
&Apache::loncommon::copyrightdescription($ENV{'form.copyright'}). |
"<br \>\n"; |
"<br />\n"; |
} |
} |
# |
# |
# Statistics |
# Statistics |
Line 2245 $bodytag
|
Line 2245 $bodytag
|
<form name="statusform" action="" method="post"> |
<form name="statusform" action="" method="post"> |
<input type="hidden" name="Queue" value="" /> |
<input type="hidden" name="Queue" value="" /> |
END |
END |
# Check to see if $pretty_string has more than one carriage return. |
# Remove leading and trailing <br /> |
# Assume \n s are following <br /> s and truncate the value. |
$pretty_string =~ s:^\s*<br />::i; |
# (there is probably a better way)... |
$pretty_string =~ s:(<br />)*\s*$::im; |
my @Lines = split /<br \/>/,$pretty_string; |
my @Lines = split("<br />",$pretty_string); |
|
# I keep getting blank items at the end of the list, hence the following: |
|
while ($Lines[-1] =~ /^\s*$/ && @Lines) { |
|
pop(@Lines); |
|
} |
if (@Lines > 2) { |
if (@Lines > 2) { |
$pretty_string = join '<br \>',(@Lines[0..2],'....<br />'); |
$pretty_string = join '<br />',(@Lines[0..2],'....<br />'); |
} |
} |
$r->print(&mt("Search: [_1]",$pretty_string)); |
$r->print(&mt("Search: [_1]",$pretty_string)); |
$r->rflush(); |
$r->rflush(); |
Line 3078 sub detailed_citation_view {
|
Line 3082 sub detailed_citation_view {
|
} elsif (exists($field->{'format'}) && $field->{'format'} ne ''){ |
} elsif (exists($field->{'format'}) && $field->{'format'} ne ''){ |
$result.= &mt($field->{'translate'}, |
$result.= &mt($field->{'translate'}, |
sprintf($field->{'format'}, |
sprintf($field->{'format'}, |
$values{$field->{'name'}})).'<br />'."\n"; |
$values{$field->{'name'}}))."<br />\n"; |
} else { |
} else { |
if ($field->{'special'} eq 'url link') { |
if ($field->{'special'} eq 'url link') { |
$result.= |
$result.= |