loncom/interface/loncommon.pm - view

File: [LON-CAPA] / loncom / interface / loncommon.pm
Revision 1.31: download - view: text, annotated - select for diffs
Mon Apr 15 23:37:37 2002 UTC (22 years, 2 months ago) by albertel
Branches: MAIN
CVS tags: HEAD

- moved much of the CSV handling code into loncommon in preparation for grades.pm to accept uploads
- addressed BUG#71 (both original and reverse mode now work)
- did some cleanup and common code removal

1: # The LearningOnline Network with CAPA 2: # a pile of common routines 3: # 4: # $Id: loncommon.pm,v 1.31 2002/04/15 23:37:37 albertel Exp $ 5: # 6: # Copyright Michigan State University Board of Trustees 7: # 8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA). 9: # 10: # LON-CAPA is free software; you can redistribute it and/or modify 11: # it under the terms of the GNU General Public License as published by 12: # the Free Software Foundation; either version 2 of the License, or 13: # (at your option) any later version. 14: # 15: # LON-CAPA is distributed in the hope that it will be useful, 16: # but WITHOUT ANY WARRANTY; without even the implied warranty of 17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18: # GNU General Public License for more details. 19: # 20: # You should have received a copy of the GNU General Public License 21: # along with LON-CAPA; if not, write to the Free Software 22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 23: # 24: # /home/httpd/html/adm/gpl.txt 25: # 26: # http://www.lon-capa.org/ 27: # 28: # YEAR=2001 29: # 2/13-12/7 Guy Albertelli 30: # 12/11,12/12,12/17 Scott Harrison 31: # 12/21 Gerd Kortemeyer 32: # 12/21 Scott Harrison 33: # 12/25,12/28 Gerd Kortemeyer 34: # YEAR=2002 35: # 1/4 Gerd Kortemeyer 36: 37: # Makes a table out of the previous attempts 38: # Inputs result_from_symbread, user, domain, course_id 39: # Reads in non-network-related .tab files 40: 41: package Apache::loncommon; 42: 43: use strict; 44: use Apache::lonnet(); 45: use POSIX qw(strftime); 46: use Apache::Constants qw(:common); 47: use Apache::lonmsg(); 48: 49: my $readit; 50: 51: # ----------------------------------------------- Filetypes/Languages/Copyright 52: my %language; 53: my %cprtag; 54: my %fe; my %fd; 55: my %fc; 56: 57: # -------------------------------------------------------------- Thesaurus data 58: my @therelated; 59: my @theword; 60: my @thecount; 61: my %theindex; 62: my $thetotalcount; 63: my $thefuzzy=2; 64: my $thethreshold=0.1/$thefuzzy; 65: my $theavecount; 66: 67: # ----------------------------------------------------------------------- BEGIN 68: BEGIN { 69: 70: unless ($readit) { 71: # ------------------------------------------------------------------- languages 72: { 73: my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}. 74: '/language.tab'); 75: if ($fh) { 76: while (<$fh>) { 77: next if /^\#/; 78: chomp; 79: my ($key,$val)=(split(/\s+/,$_,2)); 80: $language{$key}=$val; 81: } 82: } 83: } 84: # ------------------------------------------------------------------ copyrights 85: { 86: my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonIncludes'}. 87: '/copyright.tab'); 88: if ($fh) { 89: while (<$fh>) { 90: next if /^\#/; 91: chomp; 92: my ($key,$val)=(split(/\s+/,$_,2)); 93: $cprtag{$key}=$val; 94: } 95: } 96: } 97: # ------------------------------------------------------------- file categories 98: { 99: my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}. 100: '/filecategories.tab'); 101: if ($fh) { 102: while (<$fh>) { 103: next if /^\#/; 104: chomp; 105: my ($key,$val)=(split(/\s+/,$_,2)); 106: push @{$fc{$key}},$val; 107: } 108: } 109: } 110: # ------------------------------------------------------------------ file types 111: { 112: my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}. 113: '/filetypes.tab'); 114: if ($fh) { 115: while (<$fh>) { 116: next if (/^\#/); 117: chomp; 118: my ($ending,$emb,$descr)=split(/\s+/,$_,3); 119: if ($descr ne '') { 120: $fe{$ending}=lc($emb); 121: $fd{$ending}=$descr; 122: } 123: } 124: } 125: } 126: # -------------------------------------------------------------- Thesaurus data 127: { 128: my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}. 129: '/thesaurus.dat'); 130: if ($fh) { 131: while (<$fh>) { 132: my ($tword,$tindex,$tcount,$trelated)=split(/\@/,$_); 133: $theindex{$tword}=$tindex; 134: $theword[$tindex]=$tword; 135: $thecount[$tindex]=$tcount; 136: $thetotalcount+=$tcount; 137: $therelated[$tindex]=$trelated; 138: } 139: } 140: $theavecount=$thetotalcount/$#thecount; 141: } 142: &Apache::lonnet::logthis( 143: "<font color=yellow>INFO: Read file types and thesaurus</font>"); 144: $readit=1; 145: } 146: 147: } 148: # ============================================================= END BEGIN BLOCK 149: 150: 151: # ---------------------------------------------------------- Is this a keyword? 152: 153: sub keyword { 154: my $newword=shift; 155: $newword=~s/\W//g; 156: $newword=~tr/A-Z/a-z/; 157: my $tindex=$theindex{$newword}; 158: if ($tindex) { 159: if ($thecount[$tindex]>$theavecount) { 160: return 1; 161: } 162: } 163: return 0; 164: } 165: # -------------------------------------------------------- Return related words 166: 167: sub related { 168: my $newword=shift; 169: $newword=~s/\W//g; 170: $newword=~tr/A-Z/a-z/; 171: my $tindex=$theindex{$newword}; 172: if ($tindex) { 173: my %found=(); 174: foreach (split(/\,/,$therelated[$tindex])) { 175: # - Related word found 176: my ($ridx,$rcount)=split(/\:/,$_); 177: # - Direct relation index 178: my $directrel=$rcount/$thecount[$tindex]; 179: if ($directrel>$thethreshold) { 180: foreach (split(/\,/,$therelated[$ridx])) { 181: my ($rridx,$rrcount)=split(/\:/,$_); 182: if ($rridx==$tindex) { 183: # - Determine reverse relation index 184: my $revrel=$rrcount/$thecount[$ridx]; 185: # - Calculate full index 186: $found{$ridx}=$directrel*$revrel; 187: if ($found{$ridx}>$thethreshold) { 188: foreach (split(/\,/,$therelated[$ridx])) { 189: my ($rrridx,$rrrcount)=split(/\:/,$_); 190: unless ($found{$rrridx}) { 191: my $revrevrel=$rrrcount/$thecount[$ridx]; 192: if ( 193: $directrel*$revrel*$revrevrel>$thethreshold 194: ) { 195: $found{$rrridx}= 196: $directrel*$revrel*$revrevrel; 197: } 198: } 199: } 200: } 201: } 202: } 203: } 204: } 205: } 206: return (); 207: } 208: 209: # ---------------------------------------------------------------- Language IDs 210: sub languageids { 211: return sort(keys(%language)); 212: } 213: 214: # -------------------------------------------------------- Language Description 215: sub languagedescription { 216: return $language{shift(@_)}; 217: } 218: 219: # --------------------------------------------------------------- Copyright IDs 220: sub copyrightids { 221: return sort(keys(%cprtag)); 222: } 223: 224: # ------------------------------------------------------- Copyright Description 225: sub copyrightdescription { 226: return $cprtag{shift(@_)}; 227: } 228: 229: # ------------------------------------------------------------- File Categories 230: sub filecategories { 231: return sort(keys(%fc)); 232: } 233: 234: # -------------------------------------- File Types within a specified category 235: sub filecategorytypes { 236: return @{$fc{lc(shift(@_))}}; 237: } 238: 239: # ------------------------------------------------------------------ File Types 240: sub fileextensions { 241: return sort(keys(%fe)); 242: } 243: 244: # ------------------------------------------------------------- Embedding Style 245: sub fileembstyle { 246: return $fe{lc(shift(@_))}; 247: } 248: 249: # ------------------------------------------------------------ Description Text 250: sub filedescription { 251: return $fd{lc(shift(@_))}; 252: } 253: 254: # ------------------------------------------------------------ Description Text 255: sub filedescriptionex { 256: my $ex=shift; 257: return '.'.$ex.' '.$fd{lc($ex)}; 258: } 259: 260: sub get_previous_attempt { 261: my ($symb,$username,$domain,$course)=@_; 262: my $prevattempts=''; 263: if ($symb) { 264: my (%returnhash)= 265: &Apache::lonnet::restore($symb,$course,$domain,$username); 266: if ($returnhash{'version'}) { 267: my %lasthash=(); 268: my $version; 269: for ($version=1;$version<=$returnhash{'version'};$version++) { 270: foreach (sort(split(/\:/,$returnhash{$version.':keys'}))) { 271: $lasthash{$_}=$returnhash{$version.':'.$_}; 272: } 273: } 274: $prevattempts='<table border=2></tr><th>History</th>'; 275: foreach (sort(keys %lasthash)) { 276: my ($ign,@parts) = split(/\./,$_); 277: if (@parts) { 278: my $data=$parts[-1]; 279: pop(@parts); 280: $prevattempts.='<th>Part '.join('.',@parts).'<br />'.$data.'</th>'; 281: } else { 282: $prevattempts.='<th>'.$ign.'</th>'; 283: } 284: } 285: for ($version=1;$version<=$returnhash{'version'};$version++) { 286: $prevattempts.='</tr><tr><th>Attempt '.$version.'</th>'; 287: foreach (sort(keys %lasthash)) { 288: my $value; 289: if ($_ =~ /timestamp/) { 290: $value=scalar(localtime($returnhash{$version.':'.$_})); 291: } else { 292: $value=$returnhash{$version.':'.$_}; 293: } 294: $prevattempts.='<td>'.$value.'</td>'; 295: } 296: } 297: $prevattempts.='</tr><tr><th>Current</th>'; 298: foreach (sort(keys %lasthash)) { 299: my $value; 300: if ($_ =~ /timestamp/) { 301: $value=scalar(localtime($lasthash{$_})); 302: } else { 303: $value=$lasthash{$_}; 304: } 305: $prevattempts.='<td>'.$value.'</td>'; 306: } 307: $prevattempts.='</tr></table>'; 308: } else { 309: $prevattempts='Nothing submitted - no attempts.'; 310: } 311: } else { 312: $prevattempts='No data.'; 313: } 314: } 315: 316: sub get_student_view { 317: my ($symb,$username,$domain,$courseid) = @_; 318: my ($map,$id,$feedurl) = split(/___/,$symb); 319: my (%old,%moreenv); 320: my @elements=('symb','courseid','domain','username'); 321: foreach my $element (@elements) { 322: $old{$element}=$ENV{'form.grade_'.$element}; 323: $moreenv{'form.grade_'.$element}=eval '$'.$element #' 324: } 325: &Apache::lonnet::appenv(%moreenv); 326: my $userview=&Apache::lonnet::ssi('/res/'.$feedurl); 327: &Apache::lonnet::delenv('form.grade_'); 328: foreach my $element (@elements) { 329: $ENV{'form.grade_'.$element}=$old{$element}; 330: } 331: $userview=~s/\<body[^\>]*\>//gi; 332: $userview=~s/\<\/body\>//gi; 333: $userview=~s/\<html\>//gi; 334: $userview=~s/\<\/html\>//gi; 335: $userview=~s/\<head\>//gi; 336: $userview=~s/\<\/head\>//gi; 337: $userview=~s/action\s*\=/would_be_action\=/gi; 338: return $userview; 339: } 340: 341: sub get_student_answers { 342: my ($symb,$username,$domain,$courseid) = @_; 343: my ($map,$id,$feedurl) = split(/___/,$symb); 344: my (%old,%moreenv); 345: my @elements=('symb','courseid','domain','username'); 346: foreach my $element (@elements) { 347: $old{$element}=$ENV{'form.grade_'.$element}; 348: $moreenv{'form.grade_'.$element}=eval '$'.$element #' 349: } 350: $moreenv{'form.grade_target'}='answer'; 351: &Apache::lonnet::appenv(%moreenv); 352: my $userview=&Apache::lonnet::ssi('/res/'.$feedurl); 353: &Apache::lonnet::delenv('form.grade_'); 354: foreach my $element (@elements) { 355: $ENV{'form.grade_'.$element}=$old{$element}; 356: } 357: $userview=~s/\<body[^\>]*\>//gi; 358: $userview=~s/\<\/body\>//gi; 359: $userview=~s/\<html\>//gi; 360: $userview=~s/\<\/html\>//gi; 361: $userview=~s/\<head\>//gi; 362: $userview=~s/\<\/head\>//gi; 363: $userview=~s/action\s*\=/would_be_action\=/gi; 364: return $userview; 365: } 366: 367: sub get_unprocessed_cgi { 368: my ($query,$possible_names)= @_; 369: # $Apache::lonxml::debug=1; 370: foreach (split(/&/,$query)) { 371: my ($name, $value) = split(/=/,$_); 372: $name = &Apache::lonnet::unescape($name); 373: if (!defined($possible_names) || (grep {$_ eq $name} @$possible_names)) { 374: $value =~ tr/+/ /; 375: $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; 376: &Apache::lonxml::debug("Seting :$name: to :$value:"); 377: unless (defined($ENV{'form.'.$name})) { &add_to_env('form.'.$name,$value) }; 378: } 379: } 380: } 381: 382: sub cacheheader { 383: unless ($ENV{'request.method'} eq 'GET') { return ''; } 384: my $date=strftime("%a, %d %b %Y %H:%M:%S GMT",gmtime); 385: my $output .='<meta HTTP-EQUIV="Expires" CONTENT="'.$date.'" /> 386: <meta HTTP-EQUIV="Cache-control" CONTENT="no-cache" /> 387: <meta HTTP-EQUIV="Pragma" CONTENT="no-cache" />'; 388: return $output; 389: } 390: 391: sub no_cache { 392: my ($r) = @_; 393: unless ($ENV{'request.method'} eq 'GET') { return ''; } 394: #my $date=strftime("%a, %d %b %Y %H:%M:%S GMT",gmtime); 395: $r->no_cache(1); 396: $r->header_out("Pragma" => "no-cache"); 397: #$r->header_out("Expires" => $date); 398: } 399: 400: sub add_to_env { 401: my ($name,$value)=@_; 402: if (defined($ENV{$name})) { 403: if (ref($ENV{$name})) { 404: #already have multiple values 405: push(@{ $ENV{$name} },$value); 406: } else { 407: #first time seeing multiple values, convert hash entry to an arrayref 408: my $first=$ENV{$name}; 409: undef($ENV{$name}); 410: push(@{ $ENV{$name} },$first,$value); 411: } 412: } else { 413: $ENV{$name}=$value; 414: } 415: } 416: 417: #---CSV Upload/Handling functions 418: 419: # ========================================================= Store uploaded file 420: # needs $ENV{'form.upfile'} 421: # return $datatoken to be put into hidden field 422: 423: sub upfile_store { 424: my $r=shift; 425: $ENV{'form.upfile'}=~s/\r/\n/gs; 426: $ENV{'form.upfile'}=~s/\f/\n/gs; 427: $ENV{'form.upfile'}=~s/\n+/\n/gs; 428: $ENV{'form.upfile'}=~s/\n+$//gs; 429: 430: my $datatoken=$ENV{'user.name'}.'_'.$ENV{'user.domain'}. 431: '_enroll_'.$ENV{'request.course.id'}.'_'.time.'_'.$$; 432: { 433: my $fh=Apache::File->new('>'.$r->dir_config('lonDaemons'). 434: '/tmp/'.$datatoken.'.tmp'); 435: print $fh $ENV{'form.upfile'}; 436: } 437: return $datatoken; 438: } 439: 440: # ================================================= Load uploaded file from tmp 441: # needs $ENV{'form.datatoken'} 442: # sets $ENV{'form.upfile'} to the contents of the file 443: 444: sub load_tmp_file { 445: my $r=shift; 446: my @studentdata=(); 447: { 448: my $fh; 449: if ($fh=Apache::File->new($r->dir_config('lonDaemons'). 450: '/tmp/'.$ENV{'form.datatoken'}.'.tmp')) { 451: @studentdata=<$fh>; 452: } 453: } 454: $ENV{'form.upfile'}=join('',@studentdata); 455: } 456: 457: # ========================================= Separate uploaded file into records 458: # returns array of records 459: # needs $ENV{'form.upfile'} 460: # needs $ENV{'form.upfiletype'} 461: 462: sub upfile_record_sep { 463: if ($ENV{'form.upfiletype'} eq 'xml') { 464: } else { 465: return split(/\n/,$ENV{'form.upfile'}); 466: } 467: } 468: 469: # =============================================== Separate a record into fields 470: # needs $ENV{'form.upfiletype'} 471: # takes $record as arg 472: sub record_sep { 473: my $record=shift; 474: my %components=(); 475: if ($ENV{'form.upfiletype'} eq 'xml') { 476: } elsif ($ENV{'form.upfiletype'} eq 'space') { 477: my $i=0; 478: foreach (split(/\s+/,$record)) { 479: my $field=$_; 480: $field=~s/^(\"|\')//; 481: $field=~s/(\"|\')$//; 482: $components{$i}=$field; 483: $i++; 484: } 485: } elsif ($ENV{'form.upfiletype'} eq 'tab') { 486: my $i=0; 487: foreach (split(/\t+/,$record)) { 488: my $field=$_; 489: $field=~s/^(\"|\')//; 490: $field=~s/(\"|\')$//; 491: $components{$i}=$field; 492: $i++; 493: } 494: } else { 495: my @allfields=split(/\,/,$record); 496: my $i=0; 497: my $j; 498: for ($j=0;$j<=$#allfields;$j++) { 499: my $field=$allfields[$j]; 500: if ($field=~/^\s*(\"|\')/) { 501: my $delimiter=$1; 502: while (($field!~/$delimiter$/) && ($j<$#allfields)) { 503: $j++; 504: $field.=','.$allfields[$j]; 505: } 506: $field=~s/^\s*$delimiter//; 507: $field=~s/$delimiter\s*$//; 508: } 509: $components{$i}=$field; 510: $i++; 511: } 512: } 513: return %components; 514: } 515: 516: # =============================== HTML code to select file and specify its type 517: sub upfile_select_html { 518: return (<<'ENDUPFORM'); 519: <input type="file" name="upfile" size="50"> 520: <br />Type: <select name="upfiletype"> 521: <option value="csv">CSV (comma separated values, spreadsheet)</option> 522: <option value="space">Space separated</option> 523: <option value="tab">Tabulator separated</option> 524: <option value="xml">HTML/XML</option> 525: </select> 526: ENDUPFORM 527: } 528: 529: # ===================Prints a table of sample values from each column uploaded 530: # $r is an Apache Request ref 531: # $records is an arrayref from &Apache::loncommon::upfile_record_sep 532: sub csv_print_samples { 533: my ($r,$records) = @_; 534: my (%sone,%stwo,%sthree); 535: %sone=&record_sep($$records[0]); 536: if (defined($$records[1])) {%stwo=&record_sep($$records[1]);} 537: if (defined($$records[2])) {%sthree=&record_sep($$records[2]);} 538: 539: $r->print('Samples<br /><table border="2"><tr>'); 540: foreach (sort({$a <=> $b} keys(%sone))) { $r->print('<th>Column '.($_+1).'</th>'); } 541: $r->print('</tr>'); 542: foreach my $hash (\%sone,\%stwo,\%sthree) { 543: $r->print('<tr>'); 544: foreach (sort({$a <=> $b} keys(%sone))) { 545: $r->print('<td>'); 546: if (defined($$hash{$_})) { $r->print($$hash{$_}); } 547: $r->print('</td>'); 548: } 549: $r->print('</tr>'); 550: } 551: $r->print('</tr></table><br />'."\n"); 552: } 553: 554: # ======Prints a table to create associations between values and table columns 555: # $r is an Apache Request ref 556: # $records is an arrayref from &Apache::loncommon::upfile_record_sep 557: # $d is an array of 2 element arrays (internal name, displayed name) 558: sub csv_print_select_table { 559: my ($r,$records,$d) = @_; 560: my $i=0;my %sone; 561: %sone=&record_sep($$records[0]); 562: $r->print('Associate columns with student attributes.'."\n". 563: '<table border="2"><tr><th>Attribute</th><th>Column</th></tr>'."\n"); 564: foreach (@$d) { 565: my ($value,$display)=@{ $_ }; 566: $r->print('<tr><td>'.$display.'</td>'); 567: 568: $r->print('<td><select name=f'.$i. 569: ' onChange="flip(this.form,'.$i.');">'); 570: $r->print('<option value="none"></option>'); 571: foreach (sort({$a <=> $b} keys(%sone))) { 572: $r->print('<option value="'.$_.'">Column '.($_+1).'</option>'); 573: } 574: $r->print('</select></td></tr>'."\n"); 575: $i++; 576: } 577: $i--; 578: return $i; 579: } 580: 581: # ===================Prints a table of sample values from the upload and 582: # can make associate samples to internal names 583: # $r is an Apache Request ref 584: # $records is an arrayref from &Apache::loncommon::upfile_record_sep 585: # $d is an array of 2 element arrays (internal name, displayed name) 586: sub csv_samples_select_table { 587: my ($r,$records,$d) = @_; 588: my %sone; my %stwo; my %sthree; 589: my $i=0; 590: 591: $r->print('<table border=2><tr><th>Field</th><th>Samples</th></tr>'); 592: %sone=&record_sep($$records[0]); 593: if (defined($$records[1])) {%stwo=&record_sep($$records[1]);} 594: if (defined($$records[2])) {%sthree=&record_sep($$records[2]);} 595: 596: foreach (sort keys %sone) { 597: $r->print('<tr><td><select name=f'.$i. 598: ' onChange="flip(this.form,'.$i.');">'); 599: foreach (@$d) { 600: my ($value,$display)=@{ $_ }; 601: $r->print('<option value='.$value.'>'.$display.'</option>'); 602: } 603: $r->print('</select></td><td>'); 604: if (defined($sone{$_})) { $r->print($sone{$_}."</br>\n"); } 605: if (defined($stwo{$_})) { $r->print($stwo{$_}."</br>\n"); } 606: if (defined($sthree{$_})) { $r->print($sthree{$_}."</br>\n"); } 607: $r->print('</td></tr>'); 608: $i++; 609: } 610: $i--; 611: return($i); 612: } 613: 1; 614: __END__; 615: 616: 617: =head1 NAME 618: 619: Apache::loncommon - pile of common routines 620: 621: =head1 SYNOPSIS 622: 623: Referenced by other mod_perl Apache modules. 624: 625: Invocation: 626: &Apache::loncommon::SUBROUTINENAME(ARGUMENTS); 627: 628: =head1 INTRODUCTION 629: 630: Common collection of used subroutines. This collection helps remove 631: redundancy from other modules and increase efficiency of memory usage. 632: 633: Current things done: 634: 635: Makes a table out of the previous homework attempts 636: Inputs result_from_symbread, user, domain, course_id 637: Reads in non-network-related .tab files 638: 639: This is part of the LearningOnline Network with CAPA project 640: described at http://www.lon-capa.org. 641: 642: =head1 HANDLER SUBROUTINE 643: 644: There is no handler subroutine. 645: 646: =head1 OTHER SUBROUTINES 647: 648: =over 4 649: 650: =item * 651: 652: BEGIN() : initialize values from language.tab, copyright.tab, filetypes.tab, 653: and filecategories.tab. 654: 655: =item * 656: 657: languageids() : returns list of all language ids 658: 659: =item * 660: 661: languagedescription() : returns description of a specified language id 662: 663: =item * 664: 665: copyrightids() : returns list of all copyrights 666: 667: =item * 668: 669: copyrightdescription() : returns description of a specified copyright id 670: 671: =item * 672: 673: filecategories() : returns list of all file categories 674: 675: =item * 676: 677: filecategorytypes() : returns list of file types belonging to a given file 678: category 679: 680: =item * 681: 682: fileembstyle() : returns embedding style for a specified file type 683: 684: =item * 685: 686: filedescription() : returns description for a specified file type 687: 688: =item * 689: 690: filedescriptionex() : returns description for a specified file type with 691: extra formatting 692: 693: =item * 694: 695: get_previous_attempt() : return string with previous attempt on problem 696: 697: =item * 698: 699: get_student_view() : show a snapshot of what student was looking at 700: 701: =item * 702: 703: get_student_answers() : show a snapshot of how student was answering problem 704: 705: =item * 706: 707: get_unprocessed_cgi() : get unparsed CGI parameters 708: 709: =item * 710: 711: cacheheader() : returns cache-controlling header code 712: 713: =item * 714: 715: nocache() : specifies header code to not have cache 716: 717: =item * 718: 719: add_to_env($name,$value) : adds $name to the %ENV hash with value 720: $value, if $name already exists, the entry is converted to an array 721: reference and $value is added to the array. 722: 723: =back 724: 725: =cut