Annotation of loncom/interface/lonsearchcat.pm, revision 1.8
1.1 www 1: # The LearningOnline Network
2: # Search Catalog
3: #
1.2 harris41 4: # 03/08/2001 Scott Harrison
1.1 www 5: #
6: package Apache::lonsearchcat;
7:
8: use strict;
9: use Apache::Constants qw(:common);
1.6 harris41 10: use Apache::lonnet();
11: use Apache::File();
1.7 harris41 12: use CGI qw(:standard);
1.1 www 13:
1.3 harris41 14: my %language;
15: my $scrout;
16: my %metadatafields;
17: my %cprtag;
18: my %mimetag;
19:
1.1 www 20: sub handler {
21: my $r = shift;
1.7 harris41 22:
23: # -------------------------------------- see if called from an interactive mode
24: map {
25: my ($name, $value) = split(/=/,$_);
26: $value =~ tr/+/ /;
27: $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
28: if ($name eq 'catalogmode') {
29: $ENV{'form.'.$name}=$value;
30: }
31: } (split(/&/,$ENV{'QUERY_STRING'}));
32:
1.1 www 33: $r->content_type('text/html');
34: $r->send_http_header;
35: return OK if $r->header_only;
36:
1.3 harris41 37: %metadatafields=();
38:
1.8 ! harris41 39: my $hidden='';
! 40: $hidden=<<END if $ENV{'form.catalogmode'} eq 'interactive';
! 41: <input type='hidden' name='catalogmode' value='interactive'>
! 42: END
! 43:
1.3 harris41 44: # ------------------------------------------------ First, check out environment
45: $metadatafields{'owner'}=$ENV{'user.name'}.'@'.$ENV{'user.domain'};
46:
1.8 ! harris41 47: # --------------------------------- Compute various listings of metadata values
1.3 harris41 48:
49: %language=();
50: $language{'any'}='Any language';
51: {
52: my $fh=Apache::File->new($r->dir_config('lonTabDir').'/language.tab');
53: map {
54: $_=~/(\w+)\s+([\w\s\-]+)/;
55: $language{$1}=$2;
56: } <$fh>;
57: }
58:
59: %cprtag=();
60: $cprtag{'any'}='Any copyright/distribution';
61: {
62: my $fh=Apache::File->new($r->dir_config('lonIncludes').'/copyright.tab');
63: map {
64: $_=~/(\w+)\s+([\w\s\-]+)/;
65: $cprtag{$1}=$2;
66: } <$fh>;
67: }
68:
69: %mimetag=();
70: $mimetag{'any'}='Any type';
71: {
72: my $fh=Apache::File->new($r->dir_config('lonTabDir').'/filetypes.tab');
73: map {
74: $_=~/(\w+)\s+(\w+)\s+([\w\s\-]+)/;
75: $mimetag{$1}=".$1 $3";
76: } <$fh>;
77: }
78:
1.6 harris41 79: if ($ENV{'form.basicsubmit'} eq 'SEARCH') {
80: return &basicsearch($r,$ENV{'form.basicexp'});
81: }
82:
1.8 ! harris41 83: $scrout=''; # building a part of screen output
1.3 harris41 84: $scrout.=&searchphrasefield('Limit by title','title',
85: '');
86:
87: $scrout.=&searchphrasefield('Limit by author','author',
88: '');
89:
90: $scrout.=&searchphrasefield('Limit by subject','subject',
91: '');
92:
93: $scrout.=&searchphrasefield('Limit by notes','notes',
94: '');
95:
96: $scrout.=&searchphrasefield('Limit by abstract','abstract',
97: '');
98:
99: $scrout.=&selectbox('Limit by MIME type','mime',
100: 'notxxx',%mimetag);
101:
102: $scrout.=&selectbox('Limit by language','language',
103: 'any',%language);
104:
1.8 ! harris41 105:
! 106: # ------------------------------------------------ Compute date selection boxes
! 107: $scrout.=<<CREATIONDATESTART;
1.3 harris41 108: <p>
109: <font color="#800000" face="helvetica"><b>LIMIT BY CREATION DATE RANGE:</b>
110: </font>
111: <br>
1.8 ! harris41 112: between:
! 113: CREATIONDATESTART
! 114: $scrout.=&dateboxes('creationdatestart');
! 115: $scrout.=<<CREATIONDATEEND;
! 116: and:
! 117: CREATIONDATEEND
! 118: $scrout.=&dateboxes('creationdateend');
! 119: $scrout.="</p>";
! 120:
! 121: $scrout.=<<LASTREVISIONDATESTART;
! 122: <p>
! 123: <font color="#800000" face="helvetica"><b>LIMIT BY LAST REVISION DATE RANGE:
! 124: </b></font>
! 125: <br>between:
! 126: LASTREVISIONDATESTART
! 127: $scrout.=&dateboxes('lastrevisiondatestart');
! 128: $scrout.=<<LASTREVISIONDATEEND;
! 129: and:
! 130: LASTREVISIONDATEEND
! 131: $scrout.=&dateboxes('lastrevisiondateend');
! 132: $scrout.='</p>';
! 133:
! 134: $scrout.=&searchphrasefield('Limit by publisher/owner','owner',
! 135: $metadatafields{'owner'});
! 136:
! 137: $scrout.=&selectbox('Limit by copyright/distribution','copyright',
! 138: 'any',%cprtag);
! 139:
! 140: # ---------------------------------------------------------------- Print screen
! 141: $r->print(<<ENDDOCUMENT);
! 142: <html>
! 143: <head>
! 144: <title>The LearningOnline Network with CAPA</title>
! 145: </head>
! 146: <body bgcolor="#FFFFFF">
! 147: <img align=right src=/adm/lonIcons/lonlogos.gif>
! 148: <h1>Search Catalog</h1>
! 149: <form method="post" action="/adm/searchcat">
! 150: $hidden
! 151: <hr>
! 152: <h3>Basic Search</h3>
! 153: <p>
! 154: Enter terms or phrases separated by search operators
! 155: such as AND or OR then press SEARCH below. Terms should be specific
! 156: to the title, author, subject, notes, or abstract information associated
! 157: with a resource.
! 158: <br>
! 159: <input type="text" name="basicexp">
! 160: <input type="checkbox" name="titleonly">
! 161: <font color="#800000">Title only</font>
! 162: <br>
! 163: <input type="submit" name="basicsubmit" value="SEARCH">
! 164: <input type="reset" name="reset" value="RESET">
! 165: <input type="button" name="close" value="CLOSE" onClick="self.close()">
! 166: </p>
! 167: <hr>
! 168: <h3>Advanced Search</h3>
! 169: $scrout
! 170: <p>
! 171: <input type="submit" name="advancedsubmit" value="SEARCH">
! 172: <input type="reset" name="reset" value="RESET">
! 173: <input type="button" name="close" value="CLOSE" onClick="self.close()">
1.3 harris41 174: </p>
1.8 ! harris41 175: </form>
! 176: </body>
! 177: </html>
! 178: ENDDOCUMENT
! 179: return OK;
! 180: }
! 181:
! 182: # --------------------------------------------------------- Various form fields
! 183:
! 184: sub textfield {
! 185: my ($title,$name,$value)=@_;
! 186: return "\n<p><b>$title:</b><br>".
! 187: '<input type=text name="'.$name.'" size=80 value="'.$value.'">';
! 188: }
! 189:
! 190: sub searchphrasefield {
! 191: my ($title,$name,$value)=@_;
! 192: my $instruction=<<END;
! 193: Enter terms or phrases separated by search operators such
! 194: as AND or OR.
! 195: END
! 196: my $uctitle=uc($title);
! 197: return "\n<p><font color=\"#800000\" face=\"helvetica\"><b>$uctitle:</b>".
! 198: "</FONT> $instruction<br>".
! 199: '<input type=text name="'.$name.'" size=80 value="'.$value.'">';
! 200: }
1.3 harris41 201:
1.8 ! harris41 202: sub dateboxes {
! 203: my ($name)=@_;
! 204: return<<END;
! 205: <select name="${name}_month">
! 206: <option value="01"> </option>
1.3 harris41 207: <option value="01">January</option>
208: <option value="02">February</option>
209: <option value="03">March</option>
210: <option value="04">April</option>
211: <option value="05">May</option>
212: <option value="06">June</option>
213: <option value="07">July</option>
214: <option value="08">August</option>
215: <option value="09">September</option>
216: <option value="10">October</option>
217: <option value="11">November</option>
218: <option value="12">December</option>
219: </select>
1.8 ! harris41 220: <select name="${name}_day">
! 221: <option value="1"> </option>
1.3 harris41 222: <option value=1>1</option>
223: <option value=2>2</option>
224: <option value=3>3</option>
225: <option value=4>4</option>
226: <option value=5>5</option>
227: <option value=6>6</option>
228: <option value=7>7</option>
229: <option value=8>8</option>
230: <option value=9>9</option>
231: <option value=10>10</option>
232: <option value=11>11</option>
233: <option value=12>12</option>
234: <option value=13>13</option>
235: <option value=14>14</option>
236: <option value=15>15</option>
237: <option value=16>16</option>
238: <option value=17>17</option>
239: <option value=18>18</option>
240: <option value=19>19</option>
241: <option value=20>20</option>
242: <option value=21>21</option>
243: <option value=22>22</option>
244: <option value=23>23</option>
245: <option value=24>24</option>
246: <option value=25>25</option>
247: <option value=26>26</option>
248: <option value=27>27</option>
249: <option value=28>28</option>
250: <option value=29>29</option>
251: <option value=30>30</option>
252: <option value=31>31</option>
253: </select>
1.8 ! harris41 254: <select name="${name}_year">
1.3 harris41 255: <option value=1976> </option>
256: <option value=1976>1976</option>
257: <option value=1977>1977</option>
258: <option value=1978>1978</option>
259: <option value=1979>1979</option>
260: <option value=1980>1980</option>
261: <option value=1981>1981</option>
262: <option value=1982>1982</option>
263: <option value=1983>1983</option>
264: <option value=1984>1984</option>
265: <option value=1985>1985</option>
266: <option value=1986>1986</option>
267: <option value=1987>1987</option>
268: <option value=1988>1988</option>
269: <option value=1989>1989</option>
270: <option value=1990>1990</option>
271: <option value=1991>1991</option>
272: <option value=1992>1992</option>
273: <option value=1993>1993</option>
274: <option value=1994>1994</option>
275: <option value=1995>1995</option>
276: <option value=1996>1996</option>
277: <option value=1997>1997</option>
278: <option value=1998>1998</option>
279: <option value=1999>1999</option>
280: <option value=2000>2000</option>
281: <option value=2001>2001</option>
282: <option value=2002>2002</option>
283: <option value=2003>2003</option>
284: <option value=2004>2004</option>
285: <option value=2005>2005</option>
286: <option value=2006>2006</option>
287: <option value=2007>2007</option>
288: <option value=2008>2008</option>
289: <option value=2009>2009</option>
290: <option value=2010>2010</option>
291: <option value=2011>2011</option>
292: <option value=2012>2012</option>
293: <option value=2013>2013</option>
294: <option value=2014>2014</option>
295: <option value=2015>2015</option>
296: <option value=2016>2016</option>
297: <option value=2017>2017</option>
298: <option value=2018>2018</option>
299: <option value=2019>2019</option>
300: <option value=2020>2020</option>
301: <option value=2021>2021</option>
302: <option value=2022>2022</option>
303: <option value=2023>2023</option>
304: <option value=2024>2024</option>
305: <option value=2025>2025</option>
306: <option value=2026>2026</option>
307: <option value=2027>2027</option>
308: <option value=2028>2028</option>
309: <option value=2029>2029</option>
310: <option value=2030>2030</option>
311: <option value=2031>2031</option>
312: <option value=2032>2032</option>
313: <option value=2033>2033</option>
314: <option value=2034>2034</option>
315: <option value=2035>2035</option>
316: <option value=2036>2036</option>
317: <option value=2037>2037</option>
318: <option value=2038>2038</option>
319: <option value=2039>2039</option>
320: <option value=2040>2040</option>
321: <option value=2041>2041</option>
322: <option value=2042>2042</option>
323: <option value=2043>2043</option>
324: <option value=2044>2044</option>
325: <option value=2045>2045</option>
326: <option value=2046>2046</option>
327: <option value=2047>2047</option>
328: <option value=2048>2048</option>
329: <option value=2049>2049</option>
330: <option value=2050>2050</option>
331: <option value=2051>2051</option>
332: </select>
333: END
334: }
335:
336: sub selectbox {
337: my ($title,$name,$value,%options)=@_;
338: my $uctitle=uc($title);
339: my $selout="\n<p><font color=\"#800000\" face=\"helvetica\"><b>$uctitle:".
340: "</b></font><br>".'<select name="'.$name.'">';
341: map {
342: $selout.='<option value="'.$_.'"';
343: if ($_ eq $value) { $selout.=' selected'; }
344: $selout.='>'.$options{$_}.'</option>';
345: } sort keys %options;
346: return $selout.'</select>';
1.6 harris41 347: }
348:
349: # --------------------------------------------------- Performing a basic search
350: sub basicsearch {
351: my ($r,$expression)=@_;
352:
353: my $query=$expression;
354: $query="select * from metadata where concat(title,\" \",author) like '\%$expression\%'";
355: my $reply=&Apache::lonnet::reply("querysend:$query",'msul3');
356:
357: my @results;
358:
359: my $replyfile='';
360: $reply=~/^([\.\w]+)$/; # must do since 'use strict' checks for tainting
361: $replyfile=$r->dir_config('lonDaemons').'/tmp/'.$1;
362: $reply=~/(.*?)\_/;
363: my $hostname=$1;
364:
365: {
366: while (1) {
367: last if -e $replyfile;
368: sleep 1;
369: }
370: # QUESTION: how should I handle this error condition..
371: # I'm sure there is syntax elsewhere I can use..
372: my $fh=Apache::File->new($replyfile) or
373: ($r->print('file cannot be opened') and return OK);
374: @results=<$fh>;
375: }
376:
377: my $compiledresult='';
378:
379: foreach my $result (@results) {
380: my ($title,$author,$subject,$notes,$abstract,$mime,$lang,
381: $creationdate,$lastrevisiondate,$owner,$copyright
382: )=map {&Apache::lonnet::unescape($_)} (split(/\,/,$result));
383: my $shortabstract=$abstract;
384: $shortabstract=substr($abstract,0,200) if length($abstract)>200;
1.8 ! harris41 385: $compiledresult.=<<END;
1.6 harris41 386: <p>
1.8 ! harris41 387: END
! 388: $compiledresult.=<<END if $ENV{'form.catalogmode'} eq 'interactive';
! 389: <font size='-1'><INPUT TYPE="button" NAME="returnvalues" VALUE="SELECT"
! 390: onClick="javascript:select_data('$title','/res/msu/shh1/poobah1.html')">
! 391: </font>
! 392: <br>
! 393: END
! 394: $compiledresult.=<<END;
1.6 harris41 395: <b>Title:</b> $title<br>
396: <b>Author(s):</b> $author<br>
397: <b>Subject:</b> $subject<br>
398: <b>Keyword(s):</b> <i>not available yet</i><br>
399: <b>Notes:</b> $notes<br>
400: <b>Abstract:</b> $shortabstract<br>
401: <b>MIME Type:</b> $mimetag{$mime}<br>
402: <b>Language:</b> $language{$lang}<br>
403: <b>Creation Date:</b> $creationdate<br>
404: <b>Last Revision Date:</b> $lastrevisiondate<br>
405: <b>Publisher/Owner:</b> $owner<br>
406: <b>Copyright/Distribution:</b> $copyright<br>
407: <b>Repository Location:</b> $hostname
408: </p>
409: END
410: }
411:
412: unless ($compiledresult) {
413: $compiledresult="There were no results that matched your query";
414: }
415:
416: # Question... allow to ask question from this page, or click to
417: # search again?
1.8 ! harris41 418: $r->print(<<BEGINNING);
1.6 harris41 419: <html>
420: <head>
421: <title>The LearningOnline Network with CAPA</title>
1.8 ! harris41 422: BEGINNING
! 423: $r->print(<<SCRIPT) if $ENV{'form.catalogmode'} eq 'interactive';
! 424: <script>
! 425: function select_data(title,url) {
! 426: changeTitle(title);
! 427: changeURL(url);
! 428: }
! 429: function changeTitle(val) {
! 430: if (opener.inf.document.forms.resinfo.elements.t) {
! 431: opener.inf.document.forms.resinfo.elements.t.value=val;
! 432: }
! 433: }
! 434: function changeURL(val) {
! 435: if (opener.inf.document.forms.resinfo.elements.u) {
! 436: opener.inf.document.forms.resinfo.elements.u.value=val;
! 437: }
! 438: }
! 439: </script>
! 440: SCRIPT
! 441: $r->print(<<RESULTS);
1.6 harris41 442: </head>
443: <body bgcolor="#ffffff">
444: <img align=right src=/adm/lonIcons/lonlogos.gif>
445: <h1>Search Catalog</h1>
446: <form method="post" action="/adm/searchcat">
1.8 ! harris41 447: <a href=''>Revise search request</a>
1.6 harris41 448: <hr>
449: <h3>Search Query</h3>
450: <p>
1.8 ! harris41 451: <b>Basic search:</b> $expression
1.6 harris41 452: </p>
453: <h3>Search Results</h3>
454: $compiledresult
455: </body>
456: </html>
457: RESULTS
458:
459: return OK;
1.3 harris41 460: }
1.1 www 461:
462: 1;
463: __END__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to lonsearchcat.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface