loncom/interface/lonsearchcat.pm - view

File: [LON-CAPA] / loncom / interface / lonsearchcat.pm
Revision 1.69: download - view: text, annotated - select for diffs
Thu Mar 22 14:00:55 2001 UTC (23 years, 2 months ago) by harris41
Branches: MAIN
CVS tags: HEAD

trying to implement xml tag matching for building custom-metadata query.
also removing single quotes from persistent data fields -Scott

1: # The LearningOnline Network 2: # Search Catalog 3: # 4: # 03/08/2001 Scott Harrison 5: # Scott Harrison: 03/12/2001, 03/13/2001, 03/14/2001, 03/15/2001, 03/19/2001 6: # Scott Harrison: 03/20/2001 7: # 8: # Functions 9: # 10: # handler(server reference) : interacts with the Apache server layer 11: # (for /adm/searchcat URLs) 12: # simpletextfield(name,value) : returns HTML formatted string for simple text 13: # field 14: # simplecheckbox(name,value) : returns HTML formatted string for simple 15: # checkbox 16: # searchphrasefield(title,name,value) : returns HTML formatted string for 17: # a search expression phrase field 18: # dateboxes(name, defaultmonth, defaultday, defaultyear) : returns HTML 19: # formatted string 20: # for a calendar date 21: # selectbox(title,name,value,%HASH=options) : returns HTML formatted string for 22: # a selection box field 23: # advancedsearch(server reference, environment reference) : perform a complex 24: # multi-field logical query 25: # filled(field) : determines whether a given field has been filled 26: # basicsearch(server reference, environment reference) : perform a simple 27: # single-field logical query 28: # output_blank_field_error(server reference) : outputs a message saying that 29: # more fields need to be filled in 30: # output_results(output mode, 31: # server reference, 32: # environment reference, 33: # reply list reference) : outputs results from search 34: # build_SQL_query(field name, logic) : builds a SQL query string from a 35: # logical expression with AND/OR keywords 36: # recursive_SQL_query_build(field name, reverse notation expression) : 37: # builds a SQL query string from a reverse notation expression 38: # logical expression with AND/OR keywords 39: 40: package Apache::lonsearchcat; 41: 42: use strict; 43: use Apache::Constants qw(:common); 44: use Apache::lonnet(); 45: use Apache::File(); 46: use CGI qw(:standard); 47: use Text::Query; 48: 49: my %language; 50: my $scrout; 51: my %metadatafields; 52: my %cprtag; 53: my %mimetag; 54: my $closebutton; 55: my $basicviewselect=<<END; 56: <select name='basicviewselect'> 57: <option value='Detailed Citation View'>Detailed Citation View</option> 58: <option value='Summary View'>Summary View</option> 59: <option value='Fielded Format'>Fielded Format</option> 60: <option value='XML/SGML'>XML/SGML</option> 61: </select> 62: END 63: my $advancedviewselect=<<END; 64: <select name='advancedviewselect'> 65: <option value='Detailed Citation View'>Detailed Citation View</option> 66: <option value='Summary View'>Summary View</option> 67: <option value='Fielded Format'>Fielded Format</option> 68: <option value='XML/SGML'>XML/SGML</option> 69: </select> 70: END 71: 72: sub handler { 73: my $r = shift; 74: 75: # -------------------------------------- see if called from an interactive mode 76: map { 77: my ($name, $value) = split(/=/,$_); 78: $value =~ tr/+/ /; 79: $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; 80: if ($name eq 'catalogmode') { 81: $ENV{'form.'.$name}=$value; 82: } 83: } (split(/&/,$ENV{'QUERY_STRING'})); 84: 85: $r->content_type('text/html'); 86: $r->send_http_header; 87: return OK if $r->header_only; 88: 89: %metadatafields=(); 90: 91: my $hidden=''; 92: $hidden=<<END if $ENV{'form.catalogmode'} eq 'interactive'; 93: <input type='hidden' name='catalogmode' value='interactive'> 94: END 95: 96: $closebutton=<<END if $ENV{'form.catalogmode'} eq 'interactive'; 97: <input type="button" name="close" value='CLOSE' onClick="self.close()"> 98: END 99: 100: # ------------------------------------------------ First, check out environment 101: $metadatafields{'owner'}=$ENV{'user.name'}.'@'.$ENV{'user.domain'}; 102: 103: # --------------------------------- Compute various listings of metadata values 104: 105: %language=(); 106: $language{'any'}='Any language'; 107: { 108: my $fh=Apache::File->new($r->dir_config('lonTabDir').'/language.tab'); 109: map { 110: $_=~/(\w+)\s+([\w\s\-]+)/; chomp; 111: $language{$1}=$2; 112: } <$fh>; 113: } 114: 115: %cprtag=(); 116: $cprtag{'any'}='Any copyright/distribution'; 117: { 118: my $fh=Apache::File->new($r->dir_config('lonIncludes').'/copyright.tab'); 119: map { 120: $_=~/(\w+)\s+([\w\s\-]+)/; chomp; 121: $cprtag{$1}=$2; 122: } <$fh>; 123: } 124: 125: %mimetag=(); 126: $mimetag{'any'}='Any type'; 127: { 128: my $fh=Apache::File->new($r->dir_config('lonTabDir').'/filetypes.tab'); 129: map { 130: $_=~/(\w+)\s+(\w+)\s+([\w\s\-]+)/; chomp; 131: $mimetag{$1}=".$1 $3"; 132: } <$fh>; 133: } 134: 135: if ($ENV{'form.basicsubmit'} eq 'SEARCH') { 136: return &basicsearch($r,\%ENV); 137: } 138: elsif ($ENV{'form.advancedsubmit'} eq 'SEARCH') { 139: return &advancedsearch($r,\%ENV); 140: } 141: 142: $scrout=''; # building a part of screen output 143: $scrout.=&searchphrasefield('Limit by title','title', 144: $ENV{'form.title'}); 145: 146: $scrout.=&searchphrasefield('Limit by author','author', 147: $ENV{'form.author'}); 148: 149: $scrout.=&searchphrasefield('Limit by subject','subject', 150: $ENV{'form.subject'}); 151: 152: $scrout.=&searchphrasefield('Limit by keywords','keywords', 153: $ENV{'form.keywords'}); 154: 155: $scrout.=&searchphrasefield('Limit by URL','url', 156: $ENV{'form.url'}); 157: 158: $scrout.=&searchphrasefield('Limit by version','version', 159: $ENV{'form.version'}); 160: 161: $scrout.=&searchphrasefield('Limit by notes','notes', 162: $ENV{'form.notes'}); 163: 164: $scrout.=&searchphrasefield('Limit by abstract','abstract', 165: $ENV{'form.abstract'}); 166: 167: $ENV{'form.mime'}='notxxx' unless length($ENV{'form.mime'}); 168: $scrout.=&selectbox('Limit by MIME type','mime', 169: $ENV{'form.mime'},%mimetag); 170: 171: $ENV{'form.language'}='any' unless length($ENV{'form.language'}); 172: 173: $scrout.=&selectbox('Limit by language','language', 174: $ENV{'form.language'},%language); 175: 176: 177: # ------------------------------------------------ Compute date selection boxes 178: $scrout.=<<CREATIONDATESTART; 179: <p> 180: <font color="#800000" face="helvetica"><b>LIMIT BY CREATION DATE RANGE:</b> 181: </font> 182: <br> 183: between: 184: CREATIONDATESTART 185: $scrout.=&dateboxes('creationdatestart',1,1,1976, 186: $ENV{'form.creationdatestart_month'}, 187: $ENV{'form.creationdatestart_day'}, 188: $ENV{'form.creationdatestart_year'}, 189: ); 190: $scrout.=<<CREATIONDATEEND; 191: and: 192: CREATIONDATEEND 193: $scrout.=&dateboxes('creationdateend',12,31,2051, 194: $ENV{'form.creationdateend_month'}, 195: $ENV{'form.creationdateend_day'}, 196: $ENV{'form.creationdateend_year'}, 197: ); 198: $scrout.="</p>"; 199: 200: $scrout.=<<LASTREVISIONDATESTART; 201: <p> 202: <font color="#800000" face="helvetica"><b>LIMIT BY LAST REVISION DATE RANGE: 203: </b></font> 204: <br>between: 205: LASTREVISIONDATESTART 206: $scrout.=&dateboxes('lastrevisiondatestart',1,1,1976, 207: $ENV{'form.lastrevisiondatestart_month'}, 208: $ENV{'form.lastrevisiondatestart_day'}, 209: $ENV{'form.lastrevisiondatestart_year'}, 210: ); 211: $scrout.=<<LASTREVISIONDATEEND; 212: and: 213: LASTREVISIONDATEEND 214: $scrout.=&dateboxes('lastrevisiondateend',12,31,2051, 215: $ENV{'form.lastrevisiondateend_month'}, 216: $ENV{'form.lastrevisiondateend_day'}, 217: $ENV{'form.lastrevisiondateend_year'}, 218: ); 219: $scrout.='</p>'; 220: 221: $scrout.=&searchphrasefield('Limit by publisher/owner','owner', 222: $ENV{'form.owner'}); 223: # $metadatafields{'owner'}); 224: 225: $ENV{'form.copyright'}='any' unless length($ENV{'form.copyright'}); 226: $scrout.=&selectbox('Limit by copyright/distribution','copyright', 227: $ENV{'form.copyright'},%cprtag); 228: 229: # ------------------------------------------- Compute customized metadata field 230: $scrout.=<<CUSTOMMETADATA; 231: <p> 232: <font color="#800000" face="helvetica"><b>LIMIT BY OTHER METADATA FIELDS:</b> 233: </font> 234: For author-specific metadata, enter in an expression in the form of 235: <i>key</i>=<i>value</i> separated by operators such as AND or OR.<br> 236: <b>Example:</b> grandmother=75 OR grandfather=85 237: <br> 238: CUSTOMMETADATA 239: $scrout.=&simpletextfield('custommetadata',$ENV{'form.custommetadata'}); 240: $scrout.=' <i>initial users of this system do not need to worry about this option</i>'; 241: 242: # ---------------------------------------------------------------- Print screen 243: $r->print(<<ENDDOCUMENT); 244: <html> 245: <head> 246: <title>The LearningOnline Network with CAPA</title> 247: </head> 248: <body bgcolor="#FFFFFF"> 249: <img align=right src=/adm/lonIcons/lonlogos.gif> 250: <h1>Search Catalog</h1> 251: <form method="post" action="/adm/searchcat"> 252: $hidden 253: <hr> 254: <h3>Basic Search</h3> 255: <p> 256: Enter terms or phrases separated by search operators 257: such as AND or OR then press SEARCH below. Terms should be specific 258: to the title, author, subject, notes, or abstract information associated 259: with a resource. 260: <br> 261: ENDDOCUMENT 262: $r->print(&simpletextfield('basicexp',$ENV{'form.basicexp'})); 263: $r->print(' '); 264: $r->print(&simplecheckbox('titleonly',$ENV{'form.titleonly'})); 265: $r->print('<font color="#800000">Title only</font> '); 266: $r->print(&simplecheckbox('allversions',$ENV{'form.allversions'})); 267: $r->print(<<ENDDOCUMENT); 268: <font color="#800000">Search historic archives</font> 269: <br> 270: <input type="submit" name="basicsubmit" value='SEARCH' /> 271: <input type="reset" name="reset" value='RESET' /> 272: $closebutton 273: $basicviewselect 274: </p> 275: <hr> 276: <h3>Advanced Search</h3> 277: $scrout 278: <p> 279: <input type="submit" name="advancedsubmit" value='SEARCH' /> 280: <input type="reset" name="reset" value='RESET' /> 281: $closebutton 282: $advancedviewselect 283: </p> 284: </form> 285: </body> 286: </html> 287: ENDDOCUMENT 288: return OK; 289: } 290: 291: # --------------------------------------------------------- Various form fields 292: 293: sub simpletextfield { 294: my ($name,$value)=@_; 295: return '<input type=text name=\''.$name. 296: '\' size=20 value=\''.$value.'\' />'; 297: } 298: 299: sub simplecheckbox { 300: my ($name,$value)=@_; 301: my $checked=''; 302: $checked="CHECKED" if $value eq 'on'; 303: return '<input type=checkbox name=\''.$name.'\' '. $checked . '>'; 304: } 305: 306: sub searchphrasefield { 307: my ($title,$name,$value)=@_; 308: my $instruction=<<END; 309: Enter terms or phrases separated by search operators such 310: as AND or OR. 311: END 312: my $uctitle=uc($title); 313: return "\n<p><font color=\"#800000\" face=\"helvetica\"><b>$uctitle:</b>". 314: "</FONT> $instruction<br>". 315: '<input type=text name="'.$name.'" size=80 value=\''.$value.'\'>'; 316: } 317: 318: sub dateboxes { 319: my ($name,$defaultmonth,$defaultday,$defaultyear, 320: $currentmonth,$currentday,$currentyear)=@_; 321: ($defaultmonth,$defaultday,$defaultyear)=('','',''); 322: my $month=<<END; 323: <select name="${name}_month"> 324: <option value='$defaultmonth'> </option> 325: <option value="1">January</option> 326: <option value="2">February</option> 327: <option value="3">March</option> 328: <option value="4">April</option> 329: <option value="5">May</option> 330: <option value="6">June</option> 331: <option value="7">July</option> 332: <option value="8">August</option> 333: <option value="9">September</option> 334: <option value="10">October</option> 335: <option value="11">November</option> 336: <option value="12">December</option> 337: </select> 338: END 339: $month=~s/(\"$currentmonth\")/$1 SELECTED/ if length($currentmonth); 340: my $day=<<END; 341: <select name="${name}_day"> 342: <option value='$defaultday'> </option> 343: <option value="1">1</option> 344: <option value="2">2</option> 345: <option value="3">3</option> 346: <option value="4">4</option> 347: <option value="5">5</option> 348: <option value="6">6</option> 349: <option value="7">7</option> 350: <option value="8">8</option> 351: <option value="9">9</option> 352: <option value="10">10</option> 353: <option value="11">11</option> 354: <option value="12">12</option> 355: <option value="13">13</option> 356: <option value="14">14</option> 357: <option value="15">15</option> 358: <option value="16">16</option> 359: <option value="17">17</option> 360: <option value="18">18</option> 361: <option value="19">19</option> 362: <option value="20">20</option> 363: <option value="21">21</option> 364: <option value="22">22</option> 365: <option value="23">23</option> 366: <option value="24">24</option> 367: <option value="25">25</option> 368: <option value="26">26</option> 369: <option value="27">27</option> 370: <option value="28">28</option> 371: <option value="29">29</option> 372: <option value="30">30</option> 373: <option value="31">31</option> 374: </select> 375: END 376: $day=~s/(\"$currentday\")/$1 SELECTED/ if length($currentday); 377: my $year=<<END; 378: <select name="${name}_year"> 379: <option value='$defaultyear'> </option> 380: <option value="1976">1976</option> 381: <option value="1977">1977</option> 382: <option value="1978">1978</option> 383: <option value="1979">1979</option> 384: <option value="1980">1980</option> 385: <option value="1981">1981</option> 386: <option value="1982">1982</option> 387: <option value="1983">1983</option> 388: <option value="1984">1984</option> 389: <option value="1985">1985</option> 390: <option value="1986">1986</option> 391: <option value="1987">1987</option> 392: <option value="1988">1988</option> 393: <option value="1989">1989</option> 394: <option value="1990">1990</option> 395: <option value="1991">1991</option> 396: <option value="1992">1992</option> 397: <option value="1993">1993</option> 398: <option value="1994">1994</option> 399: <option value="1995">1995</option> 400: <option value="1996">1996</option> 401: <option value="1997">1997</option> 402: <option value="1998">1998</option> 403: <option value="1999">1999</option> 404: <option value="2000">2000</option> 405: <option value="2001">2001</option> 406: <option value="2002">2002</option> 407: <option value="2003">2003</option> 408: <option value="2004">2004</option> 409: <option value="2005">2005</option> 410: <option value="2006">2006</option> 411: <option value="2007">2007</option> 412: <option value="2008">2008</option> 413: <option value="2009">2009</option> 414: <option value="2010">2010</option> 415: <option value="2011">2011</option> 416: <option value="2012">2012</option> 417: <option value="2013">2013</option> 418: <option value="2014">2014</option> 419: <option value="2015">2015</option> 420: <option value="2016">2016</option> 421: <option value="2017">2017</option> 422: <option value="2018">2018</option> 423: <option value="2019">2019</option> 424: <option value="2020">2020</option> 425: <option value="2021">2021</option> 426: <option value="2022">2022</option> 427: <option value="2023">2023</option> 428: <option value="2024">2024</option> 429: <option value="2025">2025</option> 430: <option value="2026">2026</option> 431: <option value="2027">2027</option> 432: <option value="2028">2028</option> 433: <option value="2029">2029</option> 434: <option value="2030">2030</option> 435: <option value="2031">2031</option> 436: <option value="2032">2032</option> 437: <option value="2033">2033</option> 438: <option value="2034">2034</option> 439: <option value="2035">2035</option> 440: <option value="2036">2036</option> 441: <option value="2037">2037</option> 442: <option value="2038">2038</option> 443: <option value="2039">2039</option> 444: <option value="2040">2040</option> 445: <option value="2041">2041</option> 446: <option value="2042">2042</option> 447: <option value="2043">2043</option> 448: <option value="2044">2044</option> 449: <option value="2045">2045</option> 450: <option value="2046">2046</option> 451: <option value="2047">2047</option> 452: <option value="2048">2048</option> 453: <option value="2049">2049</option> 454: <option value="2050">2050</option> 455: <option value="2051">2051</option> 456: </select> 457: END 458: $year=~s/(\"$currentyear\")/$1 SELECTED/ if length($currentyear); 459: return "$month$day$year"; 460: } 461: 462: sub selectbox { 463: my ($title,$name,$value,%options)=@_; 464: my $uctitle=uc($title); 465: my $selout="\n<p><font color=\"#800000\" face=\"helvetica\"><b>$uctitle:". 466: "</b></font><br>".'<select name="'.$name.'">'; 467: map { 468: $selout.='<option value=\''.$_.'\''; 469: if ($_ eq $value) { $selout.=' selected'; } 470: $selout.='>'.$options{$_}.'</option>'; 471: } sort keys %options; 472: return $selout.'</select>'; 473: } 474: 475: # ----------------------------------------------- Performing an advanced search 476: sub advancedsearch { 477: my ($r,$envhash)=@_; 478: my %ENV=%{$envhash}; 479: 480: my $fillflag=0; 481: # Clean up fields for safety 482: for my $field ('title','author','subject','keywords','url','version', 483: 'creationdatestart_month','creationdatestart_day', 484: 'creationdatestart_year','creationdateend_month', 485: 'creationdateend_day','creationdateend_year', 486: 'lastrevisiondatestart_month','lastrevisiondatestart_day', 487: 'lastrevisiondatestart_year','lastrevisiondateend_month', 488: 'lastrevisiondateend_day','lastrevisiondateend_year', 489: 'notes','abstract','mime','language','owner', 490: 'custommetadata') { 491: $ENV{"form.$field"}=~s/[^\w\s\=\-\"\']//g; 492: } 493: for my $field ('title','author','subject','keywords','url','version', 494: 'notes','abstract','mime','language','owner', 495: 'custommetadata') { 496: if (&filled($ENV{"form.$field"})) { 497: $fillflag++; 498: } 499: } 500: 501: unless ($fillflag) { 502: &output_blank_field_error($r); 503: return OK; 504: } 505: 506: my $query=''; 507: 508: my @queries; 509: # Go through logical expression AND/OR/NOT phrase fields. 510: 511: foreach my $field ('title','author','subject','notes','abstract','url', 512: 'keywords','version','owner') { 513: if ($ENV{'form.'.$field}) { 514: push @queries,&build_SQL_query($field,$ENV{'form.'.$field}); 515: } 516: } 517: if ($ENV{'form.language'} and $ENV{'form.language'} ne 'any') { 518: push @queries,"(language like \"\%$ENV{'form.language'}\%\")"; 519: } 520: if ($ENV{'form.mime'} and $ENV{'form.mime'} ne 'any') { 521: push @queries,"(mime like \"\%$ENV{'form.mime'}\%\")"; 522: } 523: if ($ENV{'form.copyright'} and $ENV{'form.copyright'} ne 'any') { 524: push @queries,"(copyright like \"\%$ENV{'form.copyright'}\%\")"; 525: } 526: my $datequery=&build_date_queries( 527: $ENV{'form.creationdatestart_month'}, 528: $ENV{'form.creationdatestart_day'}, 529: $ENV{'form.creationdatestart_year'}, 530: $ENV{'form.creationdateend_month'}, 531: $ENV{'form.creationdateend_day'}, 532: $ENV{'form.creationdateend_year'}, 533: $ENV{'form.lastrevisiondatestart_month'}, 534: $ENV{'form.lastrevisiondatestart_day'}, 535: $ENV{'form.lastrevisiondatestart_year'}, 536: $ENV{'form.lastrevisiondateend_month'}, 537: $ENV{'form.lastrevisiondateend_day'}, 538: $ENV{'form.lastrevisiondateend_year'}, 539: ); 540: if ($datequery=~/^Incorrect/) { 541: &output_date_error($r,$datequery); 542: return OK; 543: } 544: elsif ($datequery) { 545: push @queries,$datequery; 546: } 547: my $customquery; 548: if ($ENV{'form.custommetadata'}) { 549: $customquery=&build_custommetadata_query('custommetadata', 550: $ENV{'form.custommetadata'}); 551: } 552: if (@queries) { 553: $query=join(" AND ",@queries); 554: $query="select * from metadata where $query"; 555: my $reply=&Apache::lonnet::metadata_query($query); 556: &output_results('Advanced',$r,$envhash,$customquery,$reply); 557: } 558: else { 559: &output_results('Advanced',$r,$envhash,$query); 560: } 561: return OK; 562: } 563: 564: # ---------------------------------------------------- see if a field is filled 565: sub filled { 566: my ($field)=@_; 567: if ($field=~/\S/) { 568: return 1; 569: } 570: else { 571: return 0; 572: } 573: } 574: 575: # --------------------------------------------------- Performing a basic search 576: sub basicsearch { 577: my ($r,$envhash)=@_; 578: my %ENV=%{$envhash}; 579: 580: # Clean up fields for safety 581: for my $field ('basicexp') { 582: $ENV{"form.$field"}=~s/[^\w\s\-]//g; 583: } 584: 585: unless (&filled($ENV{'form.basicexp'})) { 586: &output_blank_field_error($r); 587: return OK; 588: } 589: 590: my $query=''; 591: my $concatarg=join('," ",', 592: ('title', 'author', 'subject', 'notes', 'abstract')); 593: 594: $query="select * from metadata where concat($concatarg) like '\%$ENV{'form.basicexp'}\%'"; 595: my $reply=&Apache::lonnet::metadata_query($query); 596: &output_results('Basic',$r,$envhash,$query,$reply); 597: return OK; 598: } 599: 600: # ---------------- Message to output when there are not enough fields filled in 601: sub output_blank_field_error { 602: my ($r)=@_; 603: # make query information persistent to allow for subsequent revision 604: my $persistent=&make_persistent(); 605: 606: $r->print(<<BEGINNING); 607: <html> 608: <head> 609: <title>The LearningOnline Network with CAPA</title> 610: BEGINNING 611: $r->print(<<RESULTS); 612: </head> 613: <body bgcolor="#ffffff"> 614: <img align=right src=/adm/lonIcons/lonlogos.gif> 615: <h1>Search Catalog</h1> 616: <form method="post" action="/adm/searchcat"> 617: $persistent 618: <input type='button' value='Revise search request' 619: onClick='this.form.submit();'> 620: $closebutton 621: <hr> 622: <h3>Helpful Message</h3> 623: <p> 624: Incorrect search query due to blank entry fields. 625: You need to fill in the relevant 626: fields on the search page in order for a query to be 627: processed. 628: </p> 629: </body> 630: </html> 631: RESULTS 632: } 633: 634: # ----------------------------- format and output results based on a reply list 635: sub output_results { 636: my ($mode,$r,$envhash,$query,@replylist)=@_; 637: my %ENV=%{$envhash}; 638: my $compiledresult=''; 639: 640: foreach my $reply (@replylist) { 641: 642: my @results; 643: 644: my $replyfile=''; 645: $reply=~/^([\.\w]+)$/; # must do since 'use strict' checks for tainting 646: $replyfile=$r->dir_config('lonDaemons').'/tmp/'.$1; 647: $reply=~/(.*?)\_/; 648: my $hostname=$1; 649: sleep 3; # temporary fix, need to check for completion and status 650: { 651: while (1) { 652: last if -e $replyfile; 653: sleep 1; 654: } 655: # QUESTION: how should I handle this error condition.. 656: # I'm sure there is syntax elsewhere I can use.. 657: my $fh=Apache::File->new($replyfile) or 658: ($r->print('file cannot be opened') and return OK); 659: @results=<$fh>; 660: } 661: 662: foreach my $result (@results) { 663: my @fields=map 664: {&Apache::lonnet::unescape($_)} 665: (split(/\,/,$result)); 666: my ($title,$author,$subject,$url,$keywords,$version, 667: $notes,$abstract,$mime,$lang, 668: $creationdate,$lastrevisiondate,$owner,$copyright)=@fields; 669: my $shortabstract=$abstract; 670: $shortabstract=substr($abstract,0,200) if length($abstract)>200; 671: $fields[7]=$shortabstract; 672: $compiledresult.=<<END; 673: <p> 674: END 675: $compiledresult.=<<END if $ENV{'form.catalogmode'} eq 'interactive'; 676: <font size='-1'><INPUT TYPE="button" NAME="returnvalues" VALUE="SELECT" 677: onClick="javascript:select_data('$title','$url')"> 678: </font> 679: <br> 680: END 681: my $httphost=$ENV{'HTTP_HOST'}; 682: 683: my $viewselect; 684: if ($mode eq 'Basic') { 685: $viewselect=$ENV{'form.basicviewselect'}; 686: } 687: elsif ($mode eq 'Advanced') { 688: $viewselect=$ENV{'form.advancedviewselect'}; 689: } 690: 691: if ($viewselect eq 'Detailed Citation View') { 692: $compiledresult.=&detailed_citation_view(@fields, 693: $hostname,$httphost); 694: } 695: elsif ($viewselect eq 'Summary View') { 696: $compiledresult.=&summary_view(@fields,$hostname,$httphost); 697: } 698: elsif ($viewselect eq 'Fielded Format') { 699: $compiledresult.=&fielded_format_view(@fields,$hostname, 700: $httphost); 701: } 702: elsif ($viewselect eq 'XML/SGML') { 703: $compiledresult.=&xml_sgml_view(@fields,$hostname,$httphost); 704: } 705: 706: } 707: 708: unless ($compiledresult) { 709: $compiledresult="There were no results that matched your query"; 710: } 711: 712: # make query information persistent to allow for subsequent revision 713: my $persistent=&make_persistent(); 714: 715: $r->print(<<BEGINNING); 716: <html> 717: <head> 718: <title>The LearningOnline Network with CAPA</title> 719: BEGINNING 720: $r->print(<<SCRIPT) if $ENV{'form.catalogmode'} eq 'interactive'; 721: <script> 722: function select_data(title,url) { 723: changeTitle(title); 724: changeURL(url); 725: } 726: function changeTitle(val) { 727: if (opener.inf.document.forms.resinfo.elements.t) { 728: opener.inf.document.forms.resinfo.elements.t.value=val; 729: } 730: } 731: function changeURL(val) { 732: if (opener.inf.document.forms.resinfo.elements.u) { 733: opener.inf.document.forms.resinfo.elements.u.value=val; 734: } 735: } 736: </script> 737: SCRIPT 738: $r->print(<<RESULTS); 739: </head> 740: <body bgcolor="#ffffff"> 741: <img align=right src=/adm/lonIcons/lonlogos.gif> 742: <h1>Search Catalog</h1> 743: <form method="post" action="/adm/searchcat"> 744: <input type='button' value='Revise search request' 745: onClick='this.form.submit();'> 746: $closebutton 747: $persistent 748: <hr> 749: <h3>Search Query</h3> 750: RESULTS 751: if ($mode eq 'Basic') { 752: $r->print(<<RESULTS); 753: <p> 754: <b>Basic search:</b> $ENV{'form.basicexp'} 755: </p> 756: RESULTS 757: } 758: elsif ($mode eq 'Advanced') { 759: $r->print(<<RESULTS); 760: <p> 761: <b>Advanced search</b> 762: $query 763: </p> 764: RESULTS 765: } 766: $r->print(<<RESULTS); 767: <h3>Search Results</h3> 768: $compiledresult 769: </body> 770: </html> 771: RESULTS 772: } 773: } 774: 775: # ------------------------------------------------------------- build_SQL_query 776: sub build_SQL_query { 777: my ($field_name,$logic_statement)=@_; 778: my $q=new Text::Query('abc', 779: -parse => 'Text::Query::ParseAdvanced', 780: -build => 'Text::Query::Build'); 781: $q->prepare($logic_statement); 782: my $matchexp=${$q}{'matchexp'}; chomp $matchexp; 783: my $sql_query=&recursive_SQL_query_build($field_name,$matchexp); 784: return $sql_query; 785: } 786: 787: # ------------------------------------------------- build custom metadata query 788: sub build_custommetadata_query { 789: my ($field_name,$logic_statement)=@_; 790: my $q=new Text::Query('abc', 791: -parse => 'Text::Query::ParseAdvanced', 792: -build => 'Text::Query::BuildAdvancedString'); 793: $q->prepare($logic_statement); 794: my $matchexp=${$q}{'-parse'}{'-build'}{'matchstring'}; 795: # quick fix to change literal into xml tag-matching 796: s/$\?\:([^$]*)\\\=([^\)]*)\)/$\?\:\<$1\>\[\^\\\<\]\*$2\[\^\\\<\]\*\<\/$1\>)/g; 797: return $matchexp; 798: } 799: 800: # - Recursively parse a reverse notation expression into a SQL query expression 801: sub recursive_SQL_query_build { 802: my ($dkey,$pattern)=@_; 803: my @matches=($pattern=~/(\[[^\]|\[]*\])/g); 804: return $pattern unless @matches; 805: foreach my $match (@matches) { 806: $match=~/\[ (\w+)\s(.*) \]/; 807: my ($key,$value)=($1,$2); 808: my $replacement=''; 809: if ($key eq 'literal') { 810: $replacement="($dkey like \"\%$value\%\")"; 811: } 812: elsif ($key eq 'and') { 813: $value=~/(.*[\"|$]) ([|$|\^].*)/; 814: $replacement="($1 AND $2)"; 815: } 816: elsif ($key eq 'or') { 817: $value=~/(.*[\"|$]) ([|\(|\^].*)/; 818: $replacement="($1 OR $2)"; 819: } 820: substr($pattern, 821: index($pattern,$match), 822: length($match), 823: $replacement 824: ); 825: } 826: &recursive_SQL_query_build($dkey,$pattern); 827: } 828: 829: # ------------------------------------------------------ Detailed Citation View 830: sub detailed_citation_view { 831: my ($title,$author,$subject,$url,$keywords,$version, 832: $notes,$shortabstract,$mime,$lang, 833: $creationdate,$lastrevisiondate,$owner,$copyright, 834: $hostname,$httphost)=@_; 835: my $result=<<END; 836: <i>$owner</i>, last revised $lastrevisiondate 837: <h3><A HREF="http://$httphost$url" TARGET='search_preview'>$title</A></h3> 838: <h3>$author</h3> 839: </p> 840: <p> 841: <b>Subject:</b> $subject<br> 842: <b>Keyword(s):</b> $keywords<br> 843: <b>Notes:</b> $notes<br> 844: <b>MIME Type:</b> $mimetag{$mime}<br> 845: <b>Language:</b> $language{$lang}<br> 846: <b>Copyright/Distribution:</b> $cprtag{$copyright}<br> 847: $shortabstract 848: </p> 849: END 850: return $result; 851: } 852: 853: # ---------------------------------------------------------------- Summary View 854: sub summary_view { 855: my ($title,$author,$subject,$url,$keywords,$version, 856: $notes,$shortabstract,$mime,$lang, 857: $creationdate,$lastrevisiondate,$owner,$copyright, 858: $hostname,$httphost)=@_; 859: my $result=<<END; 860: <a href="http://$httphost$url" TARGET='search_preview'>$author</a><br /> 861: $title<br /> 862: $owner -- $lastrevisiondate<br /> 863: $cprtag{$copyright}<br /> 864: </p> 865: END 866: return $result; 867: } 868: 869: # -------------------------------------------------------------- Fielded Format 870: sub fielded_format_view { 871: my ($title,$author,$subject,$url,$keywords,$version, 872: $notes,$shortabstract,$mime,$lang, 873: $creationdate,$lastrevisiondate,$owner,$copyright, 874: $hostname,$httphost)=@_; 875: my $result=<<END; 876: <b>URL: </b> <A HREF="http://$httphost$url" TARGET='search_preview'>$url</A> 877: <br /> 878: <b>Title:</b> $title<br /> 879: <b>Author(s):</b> $author<br /> 880: <b>Subject:</b> $subject<br /> 881: <b>Keyword(s):</b> $keywords<br /> 882: <b>Notes:</b> $notes<br /> 883: <b>MIME Type:</b> $mimetag{$mime}<br /> 884: <b>Language:</b> $language{$lang}<br /> 885: <b>Creation Date:</b> $creationdate<br /> 886: <b>Last Revision Date:</b> $lastrevisiondate<br /> 887: <b>Publisher/Owner:</b> $owner<br /> 888: <b>Copyright/Distribution:</b> $cprtag{$copyright}<br /> 889: <b>Repository Location:</b> $hostname<br /> 890: <b>Abstract:</b> $shortabstract<br /> 891: </p> 892: END 893: return $result; 894: } 895: 896: # -------------------------------------------------------------------- XML/SGML 897: sub xml_sgml_view { 898: my ($title,$author,$subject,$url,$keywords,$version, 899: $notes,$shortabstract,$mime,$lang, 900: $creationdate,$lastrevisiondate,$owner,$copyright, 901: $hostname,$httphost)=@_; 902: my $result=<<END; 903: <pre> 904: <LonCapaResource> 905: <url>$url</url> 906: <title>$title</title> 907: <author>$author</author> 908: <subject>$subject</subject> 909: <keywords>$keywords</keywords> 910: <notes>$notes</notes> 911: <mimeInfo> 912: <mime>$mime</mime> 913: <mimetag>$mimetag{$mime}</mimetag> 914: </mimeInfo> 915: <languageInfo> 916: <language>$lang</language> 917: <languagetag>$language{$lang}</languagetag> 918: </languageInfo> 919: <creationdate>$creationdate</creationdate> 920: <lastrevisiondate>$lastrevisiondate</lastrevisiondate> 921: <owner>$owner</owner> 922: <copyrightInfo> 923: <copyright>$copyright</copyright> 924: <copyrighttag>$cprtag{$copyright}</copyrighttag> 925: </copyrightInfo> 926: <repositoryLocation>$hostname</repositoryLocation> 927: <shortabstract>$shortabstract</shortabstract> 928: </LonCapaResource> 929: </pre> 930: END 931: return $result; 932: } 933: 934: sub build_date_queries { 935: my ($cmonth1,$cday1,$cyear1,$cmonth2,$cday2,$cyear2, 936: $lmonth1,$lday1,$lyear1,$lmonth2,$lday2,$lyear2)=@_; 937: my @queries; 938: if ($cmonth1 or $cday1 or $cyear1 or $cmonth2 or $cday2 or $cyear2) { 939: unless ($cmonth1 and $cday1 and $cyear1 and 940: $cmonth2 and $cday2 and $cyear2) { 941: return "Incorrect entry for the creation date. You must specify ". 942: "a starting month, day, and year and an ending month, ". 943: "day, and year."; 944: } 945: my $cnumeric1=sprintf("%d%2d%2d",$cyear1,$cmonth1,$cday1); 946: $cnumeric1+=0; 947: my $cnumeric2=sprintf("%d%2d%2d",$cyear2,$cmonth2,$cday2); 948: $cnumeric2+=0; 949: if ($cnumeric1>$cnumeric2) { 950: return "Incorrect entry for the creation date. The starting ". 951: "date must occur before the ending date."; 952: } 953: my $cquery="(creationdate BETWEEN '$cyear1-$cmonth1-$cday1' AND '". 954: "$cyear2-$cmonth2-$cday2 23:59:59')"; 955: push @queries,$cquery; 956: } 957: if ($lmonth1 or $lday1 or $lyear1 or $lmonth2 or $lday2 or $lyear2) { 958: unless ($lmonth1 and $lday1 and $lyear1 and 959: $lmonth2 and $lday2 and $lyear2) { 960: return "Incorrect entry for the last revision date. You must ". 961: "specify a starting month, day, and year and an ending ". 962: "month, day, and year."; 963: } 964: my $lnumeric1=sprintf("%d%2d%2d",$lyear1,$lmonth1,$lday1); 965: $lnumeric1+=0; 966: my $lnumeric2=sprintf("%d%2d%2d",$lyear2,$lmonth2,$lday2); 967: $lnumeric2+=0; 968: if ($lnumeric1>$lnumeric2) { 969: return "Incorrect entry for the last revision date. The ". 970: "starting date must occur before the ending date."; 971: } 972: my $lquery="(lastrevisiondate BETWEEN '$lyear1-$lmonth1-$lday1' AND '". 973: "$lyear2-$lmonth2-$lday2 23:59:59')"; 974: push @queries,$lquery; 975: } 976: if (@queries) { 977: return join(" AND ",@queries); 978: } 979: return ''; 980: } 981: 982: sub output_date_error { 983: my ($r,$message)=@_; 984: # make query information persistent to allow for subsequent revision 985: my $persistent=&make_persistent(); 986: 987: $r->print(<<BEGINNING); 988: <html> 989: <head> 990: <title>The LearningOnline Network with CAPA</title> 991: BEGINNING 992: $r->print(<<RESULTS); 993: </head> 994: <body bgcolor="#ffffff"> 995: <img align=right src=/adm/lonIcons/lonlogos.gif> 996: <h1>Search Catalog</h1> 997: <form method="post" action="/adm/searchcat"> 998: $persistent 999: <input type='button' value='Revise search request' 1000: onClick='this.form.submit();'> 1001: $closebutton 1002: <hr> 1003: <h3>Helpful Message</h3> 1004: <p> 1005: $message 1006: </p> 1007: </body> 1008: </html> 1009: RESULTS 1010: } 1011: 1012: sub make_persistent { 1013: my $persistent=''; 1014: 1015: map { 1016: if (/^form\./ && !/submit/) { 1017: my $name=$_; 1018: my $key=$name; 1019: $ENV{$key}=~s/\'//g; # do not mess with html field syntax 1020: $name=~s/^form\.//; 1021: $persistent.=<<END; 1022: <input type='hidden' name='$name' value='$ENV{$key}' /> 1023: END 1024: } 1025: } (keys %ENV); 1026: return $persistent; 1027: } 1028: 1; 1029: __END__