Errors Output
  1. Can't call method "quote" on an undefined value at /home/areth/public_html/projects.asp line 11, <FILE> line 4845. , /usr/local/share/perl5/Apache/ASP.pm line 1522
Debug Output
  1. Can't call method "quote" on an undefined value at /home/areth/public_html/projects.asp line 11, line 4845. , /usr/local/share/perl5/Apache/ASP.pm line 1522 
ASP to Perl Script 

  -: no strict;;use vars qw($Application $Session $Response $Server $Request);;
  -: #line 1 /home/areth/public_html/projects.asp
  1: ;; my $dbh=CS::MakeConnect(); my %V=%{$Request->Params};
  2: my ($Where, $sth, $id, $header, $timestamp, $active, $assigned, $cclist, $priority, %PriTerm, $lastmod, $pubitem, $poster, $posted, $writing);
  3: ; &Apache::ASP::WriteRef($main::Response, \('<html><title>Areth: '.($Where).' projects</title>
  4: '));
  -: #line 1 /home/areth/public_html/header.frag
  1: ; &Apache::ASP::WriteRef($main::Response, \('<html><title>Areth</title>
  2: <body bgcolor=#000000 fgcolor=#fefefe text=#c0c0c0 link=#d0d0d0 vlink=#8080ff>
'));
  -: #line 4 /home/areth/public_html/projects.asp
  4: ; &Apache::ASP::WriteRef($main::Response, \('
  5: <center><h1>Areth: Public-knowledge projects</h1>
  6: <table><tr><td width=150 valign=top>')); CS::NavBar('/home/areth/public_html/tablenav.dat'); ; &Apache::ASP::WriteRef($main::Response, \('</td><td>
  7: <table border="10"><tr><td valign="top">'));
  8: 
  9:     if($V{'showall'} eq '2') { $Where='1=1'; }
 10:  elsif($V{'showall'} eq '1') { $Where="active='t'"; }
 11:  else { $Where="active='t' AND lower(assigned)=".lc($dbh->quote($ENV{'REMOTE_USER'})); }
 12: $Where='1=1' if($V{'showall'} eq '2');
 13: my %YesNo; $YesNo{'0'} = 'No'; $YesNo{'1'}='Yes';
 14: $sth=CS::SelectRecs($dbh, 'proj_data', 'id,header,(posted::date),assigned,active,priority,pubitem', "pubitem='t' AND active='t' ORDER BY priority,assigned,(posted::date),header", \$id, \$header, \$timestamp, \$assigned, \$active, \$priority, \$pubitem);
 15: ; &Apache::ASP::WriteRef($main::Response, \('<table border><tr><th>&nbsp;</th>')); print '<th>Active</th>' if($V{'showall'} eq '2'); ; &Apache::ASP::WriteRef($main::Response, \('<th>Assigned</th><th>Priority</th><th>Posted</th><th>Summary</th></tr>
 16: '));
 17: $PriTerm{'0'}='Urgent';
 18: $PriTerm{'1'}='High';
 19: $PriTerm{'2'}='Medium';
 20: $PriTerm{'3'}='Low';
 21: while($sth->fetch)
 22:  {
 23:   $assigned='Unknown' if($assigned eq '');
 24: ; &Apache::ASP::WriteRef($main::Response, \('<tr>
 25: <td><a href="projects.asp?action=showproj&showall='.($V{'showall'}).'&id='.($id).'">Show</a></td>
 26: ')); if($V{'showall'} eq '2') { ; &Apache::ASP::WriteRef($main::Response, \('<td>'.($YesNo{$active}).'</td>')); } ; &Apache::ASP::WriteRef($main::Response, \('
 27: <td>'.($assigned).'</td>
 28: <td>'.($PriTerm{$priority}).'</td>
 29: <td>'.($timestamp).'</td>
 30: <td>'.($header).'</td></tr>
 31: ')); } $sth->finish; ; &Apache::ASP::WriteRef($main::Response, \('</table></td><td valign="top">
 32: ')); if($V{'action'} eq 'showproj') {
 33: CS::SelectRec($dbh, 'proj_data', 'id,header,(posted::date),active,assigned,cclist,priority,lastmod,pubitem', 'id='.$dbh->quote($V{'id'}), \$id, \$header, \$timestamp, \$active, \$assigned, \$cclist, \$priority, \$lastmod, \$pubitem);
 34:  } else { $timestamp=''; $active='1'; $header=''; $assigned=$ENV{'REMOTE_USER'}; } if($timestamp) {
 35: $lastmod=~s/\..*//;
 36:  ; &Apache::ASP::WriteRef($main::Response, \('
 37: <table border>
 38: <tr><th colspan=2><h2>Project Details</h2></th></tr>
 39: <tr><th align="left">Posted</th><td>'.($timestamp).'</td></tr>
 40: <tr><th align="left">Updated</th><td>'.($lastmod).'</td></tr>
 41: <input type="hidden" name="id" value="'.($id).'">
 42: <tr><th align="left">Assigned:</th><td>'.($assigned).'</td></tr>
 43: <tr><th align="left">Priority</th><td>'.($PriTerm{$priority}).'</td></tr>
 44: <tr><th align="left">Summary:</th><td>'.($header).'</td></tr>
 45: <tr><td colspan=2 align="center">
 46: ')); my $ssth=CS::SelectRecs($dbh, 'proj_notes', 'poster,posted,writing', 'projid='.$dbh->quote($id).' ORDER BY id',\$poster, \$posted, \$writing);
 47: while($ssth->fetch) {
 48: $writing=~s/</&gt;/g; $writing=~s/>/&lt;/g; $writing=~s/\n/<br>/g;
 49: $posted=~s/\..*//; $posted=~s/-[0-9]+$//;
 50: ; &Apache::ASP::WriteRef($main::Response, \('<hr width="80%">On '.($posted).', '.(($Users{$poster}{description}?$Users{$poster}{description}:$poster)).' wrote:<br>'.($writing).'<p>
 51: '));} $ssth->finish; ; &Apache::ASP::WriteRef($main::Response, \('
 52: </table>
 53: ')); } $dbh->disconnect; ; &Apache::ASP::WriteRef($main::Response, \('</table></td></tr></table>'));
An error has occured with the Apache::ASP script just run. If you are the developer working on this script, and cannot work through this problem, please try researching it at the Apache::ASP web site, specifically the FAQ section. Failing that, check out your support options, and if necessary include this debug output with any query.