loncom/interface/lonsearchcat.pm - view

File: [LON-CAPA] / loncom / interface / lonsearchcat.pm
Revision 1.59: download - view: text, annotated - select for diffs
Wed Mar 21 03:40:39 2001 UTC (23 years, 2 months ago) by harris41
Branches: MAIN
CVS tags: HEAD

fixing sql syntax error -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.'" size=20 value="'.$value.'">'; 296: } 297: 298: sub simplecheckbox { 299: my ($name,$value)=@_; 300: my $checked=''; 301: $checked="CHECKED" if $value eq 'on'; 302: return '<input type=checkbox name="'.$name.'" '. $checked . '>'; 303: } 304: 305: sub searchphrasefield { 306: my ($title,$name,$value)=@_; 307: my $instruction=<<END; 308: Enter terms or phrases separated by search operators such 309: as AND or OR. 310: END 311: my $uctitle=uc($title); 312: return "\n<p><font color=\"#800000\" face=\"helvetica\"><b>$uctitle:</b>". 313: "</FONT> $instruction<br>". 314: '<input type=text name="'.$name.'" size=80 value="'.$value.'">'; 315: } 316: 317: sub dateboxes { 318: my ($name,$defaultmonth,$defaultday,$defaultyear, 319: $currentmonth,$currentday,$currentyear)=@_; 320: ($defaultmonth,$defaultday,$defaultyear)=('','',''); 321: my $month=<<END; 322: <select name="${name}_month"> 323: <option value='$defaultmonth'> </option> 324: <option value="1">January</option> 325: <option value="2">February</option> 326: <option value="3">March</option> 327: <option value="4">April</option> 328: <option value="5">May</option> 329: <option value="6">June</option> 330: <option value="7">July</option> 331: <option value="8">August</option> 332: <option value="9">September</option> 333: <option value="10">October</option> 334: <option value="11">November</option> 335: <option value="12">December</option> 336: </select> 337: END 338: $month=~s/(\"$currentmonth\")/$1 SELECTED/ if length($currentmonth); 339: my $day=<<END; 340: <select name="${name}_day"> 341: <option value='$defaultday'> </option> 342: <option value="1">1</option> 343: <option value="2">2</option> 344: <option value="3">3</option> 345: <option value="4">4</option> 346: <option value="5">5</option> 347: <option value="6">6</option> 348: <option value="7">7</option> 349: <option value="8">8</option> 350: <option value="9">9</option> 351: <option value="10">10</option> 352: <option value="11">11</option> 353: <option value="12">12</option> 354: <option value="13">13</option> 355: <option value="14">14</option> 356: <option value="15">15</option> 357: <option value="16">16</option> 358: <option value="17">17</option> 359: <option value="18">18</option> 360: <option value="19">19</option> 361: <option value="20">20</option> 362: <option value="21">21</option> 363: <option value="22">22</option> 364: <option value="23">23</option> 365: <option value="24">24</option> 366: <option value="25">25</option> 367: <option value="26">26</option> 368: <option value="27">27</option> 369: <option value="28">28</option> 370: <option value="29">29</option> 371: <option value="30">30</option> 372: <option value="31">31</option> 373: </select> 374: END 375: $day=~s/(\"$currentday\")/$1 SELECTED/ if length($currentday); 376: my $year=<<END; 377: <select name="${name}_year"> 378: <option value='$defaultyear'> </option> 379: <option value="1976">1976</option> 380: <option value="1977">1977</option> 381: <option value="1978">1978</option> 382: <option value="1979">1979</option> 383: <option value="1980">1980</option> 384: <option value="1981">1981</option> 385: <option value="1982">1982</option> 386: <option value="1983">1983</option> 387: <option value="1984">1984</option> 388: <option value="1985">1985</option> 389: <option value="1986">1986</option> 390: <option value="1987">1987</option> 391: <option value="1988">1988</option> 392: <option value="1989">1989</option> 393: <option value="1990">1990</option> 394: <option value="1991">1991</option> 395: <option value="1992">1992</option> 396: <option value="1993">1993</option> 397: <option value="1994">1994</option> 398: <option value="1995">1995</option> 399: <option value="1996">1996</option> 400: <option value="1997">1997</option> 401: <option value="1998">1998</option> 402: <option value="1999">1999</option> 403: <option value="2000">2000</option> 404: <option value="2001">2001</option> 405: <option value="2002">2002</option> 406: <option value="2003">2003</option> 407: <option value="2004">2004</option> 408: <option value="2005">2005</option> 409: <option value="2006">2006</option> 410: <option value="2007">2007</option> 411: <option value="2008">2008</option> 412: <option value="2009">2009</option> 413: <option value="2010">2010</option> 414: <option value="2011">2011</option> 415: <option value="2012">2012</option> 416: <option value="2013">2013</option> 417: <option value="2014">2014</option> 418: <option value="2015">2015</option> 419: <option value="2016">2016</option> 420: <option value="2017">2017</option> 421: <option value="2018">2018</option> 422: <option value="2019">2019</option> 423: <option value="2020">2020</option> 424: <option value="2021">2021</option> 425: <option value="2022">2022</option> 426: <option value="2023">2023</option> 427: <option value="2024">2024</option> 428: <option value="2025">2025</option> 429: <option value="2026">2026</option> 430: <option value="2027">2027</option> 431: <option value="2028">2028</option> 432: <option value="2029">2029</option> 433: <option value="2030">2030</option> 434: <option value="2031">2031</option> 435: <option value="2032">2032</option> 436: <option value="2033">2033</option> 437: <option value="2034">2034</option> 438: <option value="2035">2035</option> 439: <option value="2036">2036</option> 440: <option value="2037">2037</option> 441: <option value="2038">2038</option> 442: <option value="2039">2039</option> 443: <option value="2040">2040</option> 444: <option value="2041">2041</option> 445: <option value="2042">2042</option> 446: <option value="2043">2043</option> 447: <option value="2044">2044</option> 448: <option value="2045">2045</option> 449: <option value="2046">2046</option> 450: <option value="2047">2047</option> 451: <option value="2048">2048</option> 452: <option value="2049">2049</option> 453: <option value="2050">2050</option> 454: <option value="2051">2051</option> 455: </select> 456: END 457: $year=~s/(\"$currentyear\")/$1 SELECTED/ if length($currentyear); 458: return "$month$day$year"; 459: } 460: 461: sub selectbox { 462: my ($title,$name,$value,%options)=@_; 463: my $uctitle=uc($title); 464: my $selout="\n<p><font color=\"#800000\" face=\"helvetica\"><b>$uctitle:". 465: "</b></font><br>".'<select name="'.$name.'">'; 466: map { 467: $selout.='<option value="'.$_.'"'; 468: if ($_ eq $value) { $selout.=' selected'; } 469: $selout.='>'.$options{$_}.'</option>'; 470: } sort keys %options; 471: return $selout.'</select>'; 472: } 473: 474: # ----------------------------------------------- Performing an advanced search 475: sub advancedsearch { 476: my ($r,$envhash)=@_; 477: my %ENV=%{$envhash}; 478: 479: my $fillflag=0; 480: for my $field ('title','author','subject','keywords','url','version', 481: 'notes','abstract','mime','language','owner', 482: 'custommetadata') { 483: if (&filled($ENV{"form.$field"})) { 484: $fillflag++; 485: } 486: } 487: 488: unless ($fillflag) { 489: &output_blank_field_error($r); 490: return OK; 491: } 492: 493: my $query=''; 494: 495: my @queries; 496: # Go through logical expression AND/OR/NOT phrase fields. 497: 498: foreach my $field ('title','author','subject','notes','abstract','url', 499: 'keywords','version','owner') { 500: if ($ENV{'form.'.$field}) { 501: push @queries,&build_SQL_query($field,$ENV{'form.'.$field}); 502: } 503: } 504: if ($ENV{'form.language'} and $ENV{'form.language'} ne 'any') { 505: push @queries,"(language like \"\%$ENV{'form.language'}\%\")"; 506: } 507: if ($ENV{'form.mime'} and $ENV{'form.mime'} ne 'any') { 508: push @queries,"(mime like \"\%$ENV{'form.mime'}\%\")"; 509: } 510: if ($ENV{'form.copyright'} and $ENV{'form.copyright'} ne 'any') { 511: push @queries,"(copyright like \"\%$ENV{'form.copyright'}\%\")"; 512: } 513: if (@queries) { 514: $query=join(" AND ",@queries); 515: $query="select * from metadata where $query"; 516: my $reply=&Apache::lonnet::metadata_query($query); 517: &output_results('Advanced',$r,$envhash,$query,$reply); 518: } 519: else { 520: &output_results('Advanced',$r,$envhash,$query); 521: } 522: return OK; 523: } 524: 525: # ---------------------------------------------------- see if a field is filled 526: sub filled { 527: my ($field)=@_; 528: if ($field=~/\S/) { 529: return 1; 530: } 531: else { 532: return 0; 533: } 534: } 535: 536: # --------------------------------------------------- Performing a basic search 537: sub basicsearch { 538: my ($r,$envhash)=@_; 539: my %ENV=%{$envhash}; 540: 541: unless (&filled($ENV{'form.basicexp'})) { 542: &output_blank_field_error($r); 543: return OK; 544: } 545: 546: my $query=''; 547: my $concatarg=join('," ",', 548: ('title', 'author', 'subject', 'notes', 'abstract')); 549: 550: $query="select * from metadata where concat($concatarg) like '\%$ENV{'form.basicexp'}\%'"; 551: my $reply=&Apache::lonnet::metadata_query($query); 552: &output_results('Basic',$r,$envhash,$query,$reply); 553: return OK; 554: } 555: 556: # ---------------- Message to output when there are not enough fields filled in 557: sub output_blank_field_error { 558: my ($r)=@_; 559: # make query information persistent to allow for subsequent revision 560: my $persistent=''; 561: map { 562: if (/^form\./ && !/submit/) { 563: my $name=$_; 564: my $key=$name; 565: $name=~s/^form\.//; 566: $persistent.=<<END; 567: <INPUT TYPE='hidden' NAME='$name' VALUE='$ENV{$key}'> 568: END 569: } 570: } (keys %ENV); 571: 572: $r->print(<<BEGINNING); 573: <html> 574: <head> 575: <title>The LearningOnline Network with CAPA</title> 576: BEGINNING 577: $r->print(<<RESULTS); 578: </head> 579: <body bgcolor="#ffffff"> 580: <img align=right src=/adm/lonIcons/lonlogos.gif> 581: <h1>Search Catalog</h1> 582: <form method="post" action="/adm/searchcat"> 583: $persistent 584: <input type='button' value='Revise search request' 585: onClick='this.form.submit();'> 586: $closebutton 587: <hr> 588: <h3>Helpful Message</h3> 589: <p> 590: Incorrect search query due to blank entry fields. 591: You need to fill in the relevant 592: fields on the search page in order for a query to be 593: processed. 594: </p> 595: </body> 596: </html> 597: RESULTS 598: } 599: 600: # ----------------------------- format and output results based on a reply list 601: sub output_results { 602: my ($mode,$r,$envhash,$query,@replylist)=@_; 603: my %ENV=%{$envhash}; 604: my $compiledresult=''; 605: 606: foreach my $reply (@replylist) { 607: 608: my @results; 609: 610: my $replyfile=''; 611: $reply=~/^([\.\w]+)$/; # must do since 'use strict' checks for tainting 612: $replyfile=$r->dir_config('lonDaemons').'/tmp/'.$1; 613: $reply=~/(.*?)\_/; 614: my $hostname=$1; 615: sleep 3; # temporary fix, need to check for completion and status 616: { 617: while (1) { 618: last if -e $replyfile; 619: sleep 1; 620: } 621: # QUESTION: how should I handle this error condition.. 622: # I'm sure there is syntax elsewhere I can use.. 623: my $fh=Apache::File->new($replyfile) or 624: ($r->print('file cannot be opened') and return OK); 625: @results=<$fh>; 626: } 627: 628: foreach my $result (@results) { 629: my @fields=map 630: {&Apache::lonnet::unescape($_)} 631: (split(/\,/,$result)); 632: my ($title,$author,$subject,$url,$keywords,$version, 633: $notes,$abstract,$mime,$lang, 634: $creationdate,$lastrevisiondate,$owner,$copyright)=@fields; 635: my $shortabstract=$abstract; 636: $shortabstract=substr($abstract,0,200) if length($abstract)>200; 637: $fields[7]=$shortabstract; 638: $compiledresult.=<<END; 639: <p> 640: END 641: $compiledresult.=<<END if $ENV{'form.catalogmode'} eq 'interactive'; 642: <font size='-1'><INPUT TYPE="button" NAME="returnvalues" VALUE="SELECT" 643: onClick="javascript:select_data('$title','$url')"> 644: </font> 645: <br> 646: END 647: my $httphost=$ENV{'HTTP_HOST'}; 648: 649: my $viewselect; 650: if ($mode eq 'Basic') { 651: $viewselect=$ENV{'form.basicviewselect'}; 652: } 653: elsif ($mode eq 'Advanced') { 654: $viewselect=$ENV{'form.advancedviewselect'}; 655: } 656: 657: if ($viewselect eq 'Detailed Citation View') { 658: $compiledresult.=&detailed_citation_view(@fields, 659: $hostname,$httphost); 660: } 661: elsif ($viewselect eq 'Summary View') { 662: $compiledresult.=&summary_view(@fields,$hostname,$httphost); 663: } 664: elsif ($viewselect eq 'Fielded Format') { 665: $compiledresult.=&fielded_format_view(@fields,$hostname, 666: $httphost); 667: } 668: elsif ($viewselect eq 'XML/SGML') { 669: $compiledresult.=&xml_sgml_view(@fields,$hostname,$httphost); 670: } 671: 672: } 673: 674: unless ($compiledresult) { 675: $compiledresult="There were no results that matched your query"; 676: } 677: 678: # make query information persistent to allow for subsequent revision 679: my $persistent=''; 680: map { 681: if (/^form\./ && !/submit/) { 682: my $name=$_; 683: my $key=$name; 684: $name=~s/^form\.//; 685: $persistent.=<<END; 686: <INPUT TYPE='hidden' NAME='$name' VALUE='$ENV{$key}'> 687: END 688: } 689: } (keys %ENV); 690: 691: $r->print(<<BEGINNING); 692: <html> 693: <head> 694: <title>The LearningOnline Network with CAPA</title> 695: BEGINNING 696: $r->print(<<SCRIPT) if $ENV{'form.catalogmode'} eq 'interactive'; 697: <script> 698: function select_data(title,url) { 699: changeTitle(title); 700: changeURL(url); 701: } 702: function changeTitle(val) { 703: if (opener.inf.document.forms.resinfo.elements.t) { 704: opener.inf.document.forms.resinfo.elements.t.value=val; 705: } 706: } 707: function changeURL(val) { 708: if (opener.inf.document.forms.resinfo.elements.u) { 709: opener.inf.document.forms.resinfo.elements.u.value=val; 710: } 711: } 712: </script> 713: SCRIPT 714: $r->print(<<RESULTS); 715: </head> 716: <body bgcolor="#ffffff"> 717: <img align=right src=/adm/lonIcons/lonlogos.gif> 718: <h1>Search Catalog</h1> 719: <form method="post" action="/adm/searchcat"> 720: <input type='button' value='Revise search request' 721: onClick='this.form.submit();'> 722: $closebutton 723: $persistent 724: <hr> 725: <h3>Search Query</h3> 726: RESULTS 727: if ($mode eq 'Basic') { 728: $r->print(<<RESULTS); 729: <p> 730: <b>Basic search:</b> $ENV{'form.basicexp'} 731: </p> 732: RESULTS 733: } 734: elsif ($mode eq 'Advanced') { 735: $r->print(<<RESULTS); 736: <p> 737: <b>Advanced search</b> 738: $query 739: </p> 740: RESULTS 741: } 742: $r->print(<<RESULTS); 743: <h3>Search Results</h3> 744: $compiledresult 745: </body> 746: </html> 747: RESULTS 748: } 749: } 750: 751: # ------------------------------------------------------------- build_SQL_query 752: sub build_SQL_query { 753: my ($field_name,$logic_statement)=@_; 754: my $q=new Text::Query('abc', 755: -parse => 'Text::Query::ParseAdvanced', 756: -build => 'Text::Query::Build'); 757: $q->prepare($logic_statement); 758: my $matchexp=${$q}{'matchexp'}; chomp $matchexp; 759: my $sql_query=&recursive_SQL_query_build($field_name,$matchexp); 760: return $sql_query; 761: } 762: 763: # - Recursively parse a reverse notation expression into a SQL query expression 764: sub recursive_SQL_query_build { 765: my ($dkey,$pattern)=@_; 766: my @matches=($pattern=~/(\[[^\]|\[]*\])/g); 767: return $pattern unless @matches; 768: foreach my $match (@matches) { 769: $match=~/\[ (\w+)\s(.*) \]/; 770: my ($key,$value)=($1,$2); 771: my $replacement=''; 772: if ($key eq 'literal') { 773: $replacement="($dkey like \"\%$value\%\")"; 774: } 775: elsif ($key eq 'and') { 776: $value=~/(.*[\"|\)]) ([|$|\^].*)/; 777: $replacement="($1 AND $2)"; 778: } 779: elsif ($key eq 'or') { 780: $value=~/(.*[\"|$]) ([|\(|\^].*)/; 781: $replacement="($1 OR $2)"; 782: } 783: substr($pattern, 784: index($pattern,$match), 785: length($match), 786: $replacement 787: ); 788: } 789: &recursive_SQL_query_build($dkey,$pattern); 790: } 791: 792: # ------------------------------------------------------ Detailed Citation View 793: sub detailed_citation_view { 794: my ($title,$author,$subject,$url,$keywords,$version, 795: $notes,$shortabstract,$mime,$lang, 796: $creationdate,$lastrevisiondate,$owner,$copyright, 797: $hostname,$httphost)=@_; 798: my $result=<<END; 799: <i>$owner</i>, last revised $lastrevisiondate 800: <h3><A HREF="http://$httphost$url" TARGET='search_preview'>$title</A></h3> 801: <h3>$author</h3> 802: </p> 803: <p> 804: <b>Subject:</b> $subject<br> 805: <b>Keyword(s):</b> $keywords<br> 806: <b>Notes:</b> $notes<br> 807: <b>MIME Type:</b> $mimetag{$mime}<br> 808: <b>Language:</b> $language{$lang}<br> 809: <b>Copyright/Distribution:</b> $cprtag{$copyright}<br> 810: $shortabstract 811: </p> 812: END 813: return $result; 814: } 815: 816: # ---------------------------------------------------------------- Summary View 817: sub summary_view { 818: my ($title,$author,$subject,$url,$keywords,$version, 819: $notes,$shortabstract,$mime,$lang, 820: $creationdate,$lastrevisiondate,$owner,$copyright, 821: $hostname,$httphost)=@_; 822: my $result=<<END; 823: <a href="http://$httphost$url" TARGET='search_preview'>$author</a><br /> 824: $title<br /> 825: $owner -- $lastrevisiondate<br /> 826: $cprtag{$copyright}<br /> 827: </p> 828: END 829: return $result; 830: } 831: 832: # -------------------------------------------------------------- Fielded Format 833: sub fielded_format_view { 834: my ($title,$author,$subject,$url,$keywords,$version, 835: $notes,$shortabstract,$mime,$lang, 836: $creationdate,$lastrevisiondate,$owner,$copyright, 837: $hostname,$httphost)=@_; 838: my $result=<<END; 839: <b>URL: </b> <A HREF="http://$httphost$url" TARGET='search_preview'>$url</A> 840: <br /> 841: <b>Title:</b> $title<br /> 842: <b>Author(s):</b> $author<br /> 843: <b>Subject:</b> $subject<br /> 844: <b>Keyword(s):</b> $keywords<br /> 845: <b>Notes:</b> $notes<br /> 846: <b>MIME Type:</b> $mimetag{$mime}<br /> 847: <b>Language:</b> $language{$lang}<br /> 848: <b>Creation Date:</b> $creationdate<br /> 849: <b>Last Revision Date:</b> $lastrevisiondate<br /> 850: <b>Publisher/Owner:</b> $owner<br /> 851: <b>Copyright/Distribution:</b> $cprtag{$copyright}<br /> 852: <b>Repository Location:</b> $hostname<br /> 853: <b>Abstract:</b> $shortabstract<br /> 854: </p> 855: END 856: return $result; 857: } 858: 859: # -------------------------------------------------------------------- XML/SGML 860: sub xml_sgml_view { 861: my ($title,$author,$subject,$url,$keywords,$version, 862: $notes,$shortabstract,$mime,$lang, 863: $creationdate,$lastrevisiondate,$owner,$copyright, 864: $hostname,$httphost)=@_; 865: my $result=<<END; 866: <pre> 867: <LonCapaResource> 868: <url>$url</url> 869: <title>$title</title> 870: <author>$author</author> 871: <subject>$subject</subject> 872: <keywords>$keywords</keywords> 873: <notes>$notes</notes> 874: <mimeInfo> 875: <mime>$mime</mime> 876: <mimetag>$mimetag{$mime}</mimetag> 877: </mimeInfo> 878: <languageInfo> 879: <language>$lang</language> 880: <languagetag>$language{$lang}</languagetag> 881: </languageInfo> 882: <creationdate>$creationdate</creationdate> 883: <lastrevisiondate>$lastrevisiondate</lastrevisiondate> 884: <owner>$owner</owner> 885: <copyrightInfo> 886: <copyright>$copyright</copyright> 887: <copyrighttag>$cprtag{$copyright}</copyrighttag> 888: </copyrightInfo> 889: <repositoryLocation>$hostname</repositoryLocation> 890: <shortabstract>$shortabstract</shortabstract> 891: </LonCapaResource> 892: </pre> 893: END 894: return $result; 895: } 896: 897: 1; 898: __END__