version 1.222, 2004/05/05 14:14:10
|
version 1.223, 2004/05/05 17:29:06
|
Line 231 END
|
Line 231 END
|
$hidden_fields = '<input type="hidden" name="persistent_db_id" value="'. |
$hidden_fields = '<input type="hidden" name="persistent_db_id" value="'. |
$ENV{'form.persistent_db_id'}.'" />'."\n"; |
$ENV{'form.persistent_db_id'}.'" />'."\n"; |
if (exists($ENV{'form.catalogmode'})) { |
if (exists($ENV{'form.catalogmode'})) { |
$hidden_fields .= '<input type="hidden" name="catalogmode" value="'. |
$hidden_fields .= &hidden_field('catalogmode'); |
$ENV{'form.catalogmode'}.'" />'."\n"; |
|
} |
} |
if (exists($ENV{'form.form'})) { |
if (exists($ENV{'form.form'})) { |
$hidden_fields .= '<input type="hidden" name="form" value="'. |
$hidden_fields .= &hidden_field('form'); |
$ENV{'form.form'}.'" />'."\n"; |
|
} |
} |
if (exists($ENV{'form.element'})) { |
if (exists($ENV{'form.element'})) { |
$hidden_fields .= '<input type="hidden" name="element" value="'. |
$hidden_fields .= &hidden_field('element'); |
$ENV{'form.element'}.'" />'."\n"; |
|
} |
} |
if (exists($ENV{'form.titleelement'})) { |
if (exists($ENV{'form.titleelement'})) { |
$hidden_fields .= '<input type="hidden" name="titleelement" value="'. |
$hidden_fields .= &hidden_field('titleelement'); |
$ENV{'form.titleelement'}.'" />'."\n"; |
|
} |
} |
if (exists($ENV{'form.mode'})) { |
if (exists($ENV{'form.mode'})) { |
$hidden_fields .= '<input type="hidden" name="mode" value="'. |
$hidden_fields .= &hidden_field('mode'); |
$ENV{'form.mode'}.'" />'."\n"; |
|
} |
} |
## |
## |
## Configure dynamic components of interface |
## Configure dynamic components of interface |
Line 422 sub clean_up_environment {
|
Line 417 sub clean_up_environment {
|
} |
} |
} |
} |
|
|
|
sub hidden_field { |
|
my ($name,$value) = @_; |
|
if (! defined($value)) { |
|
$value = $ENV{'form.'.$name}; |
|
} |
|
return '<input type="hidden" name="'.$name.'" value="'.$value.'" />'.$/; |
|
} |
|
|
###################################################################### |
###################################################################### |
###################################################################### |
###################################################################### |
## |
## |
Line 616 sub print_basic_search_form {
|
Line 619 sub print_basic_search_form {
|
'<font size="-1">'. |
'<font size="-1">'. |
'<input type="submit" name="basicsubmit" '. |
'<input type="submit" name="basicsubmit" '. |
'value="'.&mt('Search').'" />'. |
'value="'.&mt('Search').'" />'. |
(' 'x2).$closebutton.(' 'x2).&viewoptions(). |
(' 'x2).$closebutton.(' 'x2). |
|
&viewoptions(). |
'</font>'. |
'</font>'. |
'</td></tr>'.$/; |
'</td></tr>'.$/; |
$scrout .= '</table>'.$/.'</center>'.'</form>'; |
$scrout .= '</table>'.$/.'</center>'.'</form>'; |
Line 959 Outputs: text for box with view options
|
Line 963 Outputs: text for box with view options
|
###################################################################### |
###################################################################### |
###################################################################### |
###################################################################### |
sub viewoptions { |
sub viewoptions { |
my $scrout="\n".'<nobr>'; |
my $scrout; |
if (! defined($ENV{'form.viewselect'})) { |
if (! defined($ENV{'form.viewselect'})) { |
$ENV{'form.viewselect'}='detailed'; |
$ENV{'form.viewselect'}='detailed'; |
} |
} |
Line 2308 sub prev_next_buttons {
|
Line 2312 sub prev_next_buttons {
|
my ($current_min,$show,$total,$parms) = @_; |
my ($current_min,$show,$total,$parms) = @_; |
return '' if ($show eq 'all'); # No links if you get them all at once. |
return '' if ($show eq 'all'); # No links if you get them all at once. |
# |
# |
# Create links |
# Create buttons |
my $prev_min = $current_min - $show; |
my $buttons = '<input type="submit" name="prev" value="'.&mt('Prev').'" '; |
$prev_min = 1 if $prev_min < 1; |
$buttons .= '/>'; |
my $prevlink = |
$buttons .= ' 'x3; |
qq{<a href="/adm/searchcat?$parms&start=$prev_min&show=$show">}; |
$buttons .= '<input type="submit" name="reload" '. |
# |
'value="'.&mt('Reload').'" />'; |
my $next_min = $current_min + $show; |
$buttons .= ' 'x3; |
$next_min = $current_min if ($next_min > $total); |
$buttons .= '<input type="submit" name="next" value="'.&mt('Next').'" '; |
my $nextlink = |
$buttons .= '/>'; |
qq{<a href="/adm/searchcat?$parms&start=$next_min&show=$show">}; |
return $buttons; |
my $reloadlink = |
|
qq{<a href="/adm/searchcat?$parms&start=$current_min&$show=$show">}; |
|
# |
|
# Determine which parameters to pass |
|
my $String = '[_1]prev[_2] [_3]reload[_4] [_5]next[_6]'; |
|
if ($prev_min == $current_min) { |
|
$String =~ s:\[_[12]\]::g; |
|
} |
|
if ($next_min == $current_min) { |
|
$String =~ s:\[_[56]\]::g; |
|
} |
|
my $links = &mt($String, |
|
$prevlink, '</a>', |
|
$reloadlink,'</a>', |
|
$nextlink, '</a>'); |
|
return $links; |
|
} |
} |
|
|
###################################################################### |
###################################################################### |
Line 2396 sub display_results {
|
Line 2384 sub display_results {
|
} |
} |
## |
## |
## Determine how many results we need to get |
## Determine how many results we need to get |
$ENV{'form.start'} = 1 if (! exists($ENV{'form.start'})); |
$ENV{'form.start'} = 1 if (! exists($ENV{'form.start'})); |
$ENV{'form.show'} = 'all' if (! exists($ENV{'form.show'})); |
$ENV{'form.show'} = 20 if (! exists($ENV{'form.show'})); |
|
if (exists($ENV{'form.prev'})) { |
|
$ENV{'form.start'} -= $ENV{'form.show'}; |
|
} elsif (exists($ENV{'form.next'})) { |
|
$ENV{'form.start'} += $ENV{'form.show'}; |
|
} |
|
$ENV{'form.start'} = 1 if ($ENV{'form.start'}<1); |
|
$ENV{'form.start'} = $total_results if ($ENV{'form.start'}>$total_results); |
my $min = $ENV{'form.start'}; |
my $min = $ENV{'form.start'}; |
my $max; |
my $max; |
if ($ENV{'form.show'} eq 'all') { |
if ($ENV{'form.show'} eq 'all') { |
Line 2407 sub display_results {
|
Line 2402 sub display_results {
|
$max = $total_results if ($max > $total_results); |
$max = $total_results if ($max > $total_results); |
} |
} |
## |
## |
|
## Output form elements |
|
$r->print(&hidden_field('table'). |
|
&hidden_field('phase'). |
|
&hidden_field('persistent_db_id'). |
|
&hidden_field('start') |
|
); |
|
## |
## Output links (if necessary) for 'prev' and 'next' pages. |
## Output links (if necessary) for 'prev' and 'next' pages. |
$r->print |
$r->print |
('<center>'. |
('<table width="100%"><tr><td width="50%" align="right">'. |
&prev_next_buttons($min,$ENV{'form.show'},$total_results, |
&prev_next_buttons($min,$ENV{'form.show'},$total_results). |
"table=".$ENV{'form.table'}. |
'</td><td align="right">'. |
"&phase=results". |
&viewoptions().'</td></tr></table>' |
"&persistent_db_id=".$ENV{'form.persistent_db_id'}) |
|
."</center>\n" |
|
); |
); |
if ($total_results == 0) { |
if ($total_results == 0) { |
$r->print('<meta HTTP-EQUIV="Refresh" CONTENT="2">'. |
$r->print('<meta HTTP-EQUIV="Refresh" CONTENT="2">'. |
Line 2753 SCRIPT
|
Line 2753 SCRIPT
|
$result.=<<END; |
$result.=<<END; |
</head> |
</head> |
$bodytag |
$bodytag |
<form name="results" method="post" action="" > |
<form name="results" method="post" action="/adm/searchcat" > |
<input type="hidden" name="Queue" value="" /> |
<input type="hidden" name="Queue" value="" /> |
$importbutton |
$importbutton |
END |
END |
Line 2832 extra custom metadata to show.
|
Line 2832 extra custom metadata to show.
|
###################################################################### |
###################################################################### |
sub detailed_citation_view { |
sub detailed_citation_view { |
my ($prefix,%values) = @_; |
my ($prefix,%values) = @_; |
my $icon= |
|
my $result; |
my $result; |
$result .= '<b>'.$prefix. |
$result .= '<b>'.$prefix. |
'<img src="'.&Apache::loncommon::icon($values{'url'}).' " />'. |
'<img src="'.&Apache::loncommon::icon($values{'url'}).' " />'.' '. |
'<a href="http://'.$ENV{'HTTP_HOST'}.$values{'url'}.'" '. |
'<a href="http://'.$ENV{'HTTP_HOST'}.$values{'url'}.'" '. |
'target="search_preview">'.$values{'title'}."</a></b>\n"; |
'target="search_preview">'.$values{'title'}."</a></b>\n"; |
$result .= "<p>\n"; |
$result .= "<p>\n"; |
Line 2843 sub detailed_citation_view {
|
Line 2842 sub detailed_citation_view {
|
' <i>'.$values{'owner'}.'</i><br />'; |
' <i>'.$values{'owner'}.'</i><br />'; |
foreach my $field |
foreach my $field |
( |
( |
|
{ name=>'url', |
|
translate => '<b>URL:</b> [_1]', |
|
special => 'url link',}, |
{ name=>'subject', |
{ name=>'subject', |
translate => '<b>Subject:</b> [_1]',}, |
translate => '<b>Subject:</b> [_1]',}, |
{ name=>'keywords', |
{ name=>'keywords', |
Line 2855 sub detailed_citation_view {
|
Line 2857 sub detailed_citation_view {
|
translate => '<b>Standards:</b>[_1]',}, |
translate => '<b>Standards:</b>[_1]',}, |
{ name=>'copyrighttag', |
{ name=>'copyrighttag', |
translate => '<b>Copyright/Distribution:</b> [_1]',}, |
translate => '<b>Copyright/Distribution:</b> [_1]',}, |
|
{ name=>'count', |
|
translate => '<b>Access Count:</b> [_1]',}, |
{ name=>'stdno', |
{ name=>'stdno', |
translate => '<b>Number of Students:</b> [_1]',}, |
translate => '<b>Number of Students:</b> [_1]',}, |
{ name=>'avetries', |
{ name=>'avetries', |
Line 2874 sub detailed_citation_view {
|
Line 2878 sub detailed_citation_view {
|
{ name=>'technical', |
{ name=>'technical', |
translate => '<b>Technical:</b> [_1]',}, |
translate => '<b>Technical:</b> [_1]',}, |
) { |
) { |
$result.= &mt($field->{'translate'},$values{$field->{'name'}}). |
if (exists($values{$field->{'name'}}) && |
"<br />\n"; |
$values{$field->{'name'}} ne '') { |
|
if ($field->{'special'} eq 'url link') { |
|
$result.= |
|
&mt($field->{'translate'}, |
|
'<a href="'.$values{'url'}.'" '. |
|
'target="search_preview">'. |
|
$values{$field->{'name'}}. |
|
'</a>'); |
|
} else { |
|
$result.= &mt($field->{'translate'}, |
|
$values{$field->{'name'}}); |
|
} |
|
$result .= "<br />\n"; |
|
} |
|
} |
|
$result .= "</p>"; |
|
if (exists($values{'extrashow'}) && $values{'extrashow'} ne '') { |
|
$result .= '<p>'.$values{'extrashow'}.'</p>'; |
|
} |
|
if (exists($values{'shortabstract'}) && $values{'shortabstract'} ne '') { |
|
$result .= '<p>'.$values{'shortabstract'}.'</p>'; |
} |
} |
$result .= "</p>".$values{'extrashow'}. |
|
'<p>'.$values{'shortabstract'}.'</p>'; |
|
$result .= '<hr align="left" width="200" noshade />'."\n"; |
$result .= '<hr align="left" width="200" noshade />'."\n"; |
return $result; |
return $result; |
} |
} |
Line 2932 sub summary_view {
|
Line 2954 sub summary_view {
|
my ($prefix,%values) = @_; |
my ($prefix,%values) = @_; |
my $icon=&Apache::loncommon::icon($values{'url'}); |
my $icon=&Apache::loncommon::icon($values{'url'}); |
my $result=<<END; |
my $result=<<END; |
$prefix<img src="$icon" /><a href="http://$ENV{'HTTP_HOST'}$values{'url'}" |
$prefix<img src="$icon" /> |
|
<a href="http://$ENV{'HTTP_HOST'}$values{'url'}" |
target='search_preview'>$values{'author'}</a><br /> |
target='search_preview'>$values{'author'}</a><br /> |
$values{'title'}<br /> |
$values{'title'}<br /> |
$values{'owner'} -- $values{'lastrevisiondate'}<br /> |
$values{'owner'} -- $values{'lastrevisiondate'}<br /> |
Line 2957 END
|
Line 2980 END
|
###################################################################### |
###################################################################### |
sub compact_view { |
sub compact_view { |
my ($prefix,%values) = @_; |
my ($prefix,%values) = @_; |
my $icon=&Apache::loncommon::icon($values{'url'}); |
my $result = |
my $result=<<END; |
$prefix.'<img src="'.&Apache::loncommon::icon($values{'url'}). |
$prefix <img src="$icon" /> <a href="http://$ENV{'HTTP_HOST'}$values{'url'}" target='search_preview'> |
'"> <a href="'.$values{'url'}.'" target="search_preview">'. |
$values{'title'}</a> |
$values{'title'}.'</a>'.(' 'x2). |
<b>$values{'author'}</b><br /> |
'<b>'.$values{'author'}.'</b><br />'; |
END |
|
return $result; |
return $result; |
} |
} |
|
|