ViewVC Help
View File | Revision Log | Show Annotations | Revision Graph | Root Listing
root/i-scream/projects/cms/source/host/ihost-perl/ihost.pl
(Generate patch)

Comparing projects/cms/source/host/ihost-perl/ihost.pl (file contents):
Revision 1.45 by tdb, Tue Dec 18 06:07:00 2001 UTC vs.
Revision 1.46 by tdb, Mon Mar 11 13:34:24 2002 UTC

# Line 451 | Line 451 | sub make_xml() {
451                  return $xmltemp;
452              }
453          }
454 +        # dealing with a null value
455 +        elsif($curline =~ /^$curlevel([^\.\s]+)$/) {
456 +            # simply adding a space makes the above elsif deal with it :)
457 +            # just level with an empty tag in the XML
458 +            $curline .= " ";
459 +        }
460 +        # failing all that, skip the line
461 +        else {
462 +            $curline = "";
463 +        }
464      }
465   }

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines