[BACK]Return to lonambiguous.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / rat

Diff for /rat/lonambiguous.pm between versions 1.5 and 1.8

version 1.5, 2002/08/12 18:21:42 version 1.8, 2003/01/14 18:47:50
Line 38  use Apache::lonnet; Line 38  use Apache::lonnet;
 use Apache::Constants qw(:common REDIRECT);  use Apache::Constants qw(:common REDIRECT);
 use GDBM_File;  use GDBM_File;
   
   my %bighash;
   
   sub cleanup {
       if (tied(%bighash)){
    &Apache::lonnet::logthis('Cleanup ambiguous: bighash');
           unless (untie(%bighash)) {
       &Apache::lonnet::logthis('Failed cleanup ambiguous: bighash');
           }
       }
   }
   
 # ----------------------------------------------------------- Could not resolve  # ----------------------------------------------------------- Could not resolve
   
Line 63  sub handler { Line 73  sub handler {
    }     }
   
 # ---------------------------------------------------------- Is this selecting?  # ---------------------------------------------------------- Is this selecting?
       
    my %bighash;  
   
    if ($ENV{'form.selecturl'}) {     if ($ENV{'form.selecturl'}) {
        my $envkey;         my $envkey;
        if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db',         if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db',
Line 134  sub handler { Line 142  sub handler {
    if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db',     if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db',
                     &GDBM_READER(),0640)) {                      &GDBM_READER(),0640)) {
 # ---------------------------------------------- Get ID(s) for current resource  # ---------------------------------------------- Get ID(s) for current resource
       my $ids=$bighash{'ids_/res/'.$thisfn};        my $ids=$bighash{'ids_'.&Apache::lonnet::clutter($thisfn)};
       if ($ids) {        if ($ids) {
 # ------------------------------------------------------------------- Has ID(s)  # ------------------------------------------------------------------- Has ID(s)
          my @possibilities=split(/\,/,$ids);           my @possibilities=split(/\,/,$ids);
Removed from v.1.5  
changed lines
  Added in v.1.8

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>