From 45b2420797fad060a3befba648e50e991162cd71 Mon Sep 17 00:00:00 2001 From: rangi Date: Fri, 9 May 2003 23:47:22 +0000 Subject: [PATCH] This script is now templated 3 more to go i think --- acqui.simple/addbiblio-nomarc.pl | 88 +++++-------------- .../en/acqui.simple/addbiblio-nomarc.tmpl | 55 ++++++++++++ 2 files changed, 79 insertions(+), 64 deletions(-) create mode 100644 koha-tmpl/intranet-tmpl/default/en/acqui.simple/addbiblio-nomarc.tmpl diff --git a/acqui.simple/addbiblio-nomarc.pl b/acqui.simple/addbiblio-nomarc.pl index 5653ed3528..51596a3b3e 100755 --- a/acqui.simple/addbiblio-nomarc.pl +++ b/acqui.simple/addbiblio-nomarc.pl @@ -25,75 +25,35 @@ # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, # Suite 330, Boston, MA 02111-1307 USA +# $Log$ +# Revision 1.2 2003/05/09 23:47:22 rangi +# This script is now templated +# 3 more to go i think +# + use CGI; use strict; use C4::Output; +use HTML::Template; +use C4::Auth; +use C4::Interface::CGI::Output; my $input = new CGI; -my $error = $input->param('error'); +my ( $template, $loggedinuser, $cookie ) = get_template_and_user( + { + template_name => "acqui.simple/addbiblio-nomarc.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => { catalogue => 1 }, + debug => 1, + } +); -print $input->header; -print startpage(); -print startmenu('acquisitions'); - -print << "EOF"; -Adding a new Biblio
- - - - - -
Section One: Copyright Information
-EOF - -if ( $error eq "notitle" ) { - print << "EOF"; -

-

- Please Specify a Title -
-EOF -} # if +my $error = $input->param('error'); -print << "EOF"; -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Title: *
Subtitle:
Author:
Series Title:
- (if applicable)
Copyright Date:
Abstract:
Notes:
-
- * Required -EOF +$template->param( + ERROR => $error, +); -print endmenu(); -print endpage(); +output_html_with_http_headers $input, $cookie, $template->output; diff --git a/koha-tmpl/intranet-tmpl/default/en/acqui.simple/addbiblio-nomarc.tmpl b/koha-tmpl/intranet-tmpl/default/en/acqui.simple/addbiblio-nomarc.tmpl new file mode 100644 index 0000000000..98288fb0cd --- /dev/null +++ b/koha-tmpl/intranet-tmpl/default/en/acqui.simple/addbiblio-nomarc.tmpl @@ -0,0 +1,55 @@ + + +Adding a new Biblio
+ + + + + +
Section One: Copyright Information
+ + +

+

+Please Specify a Title +
+
+ +
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Title: *
Subtitle:
Author:
Series Title:
+(if applicable)
Copyright Date:
Abstract:
Notes:
+
+* Required + -- 2.39.2