/[wopi]/make_poll.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /make_poll.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12 by dpavlin, Sat Oct 11 15:47:33 2003 UTC revision 1.13 by dpavlin, Tue Oct 21 15:15:08 2003 UTC
# Line 764  sub checkboxes { Line 764  sub checkboxes {
764          }          }
765  }  }
766    
767    sub html {
768            package main;
769    
770            my ($xp, $el, $attref, $ncref) = @_;
771    
772            $body.="<p>";
773    
774            $$ncref = sub {
775                    my ($xp, $text) = @_;
776    
777                    if (defined $text) {
778                            $body.=x($text);
779                    } else {
780                            $body.="</p>";
781                    }
782            }
783    }
784    
785  print "\n\nTo create database for poll $poll use:\n\n";  print "\n\nTo create database for poll $poll use:\n\n";
786  print "\$ psql template1 < $poll/$poll.sql\n\n";  print "\$ psql template1 < $poll/$poll.sql\n\n";
787  print "THIS WILL DISTROY ALL DATA IN EXISTING DATABASE ".$prefix.$poll." !!\n";  print "THIS WILL DISTROY ALL DATA IN EXISTING DATABASE ".$prefix.$poll." !!\n";
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.26